iwidgets/generic/canvasprintbox.itk

6 # number of pages to print the image on and if the output should be
13 # of the output, stretching the output to fit the page while maintaining
14 # a proper aspect-ratio and posterizing to enlarge the output to fit on
17 # the settings will have on the output.
46 option add *Canvasprintbox.filename	"canvas.ps"	widgetDefault
49 option add *Canvasprintbox.output	printer		widgetDefault
69 # of the output, stretching the output to fit the page while maintaining
70 # a proper aspect-ratio and posterizing to enlarge the output to fit on
73 # the settings will have on the output.
82 	itk_option define -filename filename FileName "canvas.ps"
85 	itk_option define -output output Output "printer"
193 # Specifies where the postscript output should go: to the printer
198 itcl::configbody iwidgets::Canvasprintbox::output {
199 	switch $itk_option(-output) {
201 		set _globVar($this,output) $itk_option(-output)
204 		error {bad output option \"$itk_option(-output)\":\
212 # The command to execute when printing the postscript output.
214 # input. (Only when output is set to "printer")
222 # The file to write the postscript output to (Only when output
247 # Determines the orientation of the output to the printer (or file).
266 # Determines if the output should be stretched to fill the
268 # possible. The aspect-ratio of the output will be retained
269 # and the output will never fall outside of the boundaries
274 		error {bad option "stretch": should be a boolean}
282 # the output means that it is possible to distribute the
283 # output over more than one page. This way it is possible to
293 		error "expected boolean but got \"$itk_option(-posterize)\""
301 # how many pages the output should be distributed. This
312 # how many pages the output should be distributed. This
325 	set _globVar($this,output) printer
327 	set _globVar($this,fileef) "canvas.ps"
355 			-variable [itcl::scope _globVar($this,output)] \
377 			-variable [itcl::scope _globVar($this,output)] \
506 # output would look with the current settings.
518 # depending on the current setting of -output.
524 	switch $_globVar($this,output) {
540 # Out:	A boolean indicating wether printing was successful
548 	if {$itk_option(-output) == "file"} {
565 		set ps [_calc_poster_size]
566 		set pshw [expr {int([lindex $ps 0] / 2)}]
567 		set pshh [expr {int([lindex $ps 1] / 2)}]
609 			if {$itk_option(-output) == "printer"} {
661 # Calculate the total size the output would be with the current
712 # Calculate the scaling factor needed if the output was
724 		set ps [_calc_poster_size]
725 		set psw [lindex $ps 0]
726 		set psh [lindex $ps 1]
769 	set ps [_calc_poster_size]
777 	set xsf [expr {$width/[lindex $ps 0]}]
778 	set ysf [expr {$height/[lindex $ps 1]}]
780 	set w [expr {[lindex $ps 0]*$sf}]
781 	set h [expr {[lindex $ps 1]*$sf}]
914         set itk_option(-output)    $_globVar($this,output)
923 	if {$_globVar($this,output) == "file"} {