diff options
author | lecoanet | 2001-11-29 10:38:39 +0000 |
---|---|---|
committer | lecoanet | 2001-11-29 10:38:39 +0000 |
commit | 3f254ce8773be1b6e1d25d9b831485604a0c49b7 (patch) | |
tree | 4ade0b39dc693298b7e45ef729cd7f53c41eced4 | |
parent | 0a96bc299f51e8420d6b6fec27b308844fe067d1 (diff) | |
download | tkzinc-3f254ce8773be1b6e1d25d9b831485604a0c49b7.zip tkzinc-3f254ce8773be1b6e1d25d9b831485604a0c49b7.tar.gz tkzinc-3f254ce8773be1b6e1d25d9b831485604a0c49b7.tar.bz2 tkzinc-3f254ce8773be1b6e1d25d9b831485604a0c49b7.tar.xz |
*** empty log message ***
-rw-r--r-- | debian/changelog | 4 | ||||
-rw-r--r-- | sandbox/local.pl | 18 |
2 files changed, 15 insertions, 7 deletions
diff --git a/debian/changelog b/debian/changelog index f854f4b..4dc081e 100644 --- a/debian/changelog +++ b/debian/changelog @@ -3,6 +3,10 @@ zinc-tk (3.2.2) unstable; urgency=low * Ajout du clipping non rectangulaire. * Gradient PATH * Correction d'un bug de binding Enter/Leave dans item. + * Intégration de la gestion sélective du redessin. + * Réalisation de la bordure relief et du highlight de focus + directement en X ou en GL pour éviter les clignotements + (en GL). -- Patrick Lecoanet <lecoanet@ath.cena.fr> Mon, 26 Nov 2001 11:29:08 +0100 diff --git a/sandbox/local.pl b/sandbox/local.pl index 94f1fa5..cabd58b 100644 --- a/sandbox/local.pl +++ b/sandbox/local.pl @@ -13,9 +13,12 @@ $penguin = $mw->Photo(-format => 'png', -file => "xpenguin.png"); $top = 1; -$zinc = $mw->Zinc(-render => 1, - -borderwidth => 0, - -relief => 'sunken'); +$zinc = $mw->Zinc(-render => 0, + -borderwidth => 5, + -highlightthickness => 5, + -relief => 'sunken', + -takefocus => 1, + -tile => $papier); $zinc->pack(-expand => 1, -fill => 'both'); $zinc->configure(-width => 500, -height => 500); $gr1 = $zinc->add('group', $top); @@ -56,9 +59,9 @@ $rect = $zinc->add('rectangle', $view, [100, 100, 200, 200], -filled => 1 ); -$mp = $zinc->add('curve', $view, [50, 50, 100, 150, 270, 70, - 220, 0, 200, 0, 180, -100, - 140, 40, 70, -100], +$mp = $zinc->add('curve', $view, [50, 150, 100, 250, 270, 170, + 220, 100, 200, 100, 180, 0, + 140, 140, 70, 0], -visible => 1, -composescale => 1, -composerotation => 1, @@ -75,6 +78,7 @@ $mp = $zinc->add('curve', $view, [50, 50, 100, 150, 270, 70, # -tile => $papier, -marker => '', -markercolor => 'red'); +#$zinc->itemconfigure($gr1, -clip => $mp); $mp2 = $zinc->add('curve', $view, [100, 450, 200, 450], -linewidth => 10, @@ -182,5 +186,5 @@ $zinc->monitor(1); $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(); |