From 802808eba9a35f317cb2194b82dbe193febb9357 Mon Sep 17 00:00:00 2001 From: lecoanet Date: Wed, 8 Oct 2003 14:51:56 +0000 Subject: Changed the displayed image to be compatible with tclkit/starkits. --- demos/iconTransform.tcl | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) (limited to 'demos') diff --git a/demos/iconTransform.tcl b/demos/iconTransform.tcl index e6384c2..2dd4d45 100644 --- a/demos/iconTransform.tcl +++ b/demos/iconTransform.tcl @@ -28,15 +28,15 @@ pack $w.buttons.dismiss $w.buttons.code -side left -expand 1 ####################### #################### -text $w.text -relief sunken -borderwidth 2 -height 5 +text $w.text -relief sunken -borderwidth 2 -height 6 pack $w.text -expand yes -fill both $w.text insert end {This demo needs openGL for rescaling/rotating the icon - You can transform this earth gif image with your mouse: - Drag-Button 1 for moving the earth, - Drag-Button 2 for zooming the earth, - Drag-Button 3 for rotating the earth, - Shift-Drag-Button 1 for modifying the earth transparency.} + You can transform this gif image with your mouse: + Drag-Button 1 for moving, + Drag-Button 2 for zooming, + Drag-Button 3 for rotating, + Shift-Drag-Button 1 for modifying the transparency.} ########################################### @@ -48,13 +48,13 @@ pack $w.zinc set topGroup [$w.zinc add group 1] -image create photo earth -file [file join $tk_library demos images earth.gif] +image create photo zincAA -file [file join $zinc_library demos images zinc.gif] -set earth [$w.zinc add icon $topGroup -image earth \ - -composescale 1 -composerotation 1] +set zincAA [$w.zinc add icon $topGroup -image zincAA \ + -composescale 1 -composerotation 1] -$w.zinc add text $topGroup -connecteditem $earth \ - -text {try to zoom/resize the earth!} -color white \ +$w.zinc add text $topGroup -connecteditem $zincAA \ + -text {try to zoom/resize the banner!} -color white \ -composescale 1 -composerotation 1 # -- cgit v1.1