home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / mtool.tcl < prev    next >
Text File  |  1996-12-12  |  994b  |  38 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Westmount Technology    1994
  4. #
  5. #      File:           @(#)mtool.tcl    /main/titanic/2
  6. #      Author:         Marcel Bancken
  7. #      Description:    Instantiation of Mtool
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)mtool.tcl    /main/titanic/2   12 Dec 1996 Copyright 1994 Westmount Technology
  10.  
  11. OtkRegister::gui
  12.  
  13. source [m4_path_name tcl libocl.tcl]
  14.  
  15. require platform.tcl
  16. require procs.tcl
  17. require messagehdl.tcl
  18. require clmtool.tcl
  19.  
  20. proc usage {} {
  21.     error "Usage: otk mtool.tcl -- <dispatcher> <command> \[directory\]"
  22. }
  23.  
  24. if {[llength $argv] < 2} {
  25.     usage
  26.     exit 1
  27. }
  28.  
  29. # An mtool has no context. So we only look for u_mtool.tcl in m4_home
  30. #
  31. if [catch {set file [m4_path_name tcl u_mtool.tcl]}] {
  32.     resetErrorVars
  33. } else {
  34.     source $file
  35. }
  36.  
  37. ClMtool new .main [lindex $argv 0] [lindex $argv 1] [lindex $argv 2]
  38.