Update bogus font names and scrollbar protocol (items.pl)

1 files changed, 6 insertions, 7 deletions

diff --git a/Perl/demos/Tk/demos/zinc_lib/items.pl b/Perl/demos/Tk/demos/zinc_lib/items.pl
index 067368b..d092924 100644
--- a/Perl/demos/Tk/demos/zinc_lib/items.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/items.pl
@@ -9,14 +9,13 @@ use Tk;
 use Tk::Zinc;
 use strict;
 
-my $defaultfont = '-adobe-helvetica-bold-r-normal-*-120-*-*-*-*-*-*';
+my $defaultfont = '-adobe-helvetica-bold-r-normal--*-120-*-*-*-*-*-*';
 my $mw = MainWindow->new();
-my $zinc = $mw->Zinc(-width => 700, -height => 600,
-		     -font => "10x20", # usually fonts are sets in resources
-		                       # but for this example it is set in the code!
-		     -borderwidth => 3, -relief => 'sunken',
-#		     -render => 1,
-		     )->pack;
+my $zinc = $mw->Scrolled('Zinc', -width => 700, -height => 600,
+			 -font => '10x20', -borderwidth => 3,
+			 -relief => 'sunken', -scrollbars => 'se',
+			 -scrollregion => [-100, 0, 1000, 1000]);
+$zinc->pack(-expand => 'yes', -fill => 'both');
 
 $zinc->add('rectangle', 1, [10,10, 100, 50], -fillcolor => "green", -filled => 1,
 	    -linewidth => 10, -relief => "roundridge", -linecolor => "darkgreen");