1# image1.tcl -- 2# 3# This demonstration script displays two image widgets. 4# 5# RCS: @(#) $Id: image1.tcl,v 1.2 1998/09/14 18:23:28 stanton Exp $ 6 7if {![info exists widgetDemo]} { 8 error "This script should be run from the \"widget\" demo." 9} 10 11set w .image1 12catch {destroy $w} 13toplevel $w 14wm title $w "Image Demonstration #1" 15wm iconname $w "Image1" 16positionWindow $w 17 18label $w.msg -font $font -wraplength 4i -justify left -text "This demonstration displays two images, each in a separate label widget." 19pack $w.msg -side top 20 21frame $w.buttons 22pack $w.buttons -side bottom -fill x -pady 2m 23button $w.buttons.dismiss -text Dismiss -command "destroy $w" 24button $w.buttons.code -text "See Code" -command "showCode $w" 25pack $w.buttons.dismiss $w.buttons.code -side left -expand 1 26 27catch {image delete image1a} 28image create photo image1a -file [file join $tk_library demos images earth.gif] 29label $w.l1 -image image1a -bd 1 -relief sunken 30 31catch {image delete image1b} 32image create photo image1b \ 33 -file [file join $tk_library demos images earthris.gif] 34label $w.l2 -image image1b -bd 1 -relief sunken 35 36pack $w.l1 $w.l2 -side top -padx .5m -pady .5m 37