# !/usr/bin/perl -w

use Gtk2::TrayIcon;
Gtk2->init;

$icon = Gtk2::TrayIcon->new("temperature");

my $pbar = Gtk2::ProgressBar->new() ;

$icon->add( $pbar ) ;
affiche_T();
$pbar->show() ;
$pbar->set_fraction(1) ;

my $timer= Glib::Timeout->add(1000 ,\&affiche_T) ;

$icon->show_all;
Gtk2->main;

sub affiche_T{
open(F, '/proc/acpi/thermal_zone/THRM/temperature') || die "erreur !";
$f = <F>;
my $f2 = substr $f, 25, 4;
$pbar->set_text($f2) ;
return 1;
}

# !/usr/bin/perl -w

use strict;
use Gtk2::TrayIcon;
Gtk2->init;

my $dossier = '/home/user/Desktop/applet/'; #adresse du dossier qui contient les images pour les chiffres
my $extension = '.gif'; #extension des images
my $millisec = 1000; #temps de rafraichissement

my $icon = Gtk2::TrayIcon->new("temperature");

my $hbox = Gtk2::HBox->new( 0, 0 ) ;
$hbox->show() ;
$icon->add( $hbox ) ;

my $digit1 = Gtk2::Image->new_from_file (undef);
$digit1->show() ;
$hbox->ack_start( $digit1, 0, 0, 0 ) ;

my $digit2 = Gtk2::Image->new_from_file (undef);
$digit2->show() ;
$hbox->ack_start( $digit2, 0, 0, 0 ) ;

affiche_T();

$icon->show_all;

my $timer= Glib::Timeout->add($millisec ,\&affiche_T) ;

Gtk2->main;

sub affiche_T {
open(F, '/proc/acpi/thermal_zone/THRM/temperature') || die "0";
my $f = <F>;
close (F);
my $f1 = substr $f, 25, 1;
my $f2 = substr $f, 26, 1;
my $d1 = "$dossier$f1$extension";
my $d2 = "$dossier$f2$extension";
$digit1->set_from_file($d1);
$digit2->set_from_file($d2);
return 1; #rha ! j'ai mis du temps à comprendre que ce return était obligatoire pour bien effectuer la fonction...
}