home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / s_mtrxvdbo.tcl < prev    next >
Text File  |  1997-08-07  |  1KB  |  37 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc.    1997
  4. #
  5. #      File:           @(#)s_mtrxvdbo.tcl    /main/titanic/3
  6. #      Author:         voyager
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)s_mtrxvdbo.tcl    /main/titanic/3   7 Aug 1997 Copyright 1997 Cayenne Software Inc.
  10.  
  11. proc MtrxVDbObj::editFile_docwriter {this} {
  12.  
  13.     require "docstructd.tcl"
  14.     global classCount
  15.     incr classCount
  16.     set box .main.documentStructureDialog$classCount
  17.     DocStructDlg new $box $this \
  18.         -modal 1 \
  19.         -editable 1 \
  20.         -title "Edit Document Structure" \
  21.         -helpPressed {.main helpOnName documentStructureDialog}
  22.     $box popUp
  23. }
  24.  
  25. proc MtrxVDbObj::showFile_docwriter {this} {
  26.  
  27.     require "docstructd.tcl"
  28.     global classCount
  29.     incr classCount
  30.     set box .main.documentStructureDialog$classCount
  31.     DocStructDlg new $box $this \
  32.         -editable 0 \
  33.         -title "Show Document Structure" \
  34.         -helpPressed {.main helpOnName documentStructureDialog}
  35.     $box popUp
  36. }
  37.