diff options
Diffstat (limited to 'sandbox/local.pl')
-rw-r--r-- | sandbox/local.pl | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/sandbox/local.pl b/sandbox/local.pl index 2e2e9df..8a9593c 100644 --- a/sandbox/local.pl +++ b/sandbox/local.pl @@ -7,14 +7,14 @@ use Tk::Photo; require Tk::PNG; $mw = MainWindow->new(); -$logo = $mw->Photo(-file => "logo.gif"); +$logo = $mw->Photo(-file => ""); $papier = $mw->Photo(-file => "texture-paper.xpm"); $penguin = $mw->Photo(-format => 'png', -file => "xpenguin.png"); $top = 1; $zinc = $mw->Zinc(-render => 1, - -borderwidth => 0, + -borderwidth => 5, -highlightthickness => 0, -relief => 'sunken', -takefocus => 1, @@ -58,7 +58,7 @@ $rect2 = $zinc->add('rectangle', $view, [150, 50, 300, 300], $rect = $zinc->add('rectangle', $view, [100, 100, 200, 200], -visible => 1, -linewidth => 4, - -linecolor => 'black:100', + -linecolor => 'tan', # -fillcolor => 'pink:50', -fillcolor => 'tan', -relief => 'sunken', @@ -156,11 +156,11 @@ $arc = $zinc->add('arc', $view, [-45, -45, 45, 45], -fillcolor => 'boule', -linewidth => 1, # -filled => 1, - -startangle => 0, - -extent => 240, - -closed => 0, - -firstend => [12, 12, 8], - -lastend => [12, 12, 8], +# -startangle => 0, +# -extent => 360, + -closed => 1, +# -firstend => [12, 12, 8], +# -lastend => [12, 12, 8], # -tile => $logo, -pieslice => 0 ); @@ -191,7 +191,7 @@ $zinc->itemconfigure($tab, 0, -text => 'blabla', -font => "cenapii-digistrips-b12", -border => ['contour'], - -bordercolor => 'black', + -bordercolor => 'tan', -filled => 1, -tile => $papier, -reliefthickness => 4, @@ -208,4 +208,5 @@ $mw->Tk::bind('<p>', sub { print "perfs: ", join(',', $zinc->monitor()), "\n" }) $mw->Tk::bind('<t>', sub { $zinc->remove($arc); }); $mw->Tk::bind('<q>', sub { exit(0); }); $zinc->focusFollowsMouse(); + MainLoop(); |