home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / s_objnamec.tcl < prev    next >
Text File  |  1997-10-02  |  938b  |  34 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc.    1997
  4. #
  5. #      File:           @(#)s_objnamec.tcl    /main/titanic/5
  6. #      Author:         voyager
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)s_objnamec.tcl    /main/titanic/5   2 Oct 1997 Copyright 1997 Cayenne Software Inc.
  10.  
  11. require objnamecha.tcl
  12.  
  13. rename ObjNameChangeDialog::popUp _ObjNameChangeDialog::popUp
  14.  
  15. method ObjNameChangeDialog::popUp {this} {
  16.  
  17.     set obj [lindex [.main selectedObjSet] 0]
  18.     if [$obj isA DocSection] {
  19.         $this text [$obj name]
  20.         $this NameChangeDialog::popUp
  21.     } else {
  22.         _ObjNameChangeDialog::popUp $this
  23.     }
  24. }
  25.  
  26.  
  27. method ObjNameChangeDialog::changeNameExtra {this obj name} {
  28.  
  29.     if [$obj isA DocSection] {
  30.         require_module_file "docgenerat.tcl" docwriter
  31.         DocGenerator::setLongName $obj $name
  32.     }
  33. }
  34.