home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / dispatcher.tcl < prev    next >
Text File  |  1996-05-29  |  702b  |  23 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Westmount Technology    1994
  4. #
  5. #      File:           @(#)dispatcher.tcl    1.6
  6. #      Author:         Marcel Bancken
  7. #      Description:    Instantiation of Dispatcher
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)dispatcher.tcl    1.6   11 Dec 1995 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 "cldispatch.tcl"
  17.  
  18. if {[llength $argv] != 1} {
  19.     puts stderr "Dispatcher requires argument"
  20.     exit 1
  21. }
  22. ClDispatcher new .dispatcher [lindex $argv 0]
  23.