From cfd9fe1d670a59bc5d82056274cd05c3b98974b4 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Wed, 27 Jun 2001 08:38:42 +0000
Subject: *** empty log message ***

---
 sandbox/local.pl | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

(limited to 'sandbox/local.pl')

diff --git a/sandbox/local.pl b/sandbox/local.pl
index f448420..80505d8 100644
--- a/sandbox/local.pl
+++ b/sandbox/local.pl
@@ -2,6 +2,7 @@
 
 use Tk;
 use Tk::Zinc;
+use Controls;
 
 $mw = MainWindow->new();
 $logo = $mw->Photo(-file => "logo.gif");
@@ -9,7 +10,8 @@ $papier = $mw->Photo(-file => "texture-paper.xpm");
 #$penguin = $mw->Photo(-file => "xpenguin.png");
 
 $top = 1;
-$zinc = $mw->Zinc(-Render, -relief => 'sunken');
+$zinc = $mw->Zinc(-render => 1,
+		  -relief => 'sunken');
 $zinc->pack(-expand => 1, -fill => 'both');
 $zinc->configure(-width => 500, -height => 500);
 $gr1 = $zinc->add('group', $top);
@@ -25,17 +27,17 @@ $zinc->lower($clip);
 $zinc->lower($clip2);
 
 $rect = $zinc->add('rectangle', $view, [100, 100, 200, 200],
-		   -linewidth => 4, -tile => $papier,
+		   -linewidth => 4, # -tile => $papier,
 		   -fillcolor => 'pink', -fillalpha => 128,
 		   -filled => 1);
 $fvwm = $zinc->add('icon', $view,
 		   -mask => '@fvwm.xbm', -position => [250, 120],
 		   -anchor => 'center', -color => 'black',
 		   -alpha => 255);
-$rect2 = $zinc->add('rectangle', $view, [150, 50, 300, 300],
-		    -linewidth => 0, -tile => $logo,
-		    -fillcolor => 'white', -fillalpha => 90,
-		    -filled => 1);
+#$rect2 = $zinc->add('rectangle', $view, [150, 50, 300, 300],
+#		    -linewidth => 0, -tile => $logo,
+#		    -fillcolor => 'white', -fillalpha => 90,
+#		    -filled => 1);
 $x = 100;
 $y = 100;
 for ($i = 0; $i < 1; $i++) {
@@ -55,4 +57,6 @@ $zinc->translate($rect, 150, 150);
 
 #source controls.tcl
 #
+new Controls($zinc);
+
 MainLoop();
-- 
cgit v1.1