Dariush Debian Diary
Diariusz Dariusza
, 17, 2005
1111011310.....
#!/usr/bin/perl
use strict;
use Gtk2 -init;
use Glib qw(TRUE FALSE);
my $window = Gtk2::Window->new;
$window->signal_connect(delete_event => sub { Gtk2->main_quit; });
my $label = Gtk2::Label->new('' . time());
my $font = Gtk2::Pango::FontDescription->from_string("Sans Bold 48");
$label->modify_font($font);
Glib::Timeout->add(250, sub { $label->set_text('' . time()); TRUE; });
$window->add($label);
$window->show_all;
Gtk2->main;
Last modified on
Copyright ©1995-2004 Dariush Pietrzak. All content on this website, unless otherwise noted, is licensed under a Creative Commons License.
Using desktop theme, version 0.5. Check the Blosxom site for the latest copy.
