diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2008-11-22 22:38:52 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2008-11-22 22:38:52 (GMT) |
| commit | f61914988ec3ca24e3ee45a8a17b3e4dc15236aa (patch) | |
| tree | f9dafe103da979811c381c66b09139b083619646 | |
| parent | e911f3148c49a1db47971f81ebace46a6cd411fa (diff) | |
| download | tk-f61914988ec3ca24e3ee45a8a17b3e4dc15236aa.zip tk-f61914988ec3ca24e3ee45a8a17b3e4dc15236aa.tar.gz tk-f61914988ec3ca24e3ee45a8a17b3e4dc15236aa.tar.bz2 | |
GOOBE on Win, where stippling and angling work poorly together...
| -rw-r--r-- | library/demos/items.tcl | 6 |
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 \ |