equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 2001 by eXept Software AG |
2 COPYRIGHT (c) 2001 by eXept Software AG |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
9 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
10 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
11 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
12 hereby transferred. |
10 hereby transferred. |
13 " |
11 " |
14 |
|
15 "{ Package: 'stx:libtool' }" |
12 "{ Package: 'stx:libtool' }" |
16 |
13 |
17 MultiViewToolApplication subclass:#TerminalApplication |
14 MultiViewToolApplication subclass:#TerminalApplication |
18 instanceVariableNames:'initialDirectory' |
15 instanceVariableNames:'initialDirectory' |
19 classVariableNames:'' |
16 classVariableNames:'' |
352 ! |
349 ! |
353 |
350 |
354 createWorkspace |
351 createWorkspace |
355 |scr| |
352 |scr| |
356 |
353 |
|
354 VT100TerminalView isNil ifTrue:[ |
|
355 self error:'missing: VT100TerminalView' |
|
356 ]. |
|
357 |
357 scr := (HVScrollableView for:VT100TerminalView). |
358 scr := (HVScrollableView for:VT100TerminalView). |
358 scr autoHideScrollBars:false. |
359 scr autoHideScrollBars:false. |
359 scr horizontalMini:true. |
360 scr horizontalMini:true. |
360 self window realized ifTrue:[ |
361 self window realized ifTrue:[ |
361 self window sensor pushUserEvent:#startShellInSelectedWindow for:self. |
362 self window sensor pushUserEvent:#startShellInSelectedWindow for:self. |
362 ]. |
363 ]. |
363 ^ scr |
364 ^ scr |
|
365 |
|
366 "Modified: / 08-04-2011 / 14:56:57 / cg" |
364 ! |
367 ! |
365 |
368 |
366 doKill |
369 doKill |
367 self selectedWorkspacesTextView doKill. |
370 self selectedWorkspacesTextView doKill. |
368 ! |
371 ! |
447 |
450 |
448 startShellInSelectedWindow |
451 startShellInSelectedWindow |
449 |vt| |
452 |vt| |
450 |
453 |
451 vt := self selectedWorkspacesTextView. |
454 vt := self selectedWorkspacesTextView. |
452 vt superView realized ifFalse:[ |
455 (vt notNil and:[vt superView realized]) ifFalse:[ |
453 self window sensor pushUserEvent:#startShellInSelectedWindow for:self. |
456 self window sensor pushUserEvent:#startShellInSelectedWindow for:self. |
454 ^ self. |
457 ^ self. |
455 ]. |
458 ]. |
456 |
459 |
457 vt startShellIn:initialDirectory. |
460 vt startShellIn:initialDirectory. |
458 vt shellTerminateAction:[self shellFinishedInWorkspace:vt]. |
461 vt shellTerminateAction:[self shellFinishedInWorkspace:vt]. |
|
462 |
|
463 "Modified: / 07-04-2011 / 09:03:55 / cg" |
459 ! ! |
464 ! ! |
460 |
465 |
461 !TerminalApplication class methodsFor:'documentation'! |
466 !TerminalApplication class methodsFor:'documentation'! |
462 |
467 |
463 version |
468 version |
464 ^ '$Header: /cvs/stx/stx/libtool/TerminalApplication.st,v 1.8 2004-03-05 09:42:48 cg Exp $' |
469 ^ '$Header: /cvs/stx/stx/libtool/TerminalApplication.st,v 1.9 2011-04-08 12:57:08 cg Exp $' |
465 ! ! |
470 ! |
|
471 |
|
472 version_CVS |
|
473 ^ '$Header: /cvs/stx/stx/libtool/TerminalApplication.st,v 1.9 2011-04-08 12:57:08 cg Exp $' |
|
474 ! ! |