home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / newcopydef.tcl < prev    next >
Encoding:
Text File  |  1997-10-23  |  2.1 KB  |  77 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc.    1997
  4. #
  5. #      File:           @(#)newcopydef.tcl    /main/titanic/3
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)newcopydef.tcl    /main/titanic/3   23 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 "newcustobj.tcl"
  15.  
  16. Class NewCopyDefDialog : {NewCustObjectDialog} {
  17.     constructor
  18.     method destructor
  19.     method popUp
  20. }
  21.  
  22. constructor NewCopyDefDialog {class this name} {
  23.     set this [NewCustObjectDialog::constructor $class $this $name]
  24.     # Start constructor user section
  25.     $this title "New Copy Specification"
  26.     $this autoPopDown 0
  27.     interface DlgColumn $this.col {
  28.     Label typeLabel {
  29.         text "File Type:"
  30.     }
  31.     ComboBox fileTypes {
  32.         rowCount 10
  33.     }
  34.     }
  35.  
  36.     $this okPressed {
  37.     set type [%this.col.fileTypes text]
  38.     if { [[[.main editorArea] typeToGdr] set $type] != "" } {
  39.         wmtkerror "A copy definition for '$type' already exists"
  40.     } else {
  41.         %this popDown
  42.         [.main editorArea] newObject $type [%this edit]
  43.         [.main editorArea] isChanged 1
  44.     }
  45.     }
  46.  
  47.     $this helpPressed {.main helpOnName newCopyspecs}
  48.  
  49.     $this checkList [list "$this.col.fileTypes textModified text"]
  50.     # End constructor user section
  51.     return $this
  52. }
  53.  
  54. method NewCopyDefDialog::destructor {this} {
  55.     # Start destructor user section
  56.     # End destructor user section
  57.     $this NewCustObjectDialog::destructor
  58. }
  59.  
  60. method NewCopyDefDialog::popUp {this} {
  61.     global BrowserProcs::diagramFileTypes
  62.     set types "${BrowserProcs::diagramFileTypes} default"
  63.     set unusedTypes {}
  64.     foreach type $types {
  65.     if { [[[.main editorArea] typeToGdr] set $type] == "" } {
  66.         lappend unusedTypes $type
  67.     }
  68.     }
  69.  
  70.     $this.col.fileTypes entrySet $unusedTypes
  71.     $this.col.fileTypes text ""
  72.     $this TemplateDialog::popUp
  73. }
  74.  
  75. # Do not delete this line -- regeneration end marker
  76.  
  77.