diff options
| author | lecoanet | 2003-10-08 14:51:56 +0000 |
|---|---|---|
| committer | lecoanet | 2003-10-08 14:51:56 +0000 |
| commit | 802808eba9a35f317cb2194b82dbe193febb9357 (patch) | |
| tree | f520d5c1f1e0b48de30d870b1087fe26d726fc28 /demos | |
| parent | 51464f02f4cfcb8e246f526c8aa45f24e20b3745 (diff) | |
| download | tkzinc-802808eba9a35f317cb2194b82dbe193febb9357.zip tkzinc-802808eba9a35f317cb2194b82dbe193febb9357.tar.gz tkzinc-802808eba9a35f317cb2194b82dbe193febb9357.tar.bz2 tkzinc-802808eba9a35f317cb2194b82dbe193febb9357.tar.xz | |
Changed the displayed image to be compatible with tclkit/starkits.
Diffstat (limited to 'demos')
| -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 # |