home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / newgroupvd.tcl < prev    next >
Text File  |  1996-06-12  |  2KB  |  74 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cadre Technologies Inc.    1996
  4. #
  5. #      File:           @(#)newgroupvd.tcl    1.2
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)newgroupvd.tcl    1.2   06 Mar 1996 Copyright 1996 Cadre Technologies Inc.
  10.  
  11. # Start user added include file section
  12. # End user added include file section
  13.  
  14. require "newobjentr.tcl"
  15.  
  16. Class NewGroupVDlg : {NewObjEntryDlg} {
  17.     constructor
  18.     method destructor
  19.     method handleEdit
  20.     method handleOk
  21.     method handleTextModified
  22. }
  23.  
  24. constructor NewGroupVDlg {class this name} {
  25.     set this [NewObjEntryDlg::constructor $class $this $name]
  26.     # Start constructor user section
  27.  
  28.     $this config \
  29.         -title "New Group Version" \
  30.         -message "Name:" \
  31.         -okPressed "$this handleOk"
  32.     PushButton new $this.edit \
  33.         -label Edit \
  34.         -activated "$this handleEdit"
  35.  
  36.     # End constructor user section
  37.     return $this
  38. }
  39.  
  40. method NewGroupVDlg::destructor {this} {
  41.     # Start destructor user section
  42.     # End destructor user section
  43.     $this NewObjEntryDlg::destructor
  44. }
  45.  
  46. method NewGroupVDlg::handleEdit {this} {
  47.     $this popDown
  48.     $this handleOk
  49.     if [isCommand [$this createdObj]] {
  50.     [$this createdObj] editFile
  51.     }
  52. }
  53.  
  54. method NewGroupVDlg::handleOk {this} {
  55.     set groupName [$this entry]
  56.  
  57.     set script "$this createdObj \"\""
  58.     append script " ;"
  59.     append script " $this createdObj \
  60.     \[[$this dbObj] createGroupVersion [list $groupName] \]"
  61.     $wmttoolObj startCommand tcl \
  62.     "$script" "" \
  63.     "Creating group version '$groupName'..." \
  64.     {1 0} 1
  65. }
  66.  
  67. method NewGroupVDlg::handleTextModified {this} {
  68.     $this NewObjEntryDlg::handleTextModified
  69.     $this.edit sensitive [$this okSensitive]
  70. }
  71.  
  72. # Do not delete this line -- regeneration end marker
  73.  
  74.