hg/stx-libwidg2: TerminalView.st@dccaedc34013 (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
4317 4c2fd0c98fcb class: TerminalView Claus Gittinger <cg@exept.de> parents: 4315 diff changeset	19	filterStream recorderStream localEcho translateNLToCRNL
4604 1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	20	inputTranslateCRToNL inputTranslateCRToCRNL
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	21	inputTranslateBackspaceToDelete autoWrapFlag masterWindow
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	22	alternateKeypadMode noColors sizeOfOutstandingInputToBeProcessed
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	23	lineEditMode lineBuffer lineBufferCursorPosition
4612 e05d68f2d152 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4604 diff changeset	24	lineBufferHistory lineBufferHistoryPosition maxHistorySize doUTF'
4602 a5c14fbf63cf class: TerminalView Claus Gittinger <cg@exept.de> parents: 4601 diff changeset	25	classVariableNames:'Debug DebugKeyboard DefaultMaxHistorySize'
2268 e3b57c072b89 wrap line at end penk parents: 2207 diff changeset	26	poolDictionaries:''
e3b57c072b89 wrap line at end penk parents: 2207 diff changeset	27	category:'Views-TerminalViews'
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	28	!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	29
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	30	!TerminalView class methodsFor:'documentation'!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	31
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	32	copyright
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	33	"
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	34	COPYRIGHT (c) 1998 by eXept Software AG
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	35	All Rights Reserved
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	36
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	37	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	38	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	39	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	40	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	41	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	42	hereby transferred.
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	43	"
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	44
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	45	!
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	46
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	47	documentation
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	48	"
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	49	I provide terminal functionality, by interpreting data
1418 32a6131b304b documentation Claus Gittinger <cg@exept.de> parents: 1404 diff changeset	50	arriving from some stream (typically connected to a command interpreter
4597 c0c195dcf0c1 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4596 diff changeset	51	via a pty, or another system via a modem) and sending my keyboard data to it.
c0c195dcf0c1 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4596 diff changeset	52
c0c195dcf0c1 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4596 diff changeset	53	I am abstract providing general functionality -
c0c195dcf0c1 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4596 diff changeset	54	concrete terminal characteristics (i.e. escape sequences) are defined
c0c195dcf0c1 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4596 diff changeset	55	by concrete subclasses (see VT52TerminalView, VT100TerminalView).
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	56
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	57	Concrete applications are:
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	58	consoles (VT100TerminalView),
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	59	telnet-views (see TelnetTool)
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	60	editor wrappers (if you like emacs/vi)
4597 c0c195dcf0c1 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4596 diff changeset	61	gdb terminal subviews (see GDBApplication)
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	62
4223 020aad6311b5 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	63	Although my class protocol includes common startup protocol
1418 32a6131b304b documentation Claus Gittinger <cg@exept.de> parents: 1404 diff changeset	64	(to open a terminalView with a shell or on the output of a command),
4223 020aad6311b5 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	65	I can be used as a widget within an application (modem software).
1418 32a6131b304b documentation Claus Gittinger <cg@exept.de> parents: 1404 diff changeset	66
4597 c0c195dcf0c1 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4596 diff changeset	67	Notice, some of my pty functionality and handling ex beeing extracted to
c0c195dcf0c1 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4596 diff changeset	68	the separate TerminalSession class (which allows communicating with a
c0c195dcf0c1 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4596 diff changeset	69	program without having its output displayed .
c0c195dcf0c1 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4596 diff changeset	70	So currently, some ugly code duplication is present.
c0c195dcf0c1 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4596 diff changeset	71	Once stable, code will be refactored.
c0c195dcf0c1 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4596 diff changeset	72	For now, as terminalView is being used in
c0c195dcf0c1 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4596 diff changeset	73	some of our critical applications, this refactoring has not yet been done.
c0c195dcf0c1 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4596 diff changeset	74
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	75	[author:]
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	76	Claus Gittinger
915 f2c934efc4da checkin from browser Claus Gittinger <cg@exept.de> parents: 914 diff changeset	77
1341 3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	78	[instance variables:]
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	79	inStream stream where keyboard input is
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	80	sent to (connected to shells or commands input)
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	81
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	82	outStream stream where the output of the
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	83	shell or command arrives
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	84	(read here and displayed in the view)
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	85
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	86	readerProcess process which reads commands
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	87	output and sends it to the view
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	88
4598 d2f5d944f538 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4597 diff changeset	89	lineEditMode if on, do readLine-alike input history and editong
d2f5d944f538 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4597 diff changeset	90
2204 145b2cc35537 * empty log message * Claus Gittinger <cg@exept.de> parents: 2202 diff changeset	91	[class variables]:
145b2cc35537 * empty log message * Claus Gittinger <cg@exept.de> parents: 2202 diff changeset	92	Debug := true trace incoming characters
145b2cc35537 * empty log message * Claus Gittinger <cg@exept.de> parents: 2202 diff changeset	93
145b2cc35537 * empty log message * Claus Gittinger <cg@exept.de> parents: 2202 diff changeset	94
915 f2c934efc4da checkin from browser Claus Gittinger <cg@exept.de> parents: 914 diff changeset	95	[start with:]
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	96	VT52TerminalView open
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	97	VT100TerminalView open
915 f2c934efc4da checkin from browser Claus Gittinger <cg@exept.de> parents: 914 diff changeset	98	VT52TerminalView openShell
919 07e8c17563a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 918 diff changeset	99	VT100TerminalView openShell
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	100	VT100TerminalView openOnCommand:'ls -l'
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	101	VT100TerminalView openOnCommand:'dir'
1418 32a6131b304b documentation Claus Gittinger <cg@exept.de> parents: 1404 diff changeset	102
32a6131b304b documentation Claus Gittinger <cg@exept.de> parents: 1404 diff changeset	103	[see also:]
32a6131b304b documentation Claus Gittinger <cg@exept.de> parents: 1404 diff changeset	104	TelNetTool
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	105	"
3758 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	example
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	109	"
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	110	\|terminal in out inputLine\|
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	in := InternalPipeStream new.
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	113	out := InternalPipeStream new.
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 := TerminalView openOnInput:in output:out.
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	116	terminal localEcho:true.
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	117	terminal inputTranslateCRToNL:true.
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	118
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	119	out nextPutLine:'Hello world - please type at me:'.
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	120
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	121	[
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	122	inputLine := in nextLine asString.
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	123	inputLine ~= '#exit' ifTrue:[
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	124	out nextPutLine:(Compiler evaluate:inputLine) printString.
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	125	].
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	126	inputLine = '#exit'
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	127	] whileFalse.
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	128
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	129	terminal topView destroy.
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	130	"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	131	! !
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	132
2207 d352a2f0a83a no changes on terminal device anymore penk parents: 2205 diff changeset	133	!TerminalView class methodsFor:'initialization'!
2205 b81118bb49da Debug Claus Gittinger <cg@exept.de> parents: 2204 diff changeset	134
b81118bb49da Debug Claus Gittinger <cg@exept.de> parents: 2204 diff changeset	135	initialize
2207 d352a2f0a83a no changes on terminal device anymore penk parents: 2205 diff changeset	136
4294 44d208158d1e class: TerminalView Claus Gittinger <cg@exept.de> parents: 4290 diff changeset	137	Debug := DebugKeyboard := false.
4602 a5c14fbf63cf class: TerminalView Claus Gittinger <cg@exept.de> parents: 4601 diff changeset	138	DefaultMaxHistorySize := 1000.
2207 d352a2f0a83a no changes on terminal device anymore penk parents: 2205 diff changeset	139
4294 44d208158d1e class: TerminalView Claus Gittinger <cg@exept.de> parents: 4290 diff changeset	140	"
44d208158d1e class: TerminalView Claus Gittinger <cg@exept.de> parents: 4290 diff changeset	141	self initialize
44d208158d1e class: TerminalView Claus Gittinger <cg@exept.de> parents: 4290 diff changeset	142	"
2205 b81118bb49da Debug Claus Gittinger <cg@exept.de> parents: 2204 diff changeset	143	! !
b81118bb49da Debug Claus Gittinger <cg@exept.de> parents: 2204 diff changeset	144
1052 732fd3255894 checkin from browser Claus Gittinger <cg@exept.de> parents: 1021 diff changeset	145	!TerminalView class methodsFor:'defaults'!
732fd3255894 checkin from browser Claus Gittinger <cg@exept.de> parents: 1021 diff changeset	146
732fd3255894 checkin from browser Claus Gittinger <cg@exept.de> parents: 1021 diff changeset	147	defaultIcon
4030 98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	148	"This resource specification was automatically generated
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	149	by the ImageEditor of ST/X."
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	150
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	151	"Do not manually edit this!! If it is corrupted,
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	152	the ImageEditor may not be able to read the specification."
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	153
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	154	"
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	155	self defaultIcon inspect
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	156	ImageEditor openOnClass:self andSelector:#defaultIcon
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	157	Icon flushCachedIcons
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	158	"
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	159
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	160	<resource: #image>
4028 33d2fd47db90 set icon resource Stefan Vogel <sv@exept.de> parents: 3758 diff changeset	161
4030 98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	162	^Icon
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	163	constantNamed:'TerminalView class defaultIcon'
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	164	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	165	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C@0LC@0LC@0LC@0LC@0LC@0LC@0LC@0LC@0L@@@@@@@@@
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	166	@@@@@@@@@@@@@@@@@@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	167	@ 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	168	@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	169	@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	170	@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	171	@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	172	@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	173	@@@@@@@@@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	174	@@@@@@@@@@@@@@@@@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	175	@ 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	176	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	177	@ 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	178	@ 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	179	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	180	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	181	@@@@@@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	182	@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	183	@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	184	@@@@@@@@@@@@@@@@@@@@@@@@') ; 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	185	@@@@@@@@@O???>@@@_????@@@?????0@@?????0@@?????8@@?????8@@?????<@@?????<@@?????>@@?????>@@?????>@@?????>@@?????>@@?????>@
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	186	@?????>@@?????>@@?????>@@?????>@@?????<@@?????8@@_????0@@C????<@@A????<@@C????<@@O?????X@O????<$@?????8HA????? PC????8G8
98bab0fabce9 changed: #defaultIcon Stefan Vogel <sv@exept.de> parents: 4028 diff changeset	187	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	188	!
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	189
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	190	defaultNumberOfColumns
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	191	^ 80
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	192
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	193	"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	194	"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	195	!
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	196
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	197	defaultNumberOfLines
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	198	^ 25
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	199
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	200	"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	201	"Modified: / 4.8.1998 / 17:48:31 / cg"
1052 732fd3255894 checkin from browser Claus Gittinger <cg@exept.de> parents: 1021 diff changeset	202	! !
732fd3255894 checkin from browser Claus Gittinger <cg@exept.de> parents: 1021 diff changeset	203
972 b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	204	!TerminalView class methodsFor:'opening'!
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	205
928 f9a117cb2bcc checkin from browser Claus Gittinger <cg@exept.de> parents: 926 diff changeset	206	open
985 275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	207	^ self openShell
928 f9a117cb2bcc checkin from browser Claus Gittinger <cg@exept.de> parents: 926 diff changeset	208
f9a117cb2bcc checkin from browser Claus Gittinger <cg@exept.de> parents: 926 diff changeset	209	"
f9a117cb2bcc checkin from browser Claus Gittinger <cg@exept.de> parents: 926 diff changeset	210	VT100TerminalView open
4446 02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	211	VT52TerminalView open
02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	212	TerminalView open
928 f9a117cb2bcc checkin from browser Claus Gittinger <cg@exept.de> parents: 926 diff changeset	213	"
f9a117cb2bcc checkin from browser Claus Gittinger <cg@exept.de> parents: 926 diff changeset	214
f9a117cb2bcc checkin from browser Claus Gittinger <cg@exept.de> parents: 926 diff changeset	215	"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	216	"Modified: / 9.7.1998 / 17:55:37 / cg"
928 f9a117cb2bcc checkin from browser Claus Gittinger <cg@exept.de> parents: 926 diff changeset	217	!
f9a117cb2bcc checkin from browser Claus Gittinger <cg@exept.de> parents: 926 diff changeset	218
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	219	openDummy
972 b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	220	"for testing purposes only - opens a dummy tty-view, which simply
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	221	echoes whatever is typed in"
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	222
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	223	\|in vt52\|
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	224
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	225	vt52 := self new.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	226	in := ForwardingStream on:''.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	227
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	228	in fwdStream:vt52.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	229	vt52 inStream:in.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	230	vt52 outStream:in.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	231	vt52 open
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	232
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	233	"
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	234	self openDummy
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	235	"
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	236	!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	237
985 275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	238	openOnCommand:aCommandString
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	239	"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	240	(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	241
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	242	^ self openOnCommand:aCommandString onExit:[]
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	243
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	244	"
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	245	VT100TerminalView openOnCommand:'ls -l'
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
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	248	"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	249	"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	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	openOnCommand:aCommandString onExit:aBlock
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	253	"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	254	(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	255	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	256
4254 d23ea3d7d7fa class: TerminalView Stefan Vogel <sv@exept.de> parents: 4250 diff changeset	257	\|top scr vt\|
985 275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	258
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	259	top := StandardSystemView new.
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	260	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	261	scr origin:0.0@0.0 corner:1.0@1.0.
4220 958b9bc73680 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4215 diff changeset	262	vt := scr scrolledView.
985 275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	263
4220 958b9bc73680 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4215 diff changeset	264	vt masterWindow: top.
958b9bc73680 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4215 diff changeset	265	vt startCommand:aCommandString.
958b9bc73680 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4215 diff changeset	266	vt shellTerminateAction:[
985 275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	267	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	268	].
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	269
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	270	top extent:(scr preferredExtent).
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	271	top label:('executing: "' , aCommandString , '"').
1014 c0fdd428990c nice icon. Claus Gittinger <cg@exept.de> parents: 1009 diff changeset	272	top iconLabel:'command'.
1052 732fd3255894 checkin from browser Claus Gittinger <cg@exept.de> parents: 1021 diff changeset	273	top icon:(self defaultIcon).
985 275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	274	top open.
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	275
4220 958b9bc73680 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4215 diff changeset	276	^ vt
985 275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	277
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	278	"
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	279	VT100TerminalView openOnCommand:'ls -lR'
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	280	VT100TerminalView openOnCommand:'vi /etc/hosts'
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	281	"
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	282
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	283	"Created: / 9.7.1998 / 17:54:34 / cg"
1052 732fd3255894 checkin from browser Claus Gittinger <cg@exept.de> parents: 1021 diff changeset	284	"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	285	!
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	286
1014 c0fdd428990c nice icon. Claus Gittinger <cg@exept.de> parents: 1009 diff changeset	287	openOnInput:inStream output:outStream
972 b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	288	"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	289	kind of socket or pty).
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	290	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	291	from outStream is displayed in the terminal view.
972 b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	292	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	293	or telnet views (if connected to a modem, a com-program can also be
972 b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	294	implemented this way)."
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	295
4268 fe5165e5e997 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	296	\|top vt\|
972 b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	297
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	298	top := StandardSystemView new.
4268 fe5165e5e997 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	299	vt := self openOnInput:inStream output:outStream in:top.
fe5165e5e997 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	300	vt masterWindow:top.
2078 96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	301
4268 fe5165e5e997 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	302	top extent:(vt preferredExtent).
2078 96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	303	top label:'shell'.
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	304	top iconLabel:'shell'.
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	305	top icon:(self defaultIcon).
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	306	top open.
4268 fe5165e5e997 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4267 diff changeset	307	^ vt
2078 96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	308
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	309	"Modified: / 5.5.1999 / 17:25:59 / cg"
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	310	!
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	311
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	312	openOnInput:inStream output:outStream in:aView
2778 796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	313	"open a terminalView on the given streams
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	314	(which are typically some kind of socket or pty).
2078 96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	315	Keys pressed are sent to inStream, text appearing
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	316	from outStream is displayed in the terminal view.
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	317	This can be used to implement things like rlogin
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	318	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	319	implemented this way)."
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	320
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	321	\|scr vt\|
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	322
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	323	scr := ScrollableView for:self in:aView.
972 b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	324	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	325	vt := scr scrolledView.
972 b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	326
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	327	vt inStream:inStream.
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	328	vt outStream:outStream.
2778 796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	329	vt startReaderProcessWhenVisible.
972 b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	330
2078 96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	331	^ scr
974 f47cf9925f7a checkin from browser Claus Gittinger <cg@exept.de> parents: 972 diff changeset	332
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	333	"Modified: / 5.5.1999 / 17:25:59 / cg"
972 b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	334	!
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	335
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	336	openShell
972 b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	337	"start a shell on a pseudo-TTY, open a terminalView on it
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	338	(i.e. this is kind of an xterm)"
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	339
997 c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	340	^ self openShellIn:nil
992 2f4282cab560 added startIn:someDir. Claus Gittinger <cg@exept.de> parents: 985 diff changeset	341
2f4282cab560 added startIn:someDir. Claus Gittinger <cg@exept.de> parents: 985 diff changeset	342	"
2f4282cab560 added startIn:someDir. Claus Gittinger <cg@exept.de> parents: 985 diff changeset	343	VT100TerminalView openShell
2f4282cab560 added startIn:someDir. Claus Gittinger <cg@exept.de> parents: 985 diff changeset	344	"
2f4282cab560 added startIn:someDir. Claus Gittinger <cg@exept.de> parents: 985 diff changeset	345
997 c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	346	"Modified: / 21.7.1998 / 18:24:55 / cg"
992 2f4282cab560 added startIn:someDir. Claus Gittinger <cg@exept.de> parents: 985 diff changeset	347	!
2f4282cab560 added startIn:someDir. Claus Gittinger <cg@exept.de> parents: 985 diff changeset	348
2f4282cab560 added startIn:someDir. Claus Gittinger <cg@exept.de> parents: 985 diff changeset	349	openShellIn:aDirectory
2f4282cab560 added startIn:someDir. Claus Gittinger <cg@exept.de> parents: 985 diff changeset	350	"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	351	(i.e. this is kind of an xterm)"
2f4282cab560 added startIn:someDir. Claus Gittinger <cg@exept.de> parents: 985 diff changeset	352
2163 a54248bd5ac6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2155 diff changeset	353	\| top scr vt lbl\|
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	354
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	355	top := StandardSystemView new.
4446 02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	356	scr := HVScrollableView for:self in:top.
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	357	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	358	vt := scr scrolledView.
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	359	vt startShellIn:aDirectory.
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	360	vt shellTerminateAction:[top destroy].
4220 958b9bc73680 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4215 diff changeset	361	vt masterWindow: top.
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	362
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	363	lbl := OperatingSystem isUNIXlike ifTrue:['shell'] ifFalse:['dos'].
940 16c955286510 checkin from browser Claus Gittinger <cg@exept.de> parents: 938 diff changeset	364	top extent:(scr preferredExtent).
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	365	top label:lbl.
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	366	top iconLabel:lbl.
1052 732fd3255894 checkin from browser Claus Gittinger <cg@exept.de> parents: 1021 diff changeset	367	top icon:(self defaultIcon).
985 275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	368	top open.
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	369
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	370	^ vt
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	371
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	372	"
4446 02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	373	TerminalView openShellIn:'/etc'
02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	374	VT52TerminalView openShellIn:'/etc'
992 2f4282cab560 added startIn:someDir. Claus Gittinger <cg@exept.de> parents: 985 diff changeset	375	VT100TerminalView openShellIn:'/etc'
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	376	"
946 45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	377
992 2f4282cab560 added startIn:someDir. Claus Gittinger <cg@exept.de> parents: 985 diff changeset	378	"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	379	"Modified: / 5.5.1999 / 17:27:10 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	380	! !
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	381
972 b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	382	!TerminalView class methodsFor:'queries'!
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	383
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	384	isVisualStartable
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	385	"returns whether this application class can be started via #open"
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	386
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	387	self == TerminalView ifTrue:[^ false].
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	388	^ true
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	389
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	390	"Created: / 10.6.1998 / 15:48:43 / cg"
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	391	! !
b7c2386d8c60 checkin from browser ca parents: 969 diff changeset	392
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	393	!TerminalView methodsFor:'accessing'!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	394
2076 60558bc12d09 public access to filterStream; Michael Beyl <mb@exept.de> parents: 2075 diff changeset	395	filterStream:something
60558bc12d09 public access to filterStream; Michael Beyl <mb@exept.de> parents: 2075 diff changeset	396	"set a filter stream; if not nil, it gets all incoming data via nextPutAll:.
4317 4c2fd0c98fcb class: TerminalView Claus Gittinger <cg@exept.de> parents: 4315 diff changeset	397	Added to allow saving incoming data to a file, but can also be used to catch/filter/lookAt
4c2fd0c98fcb class: TerminalView Claus Gittinger <cg@exept.de> parents: 4315 diff changeset	398	incoming data by some other program"
2076 60558bc12d09 public access to filterStream; Michael Beyl <mb@exept.de> parents: 2075 diff changeset	399
60558bc12d09 public access to filterStream; Michael Beyl <mb@exept.de> parents: 2075 diff changeset	400	filterStream := something.
60558bc12d09 public access to filterStream; Michael Beyl <mb@exept.de> parents: 2075 diff changeset	401
60558bc12d09 public access to filterStream; Michael Beyl <mb@exept.de> parents: 2075 diff changeset	402	"Created: / 28.1.2002 / 20:56:04 / micha"
60558bc12d09 public access to filterStream; Michael Beyl <mb@exept.de> parents: 2075 diff changeset	403	"Modified: / 28.1.2002 / 20:56:11 / micha"
60558bc12d09 public access to filterStream; Michael Beyl <mb@exept.de> parents: 2075 diff changeset	404	!
60558bc12d09 public access to filterStream; Michael Beyl <mb@exept.de> parents: 2075 diff changeset	405
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	406	inStream
2954 d9d43dc5d4a5 coments Claus Gittinger <cg@exept.de> parents: 2810 diff changeset	407	"set the stream, which gets all input data (i.e. keyboard input)"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	408
2075 ac7da2b56ba6 upper case menu Claus Gittinger <cg@exept.de> parents: 1833 diff changeset	409	^ inStream
ac7da2b56ba6 upper case menu Claus Gittinger <cg@exept.de> parents: 1833 diff changeset	410	!
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	411
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	412	inStream:something
2954 d9d43dc5d4a5 coments Claus Gittinger <cg@exept.de> parents: 2810 diff changeset	413	"return the stream, which gets all input data (i.e. keyboard input)"
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	inStream := something.
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
4324 f45610b1f1ad class: TerminalView Claus Gittinger <cg@exept.de> parents: 4322 diff changeset	418	inputTranslateBackspaceToDelete
f45610b1f1ad class: TerminalView Claus Gittinger <cg@exept.de> parents: 4322 diff changeset	419	^ inputTranslateBackspaceToDelete
f45610b1f1ad class: TerminalView Claus Gittinger <cg@exept.de> parents: 4322 diff changeset	420	!
f45610b1f1ad class: TerminalView Claus Gittinger <cg@exept.de> parents: 4322 diff changeset	421
f45610b1f1ad class: TerminalView Claus Gittinger <cg@exept.de> parents: 4322 diff changeset	422	inputTranslateBackspaceToDelete:aBoolean
f45610b1f1ad class: TerminalView Claus Gittinger <cg@exept.de> parents: 4322 diff changeset	423	inputTranslateBackspaceToDelete := aBoolean.
f45610b1f1ad class: TerminalView Claus Gittinger <cg@exept.de> parents: 4322 diff changeset	424	!
f45610b1f1ad class: TerminalView Claus Gittinger <cg@exept.de> parents: 4322 diff changeset	425
2078 96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	426	inputTranslateCRToNL
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	427	^ inputTranslateCRToNL
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	428	!
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	429
4266 0113eb73167c class: TerminalView Claus Gittinger <cg@exept.de> parents: 4265 diff changeset	430	inputTranslateCRToNL:aBoolean
0113eb73167c class: TerminalView Claus Gittinger <cg@exept.de> parents: 4265 diff changeset	431	inputTranslateCRToNL := aBoolean.
2078 96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	432	!
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	433
4593 370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	434	lineEditMode:something
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	435	lineEditMode := something.
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	436	!
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	437
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	438	localEcho:aBoolean
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	439	"enable/disable local echo"
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	440
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	441	localEcho := aBoolean
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	442
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	443	"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	444	!
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	445
4220 958b9bc73680 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4215 diff changeset	446	masterWindow:something
958b9bc73680 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4215 diff changeset	447	masterWindow := something.
958b9bc73680 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4215 diff changeset	448	!
958b9bc73680 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4215 diff changeset	449
4299 50d20c3d24cc class: TerminalView Claus Gittinger <cg@exept.de> parents: 4295 diff changeset	450	noColors
50d20c3d24cc class: TerminalView Claus Gittinger <cg@exept.de> parents: 4295 diff changeset	451	^ noColors
50d20c3d24cc class: TerminalView Claus Gittinger <cg@exept.de> parents: 4295 diff changeset	452	!
50d20c3d24cc class: TerminalView Claus Gittinger <cg@exept.de> parents: 4295 diff changeset	453
50d20c3d24cc class: TerminalView Claus Gittinger <cg@exept.de> parents: 4295 diff changeset	454	noColors:something
50d20c3d24cc class: TerminalView Claus Gittinger <cg@exept.de> parents: 4295 diff changeset	455	noColors := something.
50d20c3d24cc class: TerminalView Claus Gittinger <cg@exept.de> parents: 4295 diff changeset	456	!
50d20c3d24cc class: TerminalView Claus Gittinger <cg@exept.de> parents: 4295 diff changeset	457
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	458	outStream
2954 d9d43dc5d4a5 coments Claus Gittinger <cg@exept.de> parents: 2810 diff changeset	459	"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	460
2075 ac7da2b56ba6 upper case menu Claus Gittinger <cg@exept.de> parents: 1833 diff changeset	461	^ outStream
ac7da2b56ba6 upper case menu Claus Gittinger <cg@exept.de> parents: 1833 diff changeset	462	!
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	463
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	464	outStream:something
2954 d9d43dc5d4a5 coments Claus Gittinger <cg@exept.de> parents: 2810 diff changeset	465	"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	466
2075 ac7da2b56ba6 upper case menu Claus Gittinger <cg@exept.de> parents: 1833 diff changeset	467	outStream := something.
ac7da2b56ba6 upper case menu Claus Gittinger <cg@exept.de> parents: 1833 diff changeset	468	!
946 45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	469
1004 8742d3af41a4 readerProcess access tz parents: 1000 diff changeset	470	readerProcess
8742d3af41a4 readerProcess access tz parents: 1000 diff changeset	471	^ readerProcess
8742d3af41a4 readerProcess access tz parents: 1000 diff changeset	472	!
8742d3af41a4 readerProcess access tz parents: 1000 diff changeset	473
4317 4c2fd0c98fcb class: TerminalView Claus Gittinger <cg@exept.de> parents: 4315 diff changeset	474	recorderStream:aWriteStream
4c2fd0c98fcb class: TerminalView Claus Gittinger <cg@exept.de> parents: 4315 diff changeset	475	"set a recorder stream; if not nil, it gets all user input (keyboard) data via nextPut:.
4c2fd0c98fcb class: TerminalView Claus Gittinger <cg@exept.de> parents: 4315 diff changeset	476	Added to allow saving of user input to a file, for later replay of a session"
4c2fd0c98fcb class: TerminalView Claus Gittinger <cg@exept.de> parents: 4315 diff changeset	477
4c2fd0c98fcb class: TerminalView Claus Gittinger <cg@exept.de> parents: 4315 diff changeset	478	recorderStream := aWriteStream.
4c2fd0c98fcb class: TerminalView Claus Gittinger <cg@exept.de> parents: 4315 diff changeset	479	!
4c2fd0c98fcb class: TerminalView Claus Gittinger <cg@exept.de> parents: 4315 diff changeset	480
4630 dccaedc34013 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4614 diff changeset	481	shellDirectory:something
dccaedc34013 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4614 diff changeset	482	shellDirectory := something.
dccaedc34013 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4614 diff changeset	483	!
dccaedc34013 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4614 diff changeset	484
946 45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	485	shellTerminateAction:aBlock
45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	486	"set the block which is evaluated when the shell terminates.
45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	487	Can be used to close down the application in this case."
45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	488
45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	489	shellTerminateAction := aBlock.
45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	490
45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	491	"Created: / 12.6.1998 / 17:02:58 / cg"
2076 60558bc12d09 public access to filterStream; Michael Beyl <mb@exept.de> parents: 2075 diff changeset	492	!
60558bc12d09 public access to filterStream; Michael Beyl <mb@exept.de> parents: 2075 diff changeset	493
60558bc12d09 public access to filterStream; Michael Beyl <mb@exept.de> parents: 2075 diff changeset	494	translateNLToCRNL
60558bc12d09 public access to filterStream; Michael Beyl <mb@exept.de> parents: 2075 diff changeset	495	^ translateNLToCRNL
60558bc12d09 public access to filterStream; Michael Beyl <mb@exept.de> parents: 2075 diff changeset	496
60558bc12d09 public access to filterStream; Michael Beyl <mb@exept.de> parents: 2075 diff changeset	497	"Created: / 28.1.2002 / 20:32:10 / micha"
60558bc12d09 public access to filterStream; Michael Beyl <mb@exept.de> parents: 2075 diff changeset	498	!
60558bc12d09 public access to filterStream; Michael Beyl <mb@exept.de> parents: 2075 diff changeset	499
4266 0113eb73167c class: TerminalView Claus Gittinger <cg@exept.de> parents: 4265 diff changeset	500	translateNLToCRNL:aBoolean
0113eb73167c class: TerminalView Claus Gittinger <cg@exept.de> parents: 4265 diff changeset	501	translateNLToCRNL := aBoolean.
2076 60558bc12d09 public access to filterStream; Michael Beyl <mb@exept.de> parents: 2075 diff changeset	502
60558bc12d09 public access to filterStream; Michael Beyl <mb@exept.de> parents: 2075 diff changeset	503	"Created: / 28.1.2002 / 20:32:10 / micha"
946 45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	504	! !
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	505
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	506	!TerminalView methodsFor:'cursor handling'!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	507
933 de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	508	cursorDown:n
de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	509	cursorLine + n > list size ifTrue:[
de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	510	list := list , (Array new:n).
de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	511	self textChanged.
de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	512	].
de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	513	super cursorDown:n
de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	514
de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	515	"Modified: / 10.6.1998 / 17:18:41 / cg"
de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	516	"Created: / 10.6.1998 / 17:18:50 / cg"
de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	517	!
de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	518
968 1cb313e6635b do not allow cursor movement (via buttonPress). Claus Gittinger <cg@exept.de> parents: 964 diff changeset	519	cursorMovementAllowed
1cb313e6635b do not allow cursor movement (via buttonPress). Claus Gittinger <cg@exept.de> parents: 964 diff changeset	520	"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	521	(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	522	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	523	cursor positioning escape sequences arriving from the
1cb313e6635b do not allow cursor movement (via buttonPress). Claus Gittinger <cg@exept.de> parents: 964 diff changeset	524	stream."
1cb313e6635b do not allow cursor movement (via buttonPress). Claus Gittinger <cg@exept.de> parents: 964 diff changeset	525
1cb313e6635b do not allow cursor movement (via buttonPress). Claus Gittinger <cg@exept.de> parents: 964 diff changeset	526	^ false
1cb313e6635b do not allow cursor movement (via buttonPress). Claus Gittinger <cg@exept.de> parents: 964 diff changeset	527
1cb313e6635b do not allow cursor movement (via buttonPress). Claus Gittinger <cg@exept.de> parents: 964 diff changeset	528	"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	529	!
1cb313e6635b do not allow cursor movement (via buttonPress). Claus Gittinger <cg@exept.de> parents: 964 diff changeset	530
2169 132759c9c32c numberOfTerminalCols query Claus Gittinger <cg@exept.de> parents: 2163 diff changeset	531	numberOfTerminalCols
132759c9c32c numberOfTerminalCols query Claus Gittinger <cg@exept.de> parents: 2163 diff changeset	532	^ numberOfColumns
132759c9c32c numberOfTerminalCols query Claus Gittinger <cg@exept.de> parents: 2163 diff changeset	533	!
132759c9c32c numberOfTerminalCols query Claus Gittinger <cg@exept.de> parents: 2163 diff changeset	534
1354 94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	535	numberOfTerminalColumns
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	536	^ numberOfColumns
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	537
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	538	"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	539	!
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	540
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	541	numberOfTerminalLines
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	542	"/ 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	543	"/ 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	544	"/ in ListView ...
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	545	"/ ... 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	546
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	547	^ numberOfLines
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	548
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	549	"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	550	"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	551	!
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	552
1077 49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	553	restoreCursor
49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	554	\|l c\|
49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	555
2192 5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	556	savedCursor isNil ifTrue:[
5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	557	l := c := 1.
5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	558	] ifFalse:[
5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	559	l := savedCursor y.
5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	560	c := savedCursor x.
5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	561	].
1077 49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	562	self cursorLine:l col:c.
49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	563
49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	564	"Created: / 14.8.1998 / 13:49:24 / cg"
49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	565	!
49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	566
49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	567	saveCursor
49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	568	savedCursor := cursorCol @ cursorLine
49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	569
49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	570	"Created: / 14.8.1998 / 13:48:45 / cg"
49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	571	"Modified: / 14.8.1998 / 13:49:32 / cg"
49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	572	!
49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	573
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	574	validateCursorCol:col inLine:line
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	575	"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	576	Here, the linelength is enforced"
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	577
2268 e3b57c072b89 wrap line at end penk parents: 2207 diff changeset	578	col > numberOfColumns ifTrue:[
e3b57c072b89 wrap line at end penk parents: 2207 diff changeset	579	autoWrapFlag ifTrue:[
e3b57c072b89 wrap line at end penk parents: 2207 diff changeset	580	self endEntry.
4452 ff2a970ba725 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4450 diff changeset	581	self cursorLine:(self cursorLine + 1) col:1 " (col-numberOfColumns) ".
2268 e3b57c072b89 wrap line at end penk parents: 2207 diff changeset	582	^ 1.
e3b57c072b89 wrap line at end penk parents: 2207 diff changeset	583	].
e3b57c072b89 wrap line at end penk parents: 2207 diff changeset	584	].
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	585	^ col min:numberOfColumns
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	586
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	587	"Modified: / 10.6.1998 / 15:09:41 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	588	! !
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	589
1358 ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	590	!TerminalView methodsFor:'defaults'!
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	591
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	592	anyKeyCodes
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	593	^ IdentityDictionary withKeysAndValues:
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	594	#(
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	595	#Escape '\e'
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	596	#BackSpace '\b'
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	597	#Return '\r'
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	598	#Delete '\0177'
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	599	#Tab '\t'
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	600	)
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	601
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	602	"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	603	! !
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	604
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	605	!TerminalView methodsFor:'event handling'!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	606
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	607	computeNumberOfLinesShown
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	608	\|prevNLines prevNCols\|
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	609
4518 e2bd93d275e5 class: TerminalView Stefan Vogel <sv@exept.de> parents: 4492 diff changeset	610	prevNCols := (innerWidth // gc font width).
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	611	prevNLines := nFullLinesShown.
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	612
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	613	super computeNumberOfLinesShown.
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	614
4518 e2bd93d275e5 class: TerminalView Stefan Vogel <sv@exept.de> parents: 4492 diff changeset	615	((innerWidth // gc font width) ~~ prevNCols
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	616	or:[prevNLines ~~ nFullLinesShown]) ifTrue:[
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	617	self defineWindowSize.
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	618	]
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	619
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	620	"Created: / 12.6.1998 / 22:34:39 / cg"
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	621	"Modified: / 20.6.1998 / 19:45:28 / cg"
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	622	!
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	623
1359 c571a792c5b0 resize if font changes Claus Gittinger <cg@exept.de> parents: 1358 diff changeset	624	contentsChanged
4256 da3d21982ece class: TerminalView Claus Gittinger <cg@exept.de> parents: 4254 diff changeset	625	"this one is sent, whenever contents changes its size"
da3d21982ece class: TerminalView Claus Gittinger <cg@exept.de> parents: 4254 diff changeset	626
1359 c571a792c5b0 resize if font changes Claus Gittinger <cg@exept.de> parents: 1358 diff changeset	627	super contentsChanged.
2594 63c4f60955be no defineWindowSize on contentsChanged penk parents: 2577 diff changeset	628	"/ self defineWindowSize.
1359 c571a792c5b0 resize if font changes Claus Gittinger <cg@exept.de> parents: 1358 diff changeset	629
c571a792c5b0 resize if font changes Claus Gittinger <cg@exept.de> parents: 1358 diff changeset	630	"Modified: / 11.6.1998 / 22:51:48 / cg"
c571a792c5b0 resize if font changes Claus Gittinger <cg@exept.de> parents: 1358 diff changeset	631	"Created: / 5.5.1999 / 16:30:15 / cg"
c571a792c5b0 resize if font changes Claus Gittinger <cg@exept.de> parents: 1358 diff changeset	632	!
c571a792c5b0 resize if font changes Claus Gittinger <cg@exept.de> parents: 1358 diff changeset	633
943 9eea2d5095b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 942 diff changeset	634	defineWindowSize
2192 5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	635	\| delta prevNumCols prevNumLines\|
1359 c571a792c5b0 resize if font changes Claus Gittinger <cg@exept.de> parents: 1358 diff changeset	636
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	637	"/self halt.
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	638	"/self realized ifFalse:[
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	639	"/ "/ iconfified
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	640	"/ ^ self
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	641	"/].
1359 c571a792c5b0 resize if font changes Claus Gittinger <cg@exept.de> parents: 1358 diff changeset	642	prevNumCols := numberOfColumns.
c571a792c5b0 resize if font changes Claus Gittinger <cg@exept.de> parents: 1358 diff changeset	643	prevNumLines := numberOfLines.
1161 42796d8e6544 handle 'cannot fork' case. Claus Gittinger <cg@exept.de> parents: 1077 diff changeset	644
4518 e2bd93d275e5 class: TerminalView Stefan Vogel <sv@exept.de> parents: 4492 diff changeset	645	numberOfColumns := (innerWidth // gc font width).
1354 94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	646	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	647	numberOfLines := nFullLinesShown.
1359 c571a792c5b0 resize if font changes Claus Gittinger <cg@exept.de> parents: 1358 diff changeset	648	((prevNumCols == numberOfColumns)
c571a792c5b0 resize if font changes Claus Gittinger <cg@exept.de> parents: 1358 diff changeset	649	and:[prevNumLines == numberOfLines]) ifTrue:[
c571a792c5b0 resize if font changes Claus Gittinger <cg@exept.de> parents: 1358 diff changeset	650	^ self
c571a792c5b0 resize if font changes Claus Gittinger <cg@exept.de> parents: 1358 diff changeset	651	].
c571a792c5b0 resize if font changes Claus Gittinger <cg@exept.de> parents: 1358 diff changeset	652
1354 94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	653	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	654	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	655	].
1341 3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	656
1359 c571a792c5b0 resize if font changes Claus Gittinger <cg@exept.de> parents: 1358 diff changeset	657	"/ any idea, how to do this under windows ?
c571a792c5b0 resize if font changes Claus Gittinger <cg@exept.de> parents: 1358 diff changeset	658
1354 94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	659	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	660	"/
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	661	"/ 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	662	"/ 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	663	"/
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	664	(inStream notNil
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	665	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	666	and:[inStream isOpen]]) ifTrue:[
4285 e07bad437b90 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4268 diff changeset	667	Debug ifTrue:[
4287 22ed06f6e073 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4285 diff changeset	668	Transcript showCR:'VT100: windowSize changed nLines to ', numberOfLines printString.
4285 e07bad437b90 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4268 diff changeset	669	].
1354 94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	670	(OperatingSystem
94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	671	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	672	width:numberOfColumns
4285 e07bad437b90 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4268 diff changeset	673	height:numberOfLines
e07bad437b90 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4268 diff changeset	674	) ifFalse:[
2192 5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	675	Debug ifTrue:[
5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	676	Transcript showCR:'VT100: cannot change windowSize'.
5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	677	].
1354 94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	678	].
964 43d6e33a4240 keep cursor off while more input is arriving. Claus Gittinger <cg@exept.de> parents: 958 diff changeset	679	].
1354 94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	680	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	681	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	682	]
943 9eea2d5095b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 942 diff changeset	683	].
9eea2d5095b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 942 diff changeset	684
9eea2d5095b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 942 diff changeset	685	"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	686	"Modified: / 5.5.1999 / 19:45:09 / cg"
943 9eea2d5095b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 942 diff changeset	687	!
9eea2d5095b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 942 diff changeset	688
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	689	keyPress:aKey x:x y:y
4164 7ed0d0bbc7cd class: TerminalView Claus Gittinger <cg@exept.de> parents: 4105 diff changeset	690	<resource: #keyboard (#Control #Control_L #Control_R
7ed0d0bbc7cd class: TerminalView Claus Gittinger <cg@exept.de> parents: 4105 diff changeset	691	#Shift #Shift_L #Shift_R
7ed0d0bbc7cd class: TerminalView Claus Gittinger <cg@exept.de> parents: 4105 diff changeset	692	#Alt #Alt_L #Alt_R
7ed0d0bbc7cd class: TerminalView Claus Gittinger <cg@exept.de> parents: 4105 diff changeset	693	#Cmd #Cmd_L #Cmd_R
7ed0d0bbc7cd class: TerminalView Claus Gittinger <cg@exept.de> parents: 4105 diff changeset	694	#Meta #Meta_L #Meta_R
7ed0d0bbc7cd class: TerminalView Claus Gittinger <cg@exept.de> parents: 4105 diff changeset	695	#Return)>
7ed0d0bbc7cd class: TerminalView Claus Gittinger <cg@exept.de> parents: 4105 diff changeset	696
4601 7a5e33b7f079 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4600 diff changeset	697	\|rest event rawKey seq\|
1358 ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	698
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	699	"/ somewhat complicated, since some characters
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	700	"/ should go untranslated (CTRL-key),
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	701	"/ even if defined as function keys.
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	702
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	703	inStream isNil ifTrue:[^ self].
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	704
4294 44d208158d1e class: TerminalView Claus Gittinger <cg@exept.de> parents: 4290 diff changeset	705	DebugKeyboard ifTrue:[
2192 5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	706	Transcript showCR:'----'; show:'keyPress:' ; showCR:aKey printString.
5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	707	].
4601 7a5e33b7f079 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4600 diff changeset	708	self shouldProcessInputInLineEditMode ifTrue:[
7a5e33b7f079 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4600 diff changeset	709	(self keyPressInLineEditMode:aKey) ifTrue:[^ self].
4593 370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	710	].
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	711
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	712	aKey isCharacter ifTrue:[
2466 f986a03f160f deselect on regular key Claus Gittinger <cg@exept.de> parents: 2450 diff changeset	713	self deselect.
f986a03f160f deselect on regular key Claus Gittinger <cg@exept.de> parents: 2450 diff changeset	714
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	715	localEcho ifTrue:[
3758 59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	716	self nextPut:aKey.
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	717	self flush.
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	718	].
4290 bad371611ba6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4288 diff changeset	719	"/ send it down to inStream ...
4317 4c2fd0c98fcb class: TerminalView Claus Gittinger <cg@exept.de> parents: 4315 diff changeset	720	self sendCharacter:aKey.
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	721	^ self
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	722	].
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	723
1366 137876addbea checkin from browser Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	724	(#(Control Control_L Control_R
137876addbea checkin from browser Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	725	Shift Shift_L Shift_R
137876addbea checkin from browser Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	726	Alt Alt_L Alt_R
137876addbea checkin from browser Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	727	Cmd Cmd_L Cmd_R
137876addbea checkin from browser Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	728	Meta Meta_L Meta_R) includes:aKey) ifTrue:[
137876addbea checkin from browser Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	729	^ self
137876addbea checkin from browser Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	730	].
137876addbea checkin from browser Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	731
1358 ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	732	"/
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	733	"/ 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	734	"/
2078 96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	735	(aKey == #Return
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	736	and:[inputTranslateCRToNL]) ifTrue:[
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	737	seq := '\n'.
96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	738	] ifFalse:[
4324 f45610b1f1ad class: TerminalView Claus Gittinger <cg@exept.de> parents: 4322 diff changeset	739	(aKey == #BackSpace
f45610b1f1ad class: TerminalView Claus Gittinger <cg@exept.de> parents: 4322 diff changeset	740	and:[inputTranslateBackspaceToDelete]) ifTrue:[
f45610b1f1ad class: TerminalView Claus Gittinger <cg@exept.de> parents: 4322 diff changeset	741	seq := kbdSequences at:#Delete ifAbsent:[ kbdSequences at:aKey ifAbsent:nil ].
f45610b1f1ad class: TerminalView Claus Gittinger <cg@exept.de> parents: 4322 diff changeset	742	] ifFalse:[
f45610b1f1ad class: TerminalView Claus Gittinger <cg@exept.de> parents: 4322 diff changeset	743	seq := kbdSequences at:aKey ifAbsent:nil.
f45610b1f1ad class: TerminalView Claus Gittinger <cg@exept.de> parents: 4322 diff changeset	744	].
2078 96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	745	].
3758 59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	746
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	747	seq notNil ifTrue:[
4294 44d208158d1e class: TerminalView Claus Gittinger <cg@exept.de> parents: 4290 diff changeset	748	DebugKeyboard ifTrue:[
2192 5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	749	Transcript show:'->' ; showCR:seq storeString.
5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	750	].
4105 a77be3c32b6d changed: Claus Gittinger <cg@exept.de> parents: 4030 diff changeset	751	seq := seq withoutCEscapes.
2078 96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	752
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	753	localEcho ifTrue:[
3758 59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	754	seq do:[:k \| self nextPut:k].
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	755	self flush.
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	756	].
4317 4c2fd0c98fcb class: TerminalView Claus Gittinger <cg@exept.de> parents: 4315 diff changeset	757	self send:seq.
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	758	^ self
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	759	].
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	760
1358 ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	761	self sensor ctrlDown ifTrue:[
1366 137876addbea checkin from browser Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	762	(aKey startsWith:'Ctrl') ifTrue:[
137876addbea checkin from browser Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	763	rawKey := aKey
137876addbea checkin from browser Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	764	] ifFalse:[
137876addbea checkin from browser Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	765	"/ already translated - undo it.
137876addbea checkin from browser Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	766
137876addbea checkin from browser Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	767	event := WindowGroup lastEventQuerySignal query.
137876addbea checkin from browser Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	768	rawKey := event rawKey.
137876addbea checkin from browser Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	769	rawKey isCharacter ifTrue:[
137876addbea checkin from browser Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	770	rawKey := 'Ctrl' , rawKey.
137876addbea checkin from browser Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	771	]
1360 fb843effdaea checkin from browser Claus Gittinger <cg@exept.de> parents: 1359 diff changeset	772	]
1358 ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	773	] ifFalse:[
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	774	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	775	].
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	776
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	777	"/
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	778	"/ 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	779	"/
4294 44d208158d1e class: TerminalView Claus Gittinger <cg@exept.de> parents: 4290 diff changeset	780	DebugKeyboard ifTrue:[
2192 5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	781	Transcript show:'raw ->' ; showCR:rawKey storeString.
5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	782	].
1358 ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	783
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	784	seq := kbdSequences at:rawKey ifAbsent:nil.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	785	seq notNil ifTrue:[
4294 44d208158d1e class: TerminalView Claus Gittinger <cg@exept.de> parents: 4290 diff changeset	786	DebugKeyboard ifTrue:[
3758 59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	787	Transcript show:'->' ; showCR:seq storeString.
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	788	].
4317 4c2fd0c98fcb class: TerminalView Claus Gittinger <cg@exept.de> parents: 4315 diff changeset	789	self send:(seq withoutCEscapes).
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	790	^ self
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	791	].
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	792
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	793	(rawKey startsWith:'Ctrl') ifTrue:[
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	794	rest := rawKey copyFrom:5.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	795	rest size == 1 ifTrue:[
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	796	rest := rest at:1.
4336 61805c42e70a class: TerminalView Claus Gittinger <cg@exept.de> parents: 4327 diff changeset	797	(rest asLowercase between:$a and:$z) ifTrue:[
4294 44d208158d1e class: TerminalView Claus Gittinger <cg@exept.de> parents: 4290 diff changeset	798	DebugKeyboard ifTrue:[
4336 61805c42e70a class: TerminalView Claus Gittinger <cg@exept.de> parents: 4327 diff changeset	799	Transcript show:'->' ; showCR:(Character controlCharacter:rest) storeString.
2192 5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	800	].
4336 61805c42e70a class: TerminalView Claus Gittinger <cg@exept.de> parents: 4327 diff changeset	801	self sendCharacter:(Character controlCharacter:rest).
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	802	^ self
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	803	].
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	804	]
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	805	].
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	806
934 b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	807	(rawKey startsWith:'Control') ifTrue:[
b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	808	^ self
b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	809	].
b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	810	(rawKey startsWith:'Shift') ifTrue:[
b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	811	^ self
b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	812	].
b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	813	(rawKey startsWith:'Alt') ifTrue:[
b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	814	^ self
b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	815	].
b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	816	(rawKey startsWith:'Cmd') ifTrue:[
950 9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	817	^ super keyPress:aKey x:x y:y
934 b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	818	].
1345 cd0939600467 checkin from browser Claus Gittinger <cg@exept.de> parents: 1343 diff changeset	819	(rawKey = 'Ctrl') ifTrue:[
cd0939600467 checkin from browser Claus Gittinger <cg@exept.de> parents: 1343 diff changeset	820	^ self
cd0939600467 checkin from browser Claus Gittinger <cg@exept.de> parents: 1343 diff changeset	821	].
934 b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	822
4294 44d208158d1e class: TerminalView Claus Gittinger <cg@exept.de> parents: 4290 diff changeset	823	DebugKeyboard ifTrue:[
2192 5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	824	Transcript show:'unhandled key: '; showCR:rawKey.
5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	825	].
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	826
4294 44d208158d1e class: TerminalView Claus Gittinger <cg@exept.de> parents: 4290 diff changeset	827	"
44d208158d1e class: TerminalView Claus Gittinger <cg@exept.de> parents: 4290 diff changeset	828	DebugKeyboard := true
44d208158d1e class: TerminalView Claus Gittinger <cg@exept.de> parents: 4290 diff changeset	829	"
44d208158d1e class: TerminalView Claus Gittinger <cg@exept.de> parents: 4290 diff changeset	830
4105 a77be3c32b6d changed: Claus Gittinger <cg@exept.de> parents: 4030 diff changeset	831	"Modified: / 25-01-2012 / 10:43:06 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	832	!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	833
4593 370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	834	keyPressInLineEditMode:aKey
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	835	"readline alike line editing.
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	836	return true, if the character was processed,
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	837	false if not. Then, the caller should proceed as usual."
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	838
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	839	\|clearLine\|
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	840
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	841	clearLine :=
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	842	[
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	843	lineBufferCursorPosition-1 timesRepeat:[ self deleteCharBeforeCursor ].
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	844	(lineBuffer size-(lineBufferCursorPosition-1)) timesRepeat:[ self deleteCharAtCursor].
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	845	].
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	846
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	847	"/ in lineEditMode, defer sending to the pty, until a newline is entered
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	848	lineBuffer isNil ifTrue:[
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	849	lineBuffer := String new.
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	850	lineBufferCursorPosition := 1.
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	851	].
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	852
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	853	aKey isCharacter ifTrue:[
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	854	lineBuffer := (lineBuffer copyTo:lineBufferCursorPosition-1)
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	855	, aKey
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	856	, (lineBuffer copyFrom:lineBufferCursorPosition).
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	857	self insertCharAtCursor:aKey.
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	858	lineBufferCursorPosition := lineBufferCursorPosition + 1.
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	859	^ true.
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	860	].
4601 7a5e33b7f079 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4600 diff changeset	861
4593 370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	862	aKey == #Return ifTrue:[
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	863	"/ as the pty is in echo mode,
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	864	"/ we should either disable echo for the following,
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	865	"/ or remove from the textview and let the program redraw them.
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	866	"/ the second alternative looks easier for now...
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	867	clearLine value.
4604 1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	868	self sendCR:lineBuffer.
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	869
4593 370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	870	lineBufferHistory isNil ifTrue:[
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	871	lineBufferHistory := OrderedCollection new.
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	872	].
4594 344e42610a24 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4593 diff changeset	873	(lineBufferHistory size > 0 and:[lineBufferHistory last isEmpty]) ifTrue:[
344e42610a24 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4593 diff changeset	874	lineBufferHistory removeLast
344e42610a24 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4593 diff changeset	875	].
4593 370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	876	lineBufferHistory addLast:lineBuffer.
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	877	lineBufferHistoryPosition := lineBufferHistory size + 1.
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	878	lineBuffer := nil.
4602 a5c14fbf63cf class: TerminalView Claus Gittinger <cg@exept.de> parents: 4601 diff changeset	879
a5c14fbf63cf class: TerminalView Claus Gittinger <cg@exept.de> parents: 4601 diff changeset	880	maxHistorySize notNil ifTrue:[
a5c14fbf63cf class: TerminalView Claus Gittinger <cg@exept.de> parents: 4601 diff changeset	881	[ lineBufferHistory size > maxHistorySize] whileTrue:[
a5c14fbf63cf class: TerminalView Claus Gittinger <cg@exept.de> parents: 4601 diff changeset	882	lineBufferHistory removeFirst.
a5c14fbf63cf class: TerminalView Claus Gittinger <cg@exept.de> parents: 4601 diff changeset	883	].
a5c14fbf63cf class: TerminalView Claus Gittinger <cg@exept.de> parents: 4601 diff changeset	884	].
a5c14fbf63cf class: TerminalView Claus Gittinger <cg@exept.de> parents: 4601 diff changeset	885
4593 370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	886	^ true.
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	887	].
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	888
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	889	aKey == #BackSpace ifTrue:[
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	890	lineBufferCursorPosition > 1 ifFalse:[
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	891	self beep.
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	892	^ true
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	893	].
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	894	lineBuffer := (lineBuffer copyTo:lineBufferCursorPosition-2)
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	895	, (lineBuffer copyFrom:lineBufferCursorPosition).
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	896	self deleteCharBeforeCursor.
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	897	lineBufferCursorPosition := lineBufferCursorPosition - 1.
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	898	^ true.
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	899	].
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	900
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	901	aKey == #CursorLeft ifTrue:[
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	902	lineBufferCursorPosition > 1 ifFalse:[
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	903	self beep.
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	904	^ true
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	905	].
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	906	lineBufferCursorPosition := lineBufferCursorPosition - 1.
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	907	self cursorLeft.
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	908	^ true.
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	909	].
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	910	aKey == #CursorRight ifTrue:[
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	911	lineBufferCursorPosition < lineBuffer size ifFalse:[
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	912	self beep.
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	913	^ true
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	914	].
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	915	lineBufferCursorPosition := lineBufferCursorPosition + 1.
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	916	self cursorRight.
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	917	^ true.
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	918	].
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	919	aKey == #CursorUp ifTrue:[
4603 e6736a82809f class: TerminalView Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	920	(lineBufferHistoryPosition notNil and:[lineBufferHistoryPosition > 1]) ifFalse:[
4593 370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	921	self beep.
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	922	^ true
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	923	].
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	924
4595 b6bca31ea81b class: TerminalView Claus Gittinger <cg@exept.de> parents: 4594 diff changeset	925	"/ remember the current lineBuffer (but only if it is the last)
4593 370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	926	lineBufferHistoryPosition > lineBufferHistory size ifTrue:[
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	927	lineBufferHistory add:lineBuffer.
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	928	].
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	929	clearLine value.
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	930
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	931	lineBufferHistoryPosition := lineBufferHistoryPosition - 1.
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	932	lineBuffer := lineBufferHistory at:lineBufferHistoryPosition.
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	933	self insertStringAtCursor:lineBuffer.
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	934	lineBufferCursorPosition := lineBuffer size + 1.
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	935	^ true.
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	936	].
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	937	aKey == #CursorDown ifTrue:[
4603 e6736a82809f class: TerminalView Claus Gittinger <cg@exept.de> parents: 4602 diff changeset	938	(lineBufferHistoryPosition notNil and:[lineBufferHistoryPosition < lineBufferHistory size]) ifFalse:[
4593 370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	939	self beep.
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	940	^ true
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	941	].
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	942
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	943	clearLine value.
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	944
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	945	lineBufferHistoryPosition := lineBufferHistoryPosition + 1.
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	946	lineBuffer := lineBufferHistory at:lineBufferHistoryPosition.
4594 344e42610a24 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4593 diff changeset	947	lineBufferHistoryPosition >= lineBufferHistory size ifTrue:[
344e42610a24 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4593 diff changeset	948	lineBufferHistory removeLast.
344e42610a24 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4593 diff changeset	949	].
4593 370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	950	self insertStringAtCursor:lineBuffer.
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	951	lineBufferCursorPosition := lineBuffer size + 1.
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	952	^ true.
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	953	].
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	954	^ false.
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	955	!
370db87f8232 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4576 diff changeset	956
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	957	shellTerminated
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	958	"shell has terminated"
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	959
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	960	"/Delay waitForSeconds:10.
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	961	[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	962	"/
4265 76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	963	self closeDownShellAndStopReaderProcess.
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	964
946 45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	965	shellTerminateAction notNil ifTrue:[
45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	966	shellTerminateAction value
45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	967	] ifFalse:[
45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	968	"/ may be removed ...
4250 7c940d59fc4e class: TerminalView Claus Gittinger <cg@exept.de> parents: 4223 diff changeset	969	self warn:(resources string:'shell terminated').
946 45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	970	]
45e3eac9c087 added shellTerminateAction Claus Gittinger <cg@exept.de> parents: 945 diff changeset	971
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	972	"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	973	!
1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	974
4601 7a5e33b7f079 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4600 diff changeset	975	shouldProcessInputInLineEditMode
7a5e33b7f079 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4600 diff changeset	976	"should input be processed in the readline edit mode?"
7a5e33b7f079 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4600 diff changeset	977
7a5e33b7f079 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4600 diff changeset	978	\|termiosInfo\|
7a5e33b7f079 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4600 diff changeset	979
7a5e33b7f079 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4600 diff changeset	980	lineEditMode == true ifFalse:[^ false].
7a5e33b7f079 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4600 diff changeset	981
7a5e33b7f079 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4600 diff changeset	982	"/ check if tty is in raw mode - then don't do lineEditMode
7a5e33b7f079 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4600 diff changeset	983	(OperatingSystem isUNIXlike
7a5e33b7f079 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4600 diff changeset	984	and:[ inStream isExternalStream ]) ifTrue:[
7a5e33b7f079 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4600 diff changeset	985	termiosInfo := inStream tcgetattr.
7a5e33b7f079 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4600 diff changeset	986	((termiosInfo at:#lflags) at:#icanon) ifFalse:[^ false].
7a5e33b7f079 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4600 diff changeset	987	].
7a5e33b7f079 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4600 diff changeset	988
7a5e33b7f079 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4600 diff changeset	989	"/ don't know how to do that on non-unix systems
7a5e33b7f079 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4600 diff changeset	990	^ true
7a5e33b7f079 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4600 diff changeset	991	!
7a5e33b7f079 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4600 diff changeset	992
942 1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	993	sizeChanged:how
1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	994	super sizeChanged:how.
943 9eea2d5095b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 942 diff changeset	995	self defineWindowSize.
942 1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	996
943 9eea2d5095b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 942 diff changeset	997	"Modified: / 11.6.1998 / 22:51:48 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	998	! !
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	999
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1000	!TerminalView methodsFor:'functions'!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1001
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1002	doBackspace
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1003	self cursorLeft.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1004	self replaceCharAtCursor:(Character space).
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1005	self cursorLeft.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1006
931 3dfdf1f7bd5d checkin from browser Claus Gittinger <cg@exept.de> parents: 929 diff changeset	1007	"Modified: / 10.6.1998 / 17:09:12 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1008	!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1009
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1010	doClearDisplay
1420 7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1011	"clear everything"
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1012
1000 879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	1013	self doClearEntireScreen.
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	1014
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	1015	"Modified: / 21.7.1998 / 20:05:35 / cg"
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	1016	!
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	1017
1420 7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1018	doClearEntireLine
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1019	"clear the cursor line. cursor position remains unchanged"
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1020
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1021	self at:cursorLine put:''
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1022	!
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1023
1000 879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	1024	doClearEntireScreen
1420 7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1025	"clear everything"
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1026
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1027	firstLineShown to:(list size) do:[:l \|
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1028	self at:l put:''
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1029	].
922 c8373b8c7986 * empty log message * Claus Gittinger <cg@exept.de> parents: 921 diff changeset	1030
1000 879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	1031	"Modified: / 21.7.1998 / 20:00:19 / cg"
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	1032	"Created: / 21.7.1998 / 20:05:24 / cg"
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1033	!
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1034
1000 879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	1035	doClearFromBeginningOfLine
1420 7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1036	"clear from beginning of line to the cursorPosition"
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1037
1000 879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	1038	\|l\|
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	1039
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	1040	l := self listAt:cursorLine.
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	1041	l notNil ifTrue:[
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	1042	(l size >= (cursorCol-1)) ifTrue:[
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	1043	l := l copy from:1 to:cursorCol-1 put:(Character space).
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	1044	] ifFalse:[
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	1045	l := nil.
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	1046	].
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	1047	self withoutRedrawAt:cursorLine put:l.
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	1048	self invalidateLine:cursorLine
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	1049	"/ self at:cursorLine put:l.
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	1050	]
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	1051
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	1052	"Modified: / 20.6.1998 / 19:10:21 / cg"
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	1053	"Created: / 21.7.1998 / 20:10:58 / cg"
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	1054	!
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	1055
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	1056	doClearFromBeginningOfScreen
1420 7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1057	"clear from beginning of the screen to the cursorPosition"
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1058
1000 879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	1059	self doClearFromBeginningOfLine.
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	1060	cursorLine-1 to:firstLineShown do:[:l \|
922 c8373b8c7986 * empty log message * Claus Gittinger <cg@exept.de> parents: 921 diff changeset	1061	self at:l put:''
c8373b8c7986 * empty log message * Claus Gittinger <cg@exept.de> parents: 921 diff changeset	1062	].
c8373b8c7986 * empty log message * Claus Gittinger <cg@exept.de> parents: 921 diff changeset	1063
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1064	"Modified: / 10.6.1998 / 14:45:43 / cg"
1000 879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	1065	"Created: / 21.7.1998 / 20:08:29 / cg"
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1066	!
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1067
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1068	doClearToEndOfLine
1420 7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1069	"clear from the cursorPosition to the end of the line"
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1070
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1071	\|l\|
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1072
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1073	l := self listAt:cursorLine.
931 3dfdf1f7bd5d checkin from browser Claus Gittinger <cg@exept.de> parents: 929 diff changeset	1074	(l size >= (cursorCol-1)) ifTrue:[
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	1075	l notNil ifTrue:[
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	1076	l := l copyTo:cursorCol-1.
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	1077	self withoutRedrawAt:cursorLine put:l.
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	1078	self invalidateLine:cursorLine
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	1079	"/ self at:cursorLine put:l.
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	1080	]
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1081	]
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1082
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1083	"Created: / 10.6.1998 / 14:45:01 / cg"
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	1084	"Modified: / 20.6.1998 / 19:10:21 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1085	!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1086
1000 879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	1087	doClearToEndOfScreen
1420 7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1088	"clear from the cursorPosition to the end of the screen"
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1089
1000 879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	1090	self doClearToEndOfLine.
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	1091	cursorLine+1 to:(list size) do:[:l \|
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	1092	self at:l put:''
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	1093	].
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	1094
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	1095	"Modified: / 10.6.1998 / 14:45:43 / cg"
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	1096	"Created: / 21.7.1998 / 20:06:14 / cg"
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	1097	!
879d9578e4b6 additional clear functions. Claus Gittinger <cg@exept.de> parents: 999 diff changeset	1098
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1099	doCursorDown:n
1420 7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1100	"move the cursor down by n lines"
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1101
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	1102	\|wasOn rEnd\|
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1103
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	1104	"/ rangeEndLine == numberOfLines ifTrue:[
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	1105	"/ ^ super cursorDown:n
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	1106	"/ ].
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	1107	cursorLine + 1 - firstLineShown + n <= rangeEndLine ifTrue:[
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	1108	"/ no special action req'd
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	1109	^ super cursorDown:n
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	1110	].
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	1111
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	1112	n timesRepeat:[
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	1113	wasOn := self hideCursor.
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	1114	rEnd := rangeEndLine+firstLineShown-1.
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	1115	cursorLine == rEnd ifTrue:[
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	1116	self deleteLine:(rangeStartLine+firstLineShown-1).
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	1117	self insertLine:'' before:rEnd.
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	1118	] ifFalse:[
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	1119	super cursorDown
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	1120	].
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	1121	wasOn ifTrue:[self showCursor]. "/ self makeCursorVisibleAndShowCursor:wasOn.
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	1122	]
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	1123
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	1124	"Modified: / 20.6.1998 / 20:29:39 / cg"
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1125	!
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1126
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1127	doCursorHome
1420 7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1128	"move the cursor to the home position"
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1129
938 3e65cc6f22cd checkin from browser Claus Gittinger <cg@exept.de> parents: 936 diff changeset	1130	self cursorVisibleLine:1 col:1
3e65cc6f22cd checkin from browser Claus Gittinger <cg@exept.de> parents: 936 diff changeset	1131	"/ super cursorHome
3e65cc6f22cd checkin from browser Claus Gittinger <cg@exept.de> parents: 936 diff changeset	1132
3e65cc6f22cd checkin from browser Claus Gittinger <cg@exept.de> parents: 936 diff changeset	1133	"Modified: / 10.6.1998 / 20:47:31 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1134	!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1135
942 1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	1136	doCursorLeft:n
1420 7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1137	"move the cursor to the left by n columns"
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1138
942 1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	1139	n timesRepeat:[
1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	1140	super cursorLeft
1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	1141	]
1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	1142
1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	1143	"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	1144	!
1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	1145
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1146	doCursorNewLine
1420 7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1147	"move the cursor down to the next line (col remains unchanged)"
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1148
931 3dfdf1f7bd5d checkin from browser Claus Gittinger <cg@exept.de> parents: 929 diff changeset	1149	super cursorDown:1
3dfdf1f7bd5d checkin from browser Claus Gittinger <cg@exept.de> parents: 929 diff changeset	1150
3dfdf1f7bd5d checkin from browser Claus Gittinger <cg@exept.de> parents: 929 diff changeset	1151	"Modified: / 10.6.1998 / 16:55:57 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1152	!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1153
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1154	doCursorReturn
1420 7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1155	"move the cursor down and left to the beginning to the next line"
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1156
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1157	super cursorToBeginOfLine
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1158	!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1159
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1160	doCursorRight:n
1420 7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1161	"move the cursor to the right by n columns"
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1162
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1163	self cursorCol:(cursorCol + n)
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1164
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1165	"Created: / 10.6.1998 / 15:10:08 / cg"
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1166	!
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1167
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	1168	doCursorUp:n
1420 7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1169	"move the cursor up by n lines"
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1170
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	1171	\|wasOn rStart\|
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1172
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	1173	"/ rangeStartLine == 1 ifTrue:[
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	1174	"/ ^ super cursorUp:n
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	1175	"/ ].
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	1176	cursorLine + 1 - firstLineShown - n >= rangeStartLine ifTrue:[
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	1177	"/ no special action req'd
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	1178	^ super cursorUp:n
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	1179	].
942 1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	1180	n timesRepeat:[
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	1181	wasOn := self hideCursor.
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	1182	rStart := rangeStartLine+firstLineShown-1.
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	1183	cursorLine == rStart ifTrue:[
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	1184	(rangeEndLine+firstLineShown-1) <= list size ifTrue:[
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	1185	self deleteLine:(rangeEndLine+firstLineShown-1).
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	1186	self insertLine:'' before:rStart.
32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	1187	].
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	1188	] ifFalse:[
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	1189	super cursorUp
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	1190	].
a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	1191	self makeCursorVisibleAndShowCursor:wasOn.
942 1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	1192	]
1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	1193
1f4fa3a6faec send a sigWINCH whenever the views size changes. Claus Gittinger <cg@exept.de> parents: 940 diff changeset	1194	"Created: / 11.6.1998 / 22:29:46 / cg"
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	1195	"Modified: / 20.6.1998 / 20:30:34 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1196	! !
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1197
2501 832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1198	!TerminalView methodsFor:'initialization & release'!
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1199
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1200	closeDownShell
4265 76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	1201	"shut down my shell process."
1420 7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1202
1009 4cfed4bac6f0 added #stopReaderProcess Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	1203	\|pid\|
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1204
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1205	(pid := shellPid) notNil ifTrue:[
2192 5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	1206	Debug ifTrue:[
4265 76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	1207	Transcript show:'killing shell pid='; showCR:pid.
2192 5f3bf896d334 vt100 perform now only cr and not cr-nl penk parents: 2191 diff changeset	1208	].
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1209	OperatingSystem terminateProcessGroup:pid.
df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1210	OperatingSystem terminateProcess:pid.
925 f9ef1268a21b kill after termination. Claus Gittinger <cg@exept.de> parents: 924 diff changeset	1211	Delay waitForSeconds:1.
f9ef1268a21b kill after termination. Claus Gittinger <cg@exept.de> parents: 924 diff changeset	1212	shellPid notNil ifTrue:[
1341 3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	1213	OperatingSystem isMSWINDOWSlike ifFalse:[
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	1214	OperatingSystem killProcessGroup:pid.
3467ffd6eb35 first attempt in supporting win32; Claus Gittinger <cg@exept.de> parents: 1339 diff changeset	1215	].
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1216	OperatingSystem killProcess:pid.
925 f9ef1268a21b kill after termination. Claus Gittinger <cg@exept.de> parents: 924 diff changeset	1217	shellPid := nil.
f9ef1268a21b kill after termination. Claus Gittinger <cg@exept.de> parents: 924 diff changeset	1218	].
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1219	OperatingSystem closePid:pid.
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1220	].
4265 76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	1221	!
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1222
4265 76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	1223	closeDownShellAndStopReaderProcess
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	1224	"shut down my shell process and stop the background reader thread."
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	1225
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	1226	self closeDownShell.
1009 4cfed4bac6f0 added #stopReaderProcess Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	1227	self stopReaderProcess.
4265 76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	1228	self closeStreams
1009 4cfed4bac6f0 added #stopReaderProcess Claus Gittinger <cg@exept.de> parents: 1005 diff changeset	1229
4265 76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	1230	"Modified: / 5.5.1999 / 18:43:02 / cg"
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	1231	!
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	1232
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	1233	closeStreams
4576 313dc2dc2b7b class: TerminalView Claus Gittinger <cg@exept.de> parents: 4518 diff changeset	1234	\|s\|
313dc2dc2b7b class: TerminalView Claus Gittinger <cg@exept.de> parents: 4518 diff changeset	1235
313dc2dc2b7b class: TerminalView Claus Gittinger <cg@exept.de> parents: 4518 diff changeset	1236	(s := inStream) notNil ifTrue:[
313dc2dc2b7b class: TerminalView Claus Gittinger <cg@exept.de> parents: 4518 diff changeset	1237	inStream := nil.
313dc2dc2b7b class: TerminalView Claus Gittinger <cg@exept.de> parents: 4518 diff changeset	1238	s isStream ifTrue:[s close].
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1239	].
4576 313dc2dc2b7b class: TerminalView Claus Gittinger <cg@exept.de> parents: 4518 diff changeset	1240	(s := outStream) notNil ifTrue:[
313dc2dc2b7b class: TerminalView Claus Gittinger <cg@exept.de> parents: 4518 diff changeset	1241	outStream := nil.
313dc2dc2b7b class: TerminalView Claus Gittinger <cg@exept.de> parents: 4518 diff changeset	1242	s close.
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1243	].
924 c1d2e1fecd79 checkin from browser Claus Gittinger <cg@exept.de> parents: 923 diff changeset	1244
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1245	"Modified: / 5.5.1999 / 18:43:02 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1246	!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1247
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1248	escapeSequences:codes
1420 7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1249	"setup my escape sequences"
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1250
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1251	\|tree\|
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1252
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1253	tree isNil ifTrue:[tree := escapeSequenceTree := IdentityDictionary new].
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1254
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1255	codes do:[:specEntry \|
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1256	\|sequence function\|
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1257
4105 a77be3c32b6d changed: Claus Gittinger <cg@exept.de> parents: 4030 diff changeset	1258	sequence := (specEntry at:1) withoutCEscapes.
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1259	function := specEntry at:2.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1260
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1261	tree := escapeSequenceTree.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1262
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1263	sequence keysAndValuesDo:[:idx :char \|
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1264	\|followup\|
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1265
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1266	idx == sequence size ifTrue:[
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1267	tree at:char put:function
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1268	] ifFalse:[
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1269	followup := tree at:char ifAbsent:nil.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1270	followup isNil ifTrue:[
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1271	tree at:char put:(followup := IdentityDictionary new).
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1272	].
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1273	tree := followup
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1274	]
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1275	]
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1276	].
918 2d6a4c91c4bd checkin from browser Claus Gittinger <cg@exept.de> parents: 917 diff changeset	1277	escapeLeadingChars := escapeSequenceTree keys asSet.
2d6a4c91c4bd checkin from browser Claus Gittinger <cg@exept.de> parents: 917 diff changeset	1278	escapeLeadingChars add:(Character cr).
2d6a4c91c4bd checkin from browser Claus Gittinger <cg@exept.de> parents: 917 diff changeset	1279	escapeLeadingChars add:(Character return).
2d6a4c91c4bd checkin from browser Claus Gittinger <cg@exept.de> parents: 917 diff changeset	1280	escapeLeadingChars add:(Character backspace).
2d6a4c91c4bd checkin from browser Claus Gittinger <cg@exept.de> parents: 917 diff changeset	1281
2d6a4c91c4bd checkin from browser Claus Gittinger <cg@exept.de> parents: 917 diff changeset	1282	escapeLeadingChars := escapeLeadingChars asArray
2d6a4c91c4bd checkin from browser Claus Gittinger <cg@exept.de> parents: 917 diff changeset	1283
4105 a77be3c32b6d changed: Claus Gittinger <cg@exept.de> parents: 4030 diff changeset	1284	"Modified: / 25-01-2012 / 10:42:46 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1285	!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1286
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1287	flushInput
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1288	\|sensor\|
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1289
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1290	"/ flush any leftover input-processing events
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1291	(sensor := self sensor) notNil ifTrue:[
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1292	sensor flushEventsFor:self withType:#processInput:n:.
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1293	]
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1294
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1295	"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	1296	"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	1297	!
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1298
2163 a54248bd5ac6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2155 diff changeset	1299	initStyle
a54248bd5ac6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2155 diff changeset	1300	super initStyle.
a54248bd5ac6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2155 diff changeset	1301	"/ self foregroundColor:Color green.
a54248bd5ac6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2155 diff changeset	1302	"/ self backgroundColor:Color black.
a54248bd5ac6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2155 diff changeset	1303	!
a54248bd5ac6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2155 diff changeset	1304
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1305	initialize
2194 d008bb991def adding comments penk parents: 2192 diff changeset	1306
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1307	super initialize.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1308
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1309	showMatchingParenthesis := false.
4288 2cf48c1738f7 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4287 diff changeset	1310	self insertMode: false.
936 d377fb0f726f checkin from browser Claus Gittinger <cg@exept.de> parents: 935 diff changeset	1311	alwaysAppendAtEnd := false.
4315 1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	1312	collectSize := 4096.
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	1313	sizeOfOutstandingInputToBeProcessed := 0.
977 785c3ad4eff1 turn off st80Mode Claus Gittinger <cg@exept.de> parents: 976 diff changeset	1314	st80Mode := false.
785c3ad4eff1 turn off st80Mode Claus Gittinger <cg@exept.de> parents: 976 diff changeset	1315	trimBlankLines := true.
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1316	localEcho := false.
2078 96c664b79c19 + inputTranslateCRtoCRNL Claus Gittinger <cg@exept.de> parents: 2077 diff changeset	1317	inputTranslateCRToNL := false.
4604 1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	1318	inputTranslateCRToCRNL := OperatingSystem isMSWINDOWSlike.
4324 f45610b1f1ad class: TerminalView Claus Gittinger <cg@exept.de> parents: 4322 diff changeset	1319	inputTranslateBackspaceToDelete := false.
2268 e3b57c072b89 wrap line at end penk parents: 2207 diff changeset	1320	autoWrapFlag := true.
4299 50d20c3d24cc class: TerminalView Claus Gittinger <cg@exept.de> parents: 4295 diff changeset	1321	noColors := false.
4612 e05d68f2d152 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4604 diff changeset	1322	doUTF := UserPreferences current terminalOutputIsUTF8.
4604 1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	1323	lineEditMode := OperatingSystem isMSWINDOWSlike.
4602 a5c14fbf63cf class: TerminalView Claus Gittinger <cg@exept.de> parents: 4601 diff changeset	1324	maxHistorySize := maxHistorySize ? DefaultMaxHistorySize.
a5c14fbf63cf class: TerminalView Claus Gittinger <cg@exept.de> parents: 4601 diff changeset	1325
2268 e3b57c072b89 wrap line at end penk parents: 2207 diff changeset	1326	"/ cursorType := #block.
4452 ff2a970ba725 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4450 diff changeset	1327	"/ cursorTypeNoFocus := #frame.
ff2a970ba725 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4450 diff changeset	1328
4446 02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	1329	state := 0.
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1330
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1331	numberOfColumns := 80.
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	1332	numberOfLines := 24.
954 4cef50a89ca1 * empty log message * Claus Gittinger <cg@exept.de> parents: 951 diff changeset	1333	rangeStartLine := 1.
4cef50a89ca1 * empty log message * Claus Gittinger <cg@exept.de> parents: 951 diff changeset	1334	rangeEndLine := numberOfLines.
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1335
2423 d2685982f94f tabs are always in multiples of 8 (no matter what users pref are) Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	1336	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	1337
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1338	self initializeKeyboardSequences.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1339	list := OrderedCollection new:24 withAll:''.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1340
2577 6dc84e11433a windows fix: sequence for RETURN ca parents: 2573 diff changeset	1341	OperatingSystem isMSWINDOWSlike ifTrue:[
6dc84e11433a windows fix: sequence for RETURN ca parents: 2573 diff changeset	1342	kbdSequences at:#Return put:'\r\n'.
6dc84e11433a windows fix: sequence for RETURN ca parents: 2573 diff changeset	1343	].
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1344	self initializeKeyboardMap.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1345
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1346	"
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1347	VT52TerminalView openShell
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1348	VT100TerminalView openShell
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1349	"
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	1350
4315 1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	1351	"Modified: / 30-07-2013 / 10:43:07 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1352	!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1353
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1354	initializeKeyboardMap
1349 f2489f1bacd4 oops - care for Alt-GR keys Claus Gittinger <cg@exept.de> parents: 1347 diff changeset	1355	\|keys ctrlKeys cmdKeys\|
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1356
1349 f2489f1bacd4 oops - care for Alt-GR keys Claus Gittinger <cg@exept.de> parents: 1347 diff changeset	1357	"/ setup my own keyboardMap, where control-keys
f2489f1bacd4 oops - care for Alt-GR keys Claus Gittinger <cg@exept.de> parents: 1347 diff changeset	1358	"/ (and some Cmd-keys) are not translated.
4518 e2bd93d275e5 class: TerminalView Stefan Vogel <sv@exept.de> parents: 4492 diff changeset	1359	kbdMap := self graphicsDevice keyboardMap copy.
1349 f2489f1bacd4 oops - care for Alt-GR keys Claus Gittinger <cg@exept.de> parents: 1347 diff changeset	1360	keys := kbdMap keys.
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1361
1349 f2489f1bacd4 oops - care for Alt-GR keys Claus Gittinger <cg@exept.de> parents: 1347 diff changeset	1362	ctrlKeys := keys select:[:key \| key startsWith:'Ctrl'].
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1363	ctrlKeys do:[:key \| kbdMap removeKey:key].
950 9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1364
1349 f2489f1bacd4 oops - care for Alt-GR keys Claus Gittinger <cg@exept.de> parents: 1347 diff changeset	1365	cmdKeys := keys select:[:key \| key startsWith:'Cmd'].
f2489f1bacd4 oops - care for Alt-GR keys Claus Gittinger <cg@exept.de> parents: 1347 diff changeset	1366	cmdKeys do:[:key \| \|val\|
f2489f1bacd4 oops - care for Alt-GR keys Claus Gittinger <cg@exept.de> parents: 1347 diff changeset	1367	val := kbdMap at:key.
f2489f1bacd4 oops - care for Alt-GR keys Claus Gittinger <cg@exept.de> parents: 1347 diff changeset	1368	val isSymbol ifTrue:[
2506 f12c7c321131 menu (search and goto) Claus Gittinger <cg@exept.de> parents: 2501 diff changeset	1369	(#(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	1370	kbdMap removeKey:key
f2489f1bacd4 oops - care for Alt-GR keys Claus Gittinger <cg@exept.de> parents: 1347 diff changeset	1371	]
950 9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1372	]
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1373	].
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1374
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1375	kbdMap removeKey:#Delete ifAbsent:[].
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1376	kbdMap removeKey:#BackSpace ifAbsent:[].
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1377
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1378	"
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1379	VT52TerminalView openShell
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1380	"
950 9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	1381
1349 f2489f1bacd4 oops - care for Alt-GR keys Claus Gittinger <cg@exept.de> parents: 1347 diff changeset	1382	"Modified: / 29.4.1999 / 14:25:24 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1383	!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1384
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1385	initializeKeyboardSequences
1358 ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	1386	kbdSequences := (self anyKeyCodes)
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	1387
ec94a03e4585 Ctrl-keys which are mapped to function keys Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	1388	"Modified: / 5.5.1999 / 15:01:09 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1389	!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1390
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1391	keyboardMap
934 b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	1392	"return my keyboard map. This has control keys removed and
b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	1393	those will be passed unchanged to the shell"
b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	1394
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1395	^ kbdMap
934 b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	1396
b450dbaeedac checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	1397	"Modified: / 10.6.1998 / 17:46:59 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1398	!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1399
1319 0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1400	reinitialize
1833 69a0c170cd80 * empty log message * Claus Gittinger <cg@exept.de> parents: 1485 diff changeset	1401	"reinit after a snapIn.
69a0c170cd80 * empty log message * Claus Gittinger <cg@exept.de> parents: 1485 diff changeset	1402	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	1403
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1404	super reinitialize.
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1405
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1406	shellPid := nil.
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1407
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1408	self stopReaderProcess.
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1409	self flushInput.
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1410
1319 0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1411	readerProcess := nil.
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1412	inStream := outStream := nil.
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1413
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1414	"/ 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	1415	[
1322 30150c59eb97 dont delay the reinit Claus Gittinger <cg@exept.de> parents: 1321 diff changeset	1416	"/ Delay waitForSeconds:0.5.
1319 0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1417	self doClearEntireScreen.
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1418	self cursorLine:1 col:1.
1321 9a312fa98358 also throw away scrolled text whith restart. Claus Gittinger <cg@exept.de> parents: 1320 diff changeset	1419	self contents:nil.
1319 0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1420	self flash.
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1421
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1422	"/
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1423	"/ 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	1424	"/
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1425	self startCommand:shellCommand in:shellDirectory.
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1426	] forkAt:8
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1427
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	1428	"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	1429	!
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1430
2155 b007892599e4 destroy - release Claus Gittinger <cg@exept.de> parents: 2126 diff changeset	1431	release
b007892599e4 destroy - release Claus Gittinger <cg@exept.de> parents: 2126 diff changeset	1432	"release myself - shut down the shell, stop the reader thread."
b007892599e4 destroy - release Claus Gittinger <cg@exept.de> parents: 2126 diff changeset	1433
4265 76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	1434	[
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	1435	self closeDownShellAndStopReaderProcess.
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	1436	self flushInput.
2341 9b19cf22a099 release pipe in background (faster shutdown) Claus Gittinger <cg@exept.de> parents: 2268 diff changeset	1437	] fork.
2155 b007892599e4 destroy - release Claus Gittinger <cg@exept.de> parents: 2126 diff changeset	1438	super release
b007892599e4 destroy - release Claus Gittinger <cg@exept.de> parents: 2126 diff changeset	1439
b007892599e4 destroy - release Claus Gittinger <cg@exept.de> parents: 2126 diff changeset	1440	"Modified: / 5.5.1999 / 18:42:55 / cg"
985 275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	1441	! !
275897f12b52 added #openOnCommand:, to allow view on any (non-shell) Claus Gittinger <cg@exept.de> parents: 979 diff changeset	1442
2501 832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1443	!TerminalView methodsFor:'initialization-shell'!
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1444
2778 796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1445	basicStartCommand:aCommand in:aDirectory
2501 832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1446	"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	1447	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	1448	executed in that directory.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1449	Also fork a reader process, to read the shells output and
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1450	tell me, whenever something arrives"
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	\|pty slaveFD execFdArray blocked exitStatus
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1453	stxToCommandPipe commandToStxPipe cmd shell args env shellAndArgs\|
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1454
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1455	shellCommand := aCommand.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1456	shellDirectory := aDirectory.
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	self create. "/ need my windowID (to pass down in environment)
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	OperatingSystem isMSWINDOWSlike ifTrue:[
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1461	"use two pipes to COMMAND.COM"
2538 2ee2ed3bad39 Move makePTYPair to NonPositionableExternalStream Stefan Vogel <sv@exept.de> parents: 2506 diff changeset	1462	stxToCommandPipe := NonPositionableExternalStream makePipe.
2501 832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1463	stxToCommandPipe isNil ifTrue:[
4250 7c940d59fc4e class: TerminalView Claus Gittinger <cg@exept.de> parents: 4223 diff changeset	1464	self warn:(resources string:'Could not create pipe to COMMAND.COM.').
7c940d59fc4e class: TerminalView Claus Gittinger <cg@exept.de> parents: 4223 diff changeset	1465	^ self.
2501 832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1466	].
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1467
2538 2ee2ed3bad39 Move makePTYPair to NonPositionableExternalStream Stefan Vogel <sv@exept.de> parents: 2506 diff changeset	1468	commandToStxPipe := NonPositionableExternalStream makePipe.
2501 832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1469	commandToStxPipe isNil ifTrue:[
4250 7c940d59fc4e class: TerminalView Claus Gittinger <cg@exept.de> parents: 4223 diff changeset	1470	self warn:(resources string:'Could not create pipe from COMMAND.COM.').
7c940d59fc4e class: TerminalView Claus Gittinger <cg@exept.de> parents: 4223 diff changeset	1471	^ self.
2501 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	"/ pipe readSide is p at:1;
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1475	"/ writeSide is p at:2
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1476
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1477	slaveFD := (commandToStxPipe at:2) fileDescriptor.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1478	execFdArray := Array
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1479	with:(stxToCommandPipe at:1) fileDescriptor "stdin"
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1480	with:slaveFD "stdout"
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1481	with:slaveFD. "stderr"
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1482
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1483	outStream := commandToStxPipe at:1.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1484	inStream := stxToCommandPipe at:2.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1485
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1486	shellAndArgs := OperatingSystem commandAndArgsForOSCommand:aCommand.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1487	shell := shellAndArgs at:1.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1488	args := (shellAndArgs at:2) ? ''.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1489	] ifFalse:[
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1490	"Use a pseudo-tty"
2538 2ee2ed3bad39 Move makePTYPair to NonPositionableExternalStream Stefan Vogel <sv@exept.de> parents: 2506 diff changeset	1491	pty := NonPositionableExternalStream makePTYPair.
2501 832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1492	pty isNil ifTrue:[
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1493	self warn:'Cannot open pty.'.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1494	^ self.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1495	].
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1496
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1497	"/ pty at:1 is the master;
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1498	"/ pty at:2 is the slave
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1499	inStream := outStream := (pty at:1).
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1500
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1501	self defineWindowSize.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1502	"/ fork a shell process on the slave-side
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1503	slaveFD := (pty at:2) fileDescriptor.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1504	execFdArray := Array with:slaveFD with:slaveFD with:slaveFD.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1505
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1506	aCommand isNil ifTrue:[
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1507	shell := OperatingSystem getEnvironment:'SHELL'.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1508	shell size == 0 ifTrue:[
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1509	shell := '/bin/sh'.
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	cmd := shell asFilename baseName.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1512	args := (Array with:cmd).
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1513	] ifFalse:[
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1514	shell := '/bin/sh'.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1515	args := (Array with:'sh' with:'-c' with:aCommand).
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1516	].
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1517	env := Dictionary new.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1518	env at:'SHELL' put:shell.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1519	env at:'TERM' put:(self terminalType).
4222 7de7ab92ac71 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4220 diff changeset	1520	env at:'HOME' put:(OperatingSystem getEnvironment:'HOME').
7de7ab92ac71 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4220 diff changeset	1521	env at:'USER' put:(OperatingSystem getEnvironment:'USER').
2501 832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1522	env at:'LINES' put:(numberOfLines printString).
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1523	env at:'COLUMNS' put:(numberOfColumns printString).
4518 e2bd93d275e5 class: TerminalView Stefan Vogel <sv@exept.de> parents: 4492 diff changeset	1524	(self graphicsDevice platformName = 'X11' and:[self drawableId notNil]) ifTrue:[
e2bd93d275e5 class: TerminalView Stefan Vogel <sv@exept.de> parents: 4492 diff changeset	1525	env at:'WINDOWID' put:(self drawableId address printString).
2501 832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1526	].
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1527	].
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1528
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1529	blocked := OperatingSystem blockInterrupts.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1530
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1531	shellPid := Processor
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1532	monitor:[
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1533	OperatingSystem
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1534	exec:shell
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1535	withArguments:args
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1536	environment:env
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1537	fileDescriptors:execFdArray
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1538	fork:true
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1539	newPgrp:true
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1540	inDirectory:aDirectory.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1541	]
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1542	action:[:status \|
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1543	Debug ifTrue:[
4325 ac76719332a6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4324 diff changeset	1544	Transcript showCR:'shell status change'.
ac76719332a6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4324 diff changeset	1545	Transcript show:' pid:'; showCR:status pid.
ac76719332a6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4324 diff changeset	1546	Transcript show:' status:'; showCR:status status.
ac76719332a6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4324 diff changeset	1547	Transcript show:' code:'; showCR:status code.
ac76719332a6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4324 diff changeset	1548	Transcript show:' core:'; showCR:status core.
2501 832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1549	].
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1550	status stillAlive ifFalse:[
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1551	exitStatus := status.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1552	OperatingSystem closePid:shellPid.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1553	shellPid := nil.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1554	self pushEvent:#shellTerminated
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1555	].
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1556	].
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1557
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1558	blocked ifFalse:[
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1559	OperatingSystem unblockInterrupts
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1560	].
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1561
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1562	"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	1563	pty notNil ifTrue:[
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1564	(pty at:2) close.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1565	].
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1566
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1567	commandToStxPipe notNil ifTrue:[
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1568	(commandToStxPipe at:2) close.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1569	(stxToCommandPipe at:1) close.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1570	].
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1571
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1572	shellPid isNil ifTrue:[
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1573	self warn:'Cannot start shell'.
4327 9fa4f8804902 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4325 diff changeset	1574	self closeStreams.
2501 832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1575	^ self.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1576	].
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1577
2778 796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1578	"Created: / 20.7.1998 / 18:19:32 / cg"
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1579	"Modified: / 5.5.1999 / 17:28:37 / cg"
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1580	!
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1581
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1582	startCommand:aCommand
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1583	"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	1584	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	1585	Also fork a reader process, to read the shells output and
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1586	tell me, whenever something arrives"
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1587
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1588	self startCommand:aCommand in:nil
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1589
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1590	"Modified: / 20.7.1998 / 18:30:24 / cg"
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1591	!
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1592
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1593	startCommand:aCommand in:aDirectory
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1594	"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	1595	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	1596	executed in that directory.
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1597	Also fork a reader process, to read the shells output and
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1598	tell me, whenever something arrives"
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1599
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1600	self basicStartCommand:aCommand in:aDirectory.
796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1601	self startReaderProcessWhenVisible.
2501 832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1602
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1603	"Created: / 20.7.1998 / 18:19:32 / cg"
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1604	"Modified: / 5.5.1999 / 17:28:37 / cg"
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1605	!
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1606
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1607	startShell
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1608	"start a shell on a pseudo terminal in the current directory.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1609	Also fork a reader process, to read the shells output and
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1610	tell me, whenever something arrives"
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1611
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1612	^ self startCommand:nil
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1613
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1614	"
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1615	VT100TerminalView openShell
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1616	"
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1617
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1618	"Modified: / 20.7.1998 / 18:29:54 / cg"
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1619	!
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1620
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1621	startShellIn:aDirectory
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1622	"start a shell on a pseudo terminal in some directory.
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1623	Also fork a reader process, to read the shells output and
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1624	tell me, whenever something arrives"
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1625
2778 796ab4177728 * empty log message * Claus Gittinger <cg@exept.de> parents: 2678 diff changeset	1626	self startCommand:nil in:aDirectory
2501 832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1627
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1628	"
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1629	VT100TerminalView openShellIn:'/etc'
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1630	"
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1631
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1632	"Modified: / 20.7.1998 / 18:29:46 / cg"
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1633	! !
832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2498 diff changeset	1634
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1635	!TerminalView methodsFor:'menu'!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1636
3225 65c338f35160 clear menu function Claus Gittinger <cg@exept.de> parents: 2954 diff changeset	1637	doClear
65c338f35160 clear menu function Claus Gittinger <cg@exept.de> parents: 2954 diff changeset	1638	"reset the scroll-range etc, clear the text buffer"
65c338f35160 clear menu function Claus Gittinger <cg@exept.de> parents: 2954 diff changeset	1639
65c338f35160 clear menu function Claus Gittinger <cg@exept.de> parents: 2954 diff changeset	1640	rangeStartLine := 1.
65c338f35160 clear menu function Claus Gittinger <cg@exept.de> parents: 2954 diff changeset	1641	rangeEndLine := numberOfLines.
65c338f35160 clear menu function Claus Gittinger <cg@exept.de> parents: 2954 diff changeset	1642
65c338f35160 clear menu function Claus Gittinger <cg@exept.de> parents: 2954 diff changeset	1643	self normal.
65c338f35160 clear menu function Claus Gittinger <cg@exept.de> parents: 2954 diff changeset	1644	self clear.
65c338f35160 clear menu function Claus Gittinger <cg@exept.de> parents: 2954 diff changeset	1645
65c338f35160 clear menu function Claus Gittinger <cg@exept.de> parents: 2954 diff changeset	1646	"Created: / 03-04-2007 / 08:58:59 / cg"
65c338f35160 clear menu function Claus Gittinger <cg@exept.de> parents: 2954 diff changeset	1647	!
65c338f35160 clear menu function Claus Gittinger <cg@exept.de> parents: 2954 diff changeset	1648
1319 0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1649	doReset
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1650	"reset the scroll-range;
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1651	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	1652
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1653	rangeStartLine := 1.
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1654	rangeEndLine := numberOfLines.
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1655
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1656	self normal.
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1657
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1658	!
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1659
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1660	doSendInterrupt
1420 7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1661	"send an INT-signal to the shell (UNIX only)"
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1662
4338 b82aa1a654ab class: TerminalView Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	1663	\|status\|
b82aa1a654ab class: TerminalView Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	1664
2597 c7e8bfde1852 * empty log message * Claus Gittinger <cg@exept.de> parents: 2594 diff changeset	1665	shellPid notNil ifTrue:[
4306 45518d433737 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4300 diff changeset	1666	OperatingSystem isUNIXlike ifTrue:[
45518d433737 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4300 diff changeset	1667	OperatingSystem sendSignal:(OperatingSystem sigINT) to:shellPid negated.
4338 b82aa1a654ab class: TerminalView Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	1668	OperatingSystem sendSignal:(OperatingSystem sigINT) to:shellPid.
b82aa1a654ab class: TerminalView Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	1669	status := OperatingSystem childProcessWait:false pid:shellPid.
4306 45518d433737 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4300 diff changeset	1670	] ifFalse:[
45518d433737 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4300 diff changeset	1671	self warn:'unimplemented for DOS'
45518d433737 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4300 diff changeset	1672	]
2597 c7e8bfde1852 * empty log message * Claus Gittinger <cg@exept.de> parents: 2594 diff changeset	1673	].
1319 0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1674
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1675	"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	1676	!
0f19d022f577 restart shell when coming up via a snapshot Claus Gittinger <cg@exept.de> parents: 1317 diff changeset	1677
2573 9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	1678	doSendKillSignal
9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	1679	"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	1680
4338 b82aa1a654ab class: TerminalView Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	1681	\|status\|
b82aa1a654ab class: TerminalView Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	1682
2597 c7e8bfde1852 * empty log message * Claus Gittinger <cg@exept.de> parents: 2594 diff changeset	1683	shellPid notNil ifTrue:[
4306 45518d433737 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4300 diff changeset	1684	OperatingSystem isUNIXlike ifTrue:[
45518d433737 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4300 diff changeset	1685	OperatingSystem sendSignal:(OperatingSystem sigKILL) to:shellPid negated.
4338 b82aa1a654ab class: TerminalView Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	1686	OperatingSystem sendSignal:(OperatingSystem sigKILL) to:shellPid.
b82aa1a654ab class: TerminalView Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	1687	status := OperatingSystem childProcessWait:false pid:shellPid.
b82aa1a654ab class: TerminalView Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	1688	self halt.
4306 45518d433737 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4300 diff changeset	1689	] ifFalse:[
45518d433737 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4300 diff changeset	1690	self warn:'unimplemented for DOS'
45518d433737 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4300 diff changeset	1691	]
2597 c7e8bfde1852 * empty log message * Claus Gittinger <cg@exept.de> parents: 2594 diff changeset	1692	]
2573 9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	1693	!
9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	1694
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1695	editMenu
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1696	"return the views middleButtonMenu"
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1697
1347 a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1698	<resource: #keyboard (#Copy #Paste #Print #SaveAs #Print)>
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1699	<resource: #programMenu>
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1700
4487 2f12b83177ce class: TerminalView Claus Gittinger <cg@exept.de> parents: 4479 diff changeset	1701	\|items subMenu moreMenu m sensor\|
2573 9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	1702
9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	1703	items := #(
3225 65c338f35160 clear menu function Claus Gittinger <cg@exept.de> parents: 2954 diff changeset	1704	('Interrupt' doSendInterrupt )
2573 9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	1705	('Kill' doSendKillSignal)
3225 65c338f35160 clear menu function Claus Gittinger <cg@exept.de> parents: 2954 diff changeset	1706	('-' )
65c338f35160 clear menu function Claus Gittinger <cg@exept.de> parents: 2954 diff changeset	1707	('Clear' doClear )
65c338f35160 clear menu function Claus Gittinger <cg@exept.de> parents: 2954 diff changeset	1708	('Reset' doReset )
2573 9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	1709	).
9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	1710	subMenu := PopUpMenu itemList:items resources:resources.
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1711
4487 2f12b83177ce class: TerminalView Claus Gittinger <cg@exept.de> parents: 4479 diff changeset	1712	items := #(
2f12b83177ce class: TerminalView Claus Gittinger <cg@exept.de> parents: 4479 diff changeset	1713	('Open FileBrowser on It' openFileBrowserOnIt )
2f12b83177ce class: TerminalView Claus Gittinger <cg@exept.de> parents: 4479 diff changeset	1714	).
2f12b83177ce class: TerminalView Claus Gittinger <cg@exept.de> parents: 4479 diff changeset	1715	moreMenu := PopUpMenu itemList:items resources:resources.
2f12b83177ce class: TerminalView Claus Gittinger <cg@exept.de> parents: 4479 diff changeset	1716
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1717	((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	1718	m := subMenu.
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1719	] ifFalse:[
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1720	items := #(
2075 ac7da2b56ba6 upper case menu Claus Gittinger <cg@exept.de> parents: 1833 diff changeset	1721	('Copy' copySelection Copy )
ac7da2b56ba6 upper case menu Claus Gittinger <cg@exept.de> parents: 1833 diff changeset	1722	('Paste' pasteOrReplace Paste )
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1723	('-' )
2506 f12c7c321131 menu (search and goto) Claus Gittinger <cg@exept.de> parents: 2501 diff changeset	1724	('Search...' search Find)
f12c7c321131 menu (search and goto) Claus Gittinger <cg@exept.de> parents: 2501 diff changeset	1725	('-' )
2075 ac7da2b56ba6 upper case menu Claus Gittinger <cg@exept.de> parents: 1833 diff changeset	1726	('Font...' changeFont )
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	1727	('-' )
2448 6d912d8ec69d checkin from browser Claus Gittinger <cg@exept.de> parents: 2423 diff changeset	1728	('Save As...' save SaveAs )
2075 ac7da2b56ba6 upper case menu Claus Gittinger <cg@exept.de> parents: 1833 diff changeset	1729	('Print' doPrint Print )
2573 9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	1730	('=' )
4487 2f12b83177ce class: TerminalView Claus Gittinger <cg@exept.de> parents: 4479 diff changeset	1731	('More' more )
2573 9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	1732	('Shell' others Ctrl )
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1733	).
2573 9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	1734	m := PopUpMenu itemList:items resources:resources.
4487 2f12b83177ce class: TerminalView Claus Gittinger <cg@exept.de> parents: 4479 diff changeset	1735	m subMenuAt:#more put:moreMenu.
2573 9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	1736	m subMenuAt:#others put:subMenu.
1347 a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1737
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1738	"/ disabled - for now;
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1739	"/ need a more intelligent filtering of control characters.
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1740	"/
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1741	"/ filterStream isNil ifTrue:[
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1742	"/ items := items , #(
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1743	"/ ('-' )
2075 ac7da2b56ba6 upper case menu Claus Gittinger <cg@exept.de> parents: 1833 diff changeset	1744	"/ ('Start Save as ...' startSaveAs )
ac7da2b56ba6 upper case menu Claus Gittinger <cg@exept.de> parents: 1833 diff changeset	1745	"/ ('Start Print' startPrint )
1347 a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1746	"/ )
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1747	"/ ] ifFalse:[
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1748	"/ items := items , #(
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1749	"/ ('-' )
2075 ac7da2b56ba6 upper case menu Claus Gittinger <cg@exept.de> parents: 1833 diff changeset	1750	"/ ('Stop filter' stopFilter )
1347 a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1751	"/ )
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1752	"/ ].
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1753	].
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1754
2810 d57cc02787de refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 2778 diff changeset	1755	self hasSelection ifFalse:[
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1756	m disable:#copySelection.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1757	].
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1758	^ m.
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1759
3225 65c338f35160 clear menu function Claus Gittinger <cg@exept.de> parents: 2954 diff changeset	1760	"Modified: / 03-04-2007 / 08:58:26 / cg"
1347 a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1761	!
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1762
4487 2f12b83177ce class: TerminalView Claus Gittinger <cg@exept.de> parents: 4479 diff changeset	1763	openFileBrowserOnIt
2f12b83177ce class: TerminalView Claus Gittinger <cg@exept.de> parents: 4479 diff changeset	1764	"open a fileBrowser on the selected fileName"
2f12b83177ce class: TerminalView Claus Gittinger <cg@exept.de> parents: 4479 diff changeset	1765
2f12b83177ce class: TerminalView Claus Gittinger <cg@exept.de> parents: 4479 diff changeset	1766	\|fileName\|
2f12b83177ce class: TerminalView Claus Gittinger <cg@exept.de> parents: 4479 diff changeset	1767
4630 dccaedc34013 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4614 diff changeset	1768	shellDirectory notNil ifTrue:[
dccaedc34013 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4614 diff changeset	1769	fileName := shellDirectory construct:self selectionAsString.
dccaedc34013 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4614 diff changeset	1770	self openFileBrowserOnFileNamed:fileName
dccaedc34013 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4614 diff changeset	1771	].
4487 2f12b83177ce class: TerminalView Claus Gittinger <cg@exept.de> parents: 4479 diff changeset	1772	!
2f12b83177ce class: TerminalView Claus Gittinger <cg@exept.de> parents: 4479 diff changeset	1773
4295 5bd43114a67b class: TerminalView Claus Gittinger <cg@exept.de> parents: 4294 diff changeset	1774	setGreenDisplayMode
5bd43114a67b class: TerminalView Claus Gittinger <cg@exept.de> parents: 4294 diff changeset	1775	self foregroundColor:Color green backgroundColor:Color black.
5bd43114a67b class: TerminalView Claus Gittinger <cg@exept.de> parents: 4294 diff changeset	1776	self cursorForegroundColor:Color black backgroundColor:Color green.
5bd43114a67b class: TerminalView Claus Gittinger <cg@exept.de> parents: 4294 diff changeset	1777	!
5bd43114a67b class: TerminalView Claus Gittinger <cg@exept.de> parents: 4294 diff changeset	1778
5bd43114a67b class: TerminalView Claus Gittinger <cg@exept.de> parents: 4294 diff changeset	1779	setNormalDisplayMode
5bd43114a67b class: TerminalView Claus Gittinger <cg@exept.de> parents: 4294 diff changeset	1780	self foregroundColor:Color black backgroundColor:Color white.
5bd43114a67b class: TerminalView Claus Gittinger <cg@exept.de> parents: 4294 diff changeset	1781	self cursorForegroundColor:Color white backgroundColor:Color black.
5bd43114a67b class: TerminalView Claus Gittinger <cg@exept.de> parents: 4294 diff changeset	1782	!
5bd43114a67b class: TerminalView Claus Gittinger <cg@exept.de> parents: 4294 diff changeset	1783
4300 2bdb9d15ed44 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4299 diff changeset	1784	setRedDisplayMode
2bdb9d15ed44 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4299 diff changeset	1785	self foregroundColor:(Color white) backgroundColor:(Color red:80).
2bdb9d15ed44 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4299 diff changeset	1786	self cursorForegroundColor:(Color red:80) backgroundColor:(Color white).
2bdb9d15ed44 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4299 diff changeset	1787	!
2bdb9d15ed44 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4299 diff changeset	1788
4295 5bd43114a67b class: TerminalView Claus Gittinger <cg@exept.de> parents: 4294 diff changeset	1789	setReverseDisplayMode
5bd43114a67b class: TerminalView Claus Gittinger <cg@exept.de> parents: 4294 diff changeset	1790	\|fg bg\|
5bd43114a67b class: TerminalView Claus Gittinger <cg@exept.de> parents: 4294 diff changeset	1791
5bd43114a67b class: TerminalView Claus Gittinger <cg@exept.de> parents: 4294 diff changeset	1792	fg := self foregroundColor.
5bd43114a67b class: TerminalView Claus Gittinger <cg@exept.de> parents: 4294 diff changeset	1793	bg := self backgroundColor.
5bd43114a67b class: TerminalView Claus Gittinger <cg@exept.de> parents: 4294 diff changeset	1794	self foregroundColor:bg backgroundColor:fg.
5bd43114a67b class: TerminalView Claus Gittinger <cg@exept.de> parents: 4294 diff changeset	1795	self cursorForegroundColor:fg backgroundColor:bg.
5bd43114a67b class: TerminalView Claus Gittinger <cg@exept.de> parents: 4294 diff changeset	1796	!
5bd43114a67b class: TerminalView Claus Gittinger <cg@exept.de> parents: 4294 diff changeset	1797
1347 a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1798	startSaveAs
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1799	"start saving all received data to some file"
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1800
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1801	\|fn\|
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1802
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1803	fn := Dialog requestFileName:'Save received data in file:'.
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1804	fn size > 0 ifTrue:[
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1805	filterStream := fn asFilename writeStream
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1806	].
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1807
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1808	"Created: / 29.4.1999 / 11:06:29 / cg"
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1809	!
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1810
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1811	stopFilter
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1812	"stop saving/printing of received data"
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1813
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1814	filterStream close.
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1815	filterStream := nil.
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1816
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1817	"Created: / 29.4.1999 / 11:07:49 / cg"
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1818	"Modified: / 29.4.1999 / 11:09:52 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1819	! !
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1820
940 16c955286510 checkin from browser Claus Gittinger <cg@exept.de> parents: 938 diff changeset	1821	!TerminalView methodsFor:'misc'!
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1822
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1823	removeTrailingBlankLines
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1824	^ self
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1825	! !
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1826
2498 4b4f91e57dd0 method category rename Claus Gittinger <cg@exept.de> parents: 2466 diff changeset	1827	!TerminalView methodsFor:'processing-input'!
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1828
1420 7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1829	doNothing
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1830	"private - end of an ignored escape-sequence"
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1831
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1832	self endOfSequence
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1833
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1834	"Created: / 12.6.1998 / 20:40:43 / cg"
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1835	!
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1836
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1837	endOfSequence
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1838	"private - reset state-machine at end of escape-sequence"
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1839
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1840	state := 0.
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1841
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1842	"Created: / 12.6.1998 / 20:39:52 / cg"
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1843	!
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	1844
4446 02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	1845	nextPut:char
02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	1846	"process a character (i.e. the shells output)"
02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	1847
02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	1848	Debug ifTrue:[
02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	1849	Transcript show:state; show:' '; showCR:char storeString.
02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	1850	].
02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	1851
02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	1852	(char == Character nl) ifTrue:[
02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	1853	self endEntry.
02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	1854	self doCursorDown:1.
02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	1855	^ self endEntry.
02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	1856	].
02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	1857	(char == Character return) ifTrue:[
02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	1858	self endEntry.
02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	1859	self cursorToBeginOfLine.
02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	1860	^ self.
02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	1861	].
02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	1862	(char == Character backspace) ifTrue:[
02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	1863	self endEntry.
02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	1864	self doCursorLeft:1. "/ doBackspace
02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	1865	^ self endEntry.
02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	1866	].
02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	1867	(char == Character bell) ifTrue:[
02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	1868	self beep.
02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	1869	^ self
02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	1870	].
02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	1871	char asciiValue < 32 ifTrue:[
02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	1872	char ~~ Character tab ifTrue:[
02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	1873	char asciiValue ~~ 0 ifTrue:[
02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	1874	Debug ifTrue:[
02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	1875	Transcript show:'unhandled control key: '; showCR:char storeString.
02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	1876	].
02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	1877	].
02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	1878	^ self.
02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	1879	]
02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	1880	].
02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	1881	self show:char
02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	1882
02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	1883	"Modified: / 21.7.1998 / 20:06:04 / cg"
02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	1884	!
02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	1885
1017 8af14b2315fa care for non-external-stream when window size changes. Claus Gittinger <cg@exept.de> parents: 1015 diff changeset	1886	nextPutAll:aString
1021 c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1887	"/ self processInput:aString n:aString size
2594 63c4f60955be no defineWindowSize on contentsChanged penk parents: 2577 diff changeset	1888
4285 e07bad437b90 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4268 diff changeset	1889	Debug ifTrue:[
e07bad437b90 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4268 diff changeset	1890	Transcript
4446 02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	1891	show:(self class name); show:': nextPutAll - state: '; show:state;
4285 e07bad437b90 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4268 diff changeset	1892	show:' got: ';
e07bad437b90 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4268 diff changeset	1893	showCR:aString
e07bad437b90 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4268 diff changeset	1894	].
1021 c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1895	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	1896
8af14b2315fa care for non-external-stream when window size changes. Claus Gittinger <cg@exept.de> parents: 1015 diff changeset	1897	"Created: / 27.7.1998 / 15:10:59 / cg"
1021 c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1898	"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	1899	!
8af14b2315fa care for non-external-stream when window size changes. Claus Gittinger <cg@exept.de> parents: 1015 diff changeset	1900
933 de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	1901	processInput:buffer n:count
4315 1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	1902	"actually: output coming from the connected application (aka input to me);
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	1903	the stuff coming from the application is a mix of plain text and CSI escape sequences.
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	1904	If we process each character individually, things are trivial, but slow.
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	1905	Therefore, we collect big chunks of non-escaped text and buffer them to make
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	1906	use of the inherited buffered output optimizations (see TextCollector).
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	1907	Thus, we collect until an escape sequence is encountered, and flush the buffered stuff then,
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	1908	proceed in single-character mode (processState0:) until the sequence is finished, and continue
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	1909	collecting.
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	1910	This makes this terminalView's speed usable and actually competitive with some existing
4612 e05d68f2d152 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4604 diff changeset	1911	console applications.
e05d68f2d152 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4604 diff changeset	1912	BTW: It is much faster than the MSWindows command.com window,
e05d68f2d152 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4604 diff changeset	1913	- so much for the 'slow' Smalltalk ;-)"
4315 1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	1914
997 c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1915	\|sensor\|
c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1916
4315 1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	1917	"/ remember how much is in the queue...
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	1918	[
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	1919	sizeOfOutstandingInputToBeProcessed := sizeOfOutstandingInputToBeProcessed - count.
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	1920	] valueUninterruptably.
4449 d6ba0c7976c0 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4446 diff changeset	1921	"/ Debug := true
4450 9f436d767165 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4449 diff changeset	1922	"/ Debug := false
4285 e07bad437b90 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4268 diff changeset	1923	Debug ifTrue:[
4446 02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	1924	Transcript show:self class name; show:': processInput - state: '; show: state;
02b5fbf621d3 refactored character processing Claus Gittinger <cg@exept.de> parents: 4338 diff changeset	1925	show:' got: '; showCR: count.
4285 e07bad437b90 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4268 diff changeset	1926	].
e07bad437b90 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4268 diff changeset	1927
1347 a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1928	filterStream notNil ifTrue:[
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1929	filterStream nextPutAll:(buffer copyTo:count).
a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1930	].
4267 5dca73a13f04 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4266 diff changeset	1931	"/ '*' print. (buffer copyTo:count) asByteArray hexPrintString printCR.
1347 a98c0c7ff8c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1345 diff changeset	1932
1077 49525bbae21c added #saveCursor / #restoreCursor Claus Gittinger <cg@exept.de> parents: 1055 diff changeset	1933	"/ self hideCursor.
997 c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1934
1015 61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1935	"/ the following may not be too clean, but adds a lot of speed.
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1936	"/ instead of passing every individual character through the
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1937	"/ escape-state machine, collect chunks of non-control text
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1938	"/ when in state 0, and add them immediately to the pendingLines
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1939	"/ collection of the textCollectors asynchronous update mechanism.
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1940	"/ This helps a lot if you do something like "ls -lR /" ...
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1941	"/ For debugging the state machine, reenable the commented lines
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1942	"/ below.
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1943
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1944	"/1 to:count do:[:i\|
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1945	"/ self nextPut:(buffer at:i).
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1946	"/].
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1947	"/self showCursor.
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1948	"/^ self.
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1949
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1950	access critical:[
2191 221cae81c950 variable name more significant penk parents: 2169 diff changeset	1951	\|index controlCharIndex stringWithOutControl crnlFollows\|
997 c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1952
2191 221cae81c950 variable name more significant penk parents: 2169 diff changeset	1953	index := 1.
221cae81c950 variable name more significant penk parents: 2169 diff changeset	1954	[index <= count] whileTrue:[
4290 bad371611ba6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4288 diff changeset	1955	stringWithOutControl := nil.
bad371611ba6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4288 diff changeset	1956
4321 4803ecdf9a7a class: TerminalView Claus Gittinger <cg@exept.de> parents: 4317 diff changeset	1957	(state == 0) ifTrue:[
4267 5dca73a13f04 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4266 diff changeset	1958	"/ in initial state:
1015 61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1959	"/ quick scan forward for next control character ...
2191 221cae81c950 variable name more significant penk parents: 2169 diff changeset	1960	controlCharIndex := buffer indexOfControlCharacterStartingAt:index.
221cae81c950 variable name more significant penk parents: 2169 diff changeset	1961	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	1962
2191 221cae81c950 variable name more significant penk parents: 2169 diff changeset	1963	controlCharIndex == 0 ifTrue:[
1015 61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1964	"/ no control characters - simply append all
4267 5dca73a13f04 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4266 diff changeset	1965	"/ to the outstanding lines...
2191 221cae81c950 variable name more significant penk parents: 2169 diff changeset	1966	stringWithOutControl := buffer copyFrom:index to:count.
4267 5dca73a13f04 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4266 diff changeset	1967	crnlFollows := false.
2191 221cae81c950 variable name more significant penk parents: 2169 diff changeset	1968	index := count + 1. "/ leave loop.
1015 61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1969	] ifFalse:[
2191 221cae81c950 variable name more significant penk parents: 2169 diff changeset	1970	controlCharIndex > index ifTrue:[
4267 5dca73a13f04 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4266 diff changeset	1971	"/ some more regular character(s) before control character
2191 221cae81c950 variable name more significant penk parents: 2169 diff changeset	1972	stringWithOutControl := buffer copyFrom:index to:controlCharIndex-1.
221cae81c950 variable name more significant penk parents: 2169 diff changeset	1973	index := controlCharIndex. "/ proceed withcontrol character
1015 61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1974	crnlFollows := false.
2191 221cae81c950 variable name more significant penk parents: 2169 diff changeset	1975	index < (count - 1) ifTrue:[
221cae81c950 variable name more significant penk parents: 2169 diff changeset	1976	(buffer at:index) == Character return ifTrue:[
221cae81c950 variable name more significant penk parents: 2169 diff changeset	1977	(buffer at:index+1) == Character nl ifTrue:[
1015 61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1978	crnlFollows := true.
2191 221cae81c950 variable name more significant penk parents: 2169 diff changeset	1979	index := index + 2.
1015 61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1980	]
997 c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1981	]
1015 61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1982	].
4267 5dca73a13f04 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4266 diff changeset	1983	] ifFalse:[
5dca73a13f04 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4266 diff changeset	1984	"/ controlchr immediately follows
1015 61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1985	]
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	1986	].
997 c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1987	].
c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1988
2191 221cae81c950 variable name more significant penk parents: 2169 diff changeset	1989	stringWithOutControl notNil ifTrue:[
4614 939148975344 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4612 diff changeset	1990	doUTF ifTrue:[
939148975344 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4612 diff changeset	1991	Error handle:[:ex \|
939148975344 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4612 diff changeset	1992	] do:[
939148975344 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4612 diff changeset	1993	stringWithOutControl := stringWithOutControl utf8Decoded
939148975344 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4612 diff changeset	1994	].
4612 e05d68f2d152 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4604 diff changeset	1995	].
2356 9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	1996	(cursorCol + outstandingLine size + stringWithOutControl size) >= numberOfColumns ifTrue:[
4321 4803ecdf9a7a class: TerminalView Claus Gittinger <cg@exept.de> parents: 4317 diff changeset	1997	"/ characterwise, for correct wrap handling at line end
2268 e3b57c072b89 wrap line at end penk parents: 2207 diff changeset	1998	stringWithOutControl do:[:eachCharacter \|
e3b57c072b89 wrap line at end penk parents: 2207 diff changeset	1999	self nextPut:eachCharacter.
4452 ff2a970ba725 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4450 diff changeset	2000	self endEntry.
ff2a970ba725 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4450 diff changeset	2001	cursorCol >= numberOfColumns ifTrue:[
ff2a970ba725 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4450 diff changeset	2002	self validateCursorCol:cursorCol inLine:cursorLine.
ff2a970ba725 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4450 diff changeset	2003	].
2268 e3b57c072b89 wrap line at end penk parents: 2207 diff changeset	2004	].
2356 9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	2005	crnlFollows ifTrue:[
9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	2006	self nextPut:Character return.
9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	2007	self nextPut:Character nl.
9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	2008	].
9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	2009	self endEntry.
997 c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	2010	] ifFalse:[
2356 9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	2011
9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	2012	Debug ifTrue:[
9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	2013	Transcript showCR:'String:<', stringWithOutControl, '>'.
9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	2014	].
9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	2015	currentEmphasis notNil ifTrue:[
9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	2016	stringWithOutControl := stringWithOutControl emphasizeAllWith:currentEmphasis
9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	2017	].
9a25fc1f8333 wrap bug Claus Gittinger <cg@exept.de> parents: 2341 diff changeset	2018
4449 d6ba0c7976c0 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4446 diff changeset	2019	access critical:[
d6ba0c7976c0 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4446 diff changeset	2020	outstandingLine size > 0 ifTrue:[
d6ba0c7976c0 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4446 diff changeset	2021	outstandingLine := outstandingLine , stringWithOutControl.
d6ba0c7976c0 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4446 diff changeset	2022	] ifFalse:[
d6ba0c7976c0 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4446 diff changeset	2023	outstandingLine := stringWithOutControl.
d6ba0c7976c0 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4446 diff changeset	2024	].
d6ba0c7976c0 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4446 diff changeset	2025	crnlFollows ifTrue:[
d6ba0c7976c0 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4446 diff changeset	2026	"/ 'xp' printCR.
d6ba0c7976c0 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4446 diff changeset	2027	outstandingLines isNil ifTrue:[
d6ba0c7976c0 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4446 diff changeset	2028	outstandingLines := OrderedCollection with:outstandingLine
d6ba0c7976c0 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4446 diff changeset	2029	] ifFalse:[
d6ba0c7976c0 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4446 diff changeset	2030	outstandingLines add:outstandingLine.
d6ba0c7976c0 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4446 diff changeset	2031	].
d6ba0c7976c0 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4446 diff changeset	2032	outstandingLine := ''.
d6ba0c7976c0 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4446 diff changeset	2033	].
1015 61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	2034	].
4321 4803ecdf9a7a class: TerminalView Claus Gittinger <cg@exept.de> parents: 4317 diff changeset	2035	"/ collecting ifTrue:[
4803ecdf9a7a class: TerminalView Claus Gittinger <cg@exept.de> parents: 4317 diff changeset	2036	"/ flushPending ifFalse:[
4803ecdf9a7a class: TerminalView Claus Gittinger <cg@exept.de> parents: 4317 diff changeset	2037	"/ self installDelayedUpdate
4803ecdf9a7a class: TerminalView Claus Gittinger <cg@exept.de> parents: 4317 diff changeset	2038	"/ ] ifTrue:[
4803ecdf9a7a class: TerminalView Claus Gittinger <cg@exept.de> parents: 4317 diff changeset	2039	"/ "/ outstandingLines size > collectSize ifTrue:[
4803ecdf9a7a class: TerminalView Claus Gittinger <cg@exept.de> parents: 4317 diff changeset	2040	"/ "/ self endEntry
4803ecdf9a7a class: TerminalView Claus Gittinger <cg@exept.de> parents: 4317 diff changeset	2041	"/ "/ ]
4803ecdf9a7a class: TerminalView Claus Gittinger <cg@exept.de> parents: 4317 diff changeset	2042	"/ ]
4803ecdf9a7a class: TerminalView Claus Gittinger <cg@exept.de> parents: 4317 diff changeset	2043	"/ ] ifFalse:[
4803ecdf9a7a class: TerminalView Claus Gittinger <cg@exept.de> parents: 4317 diff changeset	2044	"/ self endEntry
4803ecdf9a7a class: TerminalView Claus Gittinger <cg@exept.de> parents: 4317 diff changeset	2045	"/ ].
1015 61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	2046	].
997 c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	2047	] ifFalse:[
1015 61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	2048	"/ no chunk to append (in an escape sequence)
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	2049	"/ must handle individual characters
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	2050	"/ 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	2051
4290 bad371611ba6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4288 diff changeset	2052	"/ self endEntry.
2207 d352a2f0a83a no changes on terminal device anymore penk parents: 2205 diff changeset	2053	self nextPut:(buffer at:index).
2191 221cae81c950 variable name more significant penk parents: 2169 diff changeset	2054	index := index + 1.
221cae81c950 variable name more significant penk parents: 2169 diff changeset	2055	[state ~~ 0 and:[index <= count]] whileTrue:[
2207 d352a2f0a83a no changes on terminal device anymore penk parents: 2205 diff changeset	2056	self nextPut:(buffer at:index).
2191 221cae81c950 variable name more significant penk parents: 2169 diff changeset	2057	index := index + 1.
1055 eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	2058	]
1015 61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	2059	]
61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	2060	].
4321 4803ecdf9a7a class: TerminalView Claus Gittinger <cg@exept.de> parents: 4317 diff changeset	2061	"/ inFlush := false.
933 de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	2062	].
948 b93aba7db15d checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	2063
4321 4803ecdf9a7a class: TerminalView Claus Gittinger <cg@exept.de> parents: 4317 diff changeset	2064	(state == 0 and:[self shown]) ifTrue:[
1055 eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	2065	(sensor := self sensor) notNil ifTrue:[
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	2066	"/ 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	2067	"/ enforce update of the view (asynchronous)
997 c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	2068
1055 eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	2069	(sensor hasEvent:#processInput:n: for:self) ifFalse:[
997 c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	2070	self endEntry.
c899373aac1d speedup (line buffering) Claus Gittinger <cg@exept.de> parents: 992 diff changeset	2071	self showCursor.
1055 eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	2072	"/ self makeCursorVisible.
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	2073	] ifTrue:[
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	2074	"/ 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	2075	"/ 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	2076	"/ 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	2077	"/ 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	2078	"/ collectSize lines.
1015 61f7ea3e5463 comment Claus Gittinger <cg@exept.de> parents: 1014 diff changeset	2079
1055 eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	2080	outstandingLines size > collectSize ifTrue:[
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	2081	self endEntry.
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	2082	self showCursor.
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	2083
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	2084	"/ 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	2085	windowGroup notNil ifTrue:[
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	2086	windowGroup processRealExposeEventsFor:self.
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	2087	]
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	2088	].
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	2089	]
eebff36e25e9 stay in slow-loop, while state ~~ 0 (in processInput:). Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	2090	].
933 de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	2091	].
de456e07697e much better asynchronous display Claus Gittinger <cg@exept.de> parents: 931 diff changeset	2092
4315 1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	2093	"Created: / 10-06-1998 / 17:26:09 / cg"
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	2094	"Modified: / 28-01-2002 / 20:41:36 / micha"
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	2095	"Modified: / 30-07-2013 / 10:47:19 / cg"
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	2096	!
7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	2097
1021 c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	2098	sync
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	2099	self waitForOutputToDrain
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	2100
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	2101	"Created: / 27.7.1998 / 23:49:44 / cg"
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	2102	!
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	2103
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	2104	waitForOutputToDrain
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	2105	\|sensor\|
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	2106
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	2107	sensor := self sensor.
1363 7297da8a2e02 dont flush input when shell has terminated Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	2108	(sensor notNil and:[sensor userEventCount > 30]) ifTrue:[
1323 b31f7319419c checkin from browser Claus Gittinger <cg@exept.de> parents: 1322 diff changeset	2109	[sensor userEventCount > 5] whileTrue:[
1021 c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	2110	"/ give terminalView a chance to
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	2111	"/ catch up.
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	2112	Delay waitForSeconds:0.1.
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	2113	]
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	2114	].
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	2115
c3963e925eb5 added #sync; better asynchronous display. Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	2116	"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	2117	"Modified: / 5.5.1999 / 18:51:00 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2118	! !
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2119
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2120	!TerminalView methodsFor:'queries'!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2121
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2122	preferredExtent
1420 7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	2123	"return my preferred extent - this is computed from my numberOfLines,
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	2124	numberOfCols and font size"
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	2125
2268 e3b57c072b89 wrap line at end penk parents: 2207 diff changeset	2126	^ (fontWidth * self class defaultNumberOfColumns + (leftMargin + margin * 2))
951 a9e48f549763 fixed scroll-range Claus Gittinger <cg@exept.de> parents: 950 diff changeset	2127	@
1317 dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2128	((self heightForLines:self class defaultNumberOfLines) + 8)
926 df8d2a821687 checkin from browser Claus Gittinger <cg@exept.de> parents: 925 diff changeset	2129
979 32f75cd56edc * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	2130	"Modified: / 20.6.1998 / 20:06:57 / cg"
929 30a2a3329055 checkin from browser Claus Gittinger <cg@exept.de> parents: 928 diff changeset	2131	!
30a2a3329055 checkin from browser Claus Gittinger <cg@exept.de> parents: 928 diff changeset	2132
30a2a3329055 checkin from browser Claus Gittinger <cg@exept.de> parents: 928 diff changeset	2133	terminalType
1420 7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	2134	"returns a string describing this terminal (usually, this is
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	2135	passed down to the shell as TERM environment variable).
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	2136	Here, 'dump' is returned."
7564d09aa1b2 documentation Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	2137
1354 94e7e8be960f must keep track of nLines/nCols in sizeChange (even if not unix) Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	2138	^ 'dump'
929 30a2a3329055 checkin from browser Claus Gittinger <cg@exept.de> parents: 928 diff changeset	2139
30a2a3329055 checkin from browser Claus Gittinger <cg@exept.de> parents: 928 diff changeset	2140	"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	2141	"Modified: / 5.5.1999 / 11:22:32 / cg"
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2142	! !
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2143
4265 76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2144	!TerminalView methodsFor:'reader process'!
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2145
4315 1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	2146	readAnyAvailableData
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	2147	"read data from the stream,
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	2148	and sends me #processInput:n: events if something arrived.
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	2149	Returns the amount of data read."
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	2150
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	2151	\|buffer n bufferSize\|
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	2152
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	2153	outStream isNil ifTrue:[^ 0].
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	2154
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	2155	"/ avoid too many processInput messages to be in the buffer,
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	2156	"/ otherwise, the reaction on ctrl-s/ctrl-c is too slow, as
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	2157	"/ many processInput messages are in the sensor's queue before the keypress
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	2158	"/ event. We need another queue, actually so the sensor's keypress events
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	2159	"/ are not blocked while reading a lot of input.
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	2160	[sizeOfOutstandingInputToBeProcessed > 4096] whileTrue:[
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	2161	Delay waitForSeconds:0.1
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	2162	].
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	2163
4338 b82aa1a654ab class: TerminalView Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	2164	bufferSize := 1024.
4315 1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	2165
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	2166	buffer := String new:bufferSize.
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	2167	ExternalStream readErrorSignal handle:[:ex \|
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	2168	n := 0
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	2169	] do:[
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	2170	n := outStream nextAvailableBytes:bufferSize into:buffer startingAt:1.
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	2171	].
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	2172	n > 0 ifTrue:[
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	2173	self pushEvent:#processInput:n: with:buffer with:n.
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	2174	"/ remember how much is in the queue...
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	2175	[
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	2176	sizeOfOutstandingInputToBeProcessed := sizeOfOutstandingInputToBeProcessed + n.
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	2177	] valueUninterruptably
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	2178	].
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	2179
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	2180	^ n
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	2181
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	2182	"Created: / 05-05-1999 / 17:57:39 / cg"
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	2183	"Modified: / 28-01-2002 / 21:10:25 / micha"
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	2184	"Modified (comment): / 30-07-2013 / 10:50:03 / cg"
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	2185	!
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	2186
4265 76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2187	readerProcessLoop
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2188	"look for the commands output,
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2189	and send me #processInput:n: events whenever something arrives."
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2190
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2191	StreamError handle:[:ex \|
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2192	Transcript show:'Terminal(PTY-reader) [error]: '; showCR:ex description.
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2193	] do:[
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2194	[true] whileTrue:[
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2195	AbortOperationRequest handle:[:ex \|
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2196	self showCursor.
4457 afd08dab4722 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4452 diff changeset	2197	(outStream isNil or:[outStream atEnd]) ifTrue:[ ex reject ].
4265 76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2198	] do:[
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2199	\|n sensor\|
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2200
4612 e05d68f2d152 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4604 diff changeset	2201	"/ Delay waitForSeconds:0.01.
4265 76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2202	outStream readWait.
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2203	sensor := self sensor.
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2204	(sensor notNil and:[sensor hasKeyPressEventFor:self]) ifTrue:[
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2205	true "(sensor userEventCount > 10)" ifTrue:[
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2206	"/ give terminalView a chance to
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2207	"/ send out the character.
4321 4803ecdf9a7a class: TerminalView Claus Gittinger <cg@exept.de> parents: 4317 diff changeset	2208	"/ Transcript showCR:'d'.
4265 76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2209	Delay waitForSeconds:0.01.
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2210	]
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2211	] ifFalse:[
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2212	n := self readAnyAvailableData.
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2213	n > 0 ifTrue:[
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2214	shellPid notNil ifTrue:[
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2215	self waitForOutputToDrain.
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2216	]
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2217	] ifFalse:[
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2218	n == 0 ifTrue:[
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2219	"/ Windows IPC has a bug - it always
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2220	"/ returns 0 (when the command is idle)
4612 e05d68f2d152 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4604 diff changeset	2221	"/ and says it's at the end (sigh)
4265 76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2222
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2223	OperatingSystem isMSWINDOWSlike ifTrue:[
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2224	Delay waitForSeconds:0.01
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2225	] ifFalse:[
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2226	outStream atEnd ifTrue:[
4327 9fa4f8804902 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4325 diff changeset	2227	self closeStreams.
4265 76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2228	Processor activeProcess terminate.
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2229	] ifFalse:[
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2230	"/ this should not happen.
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2231	Delay waitForSeconds:0.05
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2232	]
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2233	].
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2234	]
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2235	]
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2236	]
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2237	]
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2238	]
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2239	]
4315 1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	2240
1db44a2c0293 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4313 diff changeset	2241	"Modified: / 30-07-2013 / 10:30:38 / cg"
4265 76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2242	!
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2243
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2244	startReaderProcess
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2245	"Start a reader process, which looks for the commands output,
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2246	and sends me #processInput:n: events whenever something arrives."
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2247
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2248	self obsoleteMethodWarning.
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2249	self startReaderProcessWhenVisible.
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2250
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2251	"
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2252	VT100TerminalView openShell
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2253	"
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2254
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2255	"Modified: / 5.5.1999 / 17:58:02 / cg"
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2256	"Modified: / 28.1.2002 / 21:10:13 / micha"
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2257	!
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2258
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2259	startReaderProcessNow
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2260	"Start a reader process, which looks for the commands output,
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2261	and sends me #processInput:n: events whenever something arrives."
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2262
4612 e05d68f2d152 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4604 diff changeset	2263	self startReaderProcessWhenVisible:false
4265 76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2264
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2265	"
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2266	VT100TerminalView openShell
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2267	"
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2268
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2269	"Modified: / 5.5.1999 / 17:58:02 / cg"
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2270	"Modified: / 28.1.2002 / 21:10:13 / micha"
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2271	!
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2272
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2273	startReaderProcessWhenVisible
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2274	"Start a reader process, which looks for the commands output,
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2275	and sends me #processInput:n: events whenever something arrives."
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2276
4612 e05d68f2d152 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4604 diff changeset	2277	self startReaderProcessWhenVisible:true
e05d68f2d152 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4604 diff changeset	2278
e05d68f2d152 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4604 diff changeset	2279	"
e05d68f2d152 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4604 diff changeset	2280	VT100TerminalView openShell
e05d68f2d152 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4604 diff changeset	2281	"
e05d68f2d152 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4604 diff changeset	2282
e05d68f2d152 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4604 diff changeset	2283	"Modified: / 5.5.1999 / 17:58:02 / cg"
e05d68f2d152 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4604 diff changeset	2284	"Modified: / 28.1.2002 / 21:10:13 / micha"
e05d68f2d152 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4604 diff changeset	2285	!
e05d68f2d152 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4604 diff changeset	2286
e05d68f2d152 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4604 diff changeset	2287	startReaderProcessWhenVisible:whenVisible
e05d68f2d152 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4604 diff changeset	2288	"Start a reader process, which looks for the commands output,
e05d68f2d152 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4604 diff changeset	2289	and sends me #processInput:n: events whenever something arrives."
e05d68f2d152 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4604 diff changeset	2290
4265 76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2291	readerProcess isNil ifTrue:[
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2292	readerProcess := [
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2293	[
4612 e05d68f2d152 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4604 diff changeset	2294	whenVisible ifTrue:[self waitUntilVisible].
4265 76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2295	self readerProcessLoop.
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2296	] ifCurtailed:[
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2297	readerProcess := nil
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2298	]
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2299	] fork. "/ forkAt:9.
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2300	readerProcess name:'pty reader'.
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2301	]
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2302
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2303	"
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2304	VT100TerminalView openShell
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2305	"
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2306
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2307	"Modified: / 5.5.1999 / 17:58:02 / cg"
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2308	"Modified: / 28.1.2002 / 21:10:13 / micha"
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2309	!
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2310
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2311	stopReaderProcess
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2312	"stop the background reader thread"
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2313
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2314	\|sensor\|
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2315
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2316	readerProcess notNil ifTrue:[
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2317	readerProcess terminate.
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2318	"/ give it a chance to really terminate
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2319	Processor yield.
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2320	readerProcess := nil
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2321	].
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2322
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2323	"/ flush any leftover input-processing events
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2324	(sensor := self sensor) notNil ifTrue:[
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2325	sensor flushEventsFor:self withType:#processInput:n:.
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2326	]
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2327	"Modified: / 21.7.1998 / 19:00:13 / cg"
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2328	! !
76d3fea328d6 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4256 diff changeset	2329
2506 f12c7c321131 menu (search and goto) Claus Gittinger <cg@exept.de> parents: 2501 diff changeset	2330	!TerminalView methodsFor:'searching'!
f12c7c321131 menu (search and goto) Claus Gittinger <cg@exept.de> parents: 2501 diff changeset	2331
f12c7c321131 menu (search and goto) Claus Gittinger <cg@exept.de> parents: 2501 diff changeset	2332	startPositionForSearchBackward
2573 9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	2333	^ self startPositionForSearchBackwardBasedOnSelection
2506 f12c7c321131 menu (search and goto) Claus Gittinger <cg@exept.de> parents: 2501 diff changeset	2334	!
f12c7c321131 menu (search and goto) Claus Gittinger <cg@exept.de> parents: 2501 diff changeset	2335
f12c7c321131 menu (search and goto) Claus Gittinger <cg@exept.de> parents: 2501 diff changeset	2336	startPositionForSearchForward
2573 9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	2337	^ self startPositionForSearchForwardBasedOnSelection
2506 f12c7c321131 menu (search and goto) Claus Gittinger <cg@exept.de> parents: 2501 diff changeset	2338	! !
f12c7c321131 menu (search and goto) Claus Gittinger <cg@exept.de> parents: 2501 diff changeset	2339
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2340	!TerminalView methodsFor:'selection handling'!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2341
1317 dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2342	autoMoveCursorToEndOfSelection
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2343	"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	2344	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	2345
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2346	^ false
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2347
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2348	!
dace272367a7 do not move the cursor when double-clicking for a selection. Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2349
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2350	paste:someText
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2351	"paste - redefined to send the chars to the shell instead
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2352	of pasting into the view"
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2353
950 9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	2354	\|s nLines\|
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	2355
2573 9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	2356	inStream isNil ifTrue:[
9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	2357	self flash.
9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	2358	^ self "/ already closed
9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	2359	].
9ef4727d2a57 menu changes (goto does not make sense); Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	2360
950 9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	2361	s := someText.
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	2362	s isString ifTrue:[
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	2363	s := s asStringCollection
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	2364	] ifFalse:[
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	2365	(s isKindOf:StringCollection) ifFalse:[
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	2366	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	2367	^ self
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	2368	]
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	2369	].
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	2370	(nLines := s size) == 0 ifTrue:[^ self].
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	2371	(nLines == 1 and:[(s at:1) size == 0]) ifTrue:[^ self].
4285 e07bad437b90 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4268 diff changeset	2372
950 9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	2373	s keysAndValuesDo:[:idx :line \|
4285 e07bad437b90 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4268 diff changeset	2374	line notNil ifTrue:[
e07bad437b90 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4268 diff changeset	2375	Debug ifTrue:[
e07bad437b90 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4268 diff changeset	2376	Transcript showCR:'send paste line: ',line asByteArray hexPrintString
e07bad437b90 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4268 diff changeset	2377	].
e07bad437b90 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4268 diff changeset	2378	].
4601 7a5e33b7f079 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4600 diff changeset	2379	self shouldProcessInputInLineEditMode ifTrue:[
7a5e33b7f079 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4600 diff changeset	2380	line do:[:ch \| self keyPressInLineEditMode:ch ].
7a5e33b7f079 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4600 diff changeset	2381	idx ~~ nLines ifTrue:[
7a5e33b7f079 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4600 diff changeset	2382	self keyPressInLineEditMode:#Return
7a5e33b7f079 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4600 diff changeset	2383	]
4317 4c2fd0c98fcb class: TerminalView Claus Gittinger <cg@exept.de> parents: 4315 diff changeset	2384	] ifFalse:[
4601 7a5e33b7f079 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4600 diff changeset	2385	self send:line.
7a5e33b7f079 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4600 diff changeset	2386	idx ~~ nLines ifTrue:[
7a5e33b7f079 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4600 diff changeset	2387	self sendLineEnd
7a5e33b7f079 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4600 diff changeset	2388	]
950 9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	2389	]
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	2390	].
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	2391
9e5834388a79 fixed paste & command keys Claus Gittinger <cg@exept.de> parents: 948 diff changeset	2392	"Modified: / 12.6.1998 / 22:12:47 / cg"
4490 5b2f706431fe class: TerminalView Claus Gittinger <cg@exept.de> parents: 4487 diff changeset	2393	!
5b2f706431fe class: TerminalView Claus Gittinger <cg@exept.de> parents: 4487 diff changeset	2394
5b2f706431fe class: TerminalView Claus Gittinger <cg@exept.de> parents: 4487 diff changeset	2395	selection
5b2f706431fe class: TerminalView Claus Gittinger <cg@exept.de> parents: 4487 diff changeset	2396	\|sel\|
5b2f706431fe class: TerminalView Claus Gittinger <cg@exept.de> parents: 4487 diff changeset	2397
5b2f706431fe class: TerminalView Claus Gittinger <cg@exept.de> parents: 4487 diff changeset	2398	sel := super selection.
4492 dec9b2a7afeb class: TerminalView Claus Gittinger <cg@exept.de> parents: 4490 diff changeset	2399	sel isNil ifTrue:[^ sel].
4490 5b2f706431fe class: TerminalView Claus Gittinger <cg@exept.de> parents: 4487 diff changeset	2400
5b2f706431fe class: TerminalView Claus Gittinger <cg@exept.de> parents: 4487 diff changeset	2401	"/ if it is a line-wise collection, return multiple lines;
5b2f706431fe class: TerminalView Claus Gittinger <cg@exept.de> parents: 4487 diff changeset	2402	"/ otherwise, concatenate to make it one long string.
5b2f706431fe class: TerminalView Claus Gittinger <cg@exept.de> parents: 4487 diff changeset	2403	"/ this allows for multi-line commands (many args) to be copy-pasted easily
5b2f706431fe class: TerminalView Claus Gittinger <cg@exept.de> parents: 4487 diff changeset	2404	selectionStartCol == 1 ifTrue:[
5b2f706431fe class: TerminalView Claus Gittinger <cg@exept.de> parents: 4487 diff changeset	2405	selectionEndCol == 0 ifTrue:[
5b2f706431fe class: TerminalView Claus Gittinger <cg@exept.de> parents: 4487 diff changeset	2406	^ sel "/ a full-line (3xclick selection)
5b2f706431fe class: TerminalView Claus Gittinger <cg@exept.de> parents: 4487 diff changeset	2407	].
5b2f706431fe class: TerminalView Claus Gittinger <cg@exept.de> parents: 4487 diff changeset	2408	].
5b2f706431fe class: TerminalView Claus Gittinger <cg@exept.de> parents: 4487 diff changeset	2409	^ StringCollection with:(sel asStringWith:'').
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2410	! !
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2411
4604 1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2412	!TerminalView methodsFor:'sending'!
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2413
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2414	send:aString
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2415	"send aString to the underlying program's stdinput"
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2416
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2417	aString notEmptyOrNil ifTrue:[
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2418	recorderStream notNil ifTrue:[
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2419	recorderStream nextPutAll:aString
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2420	].
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2421	Debug == true ifTrue:[
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2422	Transcript showCR:'send <',aString,'>'
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2423	].
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2424	inStream nextPutAll:aString
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2425	].
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2426
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2427	"Created: / 29-07-2013 / 18:18:24 / cg"
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2428	!
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2429
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2430	sendCR:aString
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2431	"send aString followed by a return to the underlying program's stdinput"
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2432
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2433	self send:aString.
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2434	inputTranslateCRToNL ifTrue:[
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2435	self sendCharacter:(Character nl).
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2436	] ifFalse:[
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2437	inputTranslateCRToCRNL ifTrue:[
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2438	self send:(String crlf).
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2439	] ifFalse:[
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2440	self sendCharacter:(Character return).
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2441	]
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2442	]
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2443
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2444	"Created: / 29-07-2013 / 18:20:15 / cg"
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2445	!
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2446
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2447	sendCharacter:aCharacter
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2448	"send a single character to the underlying program's stdinput"
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2449
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2450	aCharacter bitsPerCharacter > 8 ifTrue:[
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2451	Transcript showCR:(self class name,': invalid (non-8bit) character ignored').
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2452	^ self
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2453	].
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2454
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2455	recorderStream notNil ifTrue:[
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2456	recorderStream nextPut:aCharacter
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2457	].
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2458	Debug == true ifTrue:[
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2459	Transcript showCR:'send <',aCharacter,'>'
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2460	].
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2461
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2462	inStream nextPut:aCharacter.
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2463
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2464	"Created: / 29-07-2013 / 18:18:24 / cg"
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2465	!
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2466
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2467	sendLine:aString
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2468	Debug ifTrue:[
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2469	'VT100: sendline: ' print. aString asByteArray hexPrintString printCR
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2470	].
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2471
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2472	self send:aString.
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2473	self sendLineEnd
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2474	!
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2475
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2476	sendLineEnd
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2477	OperatingSystem isMSDOSlike ifTrue:[
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2478	self send:String crlf.
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2479	] ifFalse:[
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2480	self send:String cr.
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2481	].
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2482	! !
1ac8aff09094 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4603 diff changeset	2483
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2484	!TerminalView class methodsFor:'documentation'!
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2485
7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2486	version
4630 dccaedc34013 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4614 diff changeset	2487	^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.190 2014-06-28 07:49:33 cg Exp $'
3758 59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	2488	!
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	2489
59fe4398679a added: #example Claus Gittinger <cg@exept.de> parents: 3225 diff changeset	2490	version_CVS
4630 dccaedc34013 class: TerminalView Claus Gittinger <cg@exept.de> parents: 4614 diff changeset	2491	^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.190 2014-06-28 07:49:33 cg Exp $'
914 7ac6d1a53bab initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2492	! !
2205 b81118bb49da Debug Claus Gittinger <cg@exept.de> parents: 2204 diff changeset	2493
4164 7ed0d0bbc7cd class: TerminalView Claus Gittinger <cg@exept.de> parents: 4105 diff changeset	2494
2205 b81118bb49da Debug Claus Gittinger <cg@exept.de> parents: 2204 diff changeset	2495	TerminalView initialize!

author	Claus Gittinger <cg@exept.de>
	Sat, 28 Jun 2014 09:49:33 +0200
changeset 4630	dccaedc34013
parent 4614	939148975344
child 4634	5d3f3134c069
permissions	-rw-r--r--