equal
deleted
inserted
replaced
38 |
38 |
39 !VT52TerminalView methodsFor:'events'! |
39 !VT52TerminalView methodsFor:'events'! |
40 |
40 |
41 defineWindowSize |
41 defineWindowSize |
42 super defineWindowSize. |
42 super defineWindowSize. |
43 rangeEndLine := numberOfLines - 1 |
43 rangeEndLine := numberOfLines |
44 |
44 |
45 "Created: / 13.6.1998 / 18:15:43 / cg" |
45 "Created: / 13.6.1998 / 18:15:43 / cg" |
|
46 "Modified: / 20.6.1998 / 20:33:29 / cg" |
46 ! ! |
47 ! ! |
47 |
48 |
48 !VT52TerminalView methodsFor:'initialization'! |
49 !VT52TerminalView methodsFor:'initialization'! |
49 |
50 |
50 initialize |
51 initialize |
51 super initialize. |
52 super initialize. |
52 self endOfSequence. |
53 self endOfSequence. |
53 |
54 |
54 rangeStartLine := 1. |
55 "Modified: / 20.6.1998 / 20:34:18 / cg" |
55 rangeEndLine := numberOfLines-1. |
|
56 |
|
57 "Modified: / 13.6.1998 / 18:14:41 / cg" |
|
58 ! |
56 ! |
59 |
57 |
60 initializeKeyboardSequences |
58 initializeKeyboardSequences |
61 kbdSequences := (self vt52KeyCodes) |
59 kbdSequences := (self vt52KeyCodes) |
62 |
60 |
107 (char == Character nl) ifTrue:[ |
105 (char == Character nl) ifTrue:[ |
108 self doCursorDown:1. |
106 self doCursorDown:1. |
109 ^ self endEntry. |
107 ^ self endEntry. |
110 ]. |
108 ]. |
111 (char == Character return) ifTrue:[ |
109 (char == Character return) ifTrue:[ |
112 rangeEndLine ~~ numberOfLines ifTrue:[ |
110 (rangeEndLine notNil and:[rangeEndLine ~~ numberOfLines]) ifTrue:[ |
113 self endEntry. |
111 self endEntry. |
114 self cursorToBeginOfLine. |
112 self cursorToBeginOfLine. |
115 ] ifFalse:[ |
113 ] ifFalse:[ |
116 state := #gotReturn. |
114 state := #gotReturn. |
117 ]. |
115 ]. |
125 self beep. |
123 self beep. |
126 ^ self |
124 ^ self |
127 ]. |
125 ]. |
128 char asciiValue < 32 ifTrue:[ |
126 char asciiValue < 32 ifTrue:[ |
129 char ~~ Character tab ifTrue:[ |
127 char ~~ Character tab ifTrue:[ |
130 Transcript show:'unhandled control key: '; showCR:char storeString. |
128 char asciiValue ~~ 0 ifTrue:[ |
|
129 Transcript show:'unhandled control key: '; showCR:char storeString. |
|
130 ]. |
|
131 ^ self. |
131 ] |
132 ] |
132 ]. |
133 ]. |
133 ^ super nextPut:char |
134 ^ super nextPut:char |
134 ]. |
135 ]. |
135 |
136 |
194 ^ self endOfSequence |
195 ^ self endOfSequence |
195 ]. |
196 ]. |
196 |
197 |
197 self doNothing |
198 self doNothing |
198 |
199 |
199 "Modified: / 13.6.1998 / 18:18:29 / cg" |
200 "Modified: / 20.6.1998 / 19:51:48 / cg" |
200 ! ! |
201 ! ! |
201 |
202 |
202 !VT52TerminalView methodsFor:'queries'! |
203 !VT52TerminalView methodsFor:'queries'! |
203 |
204 |
204 terminalType |
205 terminalType |
208 ! ! |
209 ! ! |
209 |
210 |
210 !VT52TerminalView class methodsFor:'documentation'! |
211 !VT52TerminalView class methodsFor:'documentation'! |
211 |
212 |
212 version |
213 version |
213 ^ '$Header: /cvs/stx/stx/libwidg2/VT52TerminalView.st,v 1.8 1998-06-20 15:37:02 cg Exp $' |
214 ^ '$Header: /cvs/stx/stx/libwidg2/VT52TerminalView.st,v 1.9 1998-06-20 18:34:25 cg Exp $' |
214 ! ! |
215 ! ! |