equal
deleted
inserted
replaced
73 scr autoHideHorizontalScrollBar:true. |
73 scr autoHideHorizontalScrollBar:true. |
74 scr horizontalMini:true. |
74 scr horizontalMini:true. |
75 scr origin:0.0@0.0 corner:1.0@1.0. |
75 scr origin:0.0@0.0 corner:1.0@1.0. |
76 vt52 := scr scrolledView. |
76 vt52 := scr scrolledView. |
77 |
77 |
78 vt52 startShell. |
|
79 |
|
80 top extent:(scr preferredExtent). |
78 top extent:(scr preferredExtent). |
81 top label:'shell'. |
79 top label:'shell'. |
82 top open |
80 top openAndWait. |
|
81 |
|
82 vt52 startShell. |
|
83 |
83 |
84 |
84 " |
85 " |
85 VT100TerminalView openShell |
86 VT100TerminalView openShell |
86 " |
87 " |
87 |
88 |
88 "Modified: / 10.6.1998 / 17:15:31 / cg" |
89 "Modified: / 11.6.1998 / 18:11:19 / cg" |
89 ! ! |
90 ! ! |
90 |
91 |
91 !TerminalView methodsFor:'accessing'! |
92 !TerminalView methodsFor:'accessing'! |
92 |
93 |
93 inStream |
94 inStream |
469 readerProcess := [ |
470 readerProcess := [ |
470 [ |
471 [ |
471 |buffer n reading| |
472 |buffer n reading| |
472 |
473 |
473 reading := true. |
474 reading := true. |
474 Stream errorSignal catch:[ |
475 Stream streamErrorSignal handle:[:ex | |
|
476 Transcript showCR:ex errorString. |
|
477 Transcript showCR:OperatingSystem lastErrorString. |
|
478 ] do:[ |
475 [true] whileTrue:[ |
479 [true] whileTrue:[ |
476 Object abortSignal handle:[:ex | |
480 Object abortSignal handle:[:ex | |
477 self showCursor. |
481 self showCursor. |
478 ] do:[ |
482 ] do:[ |
479 outStream readWait. |
483 outStream readWait. |
503 |
507 |
504 " |
508 " |
505 VT100TerminalView openShell |
509 VT100TerminalView openShell |
506 " |
510 " |
507 |
511 |
508 "Modified: / 10.6.1998 / 17:46:23 / cg" |
512 "Modified: / 11.6.1998 / 18:10:33 / cg" |
509 ! |
513 ! |
510 |
514 |
511 startShell |
515 startShell |
512 "start a shell on a pseudo terminal. |
516 "start a shell on a pseudo terminal. |
513 Also fork a reader process, to read the shells output and |
517 Also fork a reader process, to read the shells output and |
615 "Modified: / 21.5.1998 / 15:52:38 / cg" |
619 "Modified: / 21.5.1998 / 15:52:38 / cg" |
616 |
620 |
617 |
621 |
618 ! ! |
622 ! ! |
619 |
623 |
620 !TerminalView ignoredMethodsFor:'misc'! |
624 !TerminalView methodsFor:'misc'! |
621 |
625 |
622 removeTrailingBlankLines |
626 removeTrailingBlankLines |
623 ^ self |
627 ^ self |
624 ! ! |
628 ! ! |
625 |
629 |
665 ! ! |
669 ! ! |
666 |
670 |
667 !TerminalView class methodsFor:'documentation'! |
671 !TerminalView class methodsFor:'documentation'! |
668 |
672 |
669 version |
673 version |
670 ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.20 1998-06-10 18:48:10 cg Exp $' |
674 ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.21 1998-06-11 17:11:45 cg Exp $' |
671 ! ! |
675 ! ! |