Lines Matching refs:Save
325 # Proc Save saves the snapped image to disk.
327 proc Save {} {
331 Alert grab "You must snap an image before you can save it!" {" OK " {}}
357 # Initialize save window.
359 catch {destroy .save}
360 toplevel .save -class Saves
361 wm title .save "Save As..."
362 wm group .save .
363 wm transient .save .
364 wm geometry .save \
367 # Create save window frame.
369 frame .save.format
370 scrollbar .save.format.scroll -command ".save.format.list yview"
371 listbox .save.format.list -yscroll ".save.format.scroll set" -setgrid 1 \
373 pack .save.format.scroll -side right -fill y
374 pack .save.format.list -side top -expand 1 -fill both
375 .save.format.list insert 0 \
380 .save.format.list selection set 0
381 pack .save.format
382 frame .save.file
383 entry .save.file.entry -width 18 -relief sunken -textvariable snap(filename)
384 pack .save.file.entry -side right -expand 1 -fill both
385 pack .save.file
386 frame .save.buttons
387 button .save.buttons.save -text Save -command Save
388 button .save.buttons.cancel -text Cancel -command {destroy .save}
389 pack .save.buttons.save .save.buttons.cancel -side left -expand 1 \
391 pack .save.buttons
395 bind .save.format.list <ButtonRelease-1> {
397 [.save.format.list get [lindex [.save.format.list curselection] 0]]
399 bind .save.format.list <Double-Button-1> {AppendImageFormat .save}
401 # Map save window.
403 pack .save.format .save.file .save.buttons -padx 2m -pady 2m -expand 1 \
549 .toolbar.file.menu add command -label "Save" -command Save
550 .toolbar.file.menu add command -label "Save As ..." -command "SaveImage"
