diff options
Diffstat (limited to 'sandbox/local.pl')
-rw-r--r-- | sandbox/local.pl | 16 |
1 files changed, 10 insertions, 6 deletions
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(); |