hg/stx-libwidg2: TerminalView.st@7ed0d0bbc7cd (annotated)

1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1	"
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	2	COPYRIGHT (c) 1998 by eXept Software AG
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	3	All Rights Reserved
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	4
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	5	This software is furnished under a license and may be used
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	6	only in accordance with the terms of that license and with the
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	7	inclusion of the above copyright notice. This software may not
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	8	be provided or otherwise made available to, or used by, any
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	9	other person. No title to or ownership of the software is
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	10	hereby transferred.
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	11	"
1833 69a0c170cd80 * empty log message * Claus Gittinger <cg@exept.de> parents: 1485 diff changeset	12	"{ Package: 'stx:libwidg2' }"
69a0c170cd80 * empty log message * Claus Gittinger <cg@exept.de> parents: 1485 diff changeset	13
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14	TextCollector subclass:#TerminalView
2268 e3b57c072b89 wrap line at end penk parents: 2207 diff changeset	15	instanceVariableNames:'inStream outStream readerProcess shellPid kbdSequences
e3b57c072b89 wrap line at end penk parents: 2207 diff changeset	16	escapeSequenceTree currentSequence kbdMap escapeLeadingChars
e3b57c072b89 wrap line at end penk parents: 2207 diff changeset	17	numberOfColumns numberOfLines shellTerminateAction rangeStartLine
e3b57c072b89 wrap line at end penk parents: 2207 diff changeset	18	rangeEndLine state savedCursor shellCommand shellDirectory
e3b57c072b89 wrap line at end penk parents: 2207 diff changeset	19	filterStream localEcho translateNLToCRNL inputTranslateCRToNL
e3b57c072b89 wrap line at end penk parents: 2207 diff changeset	20	autoWrapFlag'
e3b57c072b89 wrap line at end penk parents: 2207 diff changeset	21	classVariableNames:'Debug'
e3b57c072b89 wrap line at end penk parents: 2207 diff changeset	22	poolDictionaries:''
e3b57c072b89 wrap line at end penk parents: 2207 diff changeset	23	category:'Views-TerminalViews'
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	24	!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	25
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	26	!TerminalView class methodsFor:'documentation'!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	27
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	28	copyright
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	29	"
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	30	COPYRIGHT (c) 1998 by eXept Software AG
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	31	All Rights Reserved
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	32
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	33	This software is furnished under a license and may be used
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	34	only in accordance with the terms of that license and with the
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	35	inclusion of the above copyright notice. This software may not
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	36	be provided or otherwise made available to, or used by, any
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	37	other person. No title to or ownership of the software is
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	38	hereby transferred.
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	39	"
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	40
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	41	!
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	42
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	43	documentation
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	44	"
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	45	I provide terminal functionality, by interpreting data
1418 32a6131b304b documentation Claus Gittinger <cg@exept.de> parents: 1404 diff changeset	46	arriving from some stream (typically connected to a command interpreter
32a6131b304b documentation Claus Gittinger <cg@exept.de> parents: 1404 diff changeset	47	via a pty, or another system via a modem)
32a6131b304b documentation Claus Gittinger <cg@exept.de> parents: 1404 diff changeset	48	and sending my keyboard data to it.
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	49
1418 32a6131b304b documentation Claus Gittinger <cg@exept.de> parents: 1404 diff changeset	50	I am abstract providing general functionality
32a6131b304b documentation Claus Gittinger <cg@exept.de> parents: 1404 diff changeset	51	- concrete terminal characteristics are defined by concrete subclasses
32a6131b304b documentation Claus Gittinger <cg@exept.de> parents: 1404 diff changeset	52	(see VT52TerminalView, VT100TerminalView).
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	53
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	54	Concrete applications are:
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	55	consoles (VT100TerminalView),
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	56	telnet-views (see TelnetTool)
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	57	editor wrappers (if you like emacs/vi)
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	58
1418 32a6131b304b documentation Claus Gittinger <cg@exept.de> parents: 1404 diff changeset	59	<<although my class protocol includes common startup protocol
32a6131b304b documentation Claus Gittinger <cg@exept.de> parents: 1404 diff changeset	60	(to open a terminalView with a shell or on the output of a command),
32a6131b304b documentation Claus Gittinger <cg@exept.de> parents: 1404 diff changeset	61	I can be used as a widget within an application (Modem software).
32a6131b304b documentation Claus Gittinger <cg@exept.de> parents: 1404 diff changeset	62
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	63	[author:]
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	64	Claus Gittinger
915 f2c934efc4da checkin from browser Claus Gittinger <cg@exept.de> parents: 914 diff changeset	65
1341 3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	66	[instance variables:]
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	67	inStream stream where keyboard input is
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	68	sent to (connected to shells or commands input)
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	69
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	70	outStream stream where the output of the
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	71	shell or command arrives
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	72	(read here and displayed in the view)
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	73
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	74	readerProcess process which reads commands
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	75	output and sends it to the view
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	76
2204 145b2cc35537 * empty log message * Claus Gittinger <cg@exept.de> parents: 2202 diff changeset	77	[class variables]:
145b2cc35537 * empty log message * Claus Gittinger <cg@exept.de> parents: 2202 diff changeset	78	Debug := true trace incoming characters
145b2cc35537 * empty log message * Claus Gittinger <cg@exept.de> parents: 2202 diff changeset	79
145b2cc35537 * empty log message * Claus Gittinger <cg@exept.de> parents: 2202 diff changeset	80
915 f2c934efc4da checkin from browser Claus Gittinger <cg@exept.de> parents: 914 diff changeset	81	[start with:]
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	82	VT52TerminalView open
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	83	VT100TerminalView open
915 f2c934efc4da checkin from browser Claus Gittinger <cg@exept.de> parents: 914 diff changeset	84	VT52TerminalView openShell
919 07e8c17563a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 918 diff changeset	85	VT100TerminalView openShell
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	86	VT100TerminalView openOnCommand:'ls -l'
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	87	VT100TerminalView openOnCommand:'dir'
1418 32a6131b304b documentation Claus Gittinger <cg@exept.de> parents: 1404 diff changeset	88
32a6131b304b documentation Claus Gittinger <cg@exept.de> parents: 1404 diff changeset	89	[see also:]
32a6131b304b documentation Claus Gittinger <cg@exept.de> parents: 1404 diff changeset	90	TelNetTool
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	91	"
3758 59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	92	!
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	93
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	94	example
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	95	"
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	96	\|terminal in out inputLine\|
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	97
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	98	in := InternalPipeStream new.
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	99	out := InternalPipeStream new.
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	100
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	101	terminal := TerminalView openOnInput:in output:out.
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	102	terminal localEcho:true.
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	103	terminal inputTranslateCRToNL:true.
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	104
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	105	out nextPutLine:'Hello world - please type at me:'.
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	106
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	107	[
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	108	inputLine := in nextLine asString.
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	109	inputLine ~= '#exit' ifTrue:[
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	110	out nextPutLine:(Compiler evaluate:inputLine) printString.
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	111	].
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	112	inputLine = '#exit'
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	113	] whileFalse.
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	114
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	115	terminal topView destroy.
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	116	"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	117	! !
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	118
2207 d352a2f0a83a no changes on terminal device anymore penk parents: 2205 diff changeset	119	!TerminalView class methodsFor:'initialization'!
2205 b81118bb49da Debug Claus Gittinger <cg@exept.de> parents: 2204 diff changeset	120
b81118bb49da Debug Claus Gittinger <cg@exept.de> parents: 2204 diff changeset	121	initialize
2207 d352a2f0a83a no changes on terminal device anymore penk parents: 2205 diff changeset	122
2205 b81118bb49da Debug Claus Gittinger <cg@exept.de> parents: 2204 diff changeset	123	Debug := false.
2207 d352a2f0a83a no changes on terminal device anymore penk parents: 2205 diff changeset	124
d352a2f0a83a no changes on terminal device anymore penk parents: 2205 diff changeset	125	"
d352a2f0a83a no changes on terminal device anymore penk parents: 2205 diff changeset	126	self initialize
d352a2f0a83a no changes on terminal device anymore penk parents: 2205 diff changeset	127	"
2205 b81118bb49da Debug Claus Gittinger <cg@exept.de> parents: 2204 diff changeset	128	! !
b81118bb49da Debug Claus Gittinger <cg@exept.de> parents: 2204 diff changeset	129
1052 732fd3255894 checkin from browser Claus Gittinger <cg@exept.de> parents: 1021 diff changeset	130	!TerminalView class methodsFor:'defaults'!
732fd3255894 checkin from browser Claus Gittinger <cg@exept.de> parents: 1021 diff changeset	131
732fd3255894 checkin from browser Claus Gittinger <cg@exept.de> parents: 1021 diff changeset	132	defaultIcon
4030 98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	133	"This resource specification was automatically generated
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	134	by the ImageEditor of ST/X."
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	135
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	136	"Do not manually edit this!! If it is corrupted,
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	137	the ImageEditor may not be able to read the specification."
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	138
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	139	"
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	140	self defaultIcon inspect
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	141	ImageEditor openOnClass:self andSelector:#defaultIcon
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	142	Icon flushCachedIcons
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	143	"
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	144
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	145	<resource: #image>
4028 33d2fd47db90 set icon resource Stefan Vogel <sv@exept.de> parents: 3758 diff changeset	146
4030 98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	147	^Icon
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	148	constantNamed:'TerminalView class defaultIcon'
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	149	ifAbsentPut:[(Depth8Image new) width: 48; height: 36; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	150	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C@0LC@0LC@0LC@0LC@0LC@0LC@0LC@0LC@0L@@@@@@@@@
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	151	@@@@@@@@@@@@@@@@@@LDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PC@@@@@@@@@@@@@@@@@@@@@@@@@0PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PD
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	152	@ H@@@@@@@@@@@@@@@@@@@@@@0PD@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDDA@PD@ H@@@@@@@@@@@@@@@@@@@@@@0PD@PDA@PDA@PDA@PDA@PDA@PDA@PDA
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	153	@PDAA@PD@ HB@@@@@@@@@@@@@@@@@@@@@0PD@PDEAPDE@PDE@PTEAPTA@PTA@PDA@PDAA@PD@ HB@@@@@@@@@@@@@@@@@@@@@0PD@PDA@PDA@PDA@PDA@PDA
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	154	@PDA@PDA@PDAA@PD@ HB@ @@@@@@@@@@@@@@@@@@@0PD@PDEAPTE@PTE@PTEAPDA@PDA@PDA@PDAA@PD@ HB@ @@@@@@@@@@@@@@@@@@@0PD@PDA@PDA@PDA
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	155	@PDA@PDA@PDA@PDA@PDAA@PD@ HB@ H@@@@@@@@@@@@@@@@@@0PD@PDEAPTEAPTEAPTE@PTEAPTE@PDA@PDAA@PD@ HB@ H@@@@@@@@@@@@@@@@@@0PD@PDA
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	156	@PDA@PDA@PDA@PDA@PDA@PDA@PDAA@PD@ HB@ H@@@@@@@@@@@@@@@@@@0PD@PDEAPTAAPTEAPDEAPDAAPTE@PDA@PDAA@PD@ HB@ H@@@@@@@@@@@@@@@@@
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	157	@0PD@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDAA@PD@ HB@ H@@@@@@@@@@@@@@@@@@0PD@PDE@PDA@PDA@PDA@PDA@PDA@PDA@PDAA@PD@ HB@ H@@@@@@@@@
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	158	@@@@@@@@@0PD@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDAA@PD@ HB@ H@@@@@@@@@@@@@@@@@@0PD@PDEAPTE@PTAAPTE@PTA@PDA@PDA@PDAA@PD@ HB@ H@
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	159	@@@@@@@@@@@@@@@@@0PD@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDAA@PD@ HB@ H@@@@@@@@@@@@@@@@@@0PD@PDE@PTEAPTA@PDA@PDA@PDA@PDA@PDAA@PD
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	160	@ HB@ H@@@@@@@@@@@@@@@@@@0PDA@DA@PDA@PDA@PDA@PDA@PDA@PDA@PDDA@PD@ HB@ @@@@@@@@@@@@@@@@@@@0PDA@PDA@PDA@PDA@PDA@PDA@PDA@PD
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	161	A@PDA@PD@ HB@@@@@@@@@@@@@@@@@@@@@@LDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PB@ H@@@@@@@@@@@@@@@@@@@@@@@@@@@HB@ HB@ HB@ HB@ HB
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	162	@ HB@ HB@ HB@ HC@0LB@ @@@@@@@@@@@@@@@@@@@@@@@@@C@0LC@0LC@0LC@0LC@0LC@0LC@0LC@0LC@0HB@ @@@@@@@@@@@@@@@@@@@@@@@@HB@ HB@ HB
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	163	@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ @@@@@@@@@@@@@@@@@@@@@BA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PD@ HB@ LC@@LC@@@@@@@@@@@@@@@BA@PD
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	164	A@PDA@PDA@PDA@PDA@PD@@@@@@@@@@PD@ HB@ @@@0@@@0@@@@@@@@@@@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HBA@PD@ HB@@@@@@@C@@@@@@@@@@@B
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	165	A@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PB@ HB@ @@@@@@@@L@@@@@@@@@@@HDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@HB@@@@@@@@@ HB@ HB@@@@
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	166	@@@@@@HDA@TEAPTEAPTEAPTEAPTEAPTEAPTDA@PDA@HB@@@@@ HB@ HC@0LB@@@@@@@@@ PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PD@ H@@@@B@ PDA@HB
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	167	@0LB@@@@@@@BA@PEAPTEAPTEAPTEAPTEAPTEAPTEAPPDA@PB@ @@@@@BA@PDA@PC@0H@@@@@@@HDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@HB@@@@@@@B
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	168	@0LC@0LB@ @@@@@@@@HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ H@@@@@@@@B@ HB@ HB@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	169	@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 40 58 10 80 78 80 140 140 140 196 194 190 255 255 255]; mask:((ImageMask new) width: 48; height: 36; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	170	@@@@@@@@@O???>@@@_????@@@?????0@@?????0@@?????8@@?????8@@?????<@@?????<@@?????>@@?????>@@?????>@@?????>@@?????>@@?????>@
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	171	@?????>@@?????>@@?????>@@?????>@@?????<@@?????8@@_????0@@C????<@@A????<@@C????<@@O?????X@O????<$@?????8HA????? PC????8G8
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	172	C????8?8G????1?8O????!!?0_????A? _???>A?@@@@@@@@@') ; yourself); yourself]
1317 dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	173	!
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	174
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	175	defaultNumberOfColumns
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	176	^ 80
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	177
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	178	"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	179	"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	180	!
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	181
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	182	defaultNumberOfLines
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	183	^ 25
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	184
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	185	"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	186	"Modified: / 4.8.1998 / 17:48:31 / cg"
1052 732fd3255894 checkin from browser Claus Gittinger <cg@exept.de> parents: 1021 diff changeset	187	! !
732fd3255894 checkin from browser Claus Gittinger <cg@exept.de> parents: 1021 diff changeset	188
972 b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	189	!TerminalView class methodsFor:'opening'!
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	190
928 f9a117cb2bcc checkin from browser Claus Gittinger <cg@exept.de> parents: 926 diff changeset	191	open
985 275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	192	^ self openShell
928 f9a117cb2bcc checkin from browser Claus Gittinger <cg@exept.de> parents: 926 diff changeset	193
f9a117cb2bcc checkin from browser Claus Gittinger <cg@exept.de> parents: 926 diff changeset	194	"
f9a117cb2bcc checkin from browser Claus Gittinger <cg@exept.de> parents: 926 diff changeset	195	VT100TerminalView open
f9a117cb2bcc checkin from browser Claus Gittinger <cg@exept.de> parents: 926 diff changeset	196	"
f9a117cb2bcc checkin from browser Claus Gittinger <cg@exept.de> parents: 926 diff changeset	197
f9a117cb2bcc checkin from browser Claus Gittinger <cg@exept.de> parents: 926 diff changeset	198	"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	199	"Modified: / 9.7.1998 / 17:55:37 / cg"
928 f9a117cb2bcc checkin from browser Claus Gittinger <cg@exept.de> parents: 926 diff changeset	200	!
f9a117cb2bcc checkin from browser Claus Gittinger <cg@exept.de> parents: 926 diff changeset	201
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	202	openDummy
972 b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	203	"for testing purposes only - opens a dummy tty-view, which simply
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	204	echoes whatever is typed in"
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	205
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	206	\|in vt52\|
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	207
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	208	vt52 := self new.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	209	in := ForwardingStream on:''.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	210
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	211	in fwdStream:vt52.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	212	vt52 inStream:in.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	213	vt52 outStream:in.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	214	vt52 open
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	215
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	216	"
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	217	self openDummy
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	218	"
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	219	!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	220
985 275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	221	openOnCommand:aCommandString
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	222	"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	223	(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	224
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	225	^ self openOnCommand:aCommandString onExit:[]
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	226
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	227	"
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	228	VT100TerminalView openOnCommand:'ls -l'
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	229	"
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	230
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	231	"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	232	"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	233	!
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	234
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	235	openOnCommand:aCommandString onExit:aBlock
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	236	"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	237	(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	238	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	239
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	240	\|in top scr vt52\|
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	241
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	242	top := StandardSystemView new.
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	243	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	244	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	245	vt52 := scr scrolledView.
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	246
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	247	vt52 startCommand:aCommandString.
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	248	vt52 shellTerminateAction:[
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	249	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	250	].
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	251
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	252	top extent:(scr preferredExtent).
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	253	top label:('executing: "' , aCommandString , '"').
1014 c0fdd428990c nice icon. Claus Gittinger <cg@exept.de> parents: 1009 diff changeset	254	top iconLabel:'command'.
1052 732fd3255894 checkin from browser Claus Gittinger <cg@exept.de> parents: 1021 diff changeset	255	top icon:(self defaultIcon).
985 275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	256	top open.
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	257
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	258	^ vt52
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	259
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	260	"
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	261	VT100TerminalView openOnCommand:'ls -lR'
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	262	VT100TerminalView openOnCommand:'vi /etc/hosts'
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	263	"
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	264
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	265	"Created: / 9.7.1998 / 17:54:34 / cg"
1052 732fd3255894 checkin from browser Claus Gittinger <cg@exept.de> parents: 1021 diff changeset	266	"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	267	!
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	268
1014 c0fdd428990c nice icon. Claus Gittinger <cg@exept.de> parents: 1009 diff changeset	269	openOnInput:inStream output:outStream
972 b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	270	"open a terminalView on the given streams (which are typically some
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	271	kind of socket or pty).
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	272	Keys pressed are sent to inStream, text appearing
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	273	from outStream is displayed in the terminal view.
972 b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	274	This can be used to implement things like rlogin
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	275	or telnet views (if connected to a modem, a com-program can also be
972 b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	276	implemented this way)."
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	277
2078 96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	278	\|top scr\|
972 b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	279
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	280	top := StandardSystemView new.
2078 96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	281	scr := self openOnInput:inStream output:outStream in:top.
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	282
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	283	top extent:(scr preferredExtent).
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	284	top label:'shell'.
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	285	top iconLabel:'shell'.
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	286	top icon:(self defaultIcon).
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	287	top open.
3758 59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	288	^ scr
2078 96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	289
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	290	"Modified: / 5.5.1999 / 17:25:59 / cg"
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	291	!
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	292
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	293	openOnInput:inStream output:outStream in:aView
2778 796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	294	"open a terminalView on the given streams
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	295	(which are typically some kind of socket or pty).
2078 96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	296	Keys pressed are sent to inStream, text appearing
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	297	from outStream is displayed in the terminal view.
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	298	This can be used to implement things like rlogin
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	299	or telnet views (if connected to a modem, a com-program can also be
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	300	implemented this way)."
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	301
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	302	\|scr vt\|
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	303
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	304	scr := ScrollableView for:self in:aView.
972 b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	305	scr origin:0.0@0.0 corner:1.0@1.0.
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	306	vt := scr scrolledView.
972 b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	307
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	308	vt inStream:inStream.
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	309	vt outStream:outStream.
2778 796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	310	vt startReaderProcessWhenVisible.
972 b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	311
2078 96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	312	^ scr
974 f47cf9925f7a checkin from browser Claus Gittinger <cg@exept.de> parents: 972 diff changeset	313
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	314	"Modified: / 5.5.1999 / 17:25:59 / cg"
972 b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	315	!
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	316
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	317	openShell
972 b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	318	"start a shell on a pseudo-TTY, open a terminalView on it
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	319	(i.e. this is kind of an xterm)"
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	320
997 c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	321	^ self openShellIn:nil
992 2f4282cab560 added startIn:someDir. Claus Gittinger <cg@exept.de> parents: 985 diff changeset	322
2f4282cab560 added startIn:someDir. Claus Gittinger <cg@exept.de> parents: 985 diff changeset	323	"
2f4282cab560 added startIn:someDir. Claus Gittinger <cg@exept.de> parents: 985 diff changeset	324	VT100TerminalView openShell
2f4282cab560 added startIn:someDir. Claus Gittinger <cg@exept.de> parents: 985 diff changeset	325	"
2f4282cab560 added startIn:someDir. Claus Gittinger <cg@exept.de> parents: 985 diff changeset	326
997 c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	327	"Modified: / 21.7.1998 / 18:24:55 / cg"
992 2f4282cab560 added startIn:someDir. Claus Gittinger <cg@exept.de> parents: 985 diff changeset	328	!
2f4282cab560 added startIn:someDir. Claus Gittinger <cg@exept.de> parents: 985 diff changeset	329
2f4282cab560 added startIn:someDir. Claus Gittinger <cg@exept.de> parents: 985 diff changeset	330	openShellIn:aDirectory
2f4282cab560 added startIn:someDir. Claus Gittinger <cg@exept.de> parents: 985 diff changeset	331	"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	332	(i.e. this is kind of an xterm)"
2f4282cab560 added startIn:someDir. Claus Gittinger <cg@exept.de> parents: 985 diff changeset	333
2163 a54248bd5ac6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2155 diff changeset	334	\| top scr vt lbl\|
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	335
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	336	top := StandardSystemView new.
948 b93aba7db15d checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	337	scr := ScrollableView for:self in:top.
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	338	scr origin:0.0@0.0 corner:1.0@1.0.
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	339	vt := scr scrolledView.
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	340	vt startShellIn:aDirectory.
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	341	vt shellTerminateAction:[top destroy].
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	342
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	343	lbl := OperatingSystem isUNIXlike ifTrue:['shell'] ifFalse:['dos'].
940 16c955286510 checkin from browser Claus Gittinger <cg@exept.de> parents: 938 diff changeset	344	top extent:(scr preferredExtent).
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	345	top label:lbl.
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	346	top iconLabel:lbl.
1052 732fd3255894 checkin from browser Claus Gittinger <cg@exept.de> parents: 1021 diff changeset	347	top icon:(self defaultIcon).
985 275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	348	top open.
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	349
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	350	^ vt
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	351
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	352	"
992 2f4282cab560 added startIn:someDir. Claus Gittinger <cg@exept.de> parents: 985 diff changeset	353	VT100TerminalView openShellIn:'/etc'
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	354	"
946 45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	355
992 2f4282cab560 added startIn:someDir. Claus Gittinger <cg@exept.de> parents: 985 diff changeset	356	"Created: / 20.7.1998 / 18:28:15 / cg"
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	357	"Modified: / 5.5.1999 / 17:27:10 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	358	! !
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	359
972 b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	360	!TerminalView class methodsFor:'queries'!
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	361
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	362	isVisualStartable
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	363	"returns whether this application class can be started via #open"
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	364
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	365	self == TerminalView ifTrue:[^ false].
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	366	^ true
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	367
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	368	"Created: / 10.6.1998 / 15:48:43 / cg"
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	369	! !
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	370
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	371	!TerminalView methodsFor:'accessing'!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	372
2076 60558bc12d09 public access to filterStream; Michael Beyl <mb@exept.de> parents: 2075 diff changeset	373	filterStream:something
60558bc12d09 public access to filterStream; Michael Beyl <mb@exept.de> parents: 2075 diff changeset	374	"set a filter stream; if not nil, it gets all incoming data via nextPutAll:.
60558bc12d09 public access to filterStream; Michael Beyl <mb@exept.de> parents: 2075 diff changeset	375	(added to allow saving incoming data to a file, but can also be used to catch/filter/lookAt
60558bc12d09 public access to filterStream; Michael Beyl <mb@exept.de> parents: 2075 diff changeset	376	incoming data by some other program)"
60558bc12d09 public access to filterStream; Michael Beyl <mb@exept.de> parents: 2075 diff changeset	377
60558bc12d09 public access to filterStream; Michael Beyl <mb@exept.de> parents: 2075 diff changeset	378	filterStream := something.
60558bc12d09 public access to filterStream; Michael Beyl <mb@exept.de> parents: 2075 diff changeset	379
60558bc12d09 public access to filterStream; Michael Beyl <mb@exept.de> parents: 2075 diff changeset	380	"Created: / 28.1.2002 / 20:56:04 / micha"
60558bc12d09 public access to filterStream; Michael Beyl <mb@exept.de> parents: 2075 diff changeset	381	"Modified: / 28.1.2002 / 20:56:11 / micha"
60558bc12d09 public access to filterStream; Michael Beyl <mb@exept.de> parents: 2075 diff changeset	382	!
60558bc12d09 public access to filterStream; Michael Beyl <mb@exept.de> parents: 2075 diff changeset	383
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	384	inStream
2954 d9d43dc5d4a5 coments Claus Gittinger <cg@exept.de> parents: 2810 diff changeset	385	"set the stream, which gets all input data (i.e. keyboard input)"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	386
2075 ac7da2b56ba6 upper case menu Claus Gittinger <cg@exept.de> parents: 1833 diff changeset	387	^ inStream
ac7da2b56ba6 upper case menu Claus Gittinger <cg@exept.de> parents: 1833 diff changeset	388	!
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	389
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	390	inStream:something
2954 d9d43dc5d4a5 coments Claus Gittinger <cg@exept.de> parents: 2810 diff changeset	391	"return the stream, which gets all input data (i.e. keyboard input)"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	392
2075 ac7da2b56ba6 upper case menu Claus Gittinger <cg@exept.de> parents: 1833 diff changeset	393	inStream := something.
ac7da2b56ba6 upper case menu Claus Gittinger <cg@exept.de> parents: 1833 diff changeset	394	!
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	395
2078 96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	396	inputTranslateCRToNL
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	397	^ inputTranslateCRToNL
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	398	!
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	399
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	400	inputTranslateCRToNL:something
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	401	inputTranslateCRToNL := something.
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	402	!
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	403
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	404	localEcho:aBoolean
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	405	"enable/disable local echo"
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	406
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	407	localEcho := aBoolean
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	408
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	409	"Created: / 5.5.1999 / 17:53:16 / cg"
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	410	!
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	411
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	412	outStream
2954 d9d43dc5d4a5 coments Claus Gittinger <cg@exept.de> parents: 2810 diff changeset	413	"return the stream, which is used to present data in the view (i.e. shell output)"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	414
2075 ac7da2b56ba6 upper case menu Claus Gittinger <cg@exept.de> parents: 1833 diff changeset	415	^ outStream
ac7da2b56ba6 upper case menu Claus Gittinger <cg@exept.de> parents: 1833 diff changeset	416	!
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	417
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	418	outStream:something
2954 d9d43dc5d4a5 coments Claus Gittinger <cg@exept.de> parents: 2810 diff changeset	419	"set the stream, which is used to present data in the view (i.e. shell output)"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	420
2075 ac7da2b56ba6 upper case menu Claus Gittinger <cg@exept.de> parents: 1833 diff changeset	421	outStream := something.
ac7da2b56ba6 upper case menu Claus Gittinger <cg@exept.de> parents: 1833 diff changeset	422	!
946 45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	423
1004 8742d3af41a4 readerProcess access tz parents: 1000 diff changeset	424	readerProcess
8742d3af41a4 readerProcess access tz parents: 1000 diff changeset	425	^ readerProcess
8742d3af41a4 readerProcess access tz parents: 1000 diff changeset	426	!
8742d3af41a4 readerProcess access tz parents: 1000 diff changeset	427
946 45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	428	shellTerminateAction:aBlock
45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	429	"set the block which is evaluated when the shell terminates.
45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	430	Can be used to close down the application in this case."
45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	431
45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	432	shellTerminateAction := aBlock.
45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	433
45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	434	"Created: / 12.6.1998 / 17:02:58 / cg"
2076 60558bc12d09 public access to filterStream; Michael Beyl <mb@exept.de> parents: 2075 diff changeset	435	!
60558bc12d09 public access to filterStream; Michael Beyl <mb@exept.de> parents: 2075 diff changeset	436
60558bc12d09 public access to filterStream; Michael Beyl <mb@exept.de> parents: 2075 diff changeset	437	translateNLToCRNL
60558bc12d09 public access to filterStream; Michael Beyl <mb@exept.de> parents: 2075 diff changeset	438	^ translateNLToCRNL
60558bc12d09 public access to filterStream; Michael Beyl <mb@exept.de> parents: 2075 diff changeset	439
60558bc12d09 public access to filterStream; Michael Beyl <mb@exept.de> parents: 2075 diff changeset	440	"Created: / 28.1.2002 / 20:32:10 / micha"
60558bc12d09 public access to filterStream; Michael Beyl <mb@exept.de> parents: 2075 diff changeset	441	!
60558bc12d09 public access to filterStream; Michael Beyl <mb@exept.de> parents: 2075 diff changeset	442
60558bc12d09 public access to filterStream; Michael Beyl <mb@exept.de> parents: 2075 diff changeset	443	translateNLToCRNL:something
60558bc12d09 public access to filterStream; Michael Beyl <mb@exept.de> parents: 2075 diff changeset	444	translateNLToCRNL := something.
60558bc12d09 public access to filterStream; Michael Beyl <mb@exept.de> parents: 2075 diff changeset	445
60558bc12d09 public access to filterStream; Michael Beyl <mb@exept.de> parents: 2075 diff changeset	446	"Created: / 28.1.2002 / 20:32:10 / micha"
946 45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	447	! !
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	448
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	449	!TerminalView methodsFor:'cursor handling'!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	450
933 de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	451	cursorDown:n
de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	452	cursorLine + n > list size ifTrue:[
de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	453	list := list , (Array new:n).
de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	454	self textChanged.
de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	455	].
de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	456	super cursorDown:n
de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	457
de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	458	"Modified: / 10.6.1998 / 17:18:41 / cg"
de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	459	"Created: / 10.6.1998 / 17:18:50 / cg"
de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	460	!
de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	461
968 1cb313e6635b do not allow cursor movement (via buttonPress). Claus Gittinger <cg@exept.de> parents: 964 diff changeset	462	cursorMovementAllowed
1cb313e6635b do not allow cursor movement (via buttonPress). Claus Gittinger <cg@exept.de> parents: 964 diff changeset	463	"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	464	(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	465	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	466	cursor positioning escape sequences arriving from the
1cb313e6635b do not allow cursor movement (via buttonPress). Claus Gittinger <cg@exept.de> parents: 964 diff changeset	467	stream."
1cb313e6635b do not allow cursor movement (via buttonPress). Claus Gittinger <cg@exept.de> parents: 964 diff changeset	468
1cb313e6635b do not allow cursor movement (via buttonPress). Claus Gittinger <cg@exept.de> parents: 964 diff changeset	469	^ false
1cb313e6635b do not allow cursor movement (via buttonPress). Claus Gittinger <cg@exept.de> parents: 964 diff changeset	470
1cb313e6635b do not allow cursor movement (via buttonPress). Claus Gittinger <cg@exept.de> parents: 964 diff changeset	471	"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	472	!
1cb313e6635b do not allow cursor movement (via buttonPress). Claus Gittinger <cg@exept.de> parents: 964 diff changeset	473
2169 132759c9c32c numberOfTerminalCols query Claus Gittinger <cg@exept.de> parents: 2163 diff changeset	474	numberOfTerminalCols
132759c9c32c numberOfTerminalCols query Claus Gittinger <cg@exept.de> parents: 2163 diff changeset	475	^ numberOfColumns
132759c9c32c numberOfTerminalCols query Claus Gittinger <cg@exept.de> parents: 2163 diff changeset	476	!
132759c9c32c numberOfTerminalCols query Claus Gittinger <cg@exept.de> parents: 2163 diff changeset	477
1354 94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	478	numberOfTerminalColumns
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	479	^ numberOfColumns
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	480
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	481	"Created: / 5.5.1999 / 11:46:25 / cg"
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	482	!
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	483
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	484	numberOfTerminalLines
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	485	"/ be careful - this is NOT called numberOfLines,
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	486	"/ since that would interfere with numberOfLines as defined
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	487	"/ in ListView ...
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	488	"/ ... one of the bad sides of subclassing
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	489
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	490	^ numberOfLines
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	491
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	492	"Created: / 5.5.1999 / 11:46:18 / cg"
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	493	"Modified: / 5.5.1999 / 11:47:24 / cg"
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	494	!
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	495
1077 49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	496	restoreCursor
49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	497	\|l c\|
49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	498
2192 5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	499	savedCursor isNil ifTrue:[
5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	500	l := c := 1.
5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	501	] ifFalse:[
5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	502	l := savedCursor y.
5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	503	c := savedCursor x.
5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	504	].
1077 49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	505	self cursorLine:l col:c.
49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	506
49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	507	"Created: / 14.8.1998 / 13:49:24 / cg"
49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	508	!
49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	509
49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	510	saveCursor
49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	511	savedCursor := cursorCol @ cursorLine
49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	512
49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	513	"Created: / 14.8.1998 / 13:48:45 / cg"
49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	514	"Modified: / 14.8.1998 / 13:49:32 / cg"
49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	515	!
49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	516
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	517	validateCursorCol:col inLine:line
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	518	"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	519	Here, the linelength is enforced"
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	520
2268 e3b57c072b89 wrap line at end penk parents: 2207 diff changeset	521	col > numberOfColumns ifTrue:[
e3b57c072b89 wrap line at end penk parents: 2207 diff changeset	522	autoWrapFlag ifTrue:[
e3b57c072b89 wrap line at end penk parents: 2207 diff changeset	523	self endEntry.
e3b57c072b89 wrap line at end penk parents: 2207 diff changeset	524	self cursorLine:(self cursorLine + 1) col:(col-numberOfColumns).
e3b57c072b89 wrap line at end penk parents: 2207 diff changeset	525	^ 1.
e3b57c072b89 wrap line at end penk parents: 2207 diff changeset	526	].
e3b57c072b89 wrap line at end penk parents: 2207 diff changeset	527	].
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	528	^ col min:numberOfColumns
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	529
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	530	"Modified: / 10.6.1998 / 15:09:41 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	531	! !
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	532
1358 ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	533	!TerminalView methodsFor:'defaults'!
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	534
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	535	anyKeyCodes
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	536	^ IdentityDictionary withKeysAndValues:
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	537	#(
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	538	#Escape '\e'
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	539	#BackSpace '\b'
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	540	#Return '\r'
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	541	#Delete '\0177'
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	542	#Tab '\t'
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	543	)
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	544
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	545	"Created: / 5.5.1999 / 15:00:37 / cg"
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	546	! !
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	547
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	548	!TerminalView methodsFor:'event handling'!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	549
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	550	computeNumberOfLinesShown
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	551	\|prevNLines prevNCols\|
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	552
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	553	prevNCols := (innerWidth // font width).
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	554	prevNLines := nFullLinesShown.
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	555
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	556	super computeNumberOfLinesShown.
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	557
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	558	((innerWidth // font width) ~~ prevNCols
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	559	or:[prevNLines ~~ nFullLinesShown]) ifTrue:[
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	560	self defineWindowSize.
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	561	]
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	562
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	563	"Created: / 12.6.1998 / 22:34:39 / cg"
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	564	"Modified: / 20.6.1998 / 19:45:28 / cg"
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	565	!
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	566
1359 c571a792c5b0 resize if font changes Claus Gittinger <cg@exept.de> parents: 1358 diff changeset	567	contentsChanged
c571a792c5b0 resize if font changes Claus Gittinger <cg@exept.de> parents: 1358 diff changeset	568	super contentsChanged.
2594 63c4f60955be no defineWindowSize on contentsChanged penk parents: 2577 diff changeset	569	"/ self defineWindowSize.
1359 c571a792c5b0 resize if font changes Claus Gittinger <cg@exept.de> parents: 1358 diff changeset	570
c571a792c5b0 resize if font changes Claus Gittinger <cg@exept.de> parents: 1358 diff changeset	571	"Modified: / 11.6.1998 / 22:51:48 / cg"
c571a792c5b0 resize if font changes Claus Gittinger <cg@exept.de> parents: 1358 diff changeset	572	"Created: / 5.5.1999 / 16:30:15 / cg"
c571a792c5b0 resize if font changes Claus Gittinger <cg@exept.de> parents: 1358 diff changeset	573	!
c571a792c5b0 resize if font changes Claus Gittinger <cg@exept.de> parents: 1358 diff changeset	574
943 9eea2d5095b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 942 diff changeset	575	defineWindowSize
2192 5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	576	\| delta prevNumCols prevNumLines\|
1359 c571a792c5b0 resize if font changes Claus Gittinger <cg@exept.de> parents: 1358 diff changeset	577
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	578	"/self halt.
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	579	"/self realized ifFalse:[
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	580	"/ "/ iconfified
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	581	"/ ^ self
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	582	"/].
1359 c571a792c5b0 resize if font changes Claus Gittinger <cg@exept.de> parents: 1358 diff changeset	583	prevNumCols := numberOfColumns.
c571a792c5b0 resize if font changes Claus Gittinger <cg@exept.de> parents: 1358 diff changeset	584	prevNumLines := numberOfLines.
1161 42796d8e6544 handle 'cannot fork' case. Claus Gittinger <cg@exept.de> parents: 1077 diff changeset	585
1354 94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	586	numberOfColumns := (innerWidth // font width).
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	587	delta := numberOfLines - rangeEndLine.
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	588	numberOfLines := nFullLinesShown.
1359 c571a792c5b0 resize if font changes Claus Gittinger <cg@exept.de> parents: 1358 diff changeset	589	((prevNumCols == numberOfColumns)
c571a792c5b0 resize if font changes Claus Gittinger <cg@exept.de> parents: 1358 diff changeset	590	and:[prevNumLines == numberOfLines]) ifTrue:[
c571a792c5b0 resize if font changes Claus Gittinger <cg@exept.de> parents: 1358 diff changeset	591	^ self
c571a792c5b0 resize if font changes Claus Gittinger <cg@exept.de> parents: 1358 diff changeset	592	].
c571a792c5b0 resize if font changes Claus Gittinger <cg@exept.de> parents: 1358 diff changeset	593
1354 94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	594	rangeEndLine notNil ifTrue:[
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	595	rangeEndLine := numberOfLines - delta.
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	596	].
1341 3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	597
1359 c571a792c5b0 resize if font changes Claus Gittinger <cg@exept.de> parents: 1358 diff changeset	598	"/ any idea, how to do this under windows ?
c571a792c5b0 resize if font changes Claus Gittinger <cg@exept.de> parents: 1358 diff changeset	599
1354 94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	600	OperatingSystem isUNIXlike ifTrue:[
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	601	"/
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	602	"/ tell the pty;
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	603	"/ tell the shell;
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	604	"/
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	605	(inStream notNil
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	606	and:[inStream isExternalStream
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	607	and:[inStream isOpen]]) ifTrue:[
2192 5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	608	Debug ifTrue:[
5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	609	Transcript showCR:'VT100: changed len to ', numberOfLines printString.
5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	610	].
1354 94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	611	(OperatingSystem
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	612	setWindowSizeOnFileDescriptor:inStream fileDescriptor
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	613	width:numberOfColumns
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	614	height:numberOfLines) ifFalse:[
2192 5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	615	Debug ifTrue:[
5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	616	Transcript showCR:'VT100: cannot change windowSize'.
5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	617	].
1354 94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	618	].
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	619
964 43d6e33a4240 keep cursor off while more input is arriving. Claus Gittinger <cg@exept.de> parents: 958 diff changeset	620	].
1354 94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	621	shellPid notNil ifTrue:[
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	622	OperatingSystem sendSignal:OperatingSystem sigWINCH to:shellPid
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	623	]
943 9eea2d5095b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 942 diff changeset	624	].
9eea2d5095b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 942 diff changeset	625
9eea2d5095b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 942 diff changeset	626	"Created: / 11.6.1998 / 22:51:39 / cg"
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	627	"Modified: / 5.5.1999 / 19:45:09 / cg"
943 9eea2d5095b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 942 diff changeset	628	!
9eea2d5095b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 942 diff changeset	629
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	630	keyPress:aKey x:x y:y
4164 7ed0d0bbc7cd class: TerminalView Claus Gittinger <cg@exept.de> parents: 4105 diff changeset	631	<resource: #keyboard (#Control #Control_L #Control_R
7ed0d0bbc7cd class: TerminalView Claus Gittinger <cg@exept.de> parents: 4105 diff changeset	632	#Shift #Shift_L #Shift_R
7ed0d0bbc7cd class: TerminalView Claus Gittinger <cg@exept.de> parents: 4105 diff changeset	633	#Alt #Alt_L #Alt_R
7ed0d0bbc7cd class: TerminalView Claus Gittinger <cg@exept.de> parents: 4105 diff changeset	634	#Cmd #Cmd_L #Cmd_R
7ed0d0bbc7cd class: TerminalView Claus Gittinger <cg@exept.de> parents: 4105 diff changeset	635	#Meta #Meta_L #Meta_R
7ed0d0bbc7cd class: TerminalView Claus Gittinger <cg@exept.de> parents: 4105 diff changeset	636	#Return)>
7ed0d0bbc7cd class: TerminalView Claus Gittinger <cg@exept.de> parents: 4105 diff changeset	637
1358 ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	638	\|rest event rawKey seq\|
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	639
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	640	"/ somewhat complicated, since some characters
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	641	"/ should go untranslated (CTRL-key),
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	642	"/ even if defined as function keys.
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	643
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	644	inStream isNil ifTrue:[^ self].
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	645
2192 5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	646	Debug ifTrue:[
5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	647	Transcript showCR:'----'; show:'keyPress:' ; showCR:aKey printString.
5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	648	].
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	649
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	650	aKey isCharacter ifTrue:[
2466 f986a03f160f deselect on regular key Claus Gittinger <cg@exept.de> parents: 2450 diff changeset	651	self deselect.
f986a03f160f deselect on regular key Claus Gittinger <cg@exept.de> parents: 2450 diff changeset	652
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	653	"/ send it down to inStream ...
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	654	inStream nextPut:aKey.
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	655	localEcho ifTrue:[
3758 59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	656	self nextPut:aKey.
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	657	self flush.
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	658	].
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	659	^ self
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	660	].
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	661
1366 137876addbea checkin from browser Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	662	(#(Control Control_L Control_R
137876addbea checkin from browser Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	663	Shift Shift_L Shift_R
137876addbea checkin from browser Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	664	Alt Alt_L Alt_R
137876addbea checkin from browser Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	665	Cmd Cmd_L Cmd_R
137876addbea checkin from browser Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	666	Meta Meta_L Meta_R) includes:aKey) ifTrue:[
137876addbea checkin from browser Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	667	^ self
137876addbea checkin from browser Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	668	].
137876addbea checkin from browser Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	669
1358 ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	670	"/
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	671	"/ common translations (Tab, Backspace, F-keys etc.)
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	672	"/
2078 96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	673	(aKey == #Return
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	674	and:[inputTranslateCRToNL]) ifTrue:[
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	675	seq := '\n'.
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	676	] ifFalse:[
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	677	seq := kbdSequences at:aKey ifAbsent:nil.
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	678	].
3758 59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	679
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	680	seq notNil ifTrue:[
2192 5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	681	Debug ifTrue:[
5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	682	Transcript show:'->' ; showCR:seq storeString.
5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	683	].
4105 a77be3c32b6d changed: Claus Gittinger <cg@exept.de> parents: 4030 diff changeset	684	seq := seq withoutCEscapes.
2078 96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	685
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	686	inStream nextPutAll:seq.
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	687	localEcho ifTrue:[
3758 59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	688	seq do:[:k \| self nextPut:k].
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	689	self flush.
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	690	].
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	691	^ self
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	692	].
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	693
1358 ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	694	self sensor ctrlDown ifTrue:[
1366 137876addbea checkin from browser Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	695	(aKey startsWith:'Ctrl') ifTrue:[
137876addbea checkin from browser Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	696	rawKey := aKey
137876addbea checkin from browser Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	697	] ifFalse:[
137876addbea checkin from browser Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	698	"/ already translated - undo it.
137876addbea checkin from browser Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	699
137876addbea checkin from browser Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	700	event := WindowGroup lastEventQuerySignal query.
137876addbea checkin from browser Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	701	rawKey := event rawKey.
137876addbea checkin from browser Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	702	rawKey isCharacter ifTrue:[
137876addbea checkin from browser Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	703	rawKey := 'Ctrl' , rawKey.
137876addbea checkin from browser Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	704	]
1360 fb843effdaea checkin from browser Claus Gittinger <cg@exept.de> parents: 1359 diff changeset	705	]
1358 ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	706	] ifFalse:[
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	707	rawKey := self keyboardMap keyAtValue:aKey ifAbsent:aKey.
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	708	].
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	709
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	710	"/
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	711	"/ care for function-keys, which are mapped to Ctrl-x;
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	712	"/
2192 5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	713	Debug ifTrue:[
5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	714	Transcript show:'raw ->' ; showCR:rawKey storeString.
5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	715	].
1358 ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	716
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	717	seq := kbdSequences at:rawKey ifAbsent:nil.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	718	seq notNil ifTrue:[
3758 59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	719	Debug ifTrue:[
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	720	Transcript show:'->' ; showCR:seq storeString.
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	721	].
4105 a77be3c32b6d changed: Claus Gittinger <cg@exept.de> parents: 4030 diff changeset	722	inStream nextPutAll:(seq withoutCEscapes).
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	723	^ self
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	724	].
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	725
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	726	(rawKey startsWith:'Ctrl') ifTrue:[
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	727	rest := rawKey copyFrom:5.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	728	rest size == 1 ifTrue:[
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	729	rest := rest at:1.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	730	(rest >= $a and:[rest <= $z]) ifTrue:[
2192 5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	731	Debug ifTrue:[
5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	732	Transcript show:'->' ; showCR:(Character value:(rest - $a + 1)) storeString.
5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	733	].
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	734	inStream nextPut:(Character value:(rest - $a + 1)).
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	735	^ self
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	736	].
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	737	(rest >= $A and:[rest <= $Z]) ifTrue:[
2192 5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	738	Debug ifTrue:[
5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	739	Transcript show:'->' ; showCR:(Character value:(rest - $a + 1)) storeString.
5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	740	].
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	741	inStream nextPut:(Character value:(rest - $A + 1)).
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	742	^ self
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	743	].
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	744	]
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	745	].
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	746
934 b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	747	(rawKey startsWith:'Control') ifTrue:[
b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	748	^ self
b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	749	].
b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	750	(rawKey startsWith:'Shift') ifTrue:[
b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	751	^ self
b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	752	].
b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	753	(rawKey startsWith:'Alt') ifTrue:[
b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	754	^ self
b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	755	].
b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	756	(rawKey startsWith:'Cmd') ifTrue:[
950 9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	757	^ super keyPress:aKey x:x y:y
934 b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	758	].
1345 cd0939600467 checkin from browser Claus Gittinger <cg@exept.de> parents: 1343 diff changeset	759	(rawKey = 'Ctrl') ifTrue:[
cd0939600467 checkin from browser Claus Gittinger <cg@exept.de> parents: 1343 diff changeset	760	^ self
cd0939600467 checkin from browser Claus Gittinger <cg@exept.de> parents: 1343 diff changeset	761	].
934 b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	762
2192 5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	763	Debug ifTrue:[
5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	764	Transcript show:'unhandled key: '; showCR:rawKey.
5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	765	].
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	766
4105 a77be3c32b6d changed: Claus Gittinger <cg@exept.de> parents: 4030 diff changeset	767	"Modified: / 25-01-2012 / 10:43:06 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	768	!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	769
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	770	shellTerminated
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	771	"shell has terminated"
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	772
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	773	"/Delay waitForSeconds:10.
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	774	[self readAnyAvailableData > 0] whileTrue:[Delay waitForSeconds:0.1].
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	775	"/
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	776	self closeDownShell.
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	777
946 45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	778	shellTerminateAction notNil ifTrue:[
45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	779	shellTerminateAction value
45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	780	] ifFalse:[
45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	781	"/ may be removed ...
45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	782	self warn:'shell terminated'.
45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	783	]
45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	784
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	785	"Modified: / 5.5.1999 / 18:43:22 / cg"
942 1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	786	!
1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	787
1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	788	sizeChanged:how
1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	789	super sizeChanged:how.
943 9eea2d5095b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 942 diff changeset	790	self defineWindowSize.
942 1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	791
943 9eea2d5095b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 942 diff changeset	792	"Modified: / 11.6.1998 / 22:51:48 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	793	! !
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	794
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	795	!TerminalView methodsFor:'functions'!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	796
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	797	doBackspace
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	798	self cursorLeft.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	799	self replaceCharAtCursor:(Character space).
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	800	self cursorLeft.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	801
931 3dfdf1f7bd5d checkin from browser Claus Gittinger <cg@exept.de> parents: 929 diff changeset	802	"Modified: / 10.6.1998 / 17:09:12 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	803	!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	804
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	805	doClearDisplay
1420 7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	806	"clear everything"
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	807
1000 879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	808	self doClearEntireScreen.
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	809
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	810	"Modified: / 21.7.1998 / 20:05:35 / cg"
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	811	!
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	812
1420 7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	813	doClearEntireLine
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	814	"clear the cursor line. cursor position remains unchanged"
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	815
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	816	self at:cursorLine put:''
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	817	!
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	818
1000 879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	819	doClearEntireScreen
1420 7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	820	"clear everything"
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	821
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	822	firstLineShown to:(list size) do:[:l \|
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	823	self at:l put:''
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	824	].
922 c8373b8c7986 * empty log message * Claus Gittinger <cg@exept.de> parents: 921 diff changeset	825
1000 879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	826	"Modified: / 21.7.1998 / 20:00:19 / cg"
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	827	"Created: / 21.7.1998 / 20:05:24 / cg"
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	828	!
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	829
1000 879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	830	doClearFromBeginningOfLine
1420 7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	831	"clear from beginning of line to the cursorPosition"
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	832
1000 879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	833	\|l\|
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	834
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	835	l := self listAt:cursorLine.
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	836	l notNil ifTrue:[
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	837	(l size >= (cursorCol-1)) ifTrue:[
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	838	l := l copy from:1 to:cursorCol-1 put:(Character space).
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	839	] ifFalse:[
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	840	l := nil.
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	841	].
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	842	self withoutRedrawAt:cursorLine put:l.
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	843	self invalidateLine:cursorLine
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	844	"/ self at:cursorLine put:l.
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	845	]
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	846
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	847	"Modified: / 20.6.1998 / 19:10:21 / cg"
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	848	"Created: / 21.7.1998 / 20:10:58 / cg"
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	849	!
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	850
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	851	doClearFromBeginningOfScreen
1420 7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	852	"clear from beginning of the screen to the cursorPosition"
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	853
1000 879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	854	self doClearFromBeginningOfLine.
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	855	cursorLine-1 to:firstLineShown do:[:l \|
922 c8373b8c7986 * empty log message * Claus Gittinger <cg@exept.de> parents: 921 diff changeset	856	self at:l put:''
c8373b8c7986 * empty log message * Claus Gittinger <cg@exept.de> parents: 921 diff changeset	857	].
c8373b8c7986 * empty log message * Claus Gittinger <cg@exept.de> parents: 921 diff changeset	858
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	859	"Modified: / 10.6.1998 / 14:45:43 / cg"
1000 879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	860	"Created: / 21.7.1998 / 20:08:29 / cg"
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	861	!
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	862
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	863	doClearToEndOfLine
1420 7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	864	"clear from the cursorPosition to the end of the line"
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	865
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	866	\|l\|
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	867
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	868	l := self listAt:cursorLine.
931 3dfdf1f7bd5d checkin from browser Claus Gittinger <cg@exept.de> parents: 929 diff changeset	869	(l size >= (cursorCol-1)) ifTrue:[
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	870	l notNil ifTrue:[
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	871	l := l copyTo:cursorCol-1.
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	872	self withoutRedrawAt:cursorLine put:l.
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	873	self invalidateLine:cursorLine
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	874	"/ self at:cursorLine put:l.
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	875	]
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	876	]
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	877
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	878	"Created: / 10.6.1998 / 14:45:01 / cg"
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	879	"Modified: / 20.6.1998 / 19:10:21 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	880	!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	881
1000 879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	882	doClearToEndOfScreen
1420 7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	883	"clear from the cursorPosition to the end of the screen"
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	884
1000 879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	885	self doClearToEndOfLine.
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	886	cursorLine+1 to:(list size) do:[:l \|
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	887	self at:l put:''
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	888	].
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	889
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	890	"Modified: / 10.6.1998 / 14:45:43 / cg"
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	891	"Created: / 21.7.1998 / 20:06:14 / cg"
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	892	!
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	893
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	894	doCursorDown:n
1420 7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	895	"move the cursor down by n lines"
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	896
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	897	\|wasOn rEnd\|
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	898
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	899	"/ rangeEndLine == numberOfLines ifTrue:[
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	900	"/ ^ super cursorDown:n
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	901	"/ ].
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	902	cursorLine + 1 - firstLineShown + n <= rangeEndLine ifTrue:[
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	903	"/ no special action req'd
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	904	^ super cursorDown:n
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	905	].
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	906
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	907	n timesRepeat:[
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	908	wasOn := self hideCursor.
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	909	rEnd := rangeEndLine+firstLineShown-1.
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	910	cursorLine == rEnd ifTrue:[
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	911	self deleteLine:(rangeStartLine+firstLineShown-1).
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	912	self insertLine:'' before:rEnd.
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	913	] ifFalse:[
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	914	super cursorDown
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	915	].
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	916	wasOn ifTrue:[self showCursor]. "/ self makeCursorVisibleAndShowCursor:wasOn.
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	917	]
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	918
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	919	"Modified: / 20.6.1998 / 20:29:39 / cg"
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	920	!
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	921
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	922	doCursorHome
1420 7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	923	"move the cursor to the home position"
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	924
938 3e65cc6f22cd checkin from browser Claus Gittinger <cg@exept.de> parents: 936 diff changeset	925	self cursorVisibleLine:1 col:1
3e65cc6f22cd checkin from browser Claus Gittinger <cg@exept.de> parents: 936 diff changeset	926	"/ super cursorHome
3e65cc6f22cd checkin from browser Claus Gittinger <cg@exept.de> parents: 936 diff changeset	927
3e65cc6f22cd checkin from browser Claus Gittinger <cg@exept.de> parents: 936 diff changeset	928	"Modified: / 10.6.1998 / 20:47:31 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	929	!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	930
942 1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	931	doCursorLeft:n
1420 7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	932	"move the cursor to the left by n columns"
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	933
942 1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	934	n timesRepeat:[
1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	935	super cursorLeft
1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	936	]
1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	937
1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	938	"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	939	!
1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	940
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	941	doCursorNewLine
1420 7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	942	"move the cursor down to the next line (col remains unchanged)"
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	943
931 3dfdf1f7bd5d checkin from browser Claus Gittinger <cg@exept.de> parents: 929 diff changeset	944	super cursorDown:1
3dfdf1f7bd5d checkin from browser Claus Gittinger <cg@exept.de> parents: 929 diff changeset	945
3dfdf1f7bd5d checkin from browser Claus Gittinger <cg@exept.de> parents: 929 diff changeset	946	"Modified: / 10.6.1998 / 16:55:57 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	947	!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	948
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	949	doCursorReturn
1420 7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	950	"move the cursor down and left to the beginning to the next line"
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	951
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	952	super cursorToBeginOfLine
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	953	!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	954
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	955	doCursorRight:n
1420 7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	956	"move the cursor to the right by n columns"
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	957
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	958	self cursorCol:(cursorCol + n)
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	959
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	960	"Created: / 10.6.1998 / 15:10:08 / cg"
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	961	!
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	962
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	963	doCursorUp:n
1420 7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	964	"move the cursor up by n lines"
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	965
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	966	\|wasOn rStart\|
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	967
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	968	"/ rangeStartLine == 1 ifTrue:[
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	969	"/ ^ super cursorUp:n
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	970	"/ ].
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	971	cursorLine + 1 - firstLineShown - n >= rangeStartLine ifTrue:[
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	972	"/ no special action req'd
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	973	^ super cursorUp:n
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	974	].
942 1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	975	n timesRepeat:[
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	976	wasOn := self hideCursor.
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	977	rStart := rangeStartLine+firstLineShown-1.
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	978	cursorLine == rStart ifTrue:[
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	979	(rangeEndLine+firstLineShown-1) <= list size ifTrue:[
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	980	self deleteLine:(rangeEndLine+firstLineShown-1).
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	981	self insertLine:'' before:rStart.
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	982	].
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	983	] ifFalse:[
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	984	super cursorUp
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	985	].
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	986	self makeCursorVisibleAndShowCursor:wasOn.
942 1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	987	]
1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	988
1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	989	"Created: / 11.6.1998 / 22:29:46 / cg"
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	990	"Modified: / 20.6.1998 / 20:30:34 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	991	! !
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	992
2501 832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	993	!TerminalView methodsFor:'initialization & release'!
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	994
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	995	closeDownShell
1420 7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	996	"shut down my shell process and stop the background reader thread."
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	997
1009 4cfed4bac6f0 added #stopReaderProcess Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	998	\|pid\|
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	999
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1000	(pid := shellPid) notNil ifTrue:[
2192 5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	1001	Debug ifTrue:[
5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	1002	Transcript print:'killing shell pid='; showCR:pid.
5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	1003	].
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1004	OperatingSystem terminateProcessGroup:pid.
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1005	OperatingSystem terminateProcess:pid.
925 f9ef1268a21b kill after termination. Claus Gittinger <cg@exept.de> parents: 924 diff changeset	1006	Delay waitForSeconds:1.
f9ef1268a21b kill after termination. Claus Gittinger <cg@exept.de> parents: 924 diff changeset	1007	shellPid notNil ifTrue:[
1341 3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	1008	OperatingSystem isMSWINDOWSlike ifFalse:[
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	1009	OperatingSystem killProcessGroup:pid.
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	1010	].
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1011	OperatingSystem killProcess:pid.
925 f9ef1268a21b kill after termination. Claus Gittinger <cg@exept.de> parents: 924 diff changeset	1012	shellPid := nil.
f9ef1268a21b kill after termination. Claus Gittinger <cg@exept.de> parents: 924 diff changeset	1013	].
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1014	OperatingSystem closePid:pid.
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1015	].
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1016
1009 4cfed4bac6f0 added #stopReaderProcess Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	1017	self stopReaderProcess.
4cfed4bac6f0 added #stopReaderProcess Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	1018
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1019	inStream notNil ifTrue:[
1021 c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1020	inStream isStream ifTrue:[inStream close].
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1021	inStream := nil
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1022	].
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1023	outStream notNil ifTrue:[
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1024	outStream close.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1025	outStream := nil
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1026	].
924 c1d2e1fecd79 checkin from browser Claus Gittinger <cg@exept.de> parents: 923 diff changeset	1027
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1028	"Modified: / 5.5.1999 / 18:43:02 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1029	!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1030
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1031	escapeSequences:codes
1420 7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1032	"setup my escape sequences"
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1033
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1034	\|tree\|
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1035
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1036	tree isNil ifTrue:[tree := escapeSequenceTree := IdentityDictionary new].
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1037
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1038	codes do:[:specEntry \|
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1039	\|sequence function\|
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1040
4105 a77be3c32b6d changed: Claus Gittinger <cg@exept.de> parents: 4030 diff changeset	1041	sequence := (specEntry at:1) withoutCEscapes.
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1042	function := specEntry at:2.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1043
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1044	tree := escapeSequenceTree.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1045
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1046	sequence keysAndValuesDo:[:idx :char \|
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1047	\|followup\|
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1048
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1049	idx == sequence size ifTrue:[
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1050	tree at:char put:function
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1051	] ifFalse:[
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1052	followup := tree at:char ifAbsent:nil.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1053	followup isNil ifTrue:[
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1054	tree at:char put:(followup := IdentityDictionary new).
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1055	].
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1056	tree := followup
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1057	]
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1058	]
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1059	].
918 2d6a4c91c4bd checkin from browser Claus Gittinger <cg@exept.de> parents: 917 diff changeset	1060	escapeLeadingChars := escapeSequenceTree keys asSet.
2d6a4c91c4bd checkin from browser Claus Gittinger <cg@exept.de> parents: 917 diff changeset	1061	escapeLeadingChars add:(Character cr).
2d6a4c91c4bd checkin from browser Claus Gittinger <cg@exept.de> parents: 917 diff changeset	1062	escapeLeadingChars add:(Character return).
2d6a4c91c4bd checkin from browser Claus Gittinger <cg@exept.de> parents: 917 diff changeset	1063	escapeLeadingChars add:(Character backspace).
2d6a4c91c4bd checkin from browser Claus Gittinger <cg@exept.de> parents: 917 diff changeset	1064
2d6a4c91c4bd checkin from browser Claus Gittinger <cg@exept.de> parents: 917 diff changeset	1065	escapeLeadingChars := escapeLeadingChars asArray
2d6a4c91c4bd checkin from browser Claus Gittinger <cg@exept.de> parents: 917 diff changeset	1066
4105 a77be3c32b6d changed: Claus Gittinger <cg@exept.de> parents: 4030 diff changeset	1067	"Modified: / 25-01-2012 / 10:42:46 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1068	!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1069
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1070	flushInput
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1071	\|sensor\|
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1072
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1073	"/ flush any leftover input-processing events
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1074	(sensor := self sensor) notNil ifTrue:[
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1075	sensor flushEventsFor:self withType:#processInput:n:.
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1076	]
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1077
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1078	"Modified: / 21.7.1998 / 19:00:13 / cg"
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1079	"Created: / 5.5.1999 / 18:41:42 / cg"
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1080	!
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1081
2163 a54248bd5ac6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2155 diff changeset	1082	initStyle
a54248bd5ac6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2155 diff changeset	1083	super initStyle.
a54248bd5ac6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2155 diff changeset	1084	"/ self foregroundColor:Color green.
a54248bd5ac6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2155 diff changeset	1085	"/ self backgroundColor:Color black.
a54248bd5ac6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2155 diff changeset	1086	!
a54248bd5ac6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2155 diff changeset	1087
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1088	initialize
2194 d008bb991def adding comments penk parents: 2192 diff changeset	1089
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1090	super initialize.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1091
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1092	showMatchingParenthesis := false.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1093	insertMode := false.
936 d377fb0f726f checkin from browser Claus Gittinger <cg@exept.de> parents: 935 diff changeset	1094	alwaysAppendAtEnd := false.
944 c59be5892714 * empty log message * Claus Gittinger <cg@exept.de> parents: 943 diff changeset	1095	collectSize := 100.
977 785c3ad4eff1 turn off st80Mode Claus Gittinger <cg@exept.de> parents: 976 diff changeset	1096	st80Mode := false.
785c3ad4eff1 turn off st80Mode Claus Gittinger <cg@exept.de> parents: 976 diff changeset	1097	trimBlankLines := true.
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1098	localEcho := false.
2078 96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	1099	inputTranslateCRToNL := false.
2268 e3b57c072b89 wrap line at end penk parents: 2207 diff changeset	1100	autoWrapFlag := true.
e3b57c072b89 wrap line at end penk parents: 2207 diff changeset	1101	"/ cursorType := #block.
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1102
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1103	numberOfColumns := 80.
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	1104	numberOfLines := 24.
954 4cef50a89ca1 * empty log message * Claus Gittinger <cg@exept.de> parents: 951 diff changeset	1105	rangeStartLine := 1.
4cef50a89ca1 * empty log message * Claus Gittinger <cg@exept.de> parents: 951 diff changeset	1106	rangeEndLine := numberOfLines.
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1107
2423 d2685982f94f tabs are always in multiples of 8 (no matter what users pref are) Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	1108	self setTab8.
d2685982f94f tabs are always in multiples of 8 (no matter what users pref are) Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	1109
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1110	self initializeKeyboardSequences.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1111	list := OrderedCollection new:24 withAll:''.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1112
2577 6dc84e11433a windows fix: sequence for RETURN ca parents: 2573 diff changeset	1113	OperatingSystem isMSWINDOWSlike ifTrue:[
6dc84e11433a windows fix: sequence for RETURN ca parents: 2573 diff changeset	1114	kbdSequences at:#Return put:'\r\n'.
6dc84e11433a windows fix: sequence for RETURN ca parents: 2573 diff changeset	1115	].
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1116	self initializeKeyboardMap.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1117
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1118	"
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1119	VT52TerminalView openShell
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1120	VT100TerminalView openShell
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1121	"
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1122
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1123	"Modified: / 5.5.1999 / 17:54:47 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1124	!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1125
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1126	initializeKeyboardMap
1349 f2489f1bacd4 oops - care for Alt-GR keys Claus Gittinger <cg@exept.de> parents: 1347 diff changeset	1127	\|keys ctrlKeys cmdKeys\|
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1128
1349 f2489f1bacd4 oops - care for Alt-GR keys Claus Gittinger <cg@exept.de> parents: 1347 diff changeset	1129	"/ setup my own keyboardMap, where control-keys
f2489f1bacd4 oops - care for Alt-GR keys Claus Gittinger <cg@exept.de> parents: 1347 diff changeset	1130	"/ (and some Cmd-keys) are not translated.
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1131	kbdMap := device keyboardMap copy.
1349 f2489f1bacd4 oops - care for Alt-GR keys Claus Gittinger <cg@exept.de> parents: 1347 diff changeset	1132	keys := kbdMap keys.
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1133
1349 f2489f1bacd4 oops - care for Alt-GR keys Claus Gittinger <cg@exept.de> parents: 1347 diff changeset	1134	ctrlKeys := keys select:[:key \| key startsWith:'Ctrl'].
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1135	ctrlKeys do:[:key \| kbdMap removeKey:key].
950 9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1136
1349 f2489f1bacd4 oops - care for Alt-GR keys Claus Gittinger <cg@exept.de> parents: 1347 diff changeset	1137	cmdKeys := keys select:[:key \| key startsWith:'Cmd'].
f2489f1bacd4 oops - care for Alt-GR keys Claus Gittinger <cg@exept.de> parents: 1347 diff changeset	1138	cmdKeys do:[:key \| \|val\|
f2489f1bacd4 oops - care for Alt-GR keys Claus Gittinger <cg@exept.de> parents: 1347 diff changeset	1139	val := kbdMap at:key.
f2489f1bacd4 oops - care for Alt-GR keys Claus Gittinger <cg@exept.de> parents: 1347 diff changeset	1140	val isSymbol ifTrue:[
2506 f12c7c321131 menu (search and goto) Claus Gittinger <cg@exept.de> parents: 2501 diff changeset	1141	(#(Copy Paste SaveAs Print Find FindNext FindPrev GotoLine) includes:val) ifFalse:[
1349 f2489f1bacd4 oops - care for Alt-GR keys Claus Gittinger <cg@exept.de> parents: 1347 diff changeset	1142	kbdMap removeKey:key
f2489f1bacd4 oops - care for Alt-GR keys Claus Gittinger <cg@exept.de> parents: 1347 diff changeset	1143	]
950 9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1144	]
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1145	].
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1146
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1147	kbdMap removeKey:#Delete ifAbsent:[].
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1148	kbdMap removeKey:#BackSpace ifAbsent:[].
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1149
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1150	"
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1151	VT52TerminalView openShell
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1152	"
950 9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1153
1349 f2489f1bacd4 oops - care for Alt-GR keys Claus Gittinger <cg@exept.de> parents: 1347 diff changeset	1154	"Modified: / 29.4.1999 / 14:25:24 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1155	!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1156
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1157	initializeKeyboardSequences
1358 ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	1158	kbdSequences := (self anyKeyCodes)
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	1159
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	1160	"Modified: / 5.5.1999 / 15:01:09 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1161	!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1162
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1163	keyboardMap
934 b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	1164	"return my keyboard map. This has control keys removed and
b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	1165	those will be passed unchanged to the shell"
b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	1166
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1167	^ kbdMap
934 b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	1168
b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	1169	"Modified: / 10.6.1998 / 17:46:59 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1170	!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1171
2778 796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1172	readerProcessLoop
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1173	"look for the commands output,
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1174	and send me #processInput:n: events whenever something arrives."
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1175
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1176	StreamError handle:[:ex \|
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1177	Transcript show:'Terminal(PTY-reader) [error]: '; showCR:ex description.
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1178	] do:[
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1179	[true] whileTrue:[
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1180	Object abortSignal handle:[:ex \|
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1181	self showCursor.
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1182	] do:[
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1183	\|n sensor\|
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1184
3758 59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	1185	Delay waitForSeconds:0.01.
2778 796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1186	outStream readWait.
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1187	sensor := self sensor.
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1188	(sensor notNil and:[sensor hasKeyPressEventFor:self]) ifTrue:[
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1189	true "(sensor userEventCount > 10)" ifTrue:[
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1190	"/ give terminalView a chance to
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1191	"/ send out the character.
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1192	Delay waitForSeconds:0.01.
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1193	]
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1194	] ifFalse:[
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1195	n := self readAnyAvailableData.
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1196	n > 0 ifTrue:[
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1197	shellPid notNil ifTrue:[
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1198	self waitForOutputToDrain.
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1199	]
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1200	] ifFalse:[
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1201	n == 0 ifTrue:[
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1202	"/ Windows IPC has a bug - it always
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1203	"/ returns 0 (when the command is idle)
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1204	"/ and says its at the end (sigh)
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1205
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1206	OperatingSystem isMSWINDOWSlike ifTrue:[
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1207	Delay waitForSeconds:0.01
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1208	] ifFalse:[
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1209	outStream atEnd ifTrue:[
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1210	outStream close. outStream := nil.
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1211	inStream close. inStream := nil.
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1212	Processor activeProcess terminate.
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1213	] ifFalse:[
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1214	"/ this should not happen.
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1215
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1216	Delay waitForSeconds:0.05
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1217	]
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1218	].
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1219	]
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1220	]
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1221	]
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1222	]
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1223	]
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1224	]
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1225	!
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1226
1319 0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1227	reinitialize
1833 69a0c170cd80 * empty log message * Claus Gittinger <cg@exept.de> parents: 1485 diff changeset	1228	"reinit after a snapIn.
69a0c170cd80 * empty log message * Claus Gittinger <cg@exept.de> parents: 1485 diff changeset	1229	this is invoked (by the system thread) after a snapShot image restart"
1319 0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1230
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1231	super reinitialize.
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1232
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1233	shellPid := nil.
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1234
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1235	self stopReaderProcess.
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1236	self flushInput.
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1237
1319 0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1238	readerProcess := nil.
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1239	inStream := outStream := nil.
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1240
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1241	"/ 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	1242	[
1322 30150c59eb97 dont delay the reinit Claus Gittinger <cg@exept.de> parents: 1321 diff changeset	1243	"/ Delay waitForSeconds:0.5.
1319 0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1244	self doClearEntireScreen.
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1245	self cursorLine:1 col:1.
1321 9a312fa98358 also throw away scrolled text whith restart. Claus Gittinger <cg@exept.de> parents: 1320 diff changeset	1246	self contents:nil.
1319 0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1247	self flash.
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1248
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1249	"/
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1250	"/ 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	1251	"/
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1252	self startCommand:shellCommand in:shellDirectory.
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1253	] forkAt:8
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1254
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1255	"Modified: / 5.5.1999 / 18:41:55 / cg"
1319 0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1256	!
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1257
2155 b007892599e4 destroy - release Claus Gittinger <cg@exept.de> parents: 2126 diff changeset	1258	release
b007892599e4 destroy - release Claus Gittinger <cg@exept.de> parents: 2126 diff changeset	1259	"release myself - shut down the shell, stop the reader thread."
b007892599e4 destroy - release Claus Gittinger <cg@exept.de> parents: 2126 diff changeset	1260
2341 9b19cf22a099 release pipe in background (faster shutdown) Claus Gittinger <cg@exept.de> parents: 2268 diff changeset	1261	[self closeDownShell.
9b19cf22a099 release pipe in background (faster shutdown) Claus Gittinger <cg@exept.de> parents: 2268 diff changeset	1262	self flushInput.
9b19cf22a099 release pipe in background (faster shutdown) Claus Gittinger <cg@exept.de> parents: 2268 diff changeset	1263	] fork.
2155 b007892599e4 destroy - release Claus Gittinger <cg@exept.de> parents: 2126 diff changeset	1264	super release
b007892599e4 destroy - release Claus Gittinger <cg@exept.de> parents: 2126 diff changeset	1265
b007892599e4 destroy - release Claus Gittinger <cg@exept.de> parents: 2126 diff changeset	1266	"Modified: / 5.5.1999 / 18:42:55 / cg"
b007892599e4 destroy - release Claus Gittinger <cg@exept.de> parents: 2126 diff changeset	1267	!
b007892599e4 destroy - release Claus Gittinger <cg@exept.de> parents: 2126 diff changeset	1268
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1269	startReaderProcess
934 b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	1270	"Start a reader process, which looks for the commands output,
1009 4cfed4bac6f0 added #stopReaderProcess Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	1271	and sends me #processInput:n: events whenever something arrives."
934 b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	1272
2778 796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1273	self obsoleteMethodWarning.
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1274	self startReaderProcessWhenVisible.
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1275
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1276	"
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1277	VT100TerminalView openShell
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1278	"
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1279
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1280	"Modified: / 5.5.1999 / 17:58:02 / cg"
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1281	"Modified: / 28.1.2002 / 21:10:13 / micha"
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1282	!
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1283
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1284	startReaderProcessNow
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1285	"Start a reader process, which looks for the commands output,
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1286	and sends me #processInput:n: events whenever something arrives."
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1287
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1288	readerProcess isNil ifTrue:[
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1289	readerProcess := [
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1290	[
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1291	self readerProcessLoop.
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1292	] ifCurtailed:[
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1293	readerProcess := nil
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1294	]
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1295	] fork. "/ forkAt:9.
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1296	readerProcess name:'pty reader'.
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1297	]
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1298
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1299	"
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1300	VT100TerminalView openShell
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1301	"
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1302
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1303	"Modified: / 5.5.1999 / 17:58:02 / cg"
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1304	"Modified: / 28.1.2002 / 21:10:13 / micha"
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1305	!
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1306
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1307	startReaderProcessWhenVisible
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1308	"Start a reader process, which looks for the commands output,
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1309	and sends me #processInput:n: events whenever something arrives."
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1310
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1311	readerProcess isNil ifTrue:[
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1312	readerProcess := [
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1313	[
947 e3baca36e6f7 checkin from browser Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1314	self waitUntilVisible.
2778 796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1315	self readerProcessLoop.
2678 f475a905c54c Use #description instead of #errorString Stefan Vogel <sv@exept.de> parents: 2597 diff changeset	1316	] ifCurtailed:[
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1317	readerProcess := nil
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1318	]
997 c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1319	] fork. "/ forkAt:9.
c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1320	readerProcess name:'pty reader'.
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1321	]
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1322
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1323	"
934 b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	1324	VT100TerminalView openShell
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1325	"
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1326
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1327	"Modified: / 5.5.1999 / 17:58:02 / cg"
2077 07bd67026b81 debug prints Michael Beyl <mb@exept.de> parents: 2076 diff changeset	1328	"Modified: / 28.1.2002 / 21:10:13 / micha"
1009 4cfed4bac6f0 added #stopReaderProcess Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	1329	!
4cfed4bac6f0 added #stopReaderProcess Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	1330
4cfed4bac6f0 added #stopReaderProcess Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	1331	stopReaderProcess
1420 7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1332	"stop the background reader thread"
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1333
1009 4cfed4bac6f0 added #stopReaderProcess Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	1334	\|sensor\|
4cfed4bac6f0 added #stopReaderProcess Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	1335
4cfed4bac6f0 added #stopReaderProcess Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	1336	readerProcess notNil ifTrue:[
4cfed4bac6f0 added #stopReaderProcess Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	1337	readerProcess terminate.
4cfed4bac6f0 added #stopReaderProcess Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	1338	"/ give it a chance to really terminate
4cfed4bac6f0 added #stopReaderProcess Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	1339	Processor yield.
4cfed4bac6f0 added #stopReaderProcess Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	1340	readerProcess := nil
4cfed4bac6f0 added #stopReaderProcess Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	1341	].
4cfed4bac6f0 added #stopReaderProcess Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	1342
4cfed4bac6f0 added #stopReaderProcess Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	1343	"/ flush any leftover input-processing events
4cfed4bac6f0 added #stopReaderProcess Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	1344	(sensor := self sensor) notNil ifTrue:[
4cfed4bac6f0 added #stopReaderProcess Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	1345	sensor flushEventsFor:self withType:#processInput:n:.
4cfed4bac6f0 added #stopReaderProcess Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	1346	]
4cfed4bac6f0 added #stopReaderProcess Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	1347	"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	1348	! !
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	1349
2501 832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1350	!TerminalView methodsFor:'initialization-shell'!
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1351
2778 796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1352	basicStartCommand:aCommand in:aDirectory
2501 832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1353	"start a command on a pseudo terminal. If the command arg is nil,
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1354	a shell is started. If aDirectory is not nil, the command is
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1355	executed in that directory.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1356	Also fork a reader process, to read the shells output and
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1357	tell me, whenever something arrives"
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1358
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1359	\|pty slaveFD execFdArray blocked exitStatus
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1360	stxToCommandPipe commandToStxPipe cmd shell args env shellAndArgs\|
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1361
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1362	shellCommand := aCommand.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1363	shellDirectory := aDirectory.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1364
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1365	self create. "/ need my windowID (to pass down in environment)
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1366
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1367	OperatingSystem isMSWINDOWSlike ifTrue:[
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1368	"use two pipes to COMMAND.COM"
2538 2ee2ed3bad39 Move makePTYPair to NonPositionableExternalStream Stefan Vogel <sv@exept.de> parents: 2506 diff changeset	1369	stxToCommandPipe := NonPositionableExternalStream makePipe.
2501 832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1370	stxToCommandPipe isNil ifTrue:[
2778 796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1371	self warn:'Could not create pipe to COMMAND.COM.'. ^ self.
2501 832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1372	].
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1373
2538 2ee2ed3bad39 Move makePTYPair to NonPositionableExternalStream Stefan Vogel <sv@exept.de> parents: 2506 diff changeset	1374	commandToStxPipe := NonPositionableExternalStream makePipe.
2501 832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1375	commandToStxPipe isNil ifTrue:[
2778 796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1376	self warn:'Could not create pipe from COMMAND.COM.'. ^ self.
2501 832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1377	].
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1378
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1379	"/ pipe readSide is p at:1;
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1380	"/ writeSide is p at:2
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1381
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1382	slaveFD := (commandToStxPipe at:2) fileDescriptor.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1383	execFdArray := Array
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1384	with:(stxToCommandPipe at:1) fileDescriptor "stdin"
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1385	with:slaveFD "stdout"
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1386	with:slaveFD. "stderr"
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1387
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1388	outStream := commandToStxPipe at:1.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1389	inStream := stxToCommandPipe at:2.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1390
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1391	shellAndArgs := OperatingSystem commandAndArgsForOSCommand:aCommand.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1392	shell := shellAndArgs at:1.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1393	args := (shellAndArgs at:2) ? ''.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1394	] ifFalse:[
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1395	"Use a pseudo-tty"
2538 2ee2ed3bad39 Move makePTYPair to NonPositionableExternalStream Stefan Vogel <sv@exept.de> parents: 2506 diff changeset	1396	pty := NonPositionableExternalStream makePTYPair.
2501 832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1397	pty isNil ifTrue:[
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1398	self warn:'Cannot open pty.'.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1399	^ self.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1400	].
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1401
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1402	"/ pty at:1 is the master;
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1403	"/ pty at:2 is the slave
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1404	inStream := outStream := (pty at:1).
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1405
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1406	self defineWindowSize.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1407	"/ fork a shell process on the slave-side
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1408	slaveFD := (pty at:2) fileDescriptor.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1409	execFdArray := Array with:slaveFD with:slaveFD with:slaveFD.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1410
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1411	aCommand isNil ifTrue:[
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1412	shell := OperatingSystem getEnvironment:'SHELL'.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1413	shell size == 0 ifTrue:[
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1414	shell := '/bin/sh'.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1415	].
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1416	cmd := shell asFilename baseName.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1417	args := (Array with:cmd).
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1418	] ifFalse:[
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1419	shell := '/bin/sh'.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1420	args := (Array with:'sh' with:'-c' with:aCommand).
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1421	].
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1422	env := Dictionary new.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1423	env at:'SHELL' put:shell.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1424	env at:'TERM' put:(self terminalType).
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1425	env at:'LINES' put:(numberOfLines printString).
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1426	env at:'COLUMNS' put:(numberOfColumns printString).
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1427	(device platformName = 'X11' and:[drawableId notNil]) ifTrue:[
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1428	env at:'WINDOWID' put:(drawableId address printString).
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1429	].
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1430	].
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1431
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1432	blocked := OperatingSystem blockInterrupts.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1433
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1434	shellPid := Processor
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1435	monitor:[
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1436	OperatingSystem
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1437	exec:shell
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1438	withArguments:args
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1439	environment:env
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1440	fileDescriptors:execFdArray
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1441	fork:true
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1442	newPgrp:true
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1443	inDirectory:aDirectory.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1444	]
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1445	action:[:status \|
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1446	Debug ifTrue:[
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1447	Transcript show:'pid:'; showCR:status pid.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1448	Transcript show:'status:'; showCR:status status.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1449	Transcript show:'code:'; showCR:status code.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1450	Transcript show:'core:'; showCR:status core.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1451	].
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1452	status stillAlive ifFalse:[
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1453	exitStatus := status.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1454	OperatingSystem closePid:shellPid.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1455	shellPid := nil.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1456	self pushEvent:#shellTerminated
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1457	].
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1458	].
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1459
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1460	blocked ifFalse:[
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1461	OperatingSystem unblockInterrupts
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1462	].
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1463
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1464	"close the slave side of the pty/pipes (only used by the child)"
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1465	pty notNil ifTrue:[
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1466	(pty at:2) close.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1467	].
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1468
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1469	commandToStxPipe notNil ifTrue:[
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1470	(commandToStxPipe at:2) close.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1471	(stxToCommandPipe at:1) close.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1472	].
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1473
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1474	shellPid isNil ifTrue:[
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1475	self warn:'Cannot start shell'.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1476	outStream close.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1477	inStream close.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1478	inStream := outStream := nil.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1479	^ self.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1480	].
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1481
2778 796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1482	"Created: / 20.7.1998 / 18:19:32 / cg"
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1483	"Modified: / 5.5.1999 / 17:28:37 / cg"
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1484	!
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1485
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1486	startCommand:aCommand
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1487	"start a command on a pseudo terminal. If the command arg is nil,
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1488	a shell is started. The command is started in the current directory.
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1489	Also fork a reader process, to read the shells output and
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1490	tell me, whenever something arrives"
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1491
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1492	self startCommand:aCommand in:nil
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1493
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1494	"Modified: / 20.7.1998 / 18:30:24 / cg"
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1495	!
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1496
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1497	startCommand:aCommand in:aDirectory
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1498	"start a command on a pseudo terminal. If the command arg is nil,
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1499	a shell is started. If aDirectory is not nil, the command is
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1500	executed in that directory.
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1501	Also fork a reader process, to read the shells output and
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1502	tell me, whenever something arrives"
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1503
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1504	self basicStartCommand:aCommand in:aDirectory.
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1505	self startReaderProcessWhenVisible.
2501 832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1506
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1507	"Created: / 20.7.1998 / 18:19:32 / cg"
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1508	"Modified: / 5.5.1999 / 17:28:37 / cg"
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1509	!
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1510
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1511	startShell
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1512	"start a shell on a pseudo terminal in the current directory.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1513	Also fork a reader process, to read the shells output and
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1514	tell me, whenever something arrives"
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1515
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1516	^ self startCommand:nil
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1517
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1518	"
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1519	VT100TerminalView openShell
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1520	"
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1521
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1522	"Modified: / 20.7.1998 / 18:29:54 / cg"
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1523	!
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1524
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1525	startShellIn:aDirectory
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1526	"start a shell on a pseudo terminal in some directory.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1527	Also fork a reader process, to read the shells output and
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1528	tell me, whenever something arrives"
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1529
2778 796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1530	self startCommand:nil in:aDirectory
2501 832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1531
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1532	"
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1533	VT100TerminalView openShellIn:'/etc'
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1534	"
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1535
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1536	"Modified: / 20.7.1998 / 18:29:46 / cg"
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1537	! !
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1538
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1539	!TerminalView methodsFor:'menu'!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1540
3225 65c338f35160 clear menu function Claus Gittinger <cg@exept.de> parents: 2954 diff changeset	1541	doClear
65c338f35160 clear menu function Claus Gittinger <cg@exept.de> parents: 2954 diff changeset	1542	"reset the scroll-range etc, clear the text buffer"
65c338f35160 clear menu function Claus Gittinger <cg@exept.de> parents: 2954 diff changeset	1543
65c338f35160 clear menu function Claus Gittinger <cg@exept.de> parents: 2954 diff changeset	1544	rangeStartLine := 1.
65c338f35160 clear menu function Claus Gittinger <cg@exept.de> parents: 2954 diff changeset	1545	rangeEndLine := numberOfLines.
65c338f35160 clear menu function Claus Gittinger <cg@exept.de> parents: 2954 diff changeset	1546
65c338f35160 clear menu function Claus Gittinger <cg@exept.de> parents: 2954 diff changeset	1547	self normal.
65c338f35160 clear menu function Claus Gittinger <cg@exept.de> parents: 2954 diff changeset	1548	self clear.
65c338f35160 clear menu function Claus Gittinger <cg@exept.de> parents: 2954 diff changeset	1549
65c338f35160 clear menu function Claus Gittinger <cg@exept.de> parents: 2954 diff changeset	1550	"Created: / 03-04-2007 / 08:58:59 / cg"
65c338f35160 clear menu function Claus Gittinger <cg@exept.de> parents: 2954 diff changeset	1551	!
65c338f35160 clear menu function Claus Gittinger <cg@exept.de> parents: 2954 diff changeset	1552
1319 0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1553	doReset
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1554	"reset the scroll-range;
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1555	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	1556
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1557	rangeStartLine := 1.
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1558	rangeEndLine := numberOfLines.
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1559
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1560	self normal.
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1561
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1562	!
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1563
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1564	doSendInterrupt
1420 7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1565	"send an INT-signal to the shell (UNIX only)"
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1566
2597 c7e8bfde1852 * empty log message * Claus Gittinger <cg@exept.de> parents: 2594 diff changeset	1567	shellPid notNil ifTrue:[
c7e8bfde1852 * empty log message * Claus Gittinger <cg@exept.de> parents: 2594 diff changeset	1568	OperatingSystem sendSignal:(OperatingSystem sigINT) to:shellPid negated.
c7e8bfde1852 * empty log message * Claus Gittinger <cg@exept.de> parents: 2594 diff changeset	1569	].
1319 0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1570
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1571	"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	1572	!
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1573
2573 9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	1574	doSendKillSignal
9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	1575	"send a KILL-signal to the shell (UNIX only)"
9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	1576
2597 c7e8bfde1852 * empty log message * Claus Gittinger <cg@exept.de> parents: 2594 diff changeset	1577	shellPid notNil ifTrue:[
c7e8bfde1852 * empty log message * Claus Gittinger <cg@exept.de> parents: 2594 diff changeset	1578	OperatingSystem sendSignal:(OperatingSystem sigKILL) to:shellPid negated.
c7e8bfde1852 * empty log message * Claus Gittinger <cg@exept.de> parents: 2594 diff changeset	1579	]
2573 9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	1580	!
9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	1581
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1582	editMenu
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1583	"return the views middleButtonMenu"
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1584
1347 a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1585	<resource: #keyboard (#Copy #Paste #Print #SaveAs #Print)>
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1586	<resource: #programMenu>
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1587
2573 9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	1588	\|items subMenu m sensor\|
9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	1589
9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	1590	items := #(
3225 65c338f35160 clear menu function Claus Gittinger <cg@exept.de> parents: 2954 diff changeset	1591	('Interrupt' doSendInterrupt )
2573 9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	1592	('Kill' doSendKillSignal)
3225 65c338f35160 clear menu function Claus Gittinger <cg@exept.de> parents: 2954 diff changeset	1593	('-' )
65c338f35160 clear menu function Claus Gittinger <cg@exept.de> parents: 2954 diff changeset	1594	('Clear' doClear )
65c338f35160 clear menu function Claus Gittinger <cg@exept.de> parents: 2954 diff changeset	1595	('Reset' doReset )
2573 9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	1596	).
9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	1597	subMenu := PopUpMenu itemList:items resources:resources.
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1598
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1599	((sensor := self sensor) notNil and:[sensor ctrlDown]) ifTrue:[
2573 9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	1600	m := subMenu.
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1601	] ifFalse:[
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1602	items := #(
2075 ac7da2b56ba6 upper case menu Claus Gittinger <cg@exept.de> parents: 1833 diff changeset	1603	('Copy' copySelection Copy )
ac7da2b56ba6 upper case menu Claus Gittinger <cg@exept.de> parents: 1833 diff changeset	1604	('Paste' pasteOrReplace Paste )
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1605	('-' )
2506 f12c7c321131 menu (search and goto) Claus Gittinger <cg@exept.de> parents: 2501 diff changeset	1606	('Search...' search Find)
f12c7c321131 menu (search and goto) Claus Gittinger <cg@exept.de> parents: 2501 diff changeset	1607	('-' )
2075 ac7da2b56ba6 upper case menu Claus Gittinger <cg@exept.de> parents: 1833 diff changeset	1608	('Font...' changeFont )
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	1609	('-' )
2448 6d912d8ec69d checkin from browser Claus Gittinger <cg@exept.de> parents: 2423 diff changeset	1610	('Save As...' save SaveAs )
2075 ac7da2b56ba6 upper case menu Claus Gittinger <cg@exept.de> parents: 1833 diff changeset	1611	('Print' doPrint Print )
2573 9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	1612	('=' )
9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	1613	('Shell' others Ctrl )
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1614	).
2573 9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	1615	m := PopUpMenu itemList:items resources:resources.
9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	1616	m subMenuAt:#others put:subMenu.
1347 a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1617
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1618	"/ disabled - for now;
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1619	"/ need a more intelligent filtering of control characters.
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1620	"/
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1621	"/ filterStream isNil ifTrue:[
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1622	"/ items := items , #(
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1623	"/ ('-' )
2075 ac7da2b56ba6 upper case menu Claus Gittinger <cg@exept.de> parents: 1833 diff changeset	1624	"/ ('Start Save as ...' startSaveAs )
ac7da2b56ba6 upper case menu Claus Gittinger <cg@exept.de> parents: 1833 diff changeset	1625	"/ ('Start Print' startPrint )
1347 a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1626	"/ )
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1627	"/ ] ifFalse:[
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1628	"/ items := items , #(
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1629	"/ ('-' )
2075 ac7da2b56ba6 upper case menu Claus Gittinger <cg@exept.de> parents: 1833 diff changeset	1630	"/ ('Stop filter' stopFilter )
1347 a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1631	"/ )
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1632	"/ ].
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1633	].
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1634
2810 d57cc02787de refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 2778 diff changeset	1635	self hasSelection ifFalse:[
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1636	m disable:#copySelection.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1637	].
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1638	^ m.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1639
3225 65c338f35160 clear menu function Claus Gittinger <cg@exept.de> parents: 2954 diff changeset	1640	"Modified: / 03-04-2007 / 08:58:26 / cg"
1347 a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1641	!
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1642
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1643	startSaveAs
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1644	"start saving all received data to some file"
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1645
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1646	\|fn\|
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1647
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1648	fn := Dialog requestFileName:'Save received data in file:'.
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1649	fn size > 0 ifTrue:[
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1650	filterStream := fn asFilename writeStream
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1651	].
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1652
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1653	"Created: / 29.4.1999 / 11:06:29 / cg"
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1654	!
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1655
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1656	stopFilter
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1657	"stop saving/printing of received data"
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1658
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1659	filterStream close.
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1660	filterStream := nil.
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1661
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1662	"Created: / 29.4.1999 / 11:07:49 / cg"
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1663	"Modified: / 29.4.1999 / 11:09:52 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1664	! !
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1665
940 16c955286510 checkin from browser Claus Gittinger <cg@exept.de> parents: 938 diff changeset	1666	!TerminalView methodsFor:'misc'!
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1667
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1668	removeTrailingBlankLines
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1669	^ self
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1670	! !
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1671
2498 4b4f91e57dd0 method category rename Claus Gittinger <cg@exept.de> parents: 2466 diff changeset	1672	!TerminalView methodsFor:'processing-input'!
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1673
1420 7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1674	doNothing
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1675	"private - end of an ignored escape-sequence"
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1676
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1677	self endOfSequence
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1678
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1679	"Created: / 12.6.1998 / 20:40:43 / cg"
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1680	!
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1681
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1682	endOfSequence
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1683	"private - reset state-machine at end of escape-sequence"
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1684
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1685	state := 0.
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1686
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1687	"Created: / 12.6.1998 / 20:39:52 / cg"
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1688	!
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1689
1017 8af14b2315fa care for non-external-stream when window size changes. Claus Gittinger <cg@exept.de> parents: 1015 diff changeset	1690	nextPutAll:aString
1021 c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1691	"/ self processInput:aString n:aString size
2594 63c4f60955be no defineWindowSize on contentsChanged penk parents: 2577 diff changeset	1692
1021 c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1693	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	1694
8af14b2315fa care for non-external-stream when window size changes. Claus Gittinger <cg@exept.de> parents: 1015 diff changeset	1695	"Created: / 27.7.1998 / 15:10:59 / cg"
1021 c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1696	"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	1697	!
8af14b2315fa care for non-external-stream when window size changes. Claus Gittinger <cg@exept.de> parents: 1015 diff changeset	1698
933 de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	1699	processInput:buffer n:count
997 c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1700	\|sensor\|
c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1701
1347 a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1702	filterStream notNil ifTrue:[
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1703	filterStream nextPutAll:(buffer copyTo:count).
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1704	].
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1705
1077 49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	1706	"/ self hideCursor.
997 c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1707
1015 61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1708	"/ the following may not be too clean, but adds a lot of speed.
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1709	"/ instead of passing every individual character through the
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1710	"/ escape-state machine, collect chunks of non-control text
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1711	"/ when in state 0, and add them immediately to the pendingLines
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1712	"/ collection of the textCollectors asynchronous update mechanism.
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1713	"/ This helps a lot if you do something like "ls -lR /" ...
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1714	"/ For debugging the state machine, reenable the commented lines
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1715	"/ below.
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1716
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1717	"/1 to:count do:[:i\|
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1718	"/ self nextPut:(buffer at:i).
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1719	"/].
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1720	"/self showCursor.
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1721	"/^ self.
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1722
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1723	access critical:[
2191 221cae81c950 variable name more significant penk parents: 2169 diff changeset	1724	\|index controlCharIndex stringWithOutControl crnlFollows\|
997 c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1725
2191 221cae81c950 variable name more significant penk parents: 2169 diff changeset	1726	index := 1.
221cae81c950 variable name more significant penk parents: 2169 diff changeset	1727	[index <= count] whileTrue:[
1015 61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1728	(state == 0) ifTrue:[
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1729	"/ in initial state.
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1730	"/ quick scan forward for next control character ...
2191 221cae81c950 variable name more significant penk parents: 2169 diff changeset	1731	controlCharIndex := buffer indexOfControlCharacterStartingAt:index.
221cae81c950 variable name more significant penk parents: 2169 diff changeset	1732	controlCharIndex > count ifTrue:[controlCharIndex := 0].
1055 eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1733
2191 221cae81c950 variable name more significant penk parents: 2169 diff changeset	1734	controlCharIndex == 0 ifTrue:[
1015 61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1735	"/ no control characters - simply append all
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1736	"/ to the outstanding lines ...
2191 221cae81c950 variable name more significant penk parents: 2169 diff changeset	1737	stringWithOutControl := buffer copyFrom:index to:count.
221cae81c950 variable name more significant penk parents: 2169 diff changeset	1738	index := count + 1. "/ leave loop.
997 c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1739	crnlFollows := false.
1015 61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1740	] ifFalse:[
2191 221cae81c950 variable name more significant penk parents: 2169 diff changeset	1741	controlCharIndex > index ifTrue:[
221cae81c950 variable name more significant penk parents: 2169 diff changeset	1742	stringWithOutControl := buffer copyFrom:index to:controlCharIndex-1.
221cae81c950 variable name more significant penk parents: 2169 diff changeset	1743	index := controlCharIndex. "/ proceed withcontrol character
1015 61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1744	crnlFollows := false.
2191 221cae81c950 variable name more significant penk parents: 2169 diff changeset	1745	index < (count - 1) ifTrue:[
221cae81c950 variable name more significant penk parents: 2169 diff changeset	1746	(buffer at:index) == Character return ifTrue:[
221cae81c950 variable name more significant penk parents: 2169 diff changeset	1747	(buffer at:index+1) == Character nl ifTrue:[
1015 61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1748	crnlFollows := true.
2191 221cae81c950 variable name more significant penk parents: 2169 diff changeset	1749	index := index + 2.
1015 61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1750	]
997 c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1751	]
1015 61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1752	].
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1753	]
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1754	].
997 c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1755	].
c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1756
2191 221cae81c950 variable name more significant penk parents: 2169 diff changeset	1757	stringWithOutControl notNil ifTrue:[
2356 9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	1758	"/ self endEntry.
9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	1759
2268 e3b57c072b89 wrap line at end penk parents: 2207 diff changeset	1760	"/ characterwise, for correct wrap handling at line end
2356 9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	1761
9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	1762	(cursorCol + outstandingLine size + stringWithOutControl size) >= numberOfColumns ifTrue:[
2268 e3b57c072b89 wrap line at end penk parents: 2207 diff changeset	1763	self endEntry.
e3b57c072b89 wrap line at end penk parents: 2207 diff changeset	1764	stringWithOutControl do:[:eachCharacter \|
e3b57c072b89 wrap line at end penk parents: 2207 diff changeset	1765	self nextPut:eachCharacter.
e3b57c072b89 wrap line at end penk parents: 2207 diff changeset	1766	self endEntry
e3b57c072b89 wrap line at end penk parents: 2207 diff changeset	1767	].
2356 9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	1768	crnlFollows ifTrue:[
9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	1769	self nextPut:Character return.
9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	1770	self nextPut:Character nl.
9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	1771	].
9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	1772	self endEntry.
9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	1773	stringWithOutControl := nil.
997 c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1774	] ifFalse:[
2356 9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	1775
9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	1776	Debug ifTrue:[
9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	1777	Transcript showCR:'String:<', stringWithOutControl, '>'.
9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	1778	].
9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	1779	currentEmphasis notNil ifTrue:[
9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	1780	stringWithOutControl := stringWithOutControl emphasizeAllWith:currentEmphasis
9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	1781	].
9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	1782
9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	1783	outstandingLine size > 0 ifTrue:[
9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	1784	outstandingLine := outstandingLine , stringWithOutControl.
1015 61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1785	] ifFalse:[
2356 9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	1786	outstandingLine := stringWithOutControl.
1015 61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1787	].
2356 9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	1788	crnlFollows ifTrue:[
9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	1789	outstandingLines isNil ifTrue:[
9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	1790	outstandingLines := OrderedCollection with:outstandingLine
9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	1791	] ifFalse:[
9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	1792	outstandingLines add:outstandingLine.
9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	1793	].
9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	1794	outstandingLine := ''.
9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	1795	].
9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	1796	stringWithOutControl := nil.
997 c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1797
2356 9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	1798	collecting ifTrue:[
9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	1799	flushPending ifFalse:[
9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	1800	self installDelayedUpdate
9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	1801	] ifTrue:[
9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	1802	"/ outstandingLines size > collectSize ifTrue:[
9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	1803	"/ self endEntry
9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	1804	"/ ]
9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	1805	]
9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	1806	] ifFalse:[
9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	1807	self endEntry
9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	1808	].
1015 61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1809	].
997 c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1810	] ifFalse:[
1015 61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1811	"/ no chunk to append (in an escape sequence)
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1812	"/ must handle individual characters
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1813	"/ 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	1814
2207 d352a2f0a83a no changes on terminal device anymore penk parents: 2205 diff changeset	1815	self nextPut:(buffer at:index).
2191 221cae81c950 variable name more significant penk parents: 2169 diff changeset	1816	index := index + 1.
221cae81c950 variable name more significant penk parents: 2169 diff changeset	1817	[state ~~ 0 and:[index <= count]] whileTrue:[
2207 d352a2f0a83a no changes on terminal device anymore penk parents: 2205 diff changeset	1818	self nextPut:(buffer at:index).
2191 221cae81c950 variable name more significant penk parents: 2169 diff changeset	1819	index := index + 1.
1055 eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1820	]
1015 61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1821	]
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1822	].
933 de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	1823	].
948 b93aba7db15d checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	1824
1055 eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1825	state == 0 ifTrue:[
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1826	(sensor := self sensor) notNil ifTrue:[
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1827	"/ 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	1828	"/ enforce update of the view (asynchronous)
997 c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1829
1055 eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1830	(sensor hasEvent:#processInput:n: for:self) ifFalse:[
997 c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1831	self endEntry.
c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1832	self showCursor.
1055 eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1833	"/ self makeCursorVisible.
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1834	] ifTrue:[
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1835	"/ 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	1836	"/ 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	1837	"/ 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	1838	"/ 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	1839	"/ collectSize lines.
1015 61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1840
1055 eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1841	outstandingLines size > collectSize ifTrue:[
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1842	self endEntry.
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1843	self showCursor.
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1844
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1845	"/ 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	1846	windowGroup notNil ifTrue:[
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1847	windowGroup processRealExposeEventsFor:self.
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1848	]
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1849	].
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1850	]
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	1851	].
933 de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	1852	].
de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	1853
de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	1854	"Created: / 10.6.1998 / 17:26:09 / cg"
1347 a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1855	"Modified: / 29.4.1999 / 11:08:48 / cg"
2076 60558bc12d09 public access to filterStream; Michael Beyl <mb@exept.de> parents: 2075 diff changeset	1856	"Modified: / 28.1.2002 / 20:41:36 / micha"
1021 c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1857	!
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1858
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1859	readAnyAvailableData
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1860	"read data from the stream,
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1861	and sends me #processInput:n: events if something arrived.
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1862	Returns the amount of data read."
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1863
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1864	\|buffer n bufferSize\|
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1865
1370 165f57ba2b12 care for closed stream in readAnyAvail Claus Gittinger <cg@exept.de> parents: 1366 diff changeset	1866	outStream isNil ifTrue:[^ 0].
165f57ba2b12 care for closed stream in readAnyAvail Claus Gittinger <cg@exept.de> parents: 1366 diff changeset	1867
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1868	bufferSize := 512. "/ 1024.
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1869
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1870	buffer := String new:bufferSize.
1371 2b28c00660b3 handle readError (pty closed while reading) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	1871	ExternalStream readErrorSignal handle:[:ex \|
2b28c00660b3 handle readError (pty closed while reading) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	1872	n := 0
2b28c00660b3 handle readError (pty closed while reading) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	1873	] do:[
2b28c00660b3 handle readError (pty closed while reading) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	1874	n := outStream nextAvailableBytes:bufferSize into:buffer startingAt:1.
2b28c00660b3 handle readError (pty closed while reading) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	1875	].
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1876	n > 0 ifTrue:[
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1877	self pushEvent:#processInput:n: with:buffer with:n.
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1878	].
1371 2b28c00660b3 handle readError (pty closed while reading) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	1879
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1880	^ n
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1881
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1882	"Created: / 5.5.1999 / 17:57:39 / cg"
1371 2b28c00660b3 handle readError (pty closed while reading) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	1883	"Modified: / 8.5.1999 / 20:14:14 / cg"
2077 07bd67026b81 debug prints Michael Beyl <mb@exept.de> parents: 2076 diff changeset	1884	"Modified: / 28.1.2002 / 21:10:25 / micha"
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1885	!
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1886
2573 9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	1887	sendLine:aString
9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	1888	inStream nextPutAll:aString.
9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	1889	inStream nextPut:Character return.
9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	1890	!
9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	1891
1021 c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1892	sync
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1893	self waitForOutputToDrain
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1894
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1895	"Created: / 27.7.1998 / 23:49:44 / cg"
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1896	!
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1897
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1898	waitForOutputToDrain
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1899	\|sensor\|
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1900
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1901	sensor := self sensor.
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1902	(sensor notNil and:[sensor userEventCount > 30]) ifTrue:[
1323 b31f7319419c checkin from browser Claus Gittinger <cg@exept.de> parents: 1322 diff changeset	1903	[sensor userEventCount > 5] whileTrue:[
1021 c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1904	"/ give terminalView a chance to
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1905	"/ catch up.
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1906	Delay waitForSeconds:0.1.
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1907	]
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1908	].
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1909
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1910	"Created: / 27.7.1998 / 23:47:22 / cg"
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1911	"Modified: / 5.5.1999 / 18:51:00 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1912	! !
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1913
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1914	!TerminalView methodsFor:'queries'!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1915
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1916	preferredExtent
1420 7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1917	"return my preferred extent - this is computed from my numberOfLines,
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1918	numberOfCols and font size"
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1919
2268 e3b57c072b89 wrap line at end penk parents: 2207 diff changeset	1920	^ (fontWidth * self class defaultNumberOfColumns + (leftMargin + margin * 2))
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	1921	@
1317 dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1922	((self heightForLines:self class defaultNumberOfLines) + 8)
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1923
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	1924	"Modified: / 20.6.1998 / 20:06:57 / cg"
929 30a2a3329055 checkin from browser Claus Gittinger <cg@exept.de> parents: 928 diff changeset	1925	!
30a2a3329055 checkin from browser Claus Gittinger <cg@exept.de> parents: 928 diff changeset	1926
30a2a3329055 checkin from browser Claus Gittinger <cg@exept.de> parents: 928 diff changeset	1927	terminalType
1420 7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1928	"returns a string describing this terminal (usually, this is
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1929	passed down to the shell as TERM environment variable).
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1930	Here, 'dump' is returned."
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1931
1354 94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	1932	^ 'dump'
929 30a2a3329055 checkin from browser Claus Gittinger <cg@exept.de> parents: 928 diff changeset	1933
30a2a3329055 checkin from browser Claus Gittinger <cg@exept.de> parents: 928 diff changeset	1934	"Created: / 10.6.1998 / 16:22:30 / cg"
1354 94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	1935	"Modified: / 5.5.1999 / 11:22:32 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1936	! !
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1937
2506 f12c7c321131 menu (search and goto) Claus Gittinger <cg@exept.de> parents: 2501 diff changeset	1938	!TerminalView methodsFor:'searching'!
f12c7c321131 menu (search and goto) Claus Gittinger <cg@exept.de> parents: 2501 diff changeset	1939
f12c7c321131 menu (search and goto) Claus Gittinger <cg@exept.de> parents: 2501 diff changeset	1940	startPositionForSearchBackward
2573 9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	1941	^ self startPositionForSearchBackwardBasedOnSelection
2506 f12c7c321131 menu (search and goto) Claus Gittinger <cg@exept.de> parents: 2501 diff changeset	1942	!
f12c7c321131 menu (search and goto) Claus Gittinger <cg@exept.de> parents: 2501 diff changeset	1943
f12c7c321131 menu (search and goto) Claus Gittinger <cg@exept.de> parents: 2501 diff changeset	1944	startPositionForSearchForward
2573 9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	1945	^ self startPositionForSearchForwardBasedOnSelection
2506 f12c7c321131 menu (search and goto) Claus Gittinger <cg@exept.de> parents: 2501 diff changeset	1946	! !
f12c7c321131 menu (search and goto) Claus Gittinger <cg@exept.de> parents: 2501 diff changeset	1947
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1948	!TerminalView methodsFor:'selection handling'!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1949
1317 dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1950	autoMoveCursorToEndOfSelection
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1951	"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	1952	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	1953
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1954	^ false
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1955
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1956	!
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1957
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1958	paste:someText
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1959	"paste - redefined to send the chars to the shell instead
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1960	of pasting into the view"
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1961
950 9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1962	\|s nLines\|
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1963
2573 9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	1964	inStream isNil ifTrue:[
9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	1965	self flash.
9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	1966	^ self "/ already closed
9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	1967	].
9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	1968
950 9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1969	s := someText.
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1970	s isString ifTrue:[
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1971	s := s asStringCollection
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1972	] ifFalse:[
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1973	(s isKindOf:StringCollection) ifFalse:[
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1974	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	1975	^ self
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1976	]
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1977	].
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1978	(nLines := s size) == 0 ifTrue:[^ self].
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1979	(nLines == 1 and:[(s at:1) size == 0]) ifTrue:[^ self].
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1980	s keysAndValuesDo:[:idx :line \|
1404 fd15ebe7dd3a checkin from browser Stefan Vogel <sv@exept.de> parents: 1371 diff changeset	1981	line notNil ifTrue:[inStream nextPutAll:line].
950 9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1982	idx ~~ nLines ifTrue:[
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1983	inStream nextPut:(Character return).
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1984	]
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1985	].
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1986
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1987	"Modified: / 12.6.1998 / 22:12:47 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1988	! !
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1989
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1990	!TerminalView class methodsFor:'documentation'!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1991
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1992	version
4164 7ed0d0bbc7cd class: TerminalView Claus Gittinger <cg@exept.de> parents: 4105 diff changeset	1993	^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.132 2013-01-17 10:41:32 cg Exp $'
3758 59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	1994	!
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	1995
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	1996	version_CVS
4164 7ed0d0bbc7cd class: TerminalView Claus Gittinger <cg@exept.de> parents: 4105 diff changeset	1997	^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.132 2013-01-17 10:41:32 cg Exp $'
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1998	! !
2205 b81118bb49da Debug Claus Gittinger <cg@exept.de> parents: 2204 diff changeset	1999
4164 7ed0d0bbc7cd class: TerminalView Claus Gittinger <cg@exept.de> parents: 4105 diff changeset	2000
2205 b81118bb49da Debug Claus Gittinger <cg@exept.de> parents: 2204 diff changeset	2001	TerminalView initialize!

author	Claus Gittinger <cg@exept.de>
	Thu, 17 Jan 2013 11:41:32 +0100
changeset 4164	7ed0d0bbc7cd
parent 4105	a77be3c32b6d
child 4213	19f9c2395ff9
permissions	-rw-r--r--