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

author	Claus Gittinger <cg@exept.de>
	Fri, 23 Apr 1999 14:49:20 +0200
changeset 1329	e0dff849cf82
parent 1323	b31f7319419c
child 1339	17bdf3424085
permissions	-rw-r--r--