home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / newopenloc.tcl < prev    next >
Encoding:
Text File  |  1996-05-29  |  1.7 KB  |  64 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cadre Technologies Inc.    1996
  4. #
  5. #      File:           @(#)newopenloc.tcl    1.6
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)newopenloc.tcl    1.6   02 Apr 1996 Copyright 1996 Cadre Technologies Inc.
  10.  
  11. # Start user added include file section
  12. # End user added include file section
  13.  
  14. require "newcustobj.tcl"
  15.  
  16. Class NewOpenLocDialog : {NewCustObjectDialog} {
  17.     constructor
  18.     method destructor
  19.     method popUp
  20.     attribute editorArea
  21. }
  22.  
  23. constructor NewOpenLocDialog {class this name} {
  24.     set this [NewCustObjectDialog::constructor $class $this $name]
  25.     # Start constructor user section
  26.     $this title OpenStrategyUse
  27.     interface DlgColumn $this.DC {
  28.         allowResize 1
  29.         Label L {
  30.             text "Strategy:"
  31.         }
  32.         DropDwnList nameDDL {
  33.             entrySet {}
  34.             rowCount 5
  35.         }
  36.     }
  37.     $this okPressed {
  38.         set name [%this.DC.nameDDL selected]
  39.         %this popDown
  40.         [.main editorArea] newObject $name [%this edit]
  41.     }
  42.     $this helpPressed { .main helpOnName newOpenLocation }
  43.     # End constructor user section
  44.     return $this
  45. }
  46.  
  47. method NewOpenLocDialog::destructor {this} {
  48.     # Start destructor user section
  49.     # End destructor user section
  50.     $this NewCustObjectDialog::destructor
  51. }
  52.  
  53. method NewOpenLocDialog::popUp {this} {
  54.     set names [lsort [[[$this editorArea] strategyType] names]]
  55.     $this.DC.nameDDL entrySet $names
  56.     if {[$this.DC.nameDDL selected] == ""} {
  57.         $this.DC.nameDDL selected [lindex $names 0]
  58.     }
  59.     $this TemplateDialog::popUp
  60. }
  61.  
  62. # Do not delete this line -- regeneration end marker
  63.  
  64.