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/testzinc.pl | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

(limited to 'sandbox/testzinc.pl')

diff --git a/sandbox/testzinc.pl b/sandbox/testzinc.pl
index 1e4bf90..63b1b1a 100644
--- a/sandbox/testzinc.pl
+++ b/sandbox/testzinc.pl
@@ -382,10 +382,14 @@ $zinc->Tk::bind('<1>', [\&stick_wp]);
 ###################################################
 # creation ministrip
 ###################################################
-#$ministrip = $zinc->add("tabular", $radar, 10,
-#    -labelformat => "x40x20+0+0 x40x20+40+0",
-#    -position => [100, 10]);
-#$zinc->itemconfigure($ministrip, 0 , -text => 'ministrip');
+$ministrip = $zinc->add("tabular", $radar, 10,
+    -labelformat => "x80x20+0+0",
+    -position => [100, 10]);
+$zinc->itemconfigure($ministrip, 0 , -text => 'ministrip');
+$zinc->bind($ministrip.':0', '<Enter>',
+	    sub {$zinc->itemconfigure('current', 0, -border => 'contour')});
+$zinc->bind($ministrip.':0', '<Leave>',
+    sub {$zinc->itemconfigure('current', 0, -border => '')});
 
 ###################################################
 # creation map
-- 
cgit v1.1