353 |
353 |
354 "/ JV@2011-11-30: XTermView disabled as recent changes in |
354 "/ JV@2011-11-30: XTermView disabled as recent changes in |
355 "/ #startShellInSelectedWindow leads to infinite loop. |
355 "/ #startShellInSelectedWindow leads to infinite loop. |
356 "/ further investigation needed. |
356 "/ further investigation needed. |
357 |
357 |
358 "/ (OperatingSystem isUNIXlike and:[XTermView notNil]) ifTrue:[ |
358 (OperatingSystem isUNIXlike and:[XTermView notNil]) ifTrue:[ |
359 "/ scr := XTermView new. |
359 scr := XTermView new. |
360 "/ scr workingDirectory: initialDirectory. |
360 scr workingDirectory: initialDirectory. |
361 "/ ] ifFalse:[ |
361 ] ifFalse:[ |
362 VT100TerminalView isNil ifTrue:[ |
362 VT100TerminalView isNil ifTrue:[ |
363 self error:'missing: VT100TerminalView' |
363 self error:'missing: VT100TerminalView' |
364 ]. |
364 ]. |
365 scr := (HVScrollableView for:VT100TerminalView). |
365 scr := (HVScrollableView for:VT100TerminalView). |
366 scr autoHideScrollBars:false. |
366 scr autoHideScrollBars:false. |
367 scr horizontalMini:true. |
367 scr horizontalMini:true. |
368 "/ ]. |
368 ]. |
369 |
369 |
370 self window realized ifTrue:[ |
370 self window realized ifTrue:[ |
371 self window sensor pushUserEvent:#startShellInSelectedWindow for:self. |
371 self window sensor pushUserEvent:#startShellInSelectedWindow for:self. |
372 ]. |
372 ]. |
373 ^ scr |
373 ^ scr |
374 |
374 |
375 "Modified: / 08-04-2011 / 14:56:57 / cg" |
375 "Modified: / 08-04-2011 / 14:56:57 / cg" |
376 "Modified (format): / 30-11-2011 / 11:06:16 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
376 "Modified: / 03-04-2012 / 10:19:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
377 ! |
377 ! |
378 |
378 |
379 doKill |
379 doKill |
380 self selectedWorkspacesTextView doKill. |
380 self selectedWorkspacesTextView doKill. |
381 ! |
381 ! |
469 |
469 |
470 vt startShellIn:initialDirectory. |
470 vt startShellIn:initialDirectory. |
471 vt shellTerminateAction:[self shellFinishedInWorkspace:vt]. |
471 vt shellTerminateAction:[self shellFinishedInWorkspace:vt]. |
472 |
472 |
473 "Modified: / 07-04-2011 / 09:03:55 / cg" |
473 "Modified: / 07-04-2011 / 09:03:55 / cg" |
|
474 "Modified: / 03-04-2012 / 10:31:01 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
474 ! ! |
475 ! ! |
475 |
476 |
476 !TerminalApplication class methodsFor:'documentation'! |
477 !TerminalApplication class methodsFor:'documentation'! |
477 |
478 |
478 version_CVS |
479 version_CVS |
479 ^ '§Header: /cvs/stx/stx/libtool/TerminalApplication.st,v 1.11 2011/11/30 10:06:32 vrany Exp §' |
480 ^ '§Header: /cvs/stx/stx/libtool/TerminalApplication.st,v 1.11 2011/11/30 10:06:32 vrany Exp §' |
480 ! |
481 ! |
481 |
482 |
482 version_SVN |
483 version_SVN |
483 ^ '$Id: TerminalApplication.st 7947 2012-03-20 16:59:54Z vranyj1 $' |
484 ^ '$Id: TerminalApplication.st 7963 2012-04-03 12:32:03Z vranyj1 $' |
484 ! ! |
485 ! ! |