From 38d7b3af87944fd829c9d188866f07683c808c7b Mon Sep 17 00:00:00 2001
From: das <das>
Date: Sat, 22 Nov 2008 22:30:41 +0000
Subject: demo angled text

---
 library/demos/items.tcl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/library/demos/items.tcl b/library/demos/items.tcl
index 11aa32f..c1feb00 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.7 2004/12/21 11:56:35 dkf Exp $
+# RCS: @(#) $Id: items.tcl,v 1.8 2008/11/22 22:30:41 das Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
@@ -129,7 +129,7 @@ $c create text 25.5c 11c -anchor w -font $font1 -fill $blue \
 	-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
+	-text "Stippled characters" -tags item -angle 15
 
 $c create text 5c 16.2c -text Arcs -anchor n
 $c create arc 0.5c 17c 7c 20c -fill $green -outline black \
-- 
cgit v0.12