diff options
Diffstat (limited to 'demos/iconTransform.tcl')
| -rw-r--r-- | demos/iconTransform.tcl | 22 |
1 files changed, 11 insertions, 11 deletions
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 # |