equal
deleted
inserted
replaced
15 Keyboard input is sent to outStream; input is processed |
15 Keyboard input is sent to outStream; input is processed |
16 from inStream. |
16 from inStream. |
17 |
17 |
18 [author:] |
18 [author:] |
19 Claus Gittinger |
19 Claus Gittinger |
|
20 |
|
21 [start with:] |
|
22 VT52TerminalView openShell |
20 " |
23 " |
21 ! ! |
24 ! ! |
22 |
25 |
23 !TerminalView class methodsFor:'testing'! |
26 !TerminalView class methodsFor:'testing'! |
24 |
27 |
344 startShell |
347 startShell |
345 |p slaveFD execFdArray blocked exitStatus| |
348 |p slaveFD execFdArray blocked exitStatus| |
346 |
349 |
347 p := ExternalStream makePTYPair. |
350 p := ExternalStream makePTYPair. |
348 p isNil ifTrue:[ |
351 p isNil ifTrue:[ |
349 self halt. |
352 self warn:'cannot open pty'. |
350 ^ self. |
353 ^ self. |
351 ]. |
354 ]. |
352 |
355 |
353 "/ p at:1 is the master; |
356 "/ p at:1 is the master; |
354 "/ p at:2 is the slave |
357 "/ p at:2 is the slave |
517 ! ! |
520 ! ! |
518 |
521 |
519 !TerminalView class methodsFor:'documentation'! |
522 !TerminalView class methodsFor:'documentation'! |
520 |
523 |
521 version |
524 version |
522 ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.1 1998-06-09 12:33:13 cg Exp $' |
525 ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.2 1998-06-09 13:51:55 cg Exp $' |
523 ! ! |
526 ! ! |