home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / vbprintopt.tcl < prev    next >
Encoding:
Text File  |  1997-10-08  |  3.6 KB  |  128 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc.    1997
  4. #
  5. #      File:           @(#)vbprintopt.tcl    /main/titanic/2
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)vbprintopt.tcl    /main/titanic/2   8 Oct 1997 Copyright 1997 Cayenne Software Inc.
  10.  
  11. # Start user added include file section
  12. # End user added include file section
  13.  
  14. require "printoptio.tcl"
  15.  
  16. Class VBPrintOptionsDialog : {PrintOptionsDialog} {
  17.     constructor
  18.     method destructor
  19.     method popUp
  20.     method handleOk
  21. }
  22.  
  23. constructor VBPrintOptionsDialog {class this name} {
  24.     set this [PrintOptionsDialog::constructor $class $this $name]
  25.     # Start constructor user section
  26.     # End constructor user section
  27.     return $this
  28. }
  29.  
  30. method VBPrintOptionsDialog::destructor {this} {
  31.     # Start destructor user section
  32.     # End destructor user section
  33.     $this PrintOptionsDialog::destructor
  34. }
  35.  
  36. method VBPrintOptionsDialog::popUp {this} {
  37.  
  38.     if [isCommand $this.c.saved.c] {
  39.         $this.c.saved delete
  40.         $this.c.titleLabel delete
  41.         $this.c.title delete
  42.     }
  43.  
  44.     $this.c.scaleStrategy.c.autoScale state [m4_var get \
  45.         M4_ps_auto_scale -context vb]
  46.     if {[m4_var get M4_ps_mode -context vb] == "landscape"} {
  47.         $this.c.landscape state 1
  48.     } else {
  49.         $this.c.landscape state 0
  50.     }
  51.  
  52.     $this.c.printBox state [m4_var get M4_print_box -context vb]
  53.  
  54.     set strat $this.c.scaleStrategy.c
  55.     $strat.scale text [m4_var get M4_ps_scale -context vb]
  56.     $this autoScaleChanged
  57.     $strat.horPages text [m4_var get M4_ps_columns -context vb]
  58.     $strat.verPages text [m4_var get M4_ps_rows -context vb]
  59.     $this TemplateDialog::popUp
  60. }
  61.  
  62. method VBPrintOptionsDialog::handleOk {this} {
  63.  
  64.     set state [$this.c.landscape state]
  65.     if $state {
  66.         $this orientation "landscape"
  67.     } else {
  68.         $this orientation "portrait"
  69.     }
  70.     $this doPrintBox [$this.c.printBox state]
  71.     $this autoScale [$this.c.scaleStrategy.c.autoScale state]
  72.     set label ""
  73.     if [$this autoScale] {
  74.         $this horNumPages [$this numPages hor]
  75.         $this verNumPages [$this numPages ver]
  76.         $this scale ""
  77.         if {[$this horNumPages] <= 0} {
  78.             set label hor
  79.         } elseif {[$this verNumPages] <= 0} {
  80.             set label ver
  81.         }
  82.     } else {
  83.         $this horNumPages ""
  84.         $this verNumPages ""
  85.         $this scale [$this scaleValue]
  86.         if {[$this scale] <= 0} {
  87.             set label scale
  88.         }
  89.     }
  90.     if {"$label" != ""} {
  91.         set fieldName [$this.c.scaleStrategy.c.${label}Label text]
  92.         wmtkerror "$fieldName must be a positive value"
  93.         return
  94.     }
  95.  
  96.     if {"[m4_var get M4_ps_mode -context vb]" != "[$this orientation]"} {
  97.         m4_var set M4_ps_mode [$this orientation] -context vb
  98.     }
  99.     if {"[m4_var get M4_print_box -context vb]" != "[$this doPrintBox]"} {
  100.         m4_var set M4_print_box [$this doPrintBox] -context vb
  101.     }
  102.     if [$this autoScale] {
  103.         if {[m4_var get M4_ps_auto_scale -context vb] != 1} {
  104.             m4_var set M4_ps_auto_scale 1 -context vb
  105.         }
  106.         if {"[m4_var get M4_ps_columns -context vb]" != \
  107.             "[$this horNumPages]"} {
  108.             m4_var set M4_ps_columns [$this horNumPages] -context vb
  109.         }
  110.         if {"[m4_var get M4_ps_rows -context vb]" != \
  111.             "[$this verNumPages]"} {
  112.             m4_var set M4_ps_rows [$this verNumPages] -context vb
  113.         }
  114.     } else {
  115.         if {[m4_var get M4_ps_auto_scale -context vb] != 0} {
  116.             m4_var set M4_ps_auto_scale 0 -context vb
  117.         }
  118.         if {"[m4_var get M4_ps_scale -context vb]" != "[$this scale]"} {
  119.             m4_var set M4_ps_scale [$this scale] -context vb
  120.         }
  121.     }
  122.  
  123.     $this popDown
  124. }
  125.  
  126. # Do not delete this line -- regeneration end marker
  127.  
  128.