home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / s_ssysvdbo.tcl < prev    next >
Text File  |  1997-06-16  |  2KB  |  85 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc.    1996
  4. #
  5. #      File:           @(#)s_ssysvdbo.tcl    /main/titanic/3
  6. #      Author:         Marcel Bancken
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)s_ssysvdbo.tcl    /main/titanic/3   16 Jun 1997 Copyright 1996 Cayenne Software Inc.
  10.  
  11. require ssysvdbobj.tcl
  12.  
  13. global SSysVDbObj_associations_corpmodelling
  14. set SSysVDbObj_associations_corpmodelling [SSysVDbObj::associations]
  15.  
  16. proc SSysVDbObj::associations {} {
  17.     set associations \
  18.     [BrowserProcs::splitAssociations $SSysVDbObj_associations_corpmodelling]
  19.     return [concat \
  20.     [lindex $associations 0] {groupVersions} \
  21.     [lindex $associations 1] {savedGroupVersionSet} \
  22.     ]
  23. }
  24.  
  25. method SSysVDbObj::addGroupVersion {this} {
  26.     require_module_file newgroupvd.tcl corpmodelling
  27.  
  28.     set box .main.newGroupV
  29.     if {! [isCommand $box]} {
  30.     NewGroupVDlg new $box
  31.     }
  32.     $box dbObj $this
  33.     $box popUp
  34. }
  35.  
  36. method SSysVDbObj::savedGroupVersions {this} {
  37.     set savedGroupVersions ""
  38.     foreach savedGroup [[$this system] savedGroups] {
  39.     set savedGroupVersions \
  40.         [concat $savedGroupVersions [$savedGroup savedGroupVersions]]
  41.     }
  42.     return $savedGroupVersions
  43. }
  44.  
  45. method SSysVDbObj::snapshotObjects {this} {
  46.     set objList [.main selectedObjSet]
  47.     if [lempty $objList] {
  48.     return
  49.     }
  50.     foreach obj $objList {
  51.     if {! [$obj isA GroupVersion]} {
  52.         return
  53.     }
  54.     }
  55.  
  56.     set box .main.snapshotVersion
  57.     if {! [isCommand $box]} {
  58.     ClassMaker::extend EntryDialog SnapshotVEntryDialog {dbObj objList}
  59.     SnapshotVEntryDialog new $box \
  60.         -modal yes \
  61.         -title "Snapshot" \
  62.         -message "Comments:" \
  63.         -helpPressed {.main helpOnName snapshotVersion} \
  64.         -okPressed {
  65.         set comments [%this entry]
  66.         set dbObj [%this dbObj]
  67.         set objList [%this objList]
  68.         set script ""
  69.         set confV [$dbObj getParent ConfigVersion]
  70.         foreach obj $objList {
  71.             if {"$script" != ""} {
  72.             append script " ;"
  73.             }
  74.             append script \
  75.             " $obj snapshot $dbObj $confV [list $comments]"
  76.         }
  77.         .main startCommand tcl "$script" "" "" {1 0} 1
  78.         }
  79.     }
  80.     $box config \
  81.     -dbObj $this \
  82.     -objList $objList
  83.     $box popUp
  84. }
  85.