Lines Matching refs:window
73 # Small proc to concatenate window pathnames
81 # Create a new image window
84 proc image_window {{window {}}} {
86 if {![string compare $window {}]} {
87 set window .image$tkvPriv(count)
90 if {[winfo exists $window]} {
91 catch {eval destroy [winfo children $window]}
93 toplevel $window
95 wm title $window [mc {Viewer}]
96 set frame [ConCat $window frame]
98 set w [Menu $window file]
101 $w add command -label [mmc $text] -command [list load_image $window] -underline [mml $text]
103 $w add command -label [mmc $text] -command [list save_image $window] -underline [mml $text]
106 $w add command -label [mmc $text] -command [list destroy $window] -underline [mml $text]
110 set w [Menu $window images]
111 set w [Menu $window help]
116 catch {wm geometry $window 200x200}
131 proc show_image {window name} {
132 [ConCat $window frame] configure -image $name
133 catch {wm geometry $window {}}
136 proc load_image window {
139 $window -initialdir $tkvPriv(currentdir)]
143 register_image $window $imagename
144 show_image $window $imagename
149 proc save_image window {
151 set img [[ConCat $window frame] cget -image]
153 $window -initialdir $tkvPriv(currentdir) -defaultextension .gif \