diff options
author | lecoanet | 2001-06-27 08:38:42 +0000 |
---|---|---|
committer | lecoanet | 2001-06-27 08:38:42 +0000 |
commit | cfd9fe1d670a59bc5d82056274cd05c3b98974b4 (patch) | |
tree | 63629a9092069f608b70ea17fd825c0760e2d73f /sandbox/testzinc.pl | |
parent | 76e82090dd6eda66b6247bd6c5980e3b7a56c3ff (diff) | |
download | tkzinc-cfd9fe1d670a59bc5d82056274cd05c3b98974b4.zip tkzinc-cfd9fe1d670a59bc5d82056274cd05c3b98974b4.tar.gz tkzinc-cfd9fe1d670a59bc5d82056274cd05c3b98974b4.tar.bz2 tkzinc-cfd9fe1d670a59bc5d82056274cd05c3b98974b4.tar.xz |
*** empty log message ***
Diffstat (limited to 'sandbox/testzinc.pl')
-rw-r--r-- | sandbox/testzinc.pl | 12 |
1 files changed, 8 insertions, 4 deletions
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 |