Leser: 2
|< 1 2 >| | 19 Einträge, 2 Seiten |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
#!/usr/bin/perl use strict; use Tk; my $mw = MainWindow->new; my $c = $mw->Scrolled( qw/Canvas -width 400 -height 400 -relief sunken -bg white -borderwidth 1 -scrollbars se -scrollregion/ => [qw/0 0 1000 1000/])->pack; MainLoop;
ptk+2007-09-10 16:35:20--
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
#!/Perl/bin/perl use strict; use warnings; use Tk; my $mw = MainWindow->new; my $c = $mw->Scrolled( 'Canvas', -width => 400, -height => 400, -relief => 'sunken', -bg => 'white', -borderwidth => 1, -scrollbars => 'se', -scrollregion => [qw/0 0 1000 1000/] )->pack(); $mw->MainLoop();
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/Perl/bin/perl
use strict;
use warnings;
use Tk;
my $mw = tkinit();
my $scrtxt = $mw->Scrolled(
'Text',
-scrollbars => 'se',
)->pack(-fill => 'both');
$mw->MainLoop();
pktm+2007-09-11 10:36:12--Na, ich hab in Zeile 19 $c->MouseWheelBind(); hingeschrieben. Ist das falsch?
1 2 3 4
#sowohl $c->MouseWheelBindoder #als auch... $c->Subwidget("scrolled")->MouseWheelBind
$mw->MouseWheelBind("Tk::Canvas")
|< 1 2 >| | 19 Einträge, 2 Seiten |