home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / reptoolwmt.tcl < prev    next >
Encoding:
Text File  |  1996-09-25  |  1.6 KB  |  67 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc.    1996
  4. #
  5. #      File:           @(#)reptoolwmt.tcl    /main/hindenburg/2
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)reptoolwmt.tcl    /main/hindenburg/2   25 Sep 1996 Copyright 1996 Cayenne Software Inc.
  10.  
  11. # Start user added include file section
  12. # End user added include file section
  13.  
  14.  
  15. Class RepToolWmtArea : {WmtArea} {
  16.     method destructor
  17.     constructor
  18. }
  19.  
  20. method RepToolWmtArea::destructor {this} {
  21.     # Start destructor user section
  22.     # End destructor user section
  23. }
  24.  
  25. constructor RepToolWmtArea {class this name context} {
  26.     set this [WmtArea::constructor $class $this $name]
  27.  
  28.     interface WaColumn $this.pad {
  29.     horStretchFactor 100
  30.     }
  31.  
  32.     interface WaColumn $this.col {
  33.     horStretchFactor 0
  34.     WaEntry user {
  35.         labelText "User:"
  36.     }
  37.     WaEntry host {
  38.         labelText "Host:"
  39.     }
  40.     WaEntry pid {
  41.         labelText "Process:"
  42.     }
  43.     }
  44.  
  45.     interface WaColumn $this.pad {
  46.     horStretchFactor 5
  47.     }
  48.  
  49.     foreach column [$this columnSet] {
  50.     foreach entry [$column entrySet] {
  51.         $entry labelFont \
  52.         [m4_var get M4_contextarea_labelfont -context $context]
  53.         $entry valueFont \
  54.         [m4_var get M4_contextarea_valuefont -context $context]
  55.     }
  56.     }
  57.  
  58.     $this.col.user valueText [ORB::currentUser]
  59.     $this.col.host valueText [ORB::currentHost]
  60.     $this.col.pid  valueText [ORB::currentProcessId]
  61.  
  62.     return $this
  63. }
  64.  
  65. # Do not delete this line -- regeneration end marker
  66.  
  67.