summaryrefslogtreecommitdiffstats
path: root/library/demos
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2008-11-22 22:38:52 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2008-11-22 22:38:52 (GMT)
commitade89fbc9e3698f24aeb581dcd0d0c79d69d6aa0 (patch)
treef9dafe103da979811c381c66b09139b083619646 /library/demos
parent38d7b3af87944fd829c9d188866f07683c808c7b (diff)
downloadtk-ade89fbc9e3698f24aeb581dcd0d0c79d69d6aa0.zip
tk-ade89fbc9e3698f24aeb581dcd0d0c79d69d6aa0.tar.gz
tk-ade89fbc9e3698f24aeb581dcd0d0c79d69d6aa0.tar.bz2
GOOBE on Win, where stippling and angling work poorly together...
Diffstat (limited to 'library/demos')
-rw-r--r--library/demos/items.tcl6
1 files changed, 3 insertions, 3 deletions
diff --git a/library/demos/items.tcl b/library/demos/items.tcl
index c1feb00..84d26ac 100644
--- a/library/demos/items.tcl
+++ b/library/demos/items.tcl
@@ -3,7 +3,7 @@
# This demonstration script creates a canvas that displays the
# canvas item types.
#
-# RCS: @(#) $Id: items.tcl,v 1.8 2008/11/22 22:30:41 das Exp $
+# RCS: @(#) $Id: items.tcl,v 1.9 2008/11/22 22:38:52 dkf Exp $
if {![info exists widgetDemo]} {
error "This script should be run from the \"widget\" demo."
@@ -128,8 +128,8 @@ $c create text 25.5c 11c -anchor w -font $font1 -fill $blue \
-text "Several lines,\n each centered\nindividually,\nand all anchored\nat the left edge." \
-justify center -tags item
$c create rectangle 24.9c 13.9c 25.1c 14.1c
-$c create text 25c 14c -font $font2 -anchor c -fill $red -stipple gray50 \
- -text "Stippled characters" -tags item -angle 15
+$c create text 25c 14c -font $font2 -anchor c -fill $red -angle 15 \
+ -text "Angled characters" -tags item
$c create text 5c 16.2c -text Arcs -anchor n
$c create arc 0.5c 17c 7c 20c -fill $green -outline black \