home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / s_wmttool.tcl < prev    next >
Text File  |  1997-03-07  |  880b  |  22 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc.    1997
  4. #
  5. #      File:           @(#)s_wmttool.tcl    /main/titanic/4
  6. #      Author:         voyager
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)s_wmttool.tcl    /main/titanic/4   7 Mar 1997 Copyright 1997 Cayenne Software Inc.
  10.  
  11. require wmttool.tcl
  12.  
  13. method WmtTool::startDocbatch {this type args endCmd upd busy {dir ""}} {
  14.     set exe [m4_path_name bin otprint$EXE_EXT]
  15.     set module [[.main moduleHdlr] getModuleSpec docwriter]
  16.     set docbatch [[.main moduleHdlr] getFiles tcl docbatch.tcl $module]
  17.     set docbatch [lindex $docbatch 0]
  18.     set script "[quoteIf $exe] [quoteIf $docbatch] -- $args"
  19.     set msg "Starting docbatch"
  20.     $this startCommand $type $script $endCmd $msg $upd $busy $dir
  21. }
  22.