diff options
| -rw-r--r-- | sandbox/lines.pl | 3 | ||||
| -rw-r--r-- | sandbox/testtext.tcl | 2 |
2 files changed, 2 insertions, 3 deletions
diff --git a/sandbox/lines.pl b/sandbox/lines.pl index d4ca52d..794de7b 100644 --- a/sandbox/lines.pl +++ b/sandbox/lines.pl @@ -37,8 +37,7 @@ $mp3 = $zinc->add('curve', $view, [20, 280, 100, 430, 200, 430], # -firstend => [3, 12, 8], # -lastend => "12 12 8", -capstyle => 'round', - -linecolor => 'red', - -linealpha => 100); + -linecolor => 'red:100'); new Controls($zinc); $mw->Tk::bind('<p>', sub { print "perfs: ", join(',', $zinc->monitor()), "\n" }); diff --git a/sandbox/testtext.tcl b/sandbox/testtext.tcl index 3a88023..9b41d4d 100644 --- a/sandbox/testtext.tcl +++ b/sandbox/testtext.tcl @@ -1,6 +1,6 @@ #!/usr/bin/wish8.0 -f -load tkzinc3.1.so +load tkzinc3.2.so #package require Img set mask "/usr/X11R6/include/X11/bitmaps/fvwm.xbm" |