From eed2656db0adae2c234c3d74af0913746ed5c444 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Wed, 16 Apr 2003 09:43:32 +0000
Subject: Many updates for the 3.2.90 release and new demos

---
 demos/tiger.tcl | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

(limited to 'demos/tiger.tcl')

diff --git a/demos/tiger.tcl b/demos/tiger.tcl
index 74b455c..008d68d 100644
--- a/demos/tiger.tcl
+++ b/demos/tiger.tcl
@@ -12,13 +12,13 @@ if {![info exists zincDemo]} {
     error "This script should be run from the zinc-widget demo."
 }
 
-set w .textInput
+set w .tiger
 catch {destroy $w}
 toplevel $w
 wm title $w "Zinc tiger (Generated from SVG) Demonstration"
 wm iconname $w tiger
 
-set defaultfont "-adobe-helvetica-bold-r-normal-*-120-*-*-*-*-*-*"
+set defaultfont [font create -family Helvetica -size 10 -weight bold]
 
 frame $w.buttons
 pack $w.buttons -side bottom -fill x -pady 2m
@@ -32,7 +32,8 @@ pack $w.buttons.dismiss $w.buttons.code -side left -expand 1
 ##########################################
 zinc $w.zinc -width 600 -height 600 \
     -font 9x15 -borderwidth 0 -backcolor grey90 \
-    -render 1 -reshape 1 -fullreshape 1
+    -render 1
+# -reshape 1 -fullreshape 1
 pack $w.zinc
 
 set topGroup [$w.zinc add group 1]
@@ -42,10 +43,9 @@ Drag-Button 1 for moving the tiger,
 Drag-Button 2 for zooming the tiger,
 }
 
-set clip [$w.zinc add curve 1 { {0 150} {150 0} {470 20} {580 200}
-    {600 300} {500 560} {50 550} {10 450} {100 480}} \
-	      -closed 1 -visible 0]
-$w.zinc itemconfigure 1 -clip $clip
+#set clip [$w.zinc add curve 1 { {0 150} {150 0} {470 20} {580 200}
+#    {600 300} {500 560} {50 550} {10 450} {100 480}} -closed 1 -visible 0]
+#$w.zinc itemconfigure 1 -clip $clip
 
 $w.zinc add text 1 -position {51 521} -anchor w \
     -priority 20 -text $text -color white
@@ -561,7 +561,7 @@ proc motion {x y} {
 }
 
 proc zoom {x y} {
-    global w topGroup curX curY
+    global w curX curY
 
     if {$x > $curX} {
 	set maxX $x
@@ -578,16 +578,16 @@ proc zoom {x y} {
     }
     set sx [expr 1.0 + (double($x - $curX) / $maxX)]
     set sy [expr 1.0 + (double($y - $curY) / $maxY)]
-    $w.zinc scale $topGroup $sx $sx
+    $w.zinc scale __svg__1 $sx $sx
     set curX $x
     set curY $y
 }
 
 proc mouseRotate {x y} {
-    global w curAngle topGroup
+    global w curAngle
 
     set lAngle [expr atan2($y, $x)]
-    $w.zinc rotate $topGroup [expr $lAngle - $curAngle]
+    $w.zinc rotate __svg__1 [expr $lAngle - $curAngle]
     set curAngle  $lAngle
 }
 
-- 
cgit v1.1