diff options
author | lecoanet | 2002-05-17 07:53:35 +0000 |
---|---|---|
committer | lecoanet | 2002-05-17 07:53:35 +0000 |
commit | bf440c2450c11457752decfa06e71e20726cc442 (patch) | |
tree | f92a7d771db59119d170a525ab8bd3f64d8c56cf /sandbox/testbezier.pl | |
parent | 92c5c40762cb6968cc6c856c5fd00aef5dd7c2dc (diff) | |
download | tkzinc-bf440c2450c11457752decfa06e71e20726cc442.zip tkzinc-bf440c2450c11457752decfa06e71e20726cc442.tar.gz tkzinc-bf440c2450c11457752decfa06e71e20726cc442.tar.bz2 tkzinc-bf440c2450c11457752decfa06e71e20726cc442.tar.xz |
*** empty log message ***
Diffstat (limited to 'sandbox/testbezier.pl')
-rw-r--r-- | sandbox/testbezier.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/sandbox/testbezier.pl b/sandbox/testbezier.pl index 33297da..82948fc 100644 --- a/sandbox/testbezier.pl +++ b/sandbox/testbezier.pl @@ -98,14 +98,14 @@ foreach $current (@show) { ($cap, $filled, $border, $relief, $title) = @{$current}; $grp = $zinc->clone($model); $zinc->translate($grp, $col * 240, $row * (-290 - (2 * $lw))); - $zinc->itemconfigure($zinc->find('withtag', 'bezier', $grp), + $zinc->itemconfigure($zinc->find('withtag', "$grp*bezier"), -capstyle => $cap, -filled => $filled, -linewidth => $border ? $lw : 0, -relief => $relief, -linecolor => $relief eq 'flat' ? 'yellow' : 'tan'); - $zinc->itemconfigure($zinc->find('withtag', 'title', $grp), - -text => $title); + $zinc->itemconfigure($zinc->find('withtag', "$grp*title"), + -text => $title); $col++; if ($col >= 4) { $col = 0; |