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