Lines Matching refs:snap
99 set snap(format) \
106 $w.file.entry insert end $snap(format)
133 -anchor w -variable snap(border)
135 -anchor w -variable snap(frame)
137 -anchor w -variable snap(screen)
139 -variable snap(descend)
146 -from 0 -to 120 -tickinterval 15 -variable snap(delay)
152 -textvariable snap(window)
155 -textvariable snap(display)
169 -anchor w -variable snap(dither)
171 -anchor w -variable snap(negate)
173 -width 11 -anchor w -variable snap(monochrome)
175 -variable snap(trim)
183 -from 0 -to 256 -tickinterval 32 -variable snap(colors)
190 -from 0 -to 360 -tickinterval 45 -variable snap(degrees)
204 -anchor w -variable snap(compress)
206 -anchor w -variable snap(interlace)
208 -variable snap(verbose)
215 -from 0 -to 40 -tickinterval 5 -variable snap(scene)
221 -textvariable snap(comment)
228 -textvariable snap(label)
234 -textvariable snap(page)
237 -textvariable snap(density)
260 global snap
265 set command [concat $command $snap(snapshot)]
267 if {$snap(compress)} {
271 set command [concat $command -density \"$snap(density)\"]
272 set command [concat $command -page \"$snap(page)\"]
273 set command [concat $command \"ps:|$snap(printer)\"]
330 if ![file readable $snap(snapshot)] {
331 Alert grab "You must snap an image before you can save it!" {" OK " {}}
338 set command [concat $command $snap(snapshot)]
340 if {$snap(compress)} {
344 set command [concat $command -density \"$snap(density)\"]
345 set command [concat $command -page \"$snap(page)\"]
346 set filename $snap(filename)
347 if {$snap(format) != {}} {
348 set filename "$snap(format):$snap(filename)"
432 if {$snap(border)} {
436 if {$snap(colors)} {
437 set command [concat $command -colors $snap(colors)]
439 set command [concat $command -comment \"$snap(comment)\"]
441 if {$snap(compress)} {
445 if {$snap(delay)} {
446 set command [concat $command -delay $snap(delay)]
448 set command [concat $command -density \"$snap(density)\"]
449 if {$snap(descend)} {
452 set command [concat $command -display \"$snap(display)\"]
454 if {$snap(dither)} {
459 if {$snap(frame)} {
464 if {$snap(interlace)} {
468 set command [concat $command -label \"$snap(label)\"]
470 if {$snap(monochrome)} {
475 if {$snap(negate)} {
479 set command [concat $command -page \"$snap(page)\"]
480 if {$snap(degrees)} {
481 set command [concat $command -rotate $snap(degrees)]
483 if {$snap(scene)} {
484 set command [concat $command -scene $snap(scene)]
487 if {$snap(screen)} {
491 if {$snap(trim)} {
495 if {$snap(verbose)} {
499 set command [concat $command $snap(snapshot)]
510 image create photo snapshot -file $snap(snapshot)
514 exec convert -geometry 320x320> $snap(snapshot) -depth 8 $snap(tile)
516 image create photo tile -file $snap(tile)
517 exec rm -f $snap(tile)
525 label .canvas.label -text $snap(filename)
527 -command { ShowImage $snap(filename) snapshot }
530 bind . <Return> { ShowImage $snap(filename) snapshot }
554 -command { exec rm -f $snap(snapshot); exit }
606 exec rm -f $snap(snapshot)