Re: Unix time == 1111111111
- From: Alberto Manuel Brandao Simoes <albie alfarrabio di uminho pt>
- To: nadim <nadim khemir net>
- Cc: gtk-perl-list gnome org
- Subject: Re: Unix time == 1111111111
- Date: Thu, 17 Mar 2005 22:01:08 +0000
As I would say on #perl (irc.perl.org), McLean++
Nice.
Cheers
Alberto
nadim wrote:
Cool, only a small detail, The font used seems to be proportional so the whole
figure shakes.
Cheers, Nadim.
On Thursday 17 March 2005 22:52, Grant McLean wrote:
#!/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;
_______________________________________________
gtk-perl-list mailing list
gtk-perl-list gnome org
http://mail.gnome.org/mailman/listinfo/gtk-perl-list
--
Alberto Simões - Departamento de Informática - Universidade do Minho
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]