Leser: 3
![]() |
|< 1 2 3 >| | ![]() |
28 Einträge, 3 Seiten |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
use strict; use warnings; use Tk; my $top = new MainWindow; $top->Button( -text => 'Cursor', -command => sub { $top->configure(-cursor => 'watch'); $top->idletasks(); sleep 2; $top->configure(-cursor => 'arrow'); }, )->pack(); MainLoop;
1
2
3
4
5
6
7
This is perl, v5.8.8 built for MSWin32-x86-multi-thread
(with 18 registered patches, see perl -V for more detail)
Copyright 1987-2007, Larry Wall
Binary build 822 [280952] provided by ActiveState http://www.ActiveState.com
Built Jul 31 2007 19:34:48
1
2
3
4
5
6
7
8
9
10
11
12
13
14
use strict;
use warnings;
use Tk;
my $mw = tkinit ();
$mw->Button(-text => 'watch',
-command => sub{$mw->configure(-cursor => 'watch');
$mw->update;
sleep 4;
$mw->configure(-cursor => '');
}
)->pack;
MainLoop;
![]() |
|< 1 2 3 >| | ![]() |
28 Einträge, 3 Seiten |