home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / clxtool.tcl < prev    next >
Text File  |  1996-09-23  |  2KB  |  76 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc.    1996
  4. #
  5. #      File:           @(#)clxtool.tcl    /main/titanic/2
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)clxtool.tcl    /main/titanic/2   23 Sep 1996 Copyright 1996 Cayenne Software Inc.
  10.  
  11. # Start user added include file section
  12. # End user added include file section
  13.  
  14. require "exetool.tcl"
  15.  
  16. # Definition of the Xtool class.
  17. # The Xtool is an interactive exetool. Input/Output
  18. # from host commands is requested/displayed in the
  19. # associated window.
  20.  
  21. Class ClXtool : {InOutTerm Exetool} {
  22.     method destructor
  23.     constructor
  24.     method execute
  25.     method toolName
  26. }
  27.  
  28. method ClXtool::destructor {this} {
  29.     # Start destructor user section
  30.     m4_var save
  31.     # End destructor user section
  32.     $this Exetool::destructor
  33. }
  34.  
  35. constructor ClXtool {class this name dispatcher cmd {dir ""}} {
  36.     set this [InOutTerm::constructor $class $this]
  37.     Exetool::constructor $class $this $$this $dispatcher
  38.  
  39.     # Act as if we can name this object ourselves.
  40.     global $name
  41.     set $name $this
  42.  
  43.     $this config \
  44.     -title "ObjectTeam Execution Window" \
  45.     -iconTitle "ObjectTeam Execution Window" \
  46.     -finished {
  47.         set exitStatusList [%this exitStatusList]
  48.         lappend exitStatusList [%this exitStatus]
  49.         %this exitStatusList $exitStatusList
  50.     } \
  51.     -stopped {%this notifyFinished} \
  52.     -ready {%this notifyFinished} \
  53.     -reusable [m4_var get M4_reuse_tool -context xtool] \
  54.     -reusableChanged {
  55.         %this handleReusableChanged
  56.         m4_var set M4_reuse_tool [%this reusable] -context xtool
  57.     } \
  58.     -exitPressed {%this stop}
  59.  
  60.     send -async $dispatcher \
  61.     ClDispatcher::xtoolStarted [list [get_comm_name]] $cmd [list $dir]
  62.     return $this
  63. }
  64.  
  65. method ClXtool::execute {this} {
  66.     $this commandLine [$this cmdLine]
  67.     $this InOutTerm::execute
  68. }
  69.  
  70. method ClXtool::toolName {this} {
  71.     return xtool
  72. }
  73.  
  74. # Do not delete this line -- regeneration end marker
  75.  
  76.