home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / s_editpast.tcl < prev    next >
Text File  |  1997-10-02  |  2KB  |  49 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc.    1997
  4. #
  5. #      File:           @(#)s_editpast.tcl    /main/titanic/4
  6. #      Author:         voyager
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)s_editpast.tcl    /main/titanic/4   2 Oct 1997 Copyright 1997 Cayenne Software Inc.
  10.  
  11. require editpastec.tcl
  12.  
  13. method EditPasteCmd::selectVersion {this currentObj obj msg} {
  14.     upvar $msg message
  15.     if [$obj isA SystemFileReference] {
  16.     # docwriter module stuff
  17.     set catched [catch {
  18.         set fileV [[$obj info] set FileVersion]
  19.         set file [$fileV file]
  20.  
  21.         require_module_file "docgenerat.tcl" docwriter
  22.         require_module_file "docstructp.tcl" docwriter
  23.         DocStructPart new .docStrucPart \
  24.         -documentVersion $currentObj \
  25.         -sectionName "[$file qualifiedName :]_[$file type]" \
  26.         -sectionType "[$file type]" \
  27.         -fileVersion $fileV
  28.         set section [DocGenerator::createSection .docStrucPart]
  29.         .docStrucPart delete
  30.         lappend removeList $obj
  31.         lappend sectionList $section
  32.     } message]
  33.     } else {
  34.     # default stuff
  35.     set catched [catch {$currentObj selectVersion $obj $confV} message]
  36.     }
  37.  
  38.     return $catched
  39. }
  40.  
  41. method EditPasteCmd::levelValidate {this currentObj} {
  42.  
  43.     # DocGenerator requires the ClientContext
  44.     # to be at least at Config level...
  45.     $this validAfterLevelChange \
  46.         [expr 1 - [[$currentObj browsUiObj] isA Document]]
  47.  
  48. }
  49.