XTermView.st
changeset 14461 5dfe30926b88
parent 14460 13d136d2e5a9
child 15566 184cea584be5
equal deleted inserted replaced
14460:13d136d2e5a9 14461:5dfe30926b88
   125     "Created: / 06-06-2011 / 10:04:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   125     "Created: / 06-06-2011 / 10:04:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   126 ! !
   126 ! !
   127 
   127 
   128 !XTermView methodsFor:'initialization & release'!
   128 !XTermView methodsFor:'initialization & release'!
   129 
   129 
   130 destroy
   130 closeDownShell
       
   131     "shut down my shell process."
       
   132 
   131     |p|
   133     |p|
   132 
   134 
   133     super destroy.
       
   134     (p := pid) notNil ifTrue:[
   135     (p := pid) notNil ifTrue:[
   135         pid := nil.
   136         pid := nil.
   136         OperatingSystem terminateProcess: p
   137         OperatingSystem terminateProcess: p
   137     ].
   138     ].
       
   139 !
       
   140 
       
   141 destroy
       
   142     self closeDownShell.
       
   143     super destroy.
   138 
   144 
   139     "Created: / 25-11-2010 / 10:48:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   145     "Created: / 25-11-2010 / 10:48:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   140     "Modified: / 01-06-2011 / 13:13:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   146     "Modified: / 01-06-2011 / 13:13:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   141 !
   147 !
   142 
   148 
   367     "Created: / 13-09-2011 / 11:22:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   373     "Created: / 13-09-2011 / 11:22:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   368 ! !
   374 ! !
   369 
   375 
   370 !XTermView class methodsFor:'documentation'!
   376 !XTermView class methodsFor:'documentation'!
   371 
   377 
       
   378 version
       
   379     ^ '$Header: /cvs/stx/stx/libtool/XTermView.st,v 1.10 2014-06-05 18:25:15 cg Exp $'
       
   380 !
       
   381 
   372 version_CVS
   382 version_CVS
   373     ^ '$Header: /cvs/stx/stx/libtool/XTermView.st,v 1.9 2014-06-05 18:23:36 cg Exp $'
   383     ^ '$Header: /cvs/stx/stx/libtool/XTermView.st,v 1.10 2014-06-05 18:25:15 cg Exp $'
   374 !
   384 !
   375 
   385 
   376 version_SVN
   386 version_SVN
   377     ^ '$Id: XTermView.st,v 1.9 2014-06-05 18:23:36 cg Exp $'
   387     ^ '$Id: XTermView.st,v 1.10 2014-06-05 18:25:15 cg Exp $'
   378 ! !
   388 ! !
   379 
   389 
   380 
   390 
   381 XTermView initialize!
   391 XTermView initialize!