::canvas->createText(...)

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,
	'<MouseWheel>',
	[
		sub {
			my $unit = $_[1] > 0 ? -1 : 1;
			$zcanvas->yviewScroll( $unit => 'units' );
		},
		Ev('D')
	]
);


MainLoop;