home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / comanche.exe / lib / iwidgets2.2.0 / scripts / canvasprintbox.itk < prev    next >
Text File  |  1999-02-24  |  36KB  |  1,291 lines
  1. #
  2. # CanvasPrintBox v1.5
  3. # ----------------------------------------------------------------------
  4. # Implements a print box for printing the contents of a canvas widget
  5. # to a printer or a file. It is possible to specify page orientation, the
  6. # number of pages to print the image on and if the output should be
  7. # stretched to fit the page.
  8. # 
  9. # CanvasPrintBox is a "super-widget" that can be used as an
  10. # element in ones own GUIs. It is used to print the contents
  11. # of a canvas (called the source hereafter) to a printer or a
  12. # file. Possible settings include: portrait and landscape orientation
  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
  15. # multiple pages. A stamp-sized copy of the source will be shown (called
  16. # the stamp hereafter) at all times to reflect the effect of changing
  17. # the settings will have on the output.
  18. #
  19. # ----------------------------------------------------------------------
  20. # AUTHOR: Tako Schotanus               EMAIL: Tako.Schotanus@bouw.tno.nl
  21. # ----------------------------------------------------------------------
  22. #                Copyright (c) 1995  Tako Schotanus
  23. # ======================================================================
  24. # Permission is hereby granted, without written agreement and without
  25. # license or royalty fees, to use, copy, modify, and distribute this
  26. # software and its documentation for any purpose, provided that the
  27. # above copyright notice and the following two paragraphs appear in
  28. # all copies of this software.
  29. # 
  30. # IN NO EVENT SHALL THE COPYRIGHT HOLDER BE LIABLE TO ANY PARTY FOR
  31. # DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES 
  32. # ARISING OUT OF THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN 
  33. # IF THE COPYRIGHT HOLDER HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH 
  34. # DAMAGE.
  35. #
  36. # THE COPYRIGHT HOLDER SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING, 
  37. # BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND 
  38. # FITNESS FOR A PARTICULAR PURPOSE.  THE SOFTWARE PROVIDED HEREUNDER IS
  39. # ON AN "AS IS" BASIS, AND THE COPYRIGHT HOLDER HAS NO OBLIGATION TO
  40. # PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
  41. # ======================================================================
  42.  
  43. #
  44. # Default resources.
  45. #
  46. option add *Canvasprintbox.filename "canvas.ps" widgetDefault
  47. option add *Canvasprintbox.hPageCnt 1 widgetDefault
  48. option add *Canvasprintbox.orient landscape widgetDefault
  49. option add *Canvasprintbox.output printer widgetDefault
  50. option add *Canvasprintbox.pageSize A4 widgetDefault
  51. option add *Canvasprintbox.posterize 0 widgetDefault
  52. option add *Canvasprintbox.printCmd lpr widgetDefault
  53. option add *Canvasprintbox.printRegion "" widgetDefault
  54. option add *Canvasprintbox.vPageCnt 1 widgetDefault
  55.  
  56. #
  57. # Usual options.
  58. #
  59. itk::usual Canvasprintbox {
  60.     keep -background -cursor -textbackground 
  61. }
  62.  
  63. #<
  64. #
  65. # CanvasPrintBox is a "super-widget" that can be used as an
  66. # element in ones own GUIs. It is used to print the contents
  67. # of a canvas (called the source hereafter) to a printer or a
  68. # file. Possible settings include: portrait and landscape orientation
  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
  71. # multiple pages. A stamp-sized copy of the source will be shown (called
  72. # the stamp hereafter) at all times to reflect the effect of changing
  73. # the settings will have on the output.
  74. #
  75. #>
  76. class iwidgets::Canvasprintbox {
  77.     inherit itk::Widget
  78.     
  79.     #
  80.     # Just holds the names of some widgets/objects. "win" is used to
  81.     # determine if the object is fully constructed and initialized.
  82.     #
  83.     protected variable win ""
  84.     protected variable canvw ""
  85.     
  86.     #
  87.     # The canvas we want to print.
  88.     #
  89.     protected variable canvas ""
  90.     
  91.     #
  92.     # Boolean indicating if the attribute "orient" is set
  93.     # to landscape or not.
  94.     #
  95.     protected variable rotate 1
  96.     
  97.     #
  98.     # Holds the configure options that were used to create this object.
  99.     #
  100.     protected variable init_opts ""
  101.     
  102.     #
  103.     # The following attributes hold a list of lines that are
  104.     # currently drawn on the "stamp" to show how the page(s) is/are
  105.     # oriented. The first holds the vertical dividing lines and the
  106.     # second the horizontal ones.
  107.     #
  108.     protected variable hlines ""
  109.     protected variable vlines ""
  110.     
  111.     #
  112.     # Updating is set when the thumbnail is being drawn. Settings
  113.     # this to 0 while drawing is still busy will terminate the
  114.     # proces.
  115.     # Restart_update can be set to 1 when the thumbnail is being
  116.     # drawn to force a redraw.
  117.     #
  118.     protected variable updating 0
  119.     protected variable restart_update 0
  120.     
  121.     #
  122.     # Holds the current state for all check- and radiobuttons.
  123.     #
  124.     private common prtcanvglob
  125.     
  126.     itk_option define -filename filename FileName ""
  127.     itk_option define -hpagecnt hPageCnt PageCnt 1
  128.     itk_option define -orient orient Orient "landscape"
  129.     itk_option define -output output Output "printer"
  130.     itk_option define -pagesize pageSize PageSize "A4"
  131.     itk_option define -posterize posterize Posterize 0
  132.     itk_option define -printcmd printCmd PrintCmd ""
  133.     itk_option define -printregion printRegion PrintRegion ""
  134.     itk_option define -stretch stretch Stretch 0
  135.     itk_option define -vpagecnt vPageCnt PageCnt 1
  136.     
  137.     constructor {args} {}
  138.     destructor {}
  139.  
  140.     # ---------------------------------------------------------------
  141.     # PUBLIC METHODS
  142.     #----------------------------------------------------------------
  143.     
  144.     method getoutput {}
  145.     method print {}
  146.     method refresh {}
  147.     method setcanvas {canv}
  148.     method stop {}
  149.     
  150.     # ---------------------------------------------------------------
  151.     # PROTECTED METHODS
  152.     #----------------------------------------------------------------
  153.     
  154.     protected method _calc_poster_size {}
  155.     protected method _calc_print_region {}
  156.     protected method _calc_print_scale {}
  157.     protected method _calc_stamp_scale {}
  158.     protected method _config_optimum {}
  159.     protected method _mapEventHandler {}
  160.     protected method _update_UI {}
  161.     protected method _update_attr {}
  162.     protected method _update_canvas {}
  163.     protected method _update_canvas_thread {}
  164.     protected method _update_prtfile {}
  165.     protected method _update_widgets {}
  166.  
  167.     # ---------------------------------------------------------------
  168.     # PUBLIC CLASS METHODS
  169.     #----------------------------------------------------------------
  170.     
  171.     public proc ezPaperInfo {size {attr ""} \
  172.         {orient "portrait"} {window ""}} {}
  173. }
  174.  
  175. #
  176. # Provide a lowercased access method for the Canvasprintbox class.
  177. # 
  178. proc ::iwidgets::canvasprintbox {args} {
  179.     uplevel ::iwidgets::Canvasprintbox $args
  180. }
  181.  
  182. # ------------------------------------------------------------------
  183. #                             OPTIONS
  184. # ------------------------------------------------------------------
  185.  
  186. #<
  187. # A list of four coordinates specifying which part of the canvas to print.
  188. # An empty list means that the canvas' entire scrollregion should be
  189. # printed. Any change to this attribute will automatically update the "stamp".
  190. # Defaults to an empty list.
  191. #>
  192. configbody iwidgets::Canvasprintbox::printregion {
  193.     if {$itk_option(-printregion) != ""
  194.     && [llength $itk_option(-printregion)] != 4} {
  195.         error {bad option "printregion": should contain 4 coordinates}
  196.     }
  197.     _update_canvas
  198. }
  199.  
  200. #<
  201. # Specifies where the postscript output should go: to the printer
  202. # or to a file. Can take on the values "printer" or "file".
  203. # The corresponding entry-widget will reflect the contents of
  204. # either the printcmd attribute or the filename attribute.
  205. #>
  206. configbody iwidgets::Canvasprintbox::output {
  207.     case $itk_option(-output) {
  208.         file {
  209.         }
  210.         printer {
  211.         }
  212.         default {
  213.         error {bad output option \"$itk_option(-output)\":\
  214.             should be file or printer}
  215.         }
  216.     }
  217.     _update_UI
  218. }
  219.  
  220. #<
  221. # The command to execute when printing the postscript output.
  222. # The command will get the postscript directed to its standard
  223. # input. (Only when output is set to "printer")
  224. #>
  225. configbody iwidgets::Canvasprintbox::printcmd {
  226.     if {$win != ""} {
  227.         set itk_option(-output) "printer"
  228.     }
  229.     _update_UI
  230. }
  231.  
  232. #<
  233. # The file to write the postscript output to (Only when output
  234. # is set to "file"). If posterizing is turned on and hpagecnt
  235. # and/or vpagecnt is more than 1, x.y is appended to the filename
  236. # where x is the horizontal page number and y the vertical page number.
  237. #>
  238. configbody iwidgets::Canvasprintbox::filename {
  239.     if {$win != ""} {
  240.         set itk_option(-output) "file"
  241.     }
  242.     _update_UI
  243. }
  244.  
  245. #<
  246. # The pagesize the printer supports. Changes to this attribute
  247. # will be reflected immediately in the "stamp".
  248. #>
  249. configbody iwidgets::Canvasprintbox::pagesize {
  250.     set opt [string tolower $itk_option(-pagesize)]
  251.     set lst [string tolower [ezPaperInfo types]]
  252.     if {[lsearch $lst $opt] == -1} {
  253.         error "bad option \"pagesize\": should be one of: [ezPaperInfo types]"
  254.     }
  255.     _update_UI
  256.     _update_canvas
  257. }
  258.  
  259. #<
  260. # Determines the orientation of the output to the printer (or file).
  261. # It can take the value "portrait" or "landscape" (default). Changes
  262. # to this attribute will be reflected immediately in the "stamp".
  263. #>
  264. configbody iwidgets::Canvasprintbox::orient {
  265.     case $itk_option(-orient) {
  266.         portrait {
  267.         }
  268.         landscape {
  269.         }
  270.         default {
  271.         error {bad orient option \"$itk_option(-orient)\":\
  272.             should be portrait or landscape}
  273.         }
  274.     }
  275.     _update_UI
  276.     _update_canvas
  277. }
  278.  
  279. #<
  280. # Determines if the output should be stretched to fill the
  281. # page (as defined by the attribute pagesize) as large as
  282. # possible. The aspect-ratio of the output will be retained
  283. # and the output will never fall outside of the boundaries
  284. # of the page.
  285. #>
  286. configbody iwidgets::Canvasprintbox::stretch {
  287.     if {$itk_option(-stretch) != 0 && $itk_option(-stretch) != 1} {
  288.         error {bad option "stretch": should be a boolean}
  289.     }
  290.     _update_UI
  291. }
  292.  
  293. #<
  294. # Indicates if posterizing is turned on or not. Posterizing
  295. # the output means that it is possible to distribute the
  296. # output over more than one page. This way it is possible to
  297. # print a canvas/region which is larger than the specified
  298. # pagesize without stretching. If used in combination with
  299. # stretching it can be used to "blow up" the contents of a
  300. # canvas to as large as size as you want (See attributes:
  301. # hpagecnt end vpagecnt). Any change to this attribute will
  302. # automatically update the "stamp".
  303. #>
  304. configbody iwidgets::Canvasprintbox::posterize {
  305.     if {$itk_option(-posterize) != 0 && $itk_option(-posterize) != 1} {
  306.         error {bad option "posterize": should be a boolean}
  307.     }
  308.     _update_UI
  309.     _update_canvas
  310. }
  311.  
  312. #<
  313. # Is used in combination with "posterize" to determine over
  314. # how many pages the output should be distributed. This
  315. # attribute specifies how many pages should be used horizontaly.
  316. # Any change to this attribute will automatically update the "stamp".
  317. #>
  318. configbody iwidgets::Canvasprintbox::hpagecnt {
  319.     _update_UI
  320.     _update_canvas
  321. }
  322.  
  323. #<
  324. # Is used in combination with "posterize" to determine over
  325. # how many pages the output should be distributed. This
  326. # attribute specifies how many pages should be used verticaly.
  327. # Any change to this attribute will automatically update the "stamp".
  328. #>
  329. configbody iwidgets::Canvasprintbox::vpagecnt {
  330.     _update_UI
  331.     _update_canvas
  332. }
  333.  
  334. # ------------------------------------------------------------------
  335. # CONSTRUCTOR
  336. # ------------------------------------------------------------------
  337. body iwidgets::Canvasprintbox::constructor {args} {
  338.     itk_component add outputom {
  339.         iwidgets::optionmenu $itk_interior.outputom \
  340.             -labelmargin 5 -labelpos w -cyclicon 1\
  341.             -labeltext "Output to :" \
  342.             -items {Printer File} \
  343.             -command [code $this _update_attr]
  344.     } {
  345.         keep -cursor -background
  346.     }
  347.     $itk_component(outputom) select Printer
  348.     pack $itk_component(outputom) \
  349.         -anchor center -expand 0 -fill x -ipadx 0 -ipady 0 \
  350.         -padx 0 -pady 0 -side top
  351.  
  352.     itk_component add prtflentry {
  353.         iwidgets::entryfield $itk_interior.prtflentry \
  354.             -labeltext {Printer command :} \
  355.             -command [code $this _update_prtfile]
  356.     } {
  357.         keep -background -cursor -textbackground
  358.     }
  359.     pack $itk_component(prtflentry) \
  360.         -anchor center -expand 0 -fill x -ipadx 0 -ipady 0 \
  361.         -padx 0 -pady 0 -side top
  362.  
  363.     itk_component add paperom {
  364.         iwidgets::optionmenu $itk_interior.paperom \
  365.             -labelmargin 5 -labelpos w -cyclicon 1\
  366.             -labeltext "Paper size :" \
  367.             -command [code $this refresh]
  368.     } {
  369.         keep -cursor -background
  370.     }
  371.     $itk_component(paperom) configure -items [ezPaperInfo types]
  372.     $itk_component(paperom) select A4
  373.     pack $itk_component(paperom) \
  374.         -anchor center -expand 0 -fill x -ipadx 0 -ipady 0 \
  375.         -padx 0 -pady 0 -side top
  376.  
  377.     itk_component add canvasframe {
  378.         frame $itk_interior.f18 -borderwidth 2 -relief ridge
  379.     } {
  380.         keep -background -cursor
  381.     }
  382.     pack $itk_component(canvasframe) \
  383.         -anchor center -expand 1 -fill both -ipadx 0 -ipady 0 \
  384.         -padx 2 -pady 2 -side top
  385.  
  386.     itk_component add canvas {
  387.         canvas $itk_component(canvasframe).c1 \
  388.             -borderwidth 2 -relief sunken \
  389.             -scrollregion {0c 0c 10c 10c} \
  390.             -width 100 -height 100
  391.     } {
  392.         keep -background -cursor
  393.     }
  394.     pack $itk_component(canvas) \
  395.         -anchor center -expand 1 -fill both -ipadx 0 -ipady 0 \
  396.         -padx 0 -pady 9 -side top
  397.  
  398.     itk_component add optionsframe {
  399.         frame $itk_interior.f26 -borderwidth 2
  400.     } {
  401.         keep -background -cursor
  402.     }
  403.     pack $itk_component(optionsframe) \
  404.         -anchor center -expand 0 -fill x -ipadx 0 -ipady 0 \
  405.         -padx 2 -pady 4 -side top
  406.  
  407.     itk_component add orientom {
  408.         iwidgets::optionmenu $itk_component(optionsframe).orientom \
  409.             -labelmargin 5 -labelpos w -cyclicon 1\
  410.             -labeltext "Orientation :" \
  411.             -items {Portrait Landscape} \
  412.             -command [code $this refresh]
  413.     } {
  414.         keep -cursor -background
  415.     }
  416.     $itk_component(orientom) select Landscape
  417.     pack $itk_component(orientom) \
  418.         -anchor center -expand 0 -fill x -ipadx 0 -ipady 0 \
  419.         -padx 0 -pady 0 -side top
  420.  
  421.     itk_component add stretchframe {
  422.         frame $itk_component(optionsframe).f14 -borderwidth 2
  423.     } {
  424.         keep -background -cursor
  425.     }
  426.     pack $itk_component(stretchframe) \
  427.         -anchor center -expand 0 -fill x -ipadx 0 -ipady 0 \
  428.         -padx 0 -pady 0 -side top
  429.  
  430.     set prtcanvglob($this,stretchcb) 0
  431.     itk_component add stretchcb {
  432.         checkbutton $itk_component(stretchframe).cb1 \
  433.             -relief flat -text {Stretch to fit} \
  434.             -variable [scope prtcanvglob($this,stretchcb)] \
  435.             -command [code $this refresh]
  436.     } {
  437.         keep -background -cursor
  438.     }
  439.     pack $itk_component(stretchcb) \
  440.         -anchor center -expand 0 -fill none -ipadx 0 -ipady 0 \
  441.         -padx 0 -pady 0 -side left
  442.  
  443.     itk_component add posterframe {
  444.         frame $itk_component(optionsframe).f15 -borderwidth 2
  445.     } {
  446.         keep -background -cursor
  447.     }
  448.     pack $itk_component(posterframe) \
  449.         -anchor center -expand 0 -fill x -ipadx 0 -ipady 0 \
  450.         -padx 0 -pady 0 -side top
  451.  
  452.     set prtcanvglob($this,postercb) 0
  453.     itk_component add postercb {
  454.         checkbutton $itk_component(posterframe).cb1 \
  455.             -relief flat -text {Posterize on} \
  456.             -variable [scope prtcanvglob($this,postercb)] \
  457.             -command [code $this refresh]
  458.     } {
  459.         keep -background -cursor
  460.     }
  461.     pack $itk_component(postercb) \
  462.         -anchor center -expand 0 -fill none -ipadx 0 -ipady 0 \
  463.         -padx 0 -pady 0 -side left
  464.  
  465.     itk_component add hpcnt {
  466.         iwidgets::entryfield $itk_component(posterframe).e1 \
  467.             -validate integer -width 3 \
  468.             -command [code $this refresh]
  469.     } {
  470.         keep -cursor -background -textbackground
  471.     }
  472.     pack $itk_component(hpcnt) \
  473.         -anchor center -expand 0 -fill x -ipadx 0 -ipady 0 \
  474.         -padx 0 -pady 0 -side left
  475.  
  476.     itk_component add posterlbl1 {
  477.         label $itk_component(posterframe).l1 -text by
  478.     } {
  479.         keep -background -cursor
  480.     }
  481.     pack $itk_component(posterlbl1) \
  482.         -anchor center -expand 0 -fill none -ipadx 0 -ipady 0 \
  483.         -padx 0 -pady 0 -side left
  484.  
  485.     itk_component add vpcnt {
  486.         iwidgets::entryfield $itk_component(posterframe).e2 \
  487.             -validate integer -width 3 \
  488.             -command [code $this refresh]
  489.     } {
  490.         keep -cursor -background -textbackground
  491.     }
  492.     pack $itk_component(vpcnt) \
  493.         -anchor center -expand 0 -fill none -ipadx 0 -ipady 0 \
  494.         -padx 0 -pady 0 -side left
  495.  
  496.     itk_component add posterlbl2 {
  497.         label $itk_component(posterframe).l2 -text pages.
  498.     } {
  499.         keep -background -cursor
  500.     }
  501.     pack $itk_component(posterlbl2) \
  502.         -anchor center -expand 0 -fill none -ipadx 0 -ipady 0 \
  503.         -padx 0 -pady 0 -side left
  504.     
  505.     bind $itk_component(canvas) <Map> [code $this _mapEventHandler]
  506.     bind $itk_component(canvas) <Configure> [code $this refresh]
  507.     
  508.     set init_opts $args
  509.     
  510.     eval itk_initialize $args
  511. }
  512.  
  513. # ---------------------------------------------------------------
  514. # PUBLIC METHODS
  515. #----------------------------------------------------------------
  516.  
  517. #<
  518. # This is used to set the canvas that has to be printed.
  519. # A stamp-sized copy will automatically be drawn to show how the
  520. # output would look with the current settings.
  521. #
  522. # In:    canv - The canvas to be printed
  523. # Out:    canvas (attrib) - Holds the canvas to be printed
  524. #>    
  525. body iwidgets::Canvasprintbox::setcanvas {canv} {
  526.     set canvas $canv
  527.     if {$win != ""} {
  528.         _config_optimum
  529.         _update_canvas
  530.     }
  531. }
  532.  
  533. #<
  534. # Returns the value of the -printercmd or -filename option
  535. # depending on the current setting of -output.
  536. #
  537. # In:    itk_option (attrib)
  538. # Out:    The value of -printercmd or -filename
  539. #>
  540. body iwidgets::Canvasprintbox::getoutput {} {
  541.     case $itk_option(-output) in {
  542.         file {
  543.             return $itk_option(-filename)
  544.         }
  545.         printer {
  546.             return $itk_option(-printcmd)
  547.         }
  548.     }
  549. }
  550.  
  551. #<
  552. # Perfrom the actual printing of the canvas using the current settings of
  553. # all the attributes.
  554. #
  555. # In:    itk_option, rotate (attrib)
  556. # Out:    A boolean indicating wether printing was successful
  557. #>
  558. body iwidgets::Canvasprintbox::print {} {
  559.     global env
  560.  
  561.     if {$updating} {
  562.         set updating 0
  563.     }
  564.     
  565.     _update_prtfile
  566.     _update_attr
  567.  
  568.     if {$itk_option(-output) == "file"} {
  569.         set nm $itk_option(-filename)
  570.         if {[string range $nm 0 1] == "~/"} {
  571.             set nm [file join $env(HOME) [string range $nm 2 end]]
  572.         }
  573.     } else {
  574.         if {$tcl_platform(platform) == "macintosh"} {
  575.             error "can't print to LPR on a Mac.\nTry printing to a file, and passing that to LaserWriter 8"
  576.         }
  577.         set nm "/tmp/xge[winfo id $canvas]"
  578.     }
  579.  
  580.     if {$itk_option(-posterize)} {
  581.         set vpc $itk_option(-vpagecnt)
  582.         set hpc $itk_option(-hpagecnt)
  583.     } else {
  584.         set vpc 1
  585.         set hpc 1
  586.     }
  587.  
  588.     set pr [_calc_print_region]
  589.     set x1 [lindex $pr 0]
  590.     set y1 [lindex $pr 1]
  591.     set x2 [lindex $pr 2]
  592.     set y2 [lindex $pr 3]
  593.     set cx [expr int(($x2 + $x1) / 2)]
  594.     set cy [expr int(($y2 + $y1) / 2)]
  595.     if {!$itk_option(-stretch)} {
  596.         set ps [_calc_poster_size]
  597.         set pshw [expr int([lindex $ps 0] / 2)]
  598.         set pshh [expr int([lindex $ps 1] / 2)]
  599.         set x [expr $cx - $pshw]
  600.         set y [expr $cy - $pshh]
  601.         set w [ezPaperInfo $itk_option(-pagesize) pwidth $itk_option(-orient) $win]
  602.         set h [ezPaperInfo $itk_option(-pagesize) pheight $itk_option(-orient) $win]
  603.     } else {
  604.         set x $x1
  605.         set y $y1
  606.         set w [expr ($x2 - $x1) / $hpc]
  607.         set h [expr ($y2 - $y1) / $vpc]
  608.     }
  609.  
  610.     set i 0
  611.     set px $x
  612.     while {$i < $hpc} {
  613.         set j 0
  614.         set py $y
  615.         while {$j < $vpc} {
  616.             if {$hpc > 1 || $vpc > 1} {
  617.                 set nm2 "$nm$i.$j"
  618.             } else {
  619.                 set nm2 $nm
  620.             }
  621.             if {$itk_option(-stretch)} {
  622.                 $canvas postscript \
  623.                   -file $nm2 \
  624.                   -rotate $rotate \
  625.                   -x $px -y $py \
  626.                   -width $w \
  627.                   -height $h \
  628.                   -pagex [ezPaperInfo $itk_option(-pagesize) centerx] \
  629.                   -pagey [ezPaperInfo $itk_option(-pagesize) centery] \
  630.                   -pagewidth [ezPaperInfo $itk_option(-pagesize) pwidth $itk_option(-orient)] \
  631.                   -pageheight [ezPaperInfo $itk_option(-pagesize) pheight $itk_option(-orient)]
  632.             } else {
  633.                 $canvas postscript \
  634.                   -file $nm2 \
  635.                   -rotate $rotate \
  636.                   -x $px -y $py \
  637.                   -width $w \
  638.                   -height $h \
  639.                   -pagex [ezPaperInfo $itk_option(-pagesize) centerx] \
  640.                   -pagey [ezPaperInfo $itk_option(-pagesize) centery]
  641.             }
  642.  
  643.             if {$itk_option(-output) != "file"} {
  644.                 set cmd "cat $nm2 | $itk_option(-printcmd)"
  645.                 if {[catch {eval "exec $cmd"}]} {
  646.                     return 0
  647.                 }
  648.                 catch {exec rm $nm2}
  649.             }
  650.  
  651.             set py [expr $py + $h]
  652.             incr j
  653.         }
  654.         set px [expr $px + $w]
  655.         incr i
  656.     }
  657.  
  658.     return 1
  659. }
  660.  
  661. #<
  662. # Retrieves the current value for all edit fields and updates
  663. # the stamp accordingly. Is useful for Apply-buttons.
  664. #>
  665. body iwidgets::Canvasprintbox::refresh {} {
  666.     _update_attr
  667.     _update_canvas
  668. }
  669.  
  670. #<
  671. # Stops the drawing of the "stamp". I'm currently unable to detect
  672. # when a Canvasprintbox gets withdrawn. It's therefore advised
  673. # that you perform a stop before you do something like that.
  674. #>
  675. body iwidgets::Canvasprintbox::stop {} {
  676.     if {$updating} {
  677.         set updating 0
  678.     }
  679. }
  680.  
  681. # ---------------------------------------------------------------
  682. # PROTECTED METHODS
  683. #----------------------------------------------------------------
  684.  
  685. #
  686. # Calculate the total size the output would be with the current
  687. # settings for "pagesize" and "posterize" (and "hpagecnt" and
  688. # "vpagecnt"). This size will be the size of the printable area,
  689. # some space has been substracted to take into account that a
  690. # page should have borders because most printers can't print on
  691. # the very edge of the paper.
  692. #
  693. # In:    posterize, hpagecnt, vpagecnt, pagesize, orient (attrib)
  694. # Out:    A list of two numbers indicating the width and the height
  695. #    of the total paper area which will be used for printing
  696. #    in pixels.
  697. #
  698. body iwidgets::Canvasprintbox::_calc_poster_size {} {
  699.     if {$itk_option(-posterize)} {
  700.         set vpc $itk_option(-vpagecnt)
  701.         set hpc $itk_option(-hpagecnt)
  702.     } else {
  703.         set vpc 1
  704.         set hpc 1
  705.     }
  706.  
  707.     set tpw [expr [ezPaperInfo $itk_option(-pagesize) pwidth $itk_option(-orient) $win] * $hpc]
  708.     set tph [expr [ezPaperInfo $itk_option(-pagesize) pheight $itk_option(-orient) $win] * $vpc]
  709.  
  710.     return "$tpw $tph"
  711. }
  712.  
  713. #
  714. # Calculate the scaling factor that would be needed to fit the
  715. # whole "source" into the "stamp". This takes into account the
  716. # total amount of "paper" that would be needed to print the
  717. # contents of the "source".
  718. #
  719. # In:    -
  720. # Out:    A float specifying the scaling factor
  721. #
  722. body iwidgets::Canvasprintbox::_calc_stamp_scale {} {
  723.     set width [winfo width $canvw]
  724.     set height [winfo height $canvw]
  725.     set ps [_calc_poster_size]
  726.     set xsf [expr $width / [lindex $ps 0]]
  727.     set ysf [expr $height / [lindex $ps 1]]
  728.     if {$xsf < $ysf} {
  729.         set sf $xsf
  730.     } else {
  731.         set sf $ysf
  732.     }
  733.  
  734.     return $sf
  735. }
  736.  
  737. #
  738. # Determine which area of the "source" canvas will be printed.
  739. # If "printregion" was set by the "user" this will be used and
  740. # converted to pixel-coordinates. If the user didn't set it
  741. # the bounding box that contains all canvas-items will be used
  742. # instead.
  743. #
  744. # In:    printregion, canvas (attrib)
  745. # Out:    Four floats specifying the region to be printed in
  746. #    pixel-coordinates (topleft & bottomright).
  747. #
  748. body iwidgets::Canvasprintbox::_calc_print_region {} {
  749.     if {$itk_option(-printregion) != ""} {
  750.         set printreg $itk_option(-printregion)
  751.     } else {
  752.         set printreg [$canvas bbox all]
  753.     }
  754.  
  755.     if {$printreg != ""} {
  756.         set prx1 [winfo fpixels $canvas [lindex $printreg 0]]
  757.         set pry1 [winfo fpixels $canvas [lindex $printreg 1]]
  758.         set prx2 [winfo fpixels $canvas [lindex $printreg 2]]
  759.         set pry2 [winfo fpixels $canvas [lindex $printreg 3]]
  760.  
  761.         set res "$prx1 $pry1 $prx2 $pry2"
  762.     } else {
  763.         set res "0 0 0 0"
  764.     }
  765.     
  766.     return $res
  767. }
  768.  
  769. #
  770. # Calculate the scaling factor needed if the output was
  771. # to be stretched to fit exactly on the page (or pages).
  772. # If stretching is turned off this will always return 1.0.
  773. #
  774. # In:    stretch (attrib)
  775. # Out:    A float specifying the scaling factor.
  776. #
  777. body iwidgets::Canvasprintbox::_calc_print_scale {} {
  778.     if {$itk_option(-stretch)} {
  779.         set pr [_calc_print_region]
  780.         set prw [expr [lindex $pr 2] - [lindex $pr 0]]
  781.         set prh [expr [lindex $pr 3] - [lindex $pr 1]]
  782.         set ps [_calc_poster_size]
  783.         set psw [lindex $ps 0]
  784.         set psh [lindex $ps 1]
  785.         set sfx [expr $psw / $prw]
  786.         set sfy [expr $psh / $prh]
  787.         if {$sfx < $sfy} {
  788.             set sf $sfx
  789.         } else {
  790.             set sf $sfy
  791.         }
  792.         return $sf
  793.     } else {
  794.         return 1.0
  795.     }
  796. }
  797.  
  798. #
  799. # Change the configuration options in such a way that the
  800. # "source" canvas will fit the page in the best possible
  801. # way. This might mean changing the orientation of the
  802. # output and/or stretching the output to fit the page.
  803. # If either of these options was set by the "user" the
  804. # option won't be changed, this might result on a less than
  805. # perfect fit.
  806. #
  807. # In:    canvas, orientset, orient, stretchset, stretch (attrib)
  808. # Out:    -
  809. #
  810. body iwidgets::Canvasprintbox::_config_optimum {} {
  811.     if {$canvas != ""} {
  812.         set pr [_calc_print_region]
  813.         set w [expr [lindex $pr 2] - [lindex $pr 0]]
  814.         set h [expr [lindex $pr 3] - [lindex $pr 1]]
  815.  
  816.         if {[lsearch $init_opts -orient] == -1} {
  817.             if {$w > $h} {
  818.                 set itk_option(-orient) "landscape"
  819.             } else {
  820.                 set itk_option(-orient) "portrait"
  821.             }
  822.         }
  823.  
  824.         if {[lsearch $init_opts -stretch] == -1} {
  825.             set ps [_calc_poster_size]
  826.             if {[lindex $ps 0] < $w || [lindex $ps 1] < $h} {
  827.                 set itk_option(-stretch) 1
  828.             }
  829.         }
  830.     }
  831. }
  832.  
  833. #
  834. # Schedule the thread that makes a copy of the "source"
  835. # canvas to the "stamp".
  836. #
  837. # In:    win, canvas (attrib)
  838. # Out:    -
  839. #
  840. body iwidgets::Canvasprintbox::_update_canvas {} {
  841.     if {$win == "" || $canvas == "" || [$canvas find all] == ""} {
  842.         return
  843.     }
  844.     
  845.     if {$updating} {
  846.         set restart_update 1
  847.     } else {
  848.         set restart_update 0
  849.         set updating 1
  850.         after idle [code $this _update_canvas_thread]
  851.     }
  852. }
  853.  
  854. #
  855. # Make a copy of the "source" canvas to the "stamp".
  856. #
  857. # In:    win, canvas, posterize, hpagecnt, vpagecnt,
  858. #    vlines, hlines (attrib)
  859. # Out:    -
  860. #
  861. body iwidgets::Canvasprintbox::_update_canvas_thread {} {
  862.     if {$itk_option(-posterize)} {
  863.         set vpc $itk_option(-vpagecnt)
  864.         set hpc $itk_option(-hpagecnt)
  865.     } else {
  866.         set vpc 1
  867.         set hpc 1
  868.     }
  869.  
  870.     if {$hpc == [llength $vlines] && $vpc == [llength $hlines]} {
  871.         set updating 0
  872.         return
  873.     }    
  874.  
  875.     $canvw delete all
  876.     set ps [_calc_poster_size]
  877.     set sf [_calc_stamp_scale]
  878.     set w [expr [lindex $ps 0] * $sf]
  879.     set h [expr [lindex $ps 1] * $sf]
  880.     set width [winfo width $canvw]
  881.     set height [winfo height $canvw]
  882.     set x1 [expr ($width - $w) / 2]
  883.     set y1 [expr ($height - $h) / 2]
  884.     set x2 [expr $x1 + $w]
  885.     set y2 [expr $y1 + $h]
  886.     set cx [expr ($x2 + $x1) / 2]
  887.     set cy [expr ($y2 + $y1) / 2]
  888.  
  889.     set printreg [_calc_print_region]
  890.     set prx1 [lindex $printreg 0]
  891.     set pry1 [lindex $printreg 1]
  892.     set prx2 [lindex $printreg 2]
  893.     set pry2 [lindex $printreg 3]
  894.     set prcx [expr ($prx2 + $prx1) / 2]
  895.     set prcy [expr ($pry2 + $pry1) / 2]
  896.  
  897.     set psf [_calc_print_scale]
  898.  
  899.     #
  900.     # Copy all items from the "real" canvas to the canvas
  901.     # showing what we'll send to the printer. Bitmaps and
  902.     # texts are not copied because they can't be scaled,
  903.     # a rectangle will be created instead.
  904.     #
  905.     update
  906.     set cnt 0
  907.     set tsf [expr $sf * $psf]
  908.     set dx [expr $cx - ($prcx * $tsf)]
  909.     set dy [expr $cy - ($prcy * $tsf)]
  910.     $canvw create rectangle $x1 $y1 $x2 $y2 -fill white
  911.     set items [eval "$canvas find overlapping $printreg"]
  912.     foreach i $items {
  913.         #
  914.         # Determine the item's type and coordinates
  915.         #
  916.         set t [$canvas type $i]
  917.         set crds [$canvas coords $i]
  918.  
  919.         #
  920.         # Ask for the item's configuration settings and strip
  921.         # it to leave only a list of option names and values.
  922.         #
  923.         set cfg [$canvas itemconfigure $i]
  924.         set cfg2 ""
  925.         foreach c $cfg {
  926.             if {[llength $c] == 5} {
  927.                 lappend cfg2 [lindex $c 0] [lindex $c 4]
  928.             }
  929.         }
  930.  
  931.         #
  932.         # Handle texts and bitmaps differently: they will
  933.         # be represented as rectangles.
  934.         #
  935.         if {$t == "text" || $t == "bitmap" || $t == "window"} {
  936.             set t "rectangle"
  937.             set crds [$canvas bbox $i]
  938.             set cfg2 "-outline {} -fill gray"
  939.         }
  940.  
  941.         #
  942.         # Remove the arrows from a line item when the scale
  943.         # factor drops below 1/3rd of the original size.
  944.         # This to prevent the arrowheads from dominating the
  945.         # display.
  946.         #
  947.         if {$t == "line" && $tsf < 0.33} {
  948.             lappend cfg2 -arrow none
  949.         }
  950.         
  951.         #
  952.         # Create a copy of the item on the "printing" canvas.
  953.         #
  954.         set i2 [eval "$canvw create $t $crds $cfg2"]
  955.         $canvw scale $i2 0 0 $tsf $tsf
  956.         $canvw move $i2 $dx $dy
  957.  
  958.         incr cnt
  959.         if {[expr $cnt % 25] == 0} {
  960.             update
  961.             if {!$updating} {
  962.                 return
  963.             }
  964.             if {$restart_update} {
  965.                 set updating 0
  966.                 after idle [code $this _update_canvas]
  967.             }
  968.         }
  969.     }
  970.  
  971.     set p $x1
  972.     set i 1
  973.     set vlines ""
  974.     while {$i < $hpc} {
  975.         set p [expr $p + ($w / $hpc)]
  976.         set l [$canvw create line $p $y1 $p $y2]
  977.         lappend vlines $l
  978.         incr i
  979.     }
  980.     set p $y1
  981.     set i 1
  982.     set vlines ""
  983.     while {$i < $vpc} {
  984.         set p [expr $p + ($h / $vpc)]
  985.         set l [$canvw create line $x1 $p $x2 $p]
  986.         lappend vlines $l
  987.         incr i
  988.     }
  989.     
  990.     set updating 0
  991. }
  992.  
  993. #
  994. # Update dependencies among widgets. (For example: disabling
  995. # an entry-widget when its associated checkbox-button is used
  996. # to turn of the option (the entry's value is not needed
  997. # anymore and this should be reflected in the fact that it
  998. # isn't possible to change it anymore).
  999. #
  1000. # In:    itk_option, rotate (attrib) - the widget settings
  1001. #    itk_component (attrib) - the widgets
  1002. # Out:    -
  1003. #
  1004. body iwidgets::Canvasprintbox::_update_widgets {} {
  1005.     if {$itk_option(-posterize)} {
  1006.         $itk_component(vpcnt) configure -state normal
  1007.         $itk_component(hpcnt) configure -state normal
  1008.     } else {
  1009.         $itk_component(vpcnt) configure -state disabled
  1010.         $itk_component(hpcnt) configure -state disabled
  1011.     }
  1012.  
  1013.     case $itk_option(-output) in {
  1014.         printer {
  1015.             $itk_component(prtflentry) configure -labeltext "Printer command :"
  1016.             $itk_component(prtflentry) clear
  1017.             $itk_component(prtflentry) insert 0 $itk_option(-printcmd)
  1018.         }
  1019.         file {
  1020.             $itk_component(prtflentry) configure -labeltext "Filename :"
  1021.             $itk_component(prtflentry) clear
  1022.             $itk_component(prtflentry) insert 0 $itk_option(-filename)
  1023.         }
  1024.     }
  1025.  
  1026.     case $itk_option(-orient) in {
  1027.         landscape {
  1028.             set rotate 1
  1029.         }
  1030.         portrait {
  1031.             set rotate 0
  1032.         }
  1033.     }
  1034. }
  1035.  
  1036. #
  1037. # Updates the user-interface whenever one of the attributes
  1038. # is changes by the "user".
  1039. #
  1040. # In:    itk_component (attrib) - the widgets to update
  1041. #    prtcanvglob (common) - global variables for the radio-
  1042. #        buttons and checkboxes.
  1043. # Out:    -
  1044. #
  1045. body iwidgets::Canvasprintbox::_update_UI {} {
  1046.     if {$win != ""} {
  1047.         $itk_component(outputom) select \
  1048.             "*[string range $itk_option(-output) 1 end]"
  1049.  
  1050.         $itk_component(paperom) select \
  1051.             "*[string range $itk_option(-pagesize) 1 end]"
  1052.  
  1053.         $itk_component(orientom) select \
  1054.             "*[string range $itk_option(-orient) 1 end]"
  1055.         
  1056.         set prtcanvglob($this,stretchcb) $itk_option(-stretch)
  1057.         set prtcanvglob($this,postercb) $itk_option(-posterize)
  1058.         $itk_component(vpcnt) delete 0 end
  1059.         $itk_component(vpcnt) insert 0 $itk_option(-vpagecnt)
  1060.         $itk_component(hpcnt) delete 0 end
  1061.         $itk_component(hpcnt) insert 0 $itk_option(-hpagecnt)
  1062.         _update_widgets
  1063.     }
  1064. }
  1065.  
  1066. #
  1067. # Update the attributes to reflect changes made in the user-
  1068. # interface.
  1069. #
  1070. # In:    itk_option (attrib) - the attributes to update
  1071. #    itk_component (attrib) - the widgets
  1072. #    prtcanvglob (common) - the global var holding the state
  1073. #        of all radiobuttons and checkboxes.
  1074. # Out:    -
  1075. #
  1076. body iwidgets::Canvasprintbox::_update_attr {} {
  1077.     if {$win != ""} {
  1078.                 set outp [$itk_component(outputom) get]
  1079.                 if {$outp != $itk_option(-output)} {
  1080.                         case $itk_option(-output) in {
  1081.                                 printer {
  1082.                                         set itk_option(-printcmd) [$itk_component(prtflentry) get]
  1083.                                 }
  1084.                                 file {
  1085.                                         set itk_option(-filename) [$itk_component(prtflentry) get]
  1086.                                 }
  1087.                         }
  1088.                 }
  1089.                 set itk_option(-output) [string tolower $outp]
  1090.  
  1091.  
  1092.         set itk_option(-pagesize) \
  1093.             [string tolower [$itk_component(paperom) get]]
  1094.         set itk_option(-orient) \
  1095.             [string tolower [$itk_component(orientom) get]]
  1096.         set itk_option(-stretch) $prtcanvglob($this,stretchcb)
  1097.         set itk_option(-posterize) $prtcanvglob($this,postercb)
  1098.         set vpc [$itk_component(vpcnt) get]
  1099.         if {$vpc >= 1} {
  1100.             set itk_option(-vpagecnt) $vpc
  1101.         } else {
  1102.             $itk_component(vpcnt) delete 0 end
  1103.             $itk_component(vpcnt) insert 0 $itk_option(-vpagecnt)
  1104.         }
  1105.         set hpc [$itk_component(hpcnt) get]
  1106.         if {$hpc >= 1} {
  1107.             set itk_option(-hpagecnt) [$itk_component(hpcnt) get]
  1108.         } else {
  1109.             $itk_component(hpcnt) delete 0 end
  1110.             $itk_component(hpcnt) insert 0 $itk_option(-hpagecnt)
  1111.         }
  1112.         _update_widgets
  1113.     }
  1114. }
  1115.  
  1116.  
  1117. #
  1118. # Updates the values for the attributes "printcmd" and "filename"
  1119. # every time the corresponding setting of the "To printer" and
  1120. # "To file" radiobuttons is changed.
  1121. #
  1122. # In:    itk_option, itk_component (atrib)
  1123. # Out:
  1124. #
  1125. body iwidgets::Canvasprintbox::_update_prtfile {} {
  1126.     case $itk_option(-output) in {
  1127.         printer {
  1128.             set itk_option(-printcmd) [$itk_component(prtflentry) get]
  1129.         }
  1130.         file {
  1131.             set itk_option(-filename) [$itk_component(prtflentry) get]
  1132.         }
  1133.     }
  1134. }
  1135.  
  1136. #
  1137. # Gets called when the CanvasPrintBox-widget gets mapped.
  1138. #
  1139. body iwidgets::Canvasprintbox::_mapEventHandler {} {
  1140.     set win $itk_interior
  1141.     set canvw $itk_component(canvas)
  1142.     if {$canvas != ""} {
  1143.         setcanvas $canvas
  1144.     }
  1145.     _update_UI
  1146. }
  1147.  
  1148. #
  1149. # Destroy this object and its associated widgets.
  1150. #
  1151. body iwidgets::Canvasprintbox::destructor {} {
  1152.     if {$updating} {
  1153.         set updating 0
  1154.     }
  1155. }
  1156.  
  1157. #
  1158. # Hold the information about common paper sizes. A bit of a hack, but it
  1159. # should be possible to add your own if you take a look at it.
  1160. #
  1161. body iwidgets::Canvasprintbox::ezPaperInfo {size {attr ""} \
  1162.     {orient "portrait"} {window ""}} {
  1163.     
  1164.     set size [string tolower $size]
  1165.     set attr [string tolower $attr]
  1166.     set orient [string tolower $orient]
  1167.     
  1168.     case $size in {
  1169.         types {
  1170.             return "A5 A4 A3 A2 A1 Legal Letter"
  1171.         }
  1172.         a5 {
  1173.             set paper(x1) "1.0c"
  1174.             set paper(y1) "1.0c"
  1175.             set paper(x2) "13.85c"
  1176.             set paper(y2) "20.0c"
  1177.             set paper(pheight) "19.0c"
  1178.             set paper(pwidth) "12.85c"
  1179.             set paper(height) "21.0c"
  1180.             set paper(width) "14.85c"
  1181.             set paper(centerx) "7.425c"
  1182.             set paper(centery) "10.5c"
  1183.         }
  1184.         a4 {
  1185.             set paper(x1) "1.0c"
  1186.             set paper(y1) "1.0c"
  1187.             set paper(x2) "20.0c"
  1188.             set paper(y2) "28.7c"
  1189.             set paper(pheight) "27.7c"
  1190.             set paper(pwidth) "19.0c"
  1191.             set paper(height) "29.7c"
  1192.             set paper(width) "21.0c"
  1193.             set paper(centerx) "10.5c"
  1194.             set paper(centery) "14.85c"
  1195.         }
  1196.         a3 {
  1197.             set paper(x1) "1.0c"
  1198.             set paper(y1) "1.0c"
  1199.             set paper(x2) "28.7c"
  1200.             set paper(y2) "41.0c"
  1201.             set paper(pheight) "40.0c"
  1202.             set paper(pwidth) "27.7c"
  1203.             set paper(height) "42.0c"
  1204.             set paper(width) "29.7c"
  1205.             set paper(centerx) "14.85c"
  1206.             set paper(centery)  "21.0c"
  1207.         }
  1208.         a2 {
  1209.             set paper(x1) "1.0c"
  1210.             set paper(y1) "1.0c"
  1211.             set paper(x2) "41.0c"
  1212.             set paper(y2) "58.4c"
  1213.             set paper(pheight) "57.4c"
  1214.             set paper(pwidth) "40.0c"
  1215.             set paper(height) "59.4c"
  1216.             set paper(width) "42.0c"
  1217.             set paper(centerx) "21.0c"
  1218.             set paper(centery)  "29.7c"
  1219.         }
  1220.         a1 {
  1221.             set paper(x1) "1.0c"
  1222.             set paper(y1) "1.0c"
  1223.             set paper(x2) "58.4c"
  1224.             set paper(y2) "83.0c"
  1225.             set paper(pheight) "82.0c"
  1226.             set paper(pwidth) "57.4c"
  1227.             set paper(height) "84.0c"
  1228.             set paper(width) "59.4c"
  1229.             set paper(centerx) "29.7c"
  1230.             set paper(centery)  "42.0c"
  1231.         }
  1232.         legal {
  1233.             set paper(x1) "0.2i"
  1234.             set paper(y1) "0.2i"
  1235.             set paper(x2) "8.3i"
  1236.             set paper(y2) "13.8i"
  1237.             set paper(pheight) "13.6i"
  1238.             set paper(pwidth) "8.1i"
  1239.             set paper(height) "14.0i"
  1240.             set paper(width) "8.5i"
  1241.             set paper(centerx) "4.25i"
  1242.             set paper(centery) "7.0i"
  1243.         }
  1244.         letter {
  1245.             set paper(x1) "0.2i"
  1246.             set paper(y1) "0.2i"
  1247.             set paper(x2) "8.3i"
  1248.             set paper(y2) "10.8i"
  1249.             set paper(pheight) "10.6i"
  1250.             set paper(pwidth) "8.1i"
  1251.             set paper(height) "11.0i"
  1252.             set paper(width) "8.5i"
  1253.             set paper(centerx) "4.25i"
  1254.             set paper(centery) "5.5i"
  1255.         }
  1256.         default {
  1257.             error "ezPaperInfo: Unknown paper type ($type)"
  1258.         }
  1259.     }
  1260.     
  1261.     set inv(x1) "y1"
  1262.     set inv(x2) "y2"
  1263.     set inv(y1) "x1"
  1264.     set inv(y2) "x2"
  1265.     set inv(pwidth) "pheight"
  1266.     set inv(pheight) "pwidth"
  1267.     set inv(width) "height"
  1268.     set inv(height) "width"
  1269.     set inv(centerx) "centery"
  1270.     set inv(centery) "centerx"
  1271.     
  1272.     case $orient in {
  1273.         landscape {
  1274.             set res $paper($inv($attr))
  1275.         }
  1276.         portrait {
  1277.             set res $paper($attr)
  1278.         }
  1279.         default {
  1280.             error "ezPaperInfo: orientation should be\
  1281.                 portrait or landscape (not $orient)"
  1282.         }
  1283.     }
  1284.     
  1285.     if {$window != ""} {
  1286.         set res [winfo fpixels $window $res]
  1287.     }
  1288.     
  1289.     return $res
  1290. } 
  1291.