Opened by Mako at 2007-11-22 13:25
User since
2007-10-05
31 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2007-10-05
31 Artikel
BenutzerIn
hab ich hier irgendwo einen Denkfehler oder warum expandiert mein Canvas nicht wenn ich das "Fenster" größer ziehe?
Der Sinn des ganzen soll sein, dass wenn ich etwas zeichne was größer als die vorhandene Canvasgröße ist soll man scrollen können.
Geht das so überhaupt?
Danke
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
use Tk;
use Tk::Pane;
my $mw = MainWindow->new;
my $fr = $mw->Frame(-background=> 'black', -width=>"50", -height=>"500") ->pack(qw/ -side right -anchor nw /);
my $fm = $mw->Scrolled("Pane",-background=> 'green', -width=>"500", -height=>"500")->pack(-fill => "both", -side =>'left', -expand => 1);
my $pane = $fm->Subwidget("scrolled");
Tk::bind($pane, '<MouseWheel>', [ sub {$fm->yview('scroll',-($_[1] / 120)
* 3,'units')}, Ev('D')]);
$pane->focus;
$pane->Walk(sub {
$_[0]->bindtags([$pane, $_[0]->bindtags]);
});
my $c1 = $fm->Canvas( -width=> 500, -height=> 500, -bg=> 'white', -borderwidth=> '1')->pack(-expand=>1, -fill=>'both');
MainLoop;
Der Sinn des ganzen soll sein, dass wenn ich etwas zeichne was größer als die vorhandene Canvasgröße ist soll man scrollen können.
Geht das so überhaupt?
Danke