diff options
| author | lecoanet | 2002-06-10 13:12:22 +0000 |
|---|---|---|
| committer | lecoanet | 2002-06-10 13:12:22 +0000 |
| commit | 726263a100064e866738251613206d3eddd0acaa (patch) | |
| tree | 3434c8d83f4ebecab796d112197cd26e2a69108d /sandbox | |
| parent | 507c2d377d80f9cfb36558b61b9d7cf4bd73d8f6 (diff) | |
| download | tkzinc-726263a100064e866738251613206d3eddd0acaa.zip tkzinc-726263a100064e866738251613206d3eddd0acaa.tar.gz tkzinc-726263a100064e866738251613206d3eddd0acaa.tar.bz2 tkzinc-726263a100064e866738251613206d3eddd0acaa.tar.xz | |
*** empty log message ***
Diffstat (limited to 'sandbox')
| -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" |