hg/stx-libwidg2: TerminalView.st@3467ffd6eb35 (annotated)

914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1	TextCollector subclass:#TerminalView
943 9eea2d5095b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 942 diff changeset	2	instanceVariableNames:'inStream outStream readerProcess shellPid kbdSequences
1319 0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	3	escapeSequenceTree currentSequence kbdMap escapeLeadingChars
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	4	numberOfColumns numberOfLines shellTerminateAction rangeStartLine
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	5	rangeEndLine state savedCursor shellCommand shellDirectory'
943 9eea2d5095b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 942 diff changeset	6	classVariableNames:''
9eea2d5095b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 942 diff changeset	7	poolDictionaries:''
9eea2d5095b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 942 diff changeset	8	category:'Views-TerminalViews'
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	9	!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	10
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	11	!TerminalView class methodsFor:'documentation'!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	12
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	13	documentation
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14	"
916 d9626e722c21 * empty log message * Claus Gittinger <cg@exept.de> parents: 915 diff changeset	15	I provide terminal functionality, by forking a command interpreter
d9626e722c21 * empty log message * Claus Gittinger <cg@exept.de> parents: 915 diff changeset	16	and comunicating with it via a pty.
d9626e722c21 * empty log message * Claus Gittinger <cg@exept.de> parents: 915 diff changeset	17	I am abstract - concrete terminal characteristics are defined
d9626e722c21 * empty log message * Claus Gittinger <cg@exept.de> parents: 915 diff changeset	18	by concrete subclasses (see VT52TerminalView).
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	19
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	20	[author:]
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	21	Claus Gittinger
915 f2c934efc4da checkin from browser Claus Gittinger <cg@exept.de> parents: 914 diff changeset	22
1341 3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	23	[instance variables:]
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	24	inStream stream where keyboard input is
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	25	sent to (connected to shells or commands input)
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	26
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	27	outStream stream where the output of the
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	28	shell or command arrives
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	29	(read here and displayed in the view)
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	30
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	31	readerProcess process which reads commands
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	32	output and sends it to the view
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	33
915 f2c934efc4da checkin from browser Claus Gittinger <cg@exept.de> parents: 914 diff changeset	34	[start with:]
f2c934efc4da checkin from browser Claus Gittinger <cg@exept.de> parents: 914 diff changeset	35	VT52TerminalView openShell
919 07e8c17563a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 918 diff changeset	36	VT100TerminalView openShell
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	37	"
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	38	! !
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	39
1052 732fd3255894 checkin from browser Claus Gittinger <cg@exept.de> parents: 1021 diff changeset	40	!TerminalView class methodsFor:'defaults'!
732fd3255894 checkin from browser Claus Gittinger <cg@exept.de> parents: 1021 diff changeset	41
732fd3255894 checkin from browser Claus Gittinger <cg@exept.de> parents: 1021 diff changeset	42	defaultIcon
732fd3255894 checkin from browser Claus Gittinger <cg@exept.de> parents: 1021 diff changeset	43	^ Image fromFile:'bitmaps/xpmBitmaps/terminal_images/xterm-icon.xpm'
732fd3255894 checkin from browser Claus Gittinger <cg@exept.de> parents: 1021 diff changeset	44
732fd3255894 checkin from browser Claus Gittinger <cg@exept.de> parents: 1021 diff changeset	45	"Created: / 4.8.1998 / 17:48:18 / cg"
732fd3255894 checkin from browser Claus Gittinger <cg@exept.de> parents: 1021 diff changeset	46	"Modified: / 4.8.1998 / 17:48:31 / cg"
1317 dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	47	!
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	48
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	49	defaultNumberOfColumns
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	50	^ 80
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	51
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	52	"Created: / 4.8.1998 / 17:48:18 / cg"
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	53	"Modified: / 4.8.1998 / 17:48:31 / cg"
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	54	!
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	55
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	56	defaultNumberOfLines
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	57	^ 25
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	58
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	59	"Created: / 4.8.1998 / 17:48:18 / cg"
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	60	"Modified: / 4.8.1998 / 17:48:31 / cg"
1052 732fd3255894 checkin from browser Claus Gittinger <cg@exept.de> parents: 1021 diff changeset	61	! !
732fd3255894 checkin from browser Claus Gittinger <cg@exept.de> parents: 1021 diff changeset	62
972 b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	63	!TerminalView class methodsFor:'opening'!
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	64
928 f9a117cb2bcc checkin from browser Claus Gittinger <cg@exept.de> parents: 926 diff changeset	65	open
985 275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	66	^ self openShell
928 f9a117cb2bcc checkin from browser Claus Gittinger <cg@exept.de> parents: 926 diff changeset	67
f9a117cb2bcc checkin from browser Claus Gittinger <cg@exept.de> parents: 926 diff changeset	68	"
f9a117cb2bcc checkin from browser Claus Gittinger <cg@exept.de> parents: 926 diff changeset	69	VT100TerminalView open
f9a117cb2bcc checkin from browser Claus Gittinger <cg@exept.de> parents: 926 diff changeset	70	"
f9a117cb2bcc checkin from browser Claus Gittinger <cg@exept.de> parents: 926 diff changeset	71
f9a117cb2bcc checkin from browser Claus Gittinger <cg@exept.de> parents: 926 diff changeset	72	"Created: / 10.6.1998 / 15:47:25 / cg"
985 275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	73	"Modified: / 9.7.1998 / 17:55:37 / cg"
928 f9a117cb2bcc checkin from browser Claus Gittinger <cg@exept.de> parents: 926 diff changeset	74	!
f9a117cb2bcc checkin from browser Claus Gittinger <cg@exept.de> parents: 926 diff changeset	75
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	76	openDummy
972 b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	77	"for testing purposes only - opens a dummy tty-view, which simply
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	78	echoes whatever is typed in"
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	79
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	80	\|in vt52\|
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	81
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	82	vt52 := self new.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	83	in := ForwardingStream on:''.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	84
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	85	in fwdStream:vt52.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	86	vt52 inStream:in.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	87	vt52 outStream:in.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	88	vt52 open
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	89
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	90	"
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	91	self openDummy
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	92	"
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	93	!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	94
985 275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	95	openOnCommand:aCommandString
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	96	"start a command on a pseudo-TTY, open a terminalView on it
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	97	(i.e. this is kind of an xterm)"
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	98
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	99	^ self openOnCommand:aCommandString onExit:[]
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	100
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	101	"
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	102	VT100TerminalView openOnCommand:'ls -l'
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	103	"
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	104
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	105	"Created: / 9.7.1998 / 17:50:53 / cg"
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	106	"Modified: / 9.7.1998 / 17:57:41 / cg"
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	107	!
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	108
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	109	openOnCommand:aCommandString onExit:aBlock
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	110	"start a command on a pseudo-TTY, open a terminalView on its output
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	111	(i.e. this is kind of an xterm).
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	112	When the command finishes, evaluate aBlock."
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	113
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	114	\|in top scr vt52\|
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	115
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	116	top := StandardSystemView new.
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	117	scr := ScrollableView for:self in:top.
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	118	scr origin:0.0@0.0 corner:1.0@1.0.
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	119	vt52 := scr scrolledView.
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	120
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	121	vt52 startCommand:aCommandString.
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	122	vt52 shellTerminateAction:[
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	123	top label:('finished: "' , aCommandString , '"'). aBlock value
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	124	].
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	125
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	126	top extent:(scr preferredExtent).
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	127	top label:('executing: "' , aCommandString , '"').
1014 c0fdd428990c nice icon. Claus Gittinger <cg@exept.de> parents: 1009 diff changeset	128	top iconLabel:'command'.
1052 732fd3255894 checkin from browser Claus Gittinger <cg@exept.de> parents: 1021 diff changeset	129	top icon:(self defaultIcon).
985 275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	130	top open.
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	131
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	132	^ vt52
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	133
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	134	"
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	135	VT100TerminalView openOnCommand:'ls -lR'
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	136	VT100TerminalView openOnCommand:'vi /etc/hosts'
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	137	"
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	138
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	139	"Created: / 9.7.1998 / 17:54:34 / cg"
1052 732fd3255894 checkin from browser Claus Gittinger <cg@exept.de> parents: 1021 diff changeset	140	"Modified: / 4.8.1998 / 17:49:02 / cg"
985 275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	141	!
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	142
1014 c0fdd428990c nice icon. Claus Gittinger <cg@exept.de> parents: 1009 diff changeset	143	openOnInput:inStream output:outStream
972 b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	144	"open a terminalView on the given streams (which are typically some
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	145	kind of socket). Keys pressed are sent to inStream, text appearing
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	146	from outStream are displayed in the terminal view.
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	147	This can be used to implement things like rlogin
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	148	or telnet views (if connected to a modem, a call-unix can also be
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	149	implemented this way)."
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	150
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	151	\|in top scr vt52\|
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	152
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	153	top := StandardSystemView new.
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	154	scr := ScrollableView for:self in:top.
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	155	scr origin:0.0@0.0 corner:1.0@1.0.
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	156	vt52 := scr scrolledView.
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	157
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	158	vt52 inStream:inStream.
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	159	vt52 outStream:outStream.
974 f47cf9925f7a checkin from browser Claus Gittinger <cg@exept.de> parents: 972 diff changeset	160	vt52 startReaderProcess.
972 b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	161
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	162	top extent:(scr preferredExtent).
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	163	top label:'shell'.
1014 c0fdd428990c nice icon. Claus Gittinger <cg@exept.de> parents: 1009 diff changeset	164	top iconLabel:'shell'.
1052 732fd3255894 checkin from browser Claus Gittinger <cg@exept.de> parents: 1021 diff changeset	165	top icon:(self defaultIcon).
972 b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	166	top open.
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	167	^ top
974 f47cf9925f7a checkin from browser Claus Gittinger <cg@exept.de> parents: 972 diff changeset	168
1052 732fd3255894 checkin from browser Claus Gittinger <cg@exept.de> parents: 1021 diff changeset	169	"Modified: / 4.8.1998 / 17:48:59 / cg"
972 b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	170	!
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	171
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	172	openShell
972 b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	173	"start a shell on a pseudo-TTY, open a terminalView on it
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	174	(i.e. this is kind of an xterm)"
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	175
997 c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	176	^ self openShellIn:nil
992 2f4282cab560 added startIn:someDir. Claus Gittinger <cg@exept.de> parents: 985 diff changeset	177
2f4282cab560 added startIn:someDir. Claus Gittinger <cg@exept.de> parents: 985 diff changeset	178	"
2f4282cab560 added startIn:someDir. Claus Gittinger <cg@exept.de> parents: 985 diff changeset	179	VT100TerminalView openShell
2f4282cab560 added startIn:someDir. Claus Gittinger <cg@exept.de> parents: 985 diff changeset	180	"
2f4282cab560 added startIn:someDir. Claus Gittinger <cg@exept.de> parents: 985 diff changeset	181
997 c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	182	"Modified: / 21.7.1998 / 18:24:55 / cg"
992 2f4282cab560 added startIn:someDir. Claus Gittinger <cg@exept.de> parents: 985 diff changeset	183	!
2f4282cab560 added startIn:someDir. Claus Gittinger <cg@exept.de> parents: 985 diff changeset	184
2f4282cab560 added startIn:someDir. Claus Gittinger <cg@exept.de> parents: 985 diff changeset	185	openShellIn:aDirectory
2f4282cab560 added startIn:someDir. Claus Gittinger <cg@exept.de> parents: 985 diff changeset	186	"start a shell on a pseudo-TTY, open a terminalView on it
2f4282cab560 added startIn:someDir. Claus Gittinger <cg@exept.de> parents: 985 diff changeset	187	(i.e. this is kind of an xterm)"
2f4282cab560 added startIn:someDir. Claus Gittinger <cg@exept.de> parents: 985 diff changeset	188
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	189	\|in top scr vt52\|
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	190
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	191	top := StandardSystemView new.
948 b93aba7db15d checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	192	scr := ScrollableView for:self in:top.
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	193	scr origin:0.0@0.0 corner:1.0@1.0.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	194	vt52 := scr scrolledView.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	195
992 2f4282cab560 added startIn:someDir. Claus Gittinger <cg@exept.de> parents: 985 diff changeset	196	vt52 startShellIn:aDirectory.
946 45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	197	vt52 shellTerminateAction:[top destroy].
45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	198
940 16c955286510 checkin from browser Claus Gittinger <cg@exept.de> parents: 938 diff changeset	199	top extent:(scr preferredExtent).
16c955286510 checkin from browser Claus Gittinger <cg@exept.de> parents: 938 diff changeset	200	top label:'shell'.
1014 c0fdd428990c nice icon. Claus Gittinger <cg@exept.de> parents: 1009 diff changeset	201	top iconLabel:'shell'.
1052 732fd3255894 checkin from browser Claus Gittinger <cg@exept.de> parents: 1021 diff changeset	202	top icon:(self defaultIcon).
985 275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	203	top open.
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	204
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	205	^ vt52
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	206
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	207	"
992 2f4282cab560 added startIn:someDir. Claus Gittinger <cg@exept.de> parents: 985 diff changeset	208	VT100TerminalView openShellIn:'/etc'
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	209	"
946 45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	210
992 2f4282cab560 added startIn:someDir. Claus Gittinger <cg@exept.de> parents: 985 diff changeset	211	"Created: / 20.7.1998 / 18:28:15 / cg"
1052 732fd3255894 checkin from browser Claus Gittinger <cg@exept.de> parents: 1021 diff changeset	212	"Modified: / 4.8.1998 / 17:48:54 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	213	! !
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	214
972 b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	215	!TerminalView class methodsFor:'queries'!
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	216
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	217	isVisualStartable
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	218	"returns whether this application class can be started via #open"
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	219
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	220	self == TerminalView ifTrue:[^ false].
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	221	^ true
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	222
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	223	"Created: / 10.6.1998 / 15:48:43 / cg"
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	224	! !
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	225
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	226	!TerminalView methodsFor:'accessing'!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	227
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	228	inStream
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	229	"return the value of the instance variable 'inStream' (automatically generated)"
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	230
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	231	^ inStream!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	232
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	233	inStream:something
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	234	"set the value of the instance variable 'inStream' (automatically generated)"
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	235
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	236	inStream := something.!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	237
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	238	outStream
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	239	"return the value of the instance variable 'outStream' (automatically generated)"
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	240
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	241	^ outStream!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	242
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	243	outStream:something
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	244	"set the value of the instance variable 'outStream' (automatically generated)"
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	245
946 45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	246	outStream := something.!
45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	247
1004 8742d3af41a4 readerProcess access tz parents: 1000 diff changeset	248	readerProcess
8742d3af41a4 readerProcess access tz parents: 1000 diff changeset	249	"return the value of the instance variable 'readerProcess' (automatically generated)"
8742d3af41a4 readerProcess access tz parents: 1000 diff changeset	250
8742d3af41a4 readerProcess access tz parents: 1000 diff changeset	251	^ readerProcess
8742d3af41a4 readerProcess access tz parents: 1000 diff changeset	252	!
8742d3af41a4 readerProcess access tz parents: 1000 diff changeset	253
946 45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	254	shellTerminateAction:aBlock
45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	255	"set the block which is evaluated when the shell terminates.
45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	256	Can be used to close down the application in this case."
45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	257
45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	258	shellTerminateAction := aBlock.
45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	259
45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	260	"Created: / 12.6.1998 / 17:02:58 / cg"
45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	261	! !
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	262
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	263	!TerminalView methodsFor:'cursor handling'!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	264
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	265	cursorCol:col
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	266	"check of col is a valid cursor position; return a new col-nr if not.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	267	Here, the linelength is enforced"
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	268
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	269	^ super cursorCol:(col min:numberOfColumns)
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	270
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	271	"Modified: / 10.6.1998 / 15:09:34 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	272	!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	273
933 de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	274	cursorDown:n
de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	275	cursorLine + n > list size ifTrue:[
de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	276	list := list , (Array new:n).
de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	277	self textChanged.
de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	278	].
de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	279	super cursorDown:n
de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	280
de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	281	"Modified: / 10.6.1998 / 17:18:41 / cg"
de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	282	"Created: / 10.6.1998 / 17:18:50 / cg"
de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	283	!
de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	284
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	285	cursorLine:l col:col
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	286	"check of col is a valid cursor position; return a new col-nr if not.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	287	Here, the linelength is enforced"
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	288
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	289	^ super cursorLine:l col:(col min:numberOfColumns)
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	290
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	291	"Modified: / 10.6.1998 / 15:09:38 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	292	!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	293
968 1cb313e6635b do not allow cursor movement (via buttonPress). Claus Gittinger <cg@exept.de> parents: 964 diff changeset	294	cursorMovementAllowed
1cb313e6635b do not allow cursor movement (via buttonPress). Claus Gittinger <cg@exept.de> parents: 964 diff changeset	295	"return true, if the user may move the cursor around
1cb313e6635b do not allow cursor movement (via buttonPress). Claus Gittinger <cg@exept.de> parents: 964 diff changeset	296	(via button-click, or cursor-key with selection).
1cb313e6635b do not allow cursor movement (via buttonPress). Claus Gittinger <cg@exept.de> parents: 964 diff changeset	297	Here false is returned - the cursor is only moved by
1cb313e6635b do not allow cursor movement (via buttonPress). Claus Gittinger <cg@exept.de> parents: 964 diff changeset	298	cursor positioning escape sequences arriving from the
1cb313e6635b do not allow cursor movement (via buttonPress). Claus Gittinger <cg@exept.de> parents: 964 diff changeset	299	stream."
1cb313e6635b do not allow cursor movement (via buttonPress). Claus Gittinger <cg@exept.de> parents: 964 diff changeset	300
1cb313e6635b do not allow cursor movement (via buttonPress). Claus Gittinger <cg@exept.de> parents: 964 diff changeset	301	^ false
1cb313e6635b do not allow cursor movement (via buttonPress). Claus Gittinger <cg@exept.de> parents: 964 diff changeset	302
1cb313e6635b do not allow cursor movement (via buttonPress). Claus Gittinger <cg@exept.de> parents: 964 diff changeset	303	"Created: / 18.6.1998 / 14:12:02 / cg"
1cb313e6635b do not allow cursor movement (via buttonPress). Claus Gittinger <cg@exept.de> parents: 964 diff changeset	304	!
1cb313e6635b do not allow cursor movement (via buttonPress). Claus Gittinger <cg@exept.de> parents: 964 diff changeset	305
1077 49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	306	restoreCursor
49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	307	\|l c\|
49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	308
49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	309	l := savedCursor y.
49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	310	c := savedCursor x.
49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	311	self cursorLine:l col:c.
49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	312
49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	313	"Created: / 14.8.1998 / 13:49:24 / cg"
49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	314	!
49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	315
49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	316	saveCursor
49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	317	savedCursor := cursorCol @ cursorLine
49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	318
49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	319	"Created: / 14.8.1998 / 13:48:45 / cg"
49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	320	"Modified: / 14.8.1998 / 13:49:32 / cg"
49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	321	!
49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	322
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	323	validateCursorCol:col inLine:line
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	324	"check of col is a valid cursor position; return a new col-nr if not.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	325	Here, the linelength is enforced"
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	326
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	327	^ col min:numberOfColumns
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	328
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	329	"Modified: / 10.6.1998 / 15:09:41 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	330	! !
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	331
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	332	!TerminalView methodsFor:'event handling'!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	333
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	334	computeNumberOfLinesShown
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	335	\|prevNLines prevNCols\|
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	336
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	337	prevNCols := (innerWidth // font width).
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	338	prevNLines := nFullLinesShown.
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	339
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	340	super computeNumberOfLinesShown.
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	341
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	342	((innerWidth // font width) ~~ prevNCols
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	343	or:[prevNLines ~~ nFullLinesShown]) ifTrue:[
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	344	self defineWindowSize.
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	345	]
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	346
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	347	"Created: / 12.6.1998 / 22:34:39 / cg"
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	348	"Modified: / 20.6.1998 / 19:45:28 / cg"
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	349	!
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	350
943 9eea2d5095b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 942 diff changeset	351	defineWindowSize
1315 5c79a9740759 adjust the scroll range when the size changes Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	352	\|fd delta\|
1161 42796d8e6544 handle 'cannot fork' case. Claus Gittinger <cg@exept.de> parents: 1077 diff changeset	353
1341 3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	354	OperatingSystem isMSWINDOWSlike ifTrue:[^ self].
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	355
1017 8af14b2315fa care for non-external-stream when window size changes. Claus Gittinger <cg@exept.de> parents: 1015 diff changeset	356	(inStream notNil
1161 42796d8e6544 handle 'cannot fork' case. Claus Gittinger <cg@exept.de> parents: 1077 diff changeset	357	and:[inStream isExternalStream
42796d8e6544 handle 'cannot fork' case. Claus Gittinger <cg@exept.de> parents: 1077 diff changeset	358	and:[inStream isOpen]]) ifTrue:[
1316 dc06a0e3109c change numberOfColumns when window size changes Claus Gittinger <cg@exept.de> parents: 1315 diff changeset	359	numberOfColumns := (innerWidth // font width).
964 43d6e33a4240 keep cursor off while more input is arriving. Claus Gittinger <cg@exept.de> parents: 958 diff changeset	360	(OperatingSystem
1161 42796d8e6544 handle 'cannot fork' case. Claus Gittinger <cg@exept.de> parents: 1077 diff changeset	361	setWindowSizeOnFileDescriptor:inStream fileDescriptor
1316 dc06a0e3109c change numberOfColumns when window size changes Claus Gittinger <cg@exept.de> parents: 1315 diff changeset	362	width:numberOfColumns
964 43d6e33a4240 keep cursor off while more input is arriving. Claus Gittinger <cg@exept.de> parents: 958 diff changeset	363	height:(nFullLinesShown)) ifFalse:[
43d6e33a4240 keep cursor off while more input is arriving. Claus Gittinger <cg@exept.de> parents: 958 diff changeset	364	"/ Transcript showCR:'VT100: cannot change windowSize'.
43d6e33a4240 keep cursor off while more input is arriving. Claus Gittinger <cg@exept.de> parents: 958 diff changeset	365	].
1315 5c79a9740759 adjust the scroll range when the size changes Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	366	delta := numberOfLines - rangeEndLine.
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	367	numberOfLines := nFullLinesShown.
1315 5c79a9740759 adjust the scroll range when the size changes Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	368	rangeEndLine := numberOfLines - delta.
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	369	"/ Transcript showCR:'VT100: changed len to ', numberOfLines printString.
943 9eea2d5095b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 942 diff changeset	370	].
9eea2d5095b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 942 diff changeset	371	shellPid notNil ifTrue:[
9eea2d5095b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 942 diff changeset	372	OperatingSystem sendSignal:OperatingSystem sigWINCH to:shellPid
9eea2d5095b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 942 diff changeset	373	]
9eea2d5095b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 942 diff changeset	374
9eea2d5095b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 942 diff changeset	375	"Created: / 11.6.1998 / 22:51:39 / cg"
1341 3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	376	"Modified: / 27.4.1999 / 19:33:24 / cg"
943 9eea2d5095b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 942 diff changeset	377	!
9eea2d5095b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 942 diff changeset	378
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	379	keyPress:aKey x:x y:y
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	380	\|rest rawKey seq\|
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	381
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	382	inStream isNil ifTrue:[^ self].
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	383
931 3dfdf1f7bd5d checkin from browser Claus Gittinger <cg@exept.de> parents: 929 diff changeset	384	"/ Transcript showCR:'----'; show:'key:' ; showCR:aKey printString.
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	385
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	386	aKey isCharacter ifTrue:[
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	387	"/ send it down to inStream ...
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	388	inStream nextPut:aKey.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	389	^ self
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	390	].
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	391
921 63044deaf3d7 * empty log message * Claus Gittinger <cg@exept.de> parents: 919 diff changeset	392	aKey == #Tab ifTrue:[
931 3dfdf1f7bd5d checkin from browser Claus Gittinger <cg@exept.de> parents: 929 diff changeset	393	"/ Transcript show:'->' ; showCR:Character tab storeString.
921 63044deaf3d7 * empty log message * Claus Gittinger <cg@exept.de> parents: 919 diff changeset	394	inStream nextPut:Character tab.
63044deaf3d7 * empty log message * Claus Gittinger <cg@exept.de> parents: 919 diff changeset	395	^ self
63044deaf3d7 * empty log message * Claus Gittinger <cg@exept.de> parents: 919 diff changeset	396	].
63044deaf3d7 * empty log message * Claus Gittinger <cg@exept.de> parents: 919 diff changeset	397
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	398	seq := kbdSequences at:aKey ifAbsent:nil.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	399	seq notNil ifTrue:[
931 3dfdf1f7bd5d checkin from browser Claus Gittinger <cg@exept.de> parents: 929 diff changeset	400	"/ Transcript show:'->' ; showCR:seq storeString.
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	401	inStream nextPutAll:(seq withEscapes).
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	402	^ self
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	403	].
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	404
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	405	rawKey := device keyboardMap keyAtValue:aKey ifAbsent:aKey.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	406	seq := kbdSequences at:rawKey ifAbsent:nil.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	407	seq notNil ifTrue:[
931 3dfdf1f7bd5d checkin from browser Claus Gittinger <cg@exept.de> parents: 929 diff changeset	408	"/ Transcript show:'->' ; showCR:seq storeString.
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	409	inStream nextPutAll:(seq withEscapes).
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	410	^ self
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	411	].
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	412
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	413	(rawKey startsWith:'Ctrl') ifTrue:[
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	414	rest := rawKey copyFrom:5.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	415	rest size == 1 ifTrue:[
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	416	rest := rest at:1.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	417	(rest >= $a and:[rest <= $z]) ifTrue:[
931 3dfdf1f7bd5d checkin from browser Claus Gittinger <cg@exept.de> parents: 929 diff changeset	418	"/ Transcript show:'->' ; showCR:(Character value:(rest - $a + 1)) storeString.
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	419	inStream nextPut:(Character value:(rest - $a + 1)).
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	420	^ self
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	421	].
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	422	(rest >= $A and:[rest <= $Z]) ifTrue:[
931 3dfdf1f7bd5d checkin from browser Claus Gittinger <cg@exept.de> parents: 929 diff changeset	423	"/ Transcript show:'->' ; showCR:(Character value:(rest - $a + 1)) storeString.
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	424	inStream nextPut:(Character value:(rest - $A + 1)).
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	425	^ self
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	426	].
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	427	]
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	428	].
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	429
934 b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	430	(rawKey startsWith:'Control') ifTrue:[
b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	431	^ self
b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	432	].
b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	433	(rawKey startsWith:'Shift') ifTrue:[
b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	434	^ self
b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	435	].
b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	436	(rawKey startsWith:'Alt') ifTrue:[
b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	437	^ self
b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	438	].
b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	439	(rawKey startsWith:'Cmd') ifTrue:[
950 9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	440	^ super keyPress:aKey x:x y:y
934 b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	441	].
b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	442
b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	443	Transcript show:'unhandled: '; showCR:rawKey.
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	444
950 9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	445	"Modified: / 12.6.1998 / 22:16:50 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	446	!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	447
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	448	shellTerminated
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	449	self closeDownShell.
946 45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	450	shellTerminateAction notNil ifTrue:[
45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	451	shellTerminateAction value
45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	452	] ifFalse:[
45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	453	"/ may be removed ...
45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	454	self warn:'shell terminated'.
45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	455	]
45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	456
45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	457	"Modified: / 12.6.1998 / 17:03:26 / cg"
942 1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	458	!
1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	459
1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	460	sizeChanged:how
1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	461	super sizeChanged:how.
943 9eea2d5095b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 942 diff changeset	462	self defineWindowSize.
942 1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	463
943 9eea2d5095b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 942 diff changeset	464	"Modified: / 11.6.1998 / 22:51:48 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	465	! !
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	466
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	467	!TerminalView methodsFor:'functions'!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	468
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	469	doBackspace
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	470	self cursorLeft.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	471	self replaceCharAtCursor:(Character space).
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	472	self cursorLeft.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	473
931 3dfdf1f7bd5d checkin from browser Claus Gittinger <cg@exept.de> parents: 929 diff changeset	474	"Modified: / 10.6.1998 / 17:09:12 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	475	!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	476
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	477	doClearDisplay
1000 879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	478	self doClearEntireScreen.
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	479
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	480	"Modified: / 21.7.1998 / 20:05:35 / cg"
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	481	!
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	482
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	483	doClearEntireScreen
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	484	firstLineShown to:(list size) do:[:l \|
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	485	self at:l put:''
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	486	].
922 c8373b8c7986 * empty log message * Claus Gittinger <cg@exept.de> parents: 921 diff changeset	487
1000 879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	488	"Modified: / 21.7.1998 / 20:00:19 / cg"
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	489	"Created: / 21.7.1998 / 20:05:24 / cg"
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	490	!
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	491
1000 879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	492	doClearFromBeginningOfLine
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	493	\|l\|
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	494
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	495	l := self listAt:cursorLine.
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	496	l notNil ifTrue:[
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	497	(l size >= (cursorCol-1)) ifTrue:[
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	498	l := l copy from:1 to:cursorCol-1 put:(Character space).
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	499	] ifFalse:[
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	500	l := nil.
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	501	].
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	502	self withoutRedrawAt:cursorLine put:l.
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	503	self invalidateLine:cursorLine
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	504	"/ self at:cursorLine put:l.
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	505	]
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	506
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	507	"Modified: / 20.6.1998 / 19:10:21 / cg"
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	508	"Created: / 21.7.1998 / 20:10:58 / cg"
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	509	!
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	510
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	511	doClearFromBeginningOfScreen
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	512	self doClearFromBeginningOfLine.
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	513	cursorLine-1 to:firstLineShown do:[:l \|
922 c8373b8c7986 * empty log message * Claus Gittinger <cg@exept.de> parents: 921 diff changeset	514	self at:l put:''
c8373b8c7986 * empty log message * Claus Gittinger <cg@exept.de> parents: 921 diff changeset	515	].
c8373b8c7986 * empty log message * Claus Gittinger <cg@exept.de> parents: 921 diff changeset	516
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	517	"Modified: / 10.6.1998 / 14:45:43 / cg"
1000 879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	518	"Created: / 21.7.1998 / 20:08:29 / cg"
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	519	!
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	520
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	521	doClearToEndOfLine
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	522	\|l\|
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	523
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	524	l := self listAt:cursorLine.
931 3dfdf1f7bd5d checkin from browser Claus Gittinger <cg@exept.de> parents: 929 diff changeset	525	(l size >= (cursorCol-1)) ifTrue:[
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	526	l notNil ifTrue:[
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	527	l := l copyTo:cursorCol-1.
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	528	self withoutRedrawAt:cursorLine put:l.
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	529	self invalidateLine:cursorLine
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	530	"/ self at:cursorLine put:l.
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	531	]
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	532	]
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	533
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	534	"Created: / 10.6.1998 / 14:45:01 / cg"
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	535	"Modified: / 20.6.1998 / 19:10:21 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	536	!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	537
1000 879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	538	doClearToEndOfScreen
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	539	self doClearToEndOfLine.
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	540	cursorLine+1 to:(list size) do:[:l \|
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	541	self at:l put:''
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	542	].
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	543
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	544	"Modified: / 10.6.1998 / 14:45:43 / cg"
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	545	"Created: / 21.7.1998 / 20:06:14 / cg"
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	546	!
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	547
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	548	doCursorDown:n
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	549	\|wasOn rEnd\|
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	550
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	551	"/ rangeEndLine == numberOfLines ifTrue:[
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	552	"/ ^ super cursorDown:n
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	553	"/ ].
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	554	cursorLine + 1 - firstLineShown + n <= rangeEndLine ifTrue:[
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	555	"/ no special action req'd
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	556	^ super cursorDown:n
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	557	].
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	558
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	559	n timesRepeat:[
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	560	wasOn := self hideCursor.
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	561	rEnd := rangeEndLine+firstLineShown-1.
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	562	cursorLine == rEnd ifTrue:[
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	563	self deleteLine:(rangeStartLine+firstLineShown-1).
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	564	self insertLine:'' before:rEnd.
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	565	] ifFalse:[
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	566	super cursorDown
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	567	].
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	568	wasOn ifTrue:[self showCursor]. "/ self makeCursorVisibleAndShowCursor:wasOn.
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	569	]
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	570
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	571	"Modified: / 20.6.1998 / 20:29:39 / cg"
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	572	!
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	573
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	574	doCursorHome
938 3e65cc6f22cd checkin from browser Claus Gittinger <cg@exept.de> parents: 936 diff changeset	575	self cursorVisibleLine:1 col:1
3e65cc6f22cd checkin from browser Claus Gittinger <cg@exept.de> parents: 936 diff changeset	576	"/ super cursorHome
3e65cc6f22cd checkin from browser Claus Gittinger <cg@exept.de> parents: 936 diff changeset	577
3e65cc6f22cd checkin from browser Claus Gittinger <cg@exept.de> parents: 936 diff changeset	578	"Modified: / 10.6.1998 / 20:47:31 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	579	!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	580
942 1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	581	doCursorLeft:n
1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	582	n timesRepeat:[
1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	583	super cursorLeft
1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	584	]
1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	585
1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	586	"Created: / 11.6.1998 / 22:30:00 / cg"
1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	587	!
1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	588
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	589	doCursorNewLine
931 3dfdf1f7bd5d checkin from browser Claus Gittinger <cg@exept.de> parents: 929 diff changeset	590	super cursorDown:1
3dfdf1f7bd5d checkin from browser Claus Gittinger <cg@exept.de> parents: 929 diff changeset	591
3dfdf1f7bd5d checkin from browser Claus Gittinger <cg@exept.de> parents: 929 diff changeset	592	"Modified: / 10.6.1998 / 16:55:57 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	593	!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	594
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	595	doCursorReturn
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	596	super cursorToBeginOfLine
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	597	!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	598
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	599	doCursorRight:n
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	600	self cursorCol:(cursorCol + n)
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	601
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	602	"Created: / 10.6.1998 / 15:10:08 / cg"
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	603	!
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	604
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	605	doCursorUp:n
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	606	\|wasOn rStart\|
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	607
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	608	"/ rangeStartLine == 1 ifTrue:[
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	609	"/ ^ super cursorUp:n
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	610	"/ ].
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	611	cursorLine + 1 - firstLineShown - n >= rangeStartLine ifTrue:[
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	612	"/ no special action req'd
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	613	^ super cursorUp:n
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	614	].
942 1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	615	n timesRepeat:[
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	616	wasOn := self hideCursor.
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	617	rStart := rangeStartLine+firstLineShown-1.
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	618	cursorLine == rStart ifTrue:[
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	619	(rangeEndLine+firstLineShown-1) <= list size ifTrue:[
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	620	self deleteLine:(rangeEndLine+firstLineShown-1).
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	621	self insertLine:'' before:rStart.
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	622	].
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	623	] ifFalse:[
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	624	super cursorUp
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	625	].
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	626	self makeCursorVisibleAndShowCursor:wasOn.
942 1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	627	]
1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	628
1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	629	"Created: / 11.6.1998 / 22:29:46 / cg"
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	630	"Modified: / 20.6.1998 / 20:30:34 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	631	! !
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	632
1329 e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	633	!TerminalView methodsFor:'initialization-shell'!
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	634
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	635	startCommand:aCommand
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	636	"start a command on a pseudo terminal. If the command arg is nil,
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	637	a shell is started. The command is started in the current directory.
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	638	Also fork a reader process, to read the shells output and
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	639	tell me, whenever something arrives"
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	640
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	641	^ self startCommand:aCommand in:nil
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	642
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	643	"Modified: / 20.7.1998 / 18:30:24 / cg"
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	644	!
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	645
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	646	startCommand:aCommand in:aDirectory
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	647	"start a command on a pseudo terminal. If the command arg is nil,
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	648	a shell is started. If aDirectory is not nil, the command is
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	649	executed in that directory.
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	650	Also fork a reader process, to read the shells output and
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	651	tell me, whenever something arrives"
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	652
1341 3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	653	\|p slaveFD execFdArray closeFdArray blocked exitStatus
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	654	stxToCommandPipe commandToStxPipe cmd shell args env wDir shellAndArgs\|
1329 e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	655
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	656	shellCommand := aCommand.
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	657	shellDirectory := aDirectory.
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	658
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	659	self create. "/ need my windowID (to pass down in environment)
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	660
1341 3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	661	OperatingSystem isMSWINDOWSlike ifTrue:[
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	662	"/ must use another mechanism
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	663
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	664	stxToCommandPipe := OperatingSystem makePipe.
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	665	stxToCommandPipe isNil ifTrue:[
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	666	^ self warn:'Could not create pipe.'.
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	667	].
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	668	commandToStxPipe := OperatingSystem makePipe.
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	669	commandToStxPipe isNil ifTrue:[
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	670	^ self warn:'Could not create pipe.'.
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	671	].
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	672
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	673	shellAndArgs := OperatingSystem commandAndArgsForOSCommand:aCommand.
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	674	shell := shellAndArgs at:1.
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	675	args := (shellAndArgs at:2) ? ''.
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	676
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	677	"/ pipe readSide is p at:1;
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	678	"/ writeSide is p at:2
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	679
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	680	execFdArray := Array
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	681	with:(stxToCommandPipe at:1)
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	682	with:(commandToStxPipe at:2)
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	683	with:(commandToStxPipe at:2).
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	684
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	685	closeFdArray := #().
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	686	"/ Array
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	687	"/ with:(stxToCommandPipe at:2)
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	688	"/ with:(commandToStxPipe at:1).
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	689
1329 e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	690
1341 3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	691	outStream := ExternalStream forReadingFromFileDescriptor:(commandToStxPipe at:1).
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	692	inStream := ExternalStream forWritingToFileDescriptor:(stxToCommandPipe at:2).
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	693	outStream buffered:false.
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	694	inStream buffered:false.
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	695	] ifFalse:[
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	696	p := ExternalStream makePTYPair.
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	697	p isNil ifTrue:[
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	698	self warn:'Cannot open pty'.
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	699	^ self.
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	700	].
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	701
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	702	"/ p at:1 is the master;
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	703	"/ p at:2 is the slave
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	704	inStream := outStream := (p at:1).
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	705	inStream buffered:false.
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	706
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	707	self defineWindowSize.
1329 e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	708
1341 3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	709	"/ fork a shell process on the slave-side
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	710	slaveFD := (p at:2) fileDescriptor.
1329 e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	711
1341 3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	712	execFdArray := Array with:slaveFD with:slaveFD with:slaveFD.
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	713	closeFdArray := #().
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	714
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	715	aCommand isNil ifTrue:[
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	716	shell := OperatingSystem getEnvironment:'SHELL'.
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	717	shell size == 0 ifTrue:[
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	718	shell := '/bin/sh'.
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	719	].
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	720	cmd := shell asFilename baseName.
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	721	args := (Array with:cmd).
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	722	] ifFalse:[
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	723	shell := '/bin/sh'.
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	724	args := (Array with:'sh' with:'-c' with:aCommand).
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	725	].
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	726	].
1329 e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	727
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	728	blocked := OperatingSystem blockInterrupts.
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	729
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	730	shellPid := Processor
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	731	monitor:[
1341 3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	732	OperatingSystem isMSWINDOWSlike ifTrue:[
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	733	OperatingSystem
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	734	exec:shell
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	735	withArguments:args
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	736	fileDescriptors:execFdArray
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	737	closeDescriptors:closeFdArray
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	738	fork:true
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	739	newPgrp:true
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	740	inDirectory:aDirectory.
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	741	] ifFalse:[
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	742	env := Dictionary new.
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	743	env at:'TERM' put:(self terminalType).
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	744	env at:'LINES' put:(numberOfLines printString).
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	745	env at:'COLUMNS' put:(numberOfColumns printString).
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	746	drawableId notNil ifTrue:[
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	747	env at:'WINDOWID' put:(drawableId address printString).
1329 e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	748	].
1341 3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	749	env at:'SHELL' put:shell.
1329 e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	750
1341 3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	751	OperatingSystem
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	752	exec:shell
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	753	withArguments:args
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	754	environment:env
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	755	fileDescriptors:execFdArray
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	756	closeDescriptors:closeFdArray
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	757	fork:true
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	758	newPgrp:true
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	759	inDirectory:aDirectory.
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	760	]
1329 e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	761	]
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	762	action:[:status \|
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	763	"/ Transcript show:'pid:'; showCR:status pid.
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	764	"/ Transcript show:'status:'; showCR:status status.
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	765	"/ Transcript show:'code:'; showCR:status code.
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	766	"/ Transcript show:'core:'; showCR:status core.
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	767	status stillAlive ifFalse:[
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	768	exitStatus := status.
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	769	OperatingSystem closePid:shellPid.
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	770	shellPid := nil.
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	771	self pushEvent:#shellTerminated
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	772	].
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	773	].
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	774
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	775	shellPid isNil ifTrue:[
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	776	self warn:'Cannot start shell'.
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	777	(p at:1) close.
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	778	(p at:2) close.
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	779	].
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	780
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	781	blocked ifFalse:[
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	782	OperatingSystem unblockInterrupts
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	783	].
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	784
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	785	self startReaderProcess.
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	786
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	787	"Created: / 20.7.1998 / 18:19:32 / cg"
1341 3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	788	"Modified: / 27.4.1999 / 19:31:39 / cg"
1329 e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	789	!
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	790
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	791	startShell
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	792	"start a shell on a pseudo terminal in the current directory.
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	793	Also fork a reader process, to read the shells output and
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	794	tell me, whenever something arrives"
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	795
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	796	^ self startCommand:nil
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	797
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	798	"
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	799	VT100TerminalView openShell
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	800	"
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	801
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	802	"Modified: / 20.7.1998 / 18:29:54 / cg"
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	803	!
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	804
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	805	startShellIn:aDirectory
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	806	"start a shell on a pseudo terminal in some directory.
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	807	Also fork a reader process, to read the shells output and
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	808	tell me, whenever something arrives"
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	809
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	810	^ self startCommand:nil in:aDirectory
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	811
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	812	"
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	813	VT100TerminalView openShellIn:'/etc'
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	814	"
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	815
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	816	"Modified: / 20.7.1998 / 18:29:46 / cg"
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	817	! !
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	818
e0dff849cf82 category change Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	819	!TerminalView methodsFor:'initialize / release'!
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	820
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	821	closeDownShell
1009 4cfed4bac6f0 added #stopReaderProcess Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	822	\|pid\|
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	823
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	824	(pid := shellPid) notNil ifTrue:[
934 b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	825	"/ Transcript print:'killing shell pid='; showCR:pid.
b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	826
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	827	OperatingSystem terminateProcessGroup:pid.
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	828	OperatingSystem terminateProcess:pid.
925 f9ef1268a21b kill after termination. Claus Gittinger <cg@exept.de> parents: 924 diff changeset	829	Delay waitForSeconds:1.
f9ef1268a21b kill after termination. Claus Gittinger <cg@exept.de> parents: 924 diff changeset	830	shellPid notNil ifTrue:[
1341 3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	831	OperatingSystem isMSWINDOWSlike ifFalse:[
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	832	OperatingSystem killProcessGroup:pid.
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	833	].
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	834	OperatingSystem killProcess:pid.
925 f9ef1268a21b kill after termination. Claus Gittinger <cg@exept.de> parents: 924 diff changeset	835	shellPid := nil.
f9ef1268a21b kill after termination. Claus Gittinger <cg@exept.de> parents: 924 diff changeset	836	].
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	837	OperatingSystem closePid:pid.
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	838	].
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	839
1009 4cfed4bac6f0 added #stopReaderProcess Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	840	self stopReaderProcess.
4cfed4bac6f0 added #stopReaderProcess Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	841
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	842	inStream notNil ifTrue:[
1021 c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	843	inStream isStream ifTrue:[inStream close].
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	844	inStream := nil
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	845	].
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	846	outStream notNil ifTrue:[
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	847	outStream close.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	848	outStream := nil
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	849	].
924 c1d2e1fecd79 checkin from browser Claus Gittinger <cg@exept.de> parents: 923 diff changeset	850
1341 3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	851	"Modified: / 27.4.1999 / 19:31:18 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	852	!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	853
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	854	destroy
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	855	self closeDownShell.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	856	super destroy
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	857	!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	858
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	859	escapeSequences:codes
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	860	\|tree\|
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	861
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	862	tree isNil ifTrue:[tree := escapeSequenceTree := IdentityDictionary new].
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	863
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	864	codes do:[:specEntry \|
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	865	\|sequence function\|
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	866
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	867	sequence := (specEntry at:1) withEscapes.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	868	function := specEntry at:2.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	869
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	870	tree := escapeSequenceTree.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	871
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	872	sequence keysAndValuesDo:[:idx :char \|
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	873	\|followup\|
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	874
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	875	idx == sequence size ifTrue:[
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	876	tree at:char put:function
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	877	] ifFalse:[
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	878	followup := tree at:char ifAbsent:nil.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	879	followup isNil ifTrue:[
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	880	tree at:char put:(followup := IdentityDictionary new).
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	881	].
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	882	tree := followup
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	883	]
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	884	]
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	885	].
918 2d6a4c91c4bd checkin from browser Claus Gittinger <cg@exept.de> parents: 917 diff changeset	886	escapeLeadingChars := escapeSequenceTree keys asSet.
2d6a4c91c4bd checkin from browser Claus Gittinger <cg@exept.de> parents: 917 diff changeset	887	escapeLeadingChars add:(Character cr).
2d6a4c91c4bd checkin from browser Claus Gittinger <cg@exept.de> parents: 917 diff changeset	888	escapeLeadingChars add:(Character return).
2d6a4c91c4bd checkin from browser Claus Gittinger <cg@exept.de> parents: 917 diff changeset	889	escapeLeadingChars add:(Character backspace).
2d6a4c91c4bd checkin from browser Claus Gittinger <cg@exept.de> parents: 917 diff changeset	890
2d6a4c91c4bd checkin from browser Claus Gittinger <cg@exept.de> parents: 917 diff changeset	891	escapeLeadingChars := escapeLeadingChars asArray
2d6a4c91c4bd checkin from browser Claus Gittinger <cg@exept.de> parents: 917 diff changeset	892
2d6a4c91c4bd checkin from browser Claus Gittinger <cg@exept.de> parents: 917 diff changeset	893	"Modified: / 9.6.1998 / 19:43:12 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	894	!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	895
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	896	initialize
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	897	super initialize.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	898
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	899	showMatchingParenthesis := false.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	900	insertMode := false.
936 d377fb0f726f checkin from browser Claus Gittinger <cg@exept.de> parents: 935 diff changeset	901	alwaysAppendAtEnd := false.
944 c59be5892714 * empty log message * Claus Gittinger <cg@exept.de> parents: 943 diff changeset	902	collectSize := 100.
977 785c3ad4eff1 turn off st80Mode Claus Gittinger <cg@exept.de> parents: 976 diff changeset	903	st80Mode := false.
785c3ad4eff1 turn off st80Mode Claus Gittinger <cg@exept.de> parents: 976 diff changeset	904	trimBlankLines := true.
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	905
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	906	numberOfColumns := 80.
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	907	numberOfLines := 24.
954 4cef50a89ca1 * empty log message * Claus Gittinger <cg@exept.de> parents: 951 diff changeset	908	rangeStartLine := 1.
4cef50a89ca1 * empty log message * Claus Gittinger <cg@exept.de> parents: 951 diff changeset	909	rangeEndLine := numberOfLines.
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	910
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	911	self initializeKeyboardSequences.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	912	list := OrderedCollection new:24 withAll:''.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	913
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	914	self initializeKeyboardMap.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	915
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	916	"
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	917	VT52TerminalView openShell
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	918	VT100TerminalView openShell
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	919	"
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	920
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	921	"Modified: / 20.6.1998 / 20:06:49 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	922	!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	923
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	924	initializeKeyboardMap
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	925	\|ctrlKeys cmdKeys\|
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	926
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	927	"/ setup my own keyboardMap, where control-keys are
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	928	"/ not translated.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	929	kbdMap := device keyboardMap copy.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	930
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	931	ctrlKeys := kbdMap keys select:[:key \| key startsWith:'Ctrl'].
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	932	ctrlKeys do:[:key \| kbdMap removeKey:key].
950 9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	933
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	934	cmdKeys := kbdMap keys select:[:key \| key startsWith:'Cmd'].
950 9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	935	cmdKeys do:[:key \|
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	936	(#(Copy Paste SaveAs Print) includes:(kbdMap at:key)) ifFalse:[
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	937	kbdMap removeKey:key
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	938	]
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	939	].
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	940
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	941	kbdMap removeKey:#Delete ifAbsent:[].
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	942	kbdMap removeKey:#BackSpace ifAbsent:[].
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	943
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	944	"
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	945	VT52TerminalView openShell
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	946	"
950 9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	947
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	948	"Modified: / 12.6.1998 / 22:18:23 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	949	!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	950
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	951	initializeKeyboardSequences
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	952	self subclassResponsibility.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	953	!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	954
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	955	keyboardMap
934 b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	956	"return my keyboard map. This has control keys removed and
b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	957	those will be passed unchanged to the shell"
b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	958
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	959	^ kbdMap
934 b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	960
b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	961	"Modified: / 10.6.1998 / 17:46:59 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	962	!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	963
1319 0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	964	reinitialize
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	965	"this is invoked (by the system thread) after a snapShot image restart"
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	966
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	967	super reinitialize.
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	968
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	969	shellPid := nil.
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	970
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	971	self stopReaderProcess.
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	972	readerProcess := nil.
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	973	inStream := outStream := nil.
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	974
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	975	"/ must fork at low-prio (to avoid running reader at prio31)
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	976	[
1322 30150c59eb97 dont delay the reinit Claus Gittinger <cg@exept.de> parents: 1321 diff changeset	977	"/ Delay waitForSeconds:0.5.
1319 0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	978	self doClearEntireScreen.
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	979	self cursorLine:1 col:1.
1321 9a312fa98358 also throw away scrolled text whith restart. Claus Gittinger <cg@exept.de> parents: 1320 diff changeset	980	self contents:nil.
1319 0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	981	self flash.
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	982
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	983	"/
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	984	"/ all I can do is to restart the original command
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	985	"/
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	986	self startCommand:shellCommand in:shellDirectory.
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	987	] forkAt:8
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	988	!
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	989
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	990	startReaderProcess
934 b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	991	"Start a reader process, which looks for the commands output,
1009 4cfed4bac6f0 added #stopReaderProcess Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	992	and sends me #processInput:n: events whenever something arrives."
934 b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	993
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	994	readerProcess isNil ifTrue:[
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	995	readerProcess := [
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	996	[
947 e3baca36e6f7 checkin from browser Claus Gittinger <cg@exept.de> parents: 946 diff changeset	997	self waitUntilVisible.
e3baca36e6f7 checkin from browser Claus Gittinger <cg@exept.de> parents: 946 diff changeset	998
940 16c955286510 checkin from browser Claus Gittinger <cg@exept.de> parents: 938 diff changeset	999	Stream streamErrorSignal handle:[:ex \|
1339 17bdf3424085 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	1000	Transcript show:'Terminal [error]: '; showCR:ex errorString.
17bdf3424085 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	1001	Transcript show:'Terminal [info]: '; showCR:OperatingSystem lastErrorString.
940 16c955286510 checkin from browser Claus Gittinger <cg@exept.de> parents: 938 diff changeset	1002	] do:[
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1003	[true] whileTrue:[
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1004	Object abortSignal handle:[:ex \|
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1005	self showCursor.
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1006	] do:[
1323 b31f7319419c checkin from browser Claus Gittinger <cg@exept.de> parents: 1322 diff changeset	1007	\|buffer n sensor\|
948 b93aba7db15d checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	1008
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1009	outStream readWait.
1323 b31f7319419c checkin from browser Claus Gittinger <cg@exept.de> parents: 1322 diff changeset	1010	(sensor := self sensor hasKeyPressEventFor:self) ifTrue:[
b31f7319419c checkin from browser Claus Gittinger <cg@exept.de> parents: 1322 diff changeset	1011	true "(sensor userEventCount > 10)" ifTrue:[
997 c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1012	"/ give terminalView a chance to
c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1013	"/ send out the character.
1323 b31f7319419c checkin from browser Claus Gittinger <cg@exept.de> parents: 1322 diff changeset	1014	Delay waitForSeconds:0.01.
997 c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1015	]
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1016	] ifFalse:[
945 552cf1a3d47b checkin from browser Claus Gittinger <cg@exept.de> parents: 944 diff changeset	1017	buffer := String new:1024.
552cf1a3d47b checkin from browser Claus Gittinger <cg@exept.de> parents: 944 diff changeset	1018	n := outStream nextAvailableBytes:1024 into:buffer startingAt:1.
552cf1a3d47b checkin from browser Claus Gittinger <cg@exept.de> parents: 944 diff changeset	1019	n > 0 ifTrue:[
552cf1a3d47b checkin from browser Claus Gittinger <cg@exept.de> parents: 944 diff changeset	1020	self pushEvent:#processInput:n: with:buffer with:n.
1021 c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1021	self waitForOutputToDrain.
945 552cf1a3d47b checkin from browser Claus Gittinger <cg@exept.de> parents: 944 diff changeset	1022	] ifFalse:[
552cf1a3d47b checkin from browser Claus Gittinger <cg@exept.de> parents: 944 diff changeset	1023	n == 0 ifTrue:[
552cf1a3d47b checkin from browser Claus Gittinger <cg@exept.de> parents: 944 diff changeset	1024	outStream atEnd ifTrue:[
552cf1a3d47b checkin from browser Claus Gittinger <cg@exept.de> parents: 944 diff changeset	1025	outStream close. outStream := nil.
552cf1a3d47b checkin from browser Claus Gittinger <cg@exept.de> parents: 944 diff changeset	1026	inStream close. inStream := nil.
552cf1a3d47b checkin from browser Claus Gittinger <cg@exept.de> parents: 944 diff changeset	1027
552cf1a3d47b checkin from browser Claus Gittinger <cg@exept.de> parents: 944 diff changeset	1028	Processor activeProcess terminate.
1323 b31f7319419c checkin from browser Claus Gittinger <cg@exept.de> parents: 1322 diff changeset	1029	] ifFalse:[
b31f7319419c checkin from browser Claus Gittinger <cg@exept.de> parents: 1322 diff changeset	1030	"/ this should not happen.
b31f7319419c checkin from browser Claus Gittinger <cg@exept.de> parents: 1322 diff changeset	1031
b31f7319419c checkin from browser Claus Gittinger <cg@exept.de> parents: 1322 diff changeset	1032	Delay waitForSeconds:0.05
945 552cf1a3d47b checkin from browser Claus Gittinger <cg@exept.de> parents: 944 diff changeset	1033	]
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1034	]
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1035	]
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1036	]
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1037	]
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1038	]
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1039	]
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1040	] valueOnUnwindDo:[
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1041	readerProcess := nil
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1042	]
997 c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1043	] fork. "/ forkAt:9.
c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1044	readerProcess name:'pty reader'.
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1045	]
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1046
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1047	"
934 b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	1048	VT100TerminalView openShell
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1049	"
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1050
1021 c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1051	"Modified: / 27.7.1998 / 23:47:55 / cg"
1009 4cfed4bac6f0 added #stopReaderProcess Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	1052	!
4cfed4bac6f0 added #stopReaderProcess Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	1053
4cfed4bac6f0 added #stopReaderProcess Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	1054	stopReaderProcess
4cfed4bac6f0 added #stopReaderProcess Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	1055	\|sensor\|
4cfed4bac6f0 added #stopReaderProcess Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	1056
4cfed4bac6f0 added #stopReaderProcess Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	1057	readerProcess notNil ifTrue:[
4cfed4bac6f0 added #stopReaderProcess Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	1058	readerProcess terminate.
4cfed4bac6f0 added #stopReaderProcess Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	1059	"/ give it a chance to really terminate
4cfed4bac6f0 added #stopReaderProcess Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	1060	Processor yield.
4cfed4bac6f0 added #stopReaderProcess Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	1061	readerProcess := nil
4cfed4bac6f0 added #stopReaderProcess Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	1062	].
4cfed4bac6f0 added #stopReaderProcess Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	1063
4cfed4bac6f0 added #stopReaderProcess Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	1064	"/ flush any leftover input-processing events
4cfed4bac6f0 added #stopReaderProcess Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	1065	(sensor := self sensor) notNil ifTrue:[
4cfed4bac6f0 added #stopReaderProcess Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	1066	sensor flushEventsFor:self withType:#processInput:n:.
4cfed4bac6f0 added #stopReaderProcess Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	1067	]
4cfed4bac6f0 added #stopReaderProcess Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	1068	"Modified: / 21.7.1998 / 19:00:13 / cg"
985 275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	1069	! !
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	1070
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1071	!TerminalView methodsFor:'menu'!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1072
1319 0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1073	doReset
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1074	"reset the scroll-range;
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1075	may have to reset more in the future (current font-set; color; etc)"
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1076
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1077	rangeStartLine := 1.
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1078	rangeEndLine := numberOfLines.
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1079
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1080	self normal.
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1081
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1082	!
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1083
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1084	doSendInterrupt
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1085	OperatingSystem sendSignal:(OperatingSystem sigINT) to:shellPid negated.
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1086
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1087	"Modified: / 10.6.1998 / 17:49:49 / cg"
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1088	!
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1089
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1090	editMenu
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1091	"return the views middleButtonMenu"
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1092
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1093	<resource: #keyboard (#Copy #Paste #Print)>
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1094	<resource: #programMenu>
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1095
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1096	\|items m sub shortKeys sensor\|
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1097
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1098	((sensor := self sensor) notNil and:[sensor ctrlDown]) ifTrue:[
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1099	items := #(
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1100	('Interrupt' doSendInterrupt)
1182 c3809bedfd32 checkin from browser Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	1101	('-' )
c3809bedfd32 checkin from browser Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	1102	('Reset' doReset)
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1103	).
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1104	] ifFalse:[
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1105	items := #(
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1106	('copy' copySelection Copy )
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1107	('paste' pasteOrReplace Paste )
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1108	('-' )
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	1109	('font ...' changeFont )
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	1110	('-' )
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1111	('save as ...' save SaveAs )
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1112	('print' doPrint Print )
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1113	).
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1114	].
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1115
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1116	m := PopUpMenu itemList:items resources:resources.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1117
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1118	self hasSelection not ifTrue:[
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1119	m disable:#copySelection.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1120	].
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1121	^ m.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1122
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	1123	"Modified: / 12.6.1998 / 22:33:33 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1124	! !
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1125
940 16c955286510 checkin from browser Claus Gittinger <cg@exept.de> parents: 938 diff changeset	1126	!TerminalView methodsFor:'misc'!
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1127
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1128	removeTrailingBlankLines
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1129	^ self
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1130	! !
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1131
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1132	!TerminalView methodsFor:'processing - input'!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1133
1017 8af14b2315fa care for non-external-stream when window size changes. Claus Gittinger <cg@exept.de> parents: 1015 diff changeset	1134	nextPutAll:aString
1021 c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1135	"/ self processInput:aString n:aString size
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1136	self pushEvent:#processInput:n: with:aString with:aString size.
1017 8af14b2315fa care for non-external-stream when window size changes. Claus Gittinger <cg@exept.de> parents: 1015 diff changeset	1137
8af14b2315fa care for non-external-stream when window size changes. Claus Gittinger <cg@exept.de> parents: 1015 diff changeset	1138	"Created: / 27.7.1998 / 15:10:59 / cg"
1021 c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1139	"Modified: / 27.7.1998 / 23:16:19 / cg"
1017 8af14b2315fa care for non-external-stream when window size changes. Claus Gittinger <cg@exept.de> parents: 1015 diff changeset	1140	!
8af14b2315fa care for non-external-stream when window size changes. Claus Gittinger <cg@exept.de> parents: 1015 diff changeset	1141
933 de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	1142	processInput:buffer n:count
997 c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1143	\|sensor\|
c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1144
1077 49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	1145	"/ self hideCursor.
997 c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1146
1015 61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1147	"/ the following may not be too clean, but adds a lot of speed.
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1148	"/ instead of passing every individual character through the
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1149	"/ escape-state machine, collect chunks of non-control text
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1150	"/ when in state 0, and add them immediately to the pendingLines
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1151	"/ collection of the textCollectors asynchronous update mechanism.
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1152	"/ This helps a lot if you do something like "ls -lR /" ...
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1153	"/ For debugging the state machine, reenable the commented lines
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1154	"/ below.
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1155
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1156	"/1 to:count do:[:i\|
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1157	"/ self nextPut:(buffer at:i).
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1158	"/].
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1159	"/self showCursor.
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1160	"/^ self.
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1161
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1162	access critical:[
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1163	\|i i2 s crnlFollows\|
997 c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1164
1015 61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1165	i := 1.
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1166	[i <= count] whileTrue:[
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1167	(state == 0) ifTrue:[
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1168	"/ in initial state.
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1169	"/ quick scan forward for next control character ...
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1170	i2 := buffer indexOfControlCharacterStartingAt:i.
1055 eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1171	i2 > count ifTrue:[i2 := 0].
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1172
1015 61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1173	i2 == 0 ifTrue:[
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1174	"/ no control characters - simply append all
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1175	"/ to the outstanding lines ...
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1176	s := buffer copyFrom:i to:count.
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1177	i := count + 1. "/ leave loop.
997 c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1178	crnlFollows := false.
1015 61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1179	] ifFalse:[
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1180	i2 > i ifTrue:[
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1181	s := buffer copyFrom:i to:i2-1.
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1182	i := i2. "/ proceed withcontrol character
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1183	crnlFollows := false.
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1184	i < (count - 1) ifTrue:[
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1185	(buffer at:i) == Character return ifTrue:[
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1186	(buffer at:i+1) == Character nl ifTrue:[
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1187	crnlFollows := true.
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1188	i := i + 2.
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1189	]
997 c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1190	]
1015 61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1191	].
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1192	]
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1193	].
997 c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1194	].
c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1195
1015 61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1196	s notNil ifTrue:[
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1197	currentEmphasis notNil ifTrue:[
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1198	s := s emphasizeAllWith:currentEmphasis
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1199	].
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1200
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1201	outstandingLine size > 0 ifTrue:[
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1202	outstandingLine := outstandingLine , s.
997 c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1203	] ifFalse:[
1015 61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1204	outstandingLine := s.
997 c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1205	].
1015 61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1206	crnlFollows ifTrue:[
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1207	outstandingLines isNil ifTrue:[
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1208	outstandingLines := OrderedCollection with:outstandingLine
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1209	] ifFalse:[
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1210	outstandingLines add:outstandingLine.
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1211	].
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1212	outstandingLine := ''.
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1213	].
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1214	s := nil.
997 c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1215
1015 61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1216	collecting ifTrue:[
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1217	flushPending ifFalse:[
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1218	self installDelayedUpdate
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1219	] ifTrue:[
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1220	"/ outstandingLines size > collectSize ifTrue:[
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1221	"/ self endEntry
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1222	"/ ]
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1223	]
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1224	] ifFalse:[
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1225	self endEntry
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1226	].
997 c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1227	] ifFalse:[
1015 61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1228	"/ no chunk to append (in an escape sequence)
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1229	"/ must handle individual characters
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1230	"/ to update the state machine.
1055 eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1231
1015 61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1232	self nextPut:(buffer at:i).
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1233	i := i + 1.
1055 eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1234	[state ~~ 0 and:[i <= count]] whileTrue:[
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1235	self nextPut:(buffer at:i).
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1236	i := i + 1.
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1237	]
1015 61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1238	]
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1239	].
933 de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	1240	].
948 b93aba7db15d checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	1241
1055 eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1242	state == 0 ifTrue:[
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1243	(sensor := self sensor) notNil ifTrue:[
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1244	"/ if there is no more output pending from the shell,
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1245	"/ enforce update of the view (asynchronous)
997 c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1246
1055 eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1247	(sensor hasEvent:#processInput:n: for:self) ifFalse:[
997 c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1248	self endEntry.
c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1249	self showCursor.
1055 eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1250	"/ self makeCursorVisible.
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1251	] ifTrue:[
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1252	"/ if there is more output pending from the shell,
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1253	"/ and many lines have already been collected,
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1254	"/ also enforce update of the view (asynchronous)
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1255	"/ Thus, it will update at least once for every
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1256	"/ collectSize lines.
1015 61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1257
1055 eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1258	outstandingLines size > collectSize ifTrue:[
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1259	self endEntry.
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1260	self showCursor.
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1261
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1262	"/ make certain that things are really displayed ...
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1263	windowGroup notNil ifTrue:[
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1264	windowGroup processRealExposeEventsFor:self.
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1265	]
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1266	].
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1267	]
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1268	].
933 de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	1269	].
de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	1270
de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	1271	"Created: / 10.6.1998 / 17:26:09 / cg"
1077 49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	1272	"Modified: / 14.8.1998 / 13:43:35 / cg"
1021 c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1273	!
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1274
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1275	sync
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1276	self waitForOutputToDrain
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1277
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1278	"Created: / 27.7.1998 / 23:49:44 / cg"
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1279	!
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1280
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1281	waitForOutputToDrain
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1282	\|sensor\|
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1283
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1284	sensor := self sensor.
1323 b31f7319419c checkin from browser Claus Gittinger <cg@exept.de> parents: 1322 diff changeset	1285	(sensor userEventCount > 30) ifTrue:[
b31f7319419c checkin from browser Claus Gittinger <cg@exept.de> parents: 1322 diff changeset	1286	[sensor userEventCount > 5] whileTrue:[
1021 c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1287	"/ give terminalView a chance to
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1288	"/ catch up.
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1289	Delay waitForSeconds:0.1.
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1290	]
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1291	].
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1292
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1293	"Modified: / 27.7.1998 / 23:16:19 / cg"
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1294	"Created: / 27.7.1998 / 23:47:22 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1295	! !
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1296
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1297	!TerminalView methodsFor:'queries'!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1298
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1299	preferredExtent
1317 dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1300	^ (fontWidth * self class defaultNumberOfColumns + (leftMargin * 2))
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	1301	@
1317 dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1302	((self heightForLines:self class defaultNumberOfLines) + 8)
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1303
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	1304	"Modified: / 20.6.1998 / 20:06:57 / cg"
929 30a2a3329055 checkin from browser Claus Gittinger <cg@exept.de> parents: 928 diff changeset	1305	!
30a2a3329055 checkin from browser Claus Gittinger <cg@exept.de> parents: 928 diff changeset	1306
30a2a3329055 checkin from browser Claus Gittinger <cg@exept.de> parents: 928 diff changeset	1307	terminalType
30a2a3329055 checkin from browser Claus Gittinger <cg@exept.de> parents: 928 diff changeset	1308	^ #dump
30a2a3329055 checkin from browser Claus Gittinger <cg@exept.de> parents: 928 diff changeset	1309
30a2a3329055 checkin from browser Claus Gittinger <cg@exept.de> parents: 928 diff changeset	1310	"Modified: / 10.6.1998 / 14:47:03 / cg"
30a2a3329055 checkin from browser Claus Gittinger <cg@exept.de> parents: 928 diff changeset	1311	"Created: / 10.6.1998 / 16:22:30 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1312	! !
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1313
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1314	!TerminalView methodsFor:'selection handling'!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1315
1317 dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1316	autoMoveCursorToEndOfSelection
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1317	"Redefined to return false since the cursor should
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1318	not be affected by selecting"
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1319
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1320	^ false
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1321
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1322	!
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1323
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1324	paste:someText
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1325	"paste - redefined to send the chars to the shell instead
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1326	of pasting into the view"
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1327
950 9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1328	\|s nLines\|
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1329
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1330	s := someText.
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1331	s isString ifTrue:[
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1332	s := s asStringCollection
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1333	] ifFalse:[
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1334	(s isKindOf:StringCollection) ifFalse:[
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1335	self warn:'selection (' , s class name , ') is not convertable to Text'.
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1336	^ self
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1337	]
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1338	].
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1339	(nLines := s size) == 0 ifTrue:[^ self].
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1340	(nLines == 1 and:[(s at:1) size == 0]) ifTrue:[^ self].
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1341	s keysAndValuesDo:[:idx :line \|
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1342	inStream nextPutAll:line.
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1343	idx ~~ nLines ifTrue:[
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1344	inStream nextPut:(Character return).
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1345	]
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1346	].
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1347
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1348	"Modified: / 12.6.1998 / 22:12:47 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1349	! !
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1350
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1351	!TerminalView class methodsFor:'documentation'!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1352
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1353	version
1341 3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	1354	^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.71 1999-04-27 17:51:00 cg Exp $'
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1355	! !

author	Claus Gittinger <cg@exept.de>
	Tue, 27 Apr 1999 19:51:00 +0200
changeset 1341	3467ffd6eb35
parent 1339	17bdf3424085
child 1342	271a9b90688a
permissions	-rw-r--r--