diff options
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 |