use strict; use warnings; use Tk; #use Tk::DynaMouseWheelBind; # --START--# my $top = new MainWindow; $top->geometry("700x800"); #-- START Scrolled Canvas----# my $zcanvas = $top->Scrolled( qw/Canvas -relief sunken -width 400 -height 400 -bg white -borderwidth 1 -scrollbars se -scrollregion / => [qw/0 0 1000 1000/] ) ->pack( -expand => 1, -fill => "both" ); my $ic = $zcanvas->Subwidget('Scrolled'); #--ENDE Scrolled Canvas----# #---<<<<<<<< A) START Labelframe >>>>>>>>--# my $ZLFRAME = $zcanvas->Labelframe(-relief=> "groove", -text =>"...", -bg => "#FFFFFF") ->pack( -expand => 1, -fill => "both" , -padx => 10, -pady => 10, -ipadx => 10, -ipady => 5); for ( 1 .. 22 ) { my $zlabel .= $_; $zlabel = $ZLFRAME->Labelframe( -text => "[$_]", -bg => "#FFFFEE" ) ->pack( -expand => 1, -fill => "both" , -padx => 10, -pady => 10, -ipadx => 10, -ipady => 5); my $zlabelfr = $zlabel->Label( -text => "Umlauf[$_]" )->pack; } #---<<<<<<<< A) ENDE Labelframe >>>>>>>>--# #---<<<<<<<< B) START CreateText >>>>>>>>--# # my $y = 10; # # $zcanvas->createText (250,0,-anchor=>'n',-justify=>"center", # -width=>500,-text=>"\n",-fill=>"yellow"); # # for ($i = 0 ; $i < 100 ; $i++) # { # $zcanvas->createText(150,$y,-anchor=>"nw",-fill=>"black",-text=>$i); # $y += 25; # } #---<<<<<<<< B) ENDE CreateText >>>>>>>>--# #---MOUSEWHEEL BINDINGS $top->bind( $top, '', [ sub { my $unit = $_[1] > 0 ? -1 : 1; $zcanvas->yviewScroll( $unit => 'units' ); }, Ev('D') ] ); MainLoop;