home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / xtool.tcl < prev    next >
Text File  |  1996-05-29  |  760b  |  27 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Westmount Technology    1994
  4. #
  5. #      File:           @(#)xtool.tcl    1.8
  6. #      Author:         Marcel Bancken
  7. #      Description:    Instantiation of Xtool.
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)xtool.tcl    1.8   22 Jan 1996 Copyright 1994 Westmount Technology
  10.  
  11. source [m4_path_name tcl libocl.tcl]
  12.  
  13. require platform.tcl
  14. require procs.tcl
  15. require messagehdl.tcl
  16. require clxtool.tcl
  17.  
  18. proc usage {} {
  19.     error "Usage: otk xtool.tcl -- <dispatcher> <command> \[directory\]"
  20. }
  21. if {[llength $argv] < 2} {
  22.     usage
  23.     exit 1
  24. }
  25.  
  26. ClXtool new .main [lindex $argv 0] [lindex $argv 1] [lindex $argv 2]
  27.