equal
deleted
inserted
replaced
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
|
12 |
|
13 'From Smalltalk/X, Version:3.2.1 on 20-oct-1997 at 2:09:41 pm' ! |
12 |
14 |
13 TextView subclass:#EditTextView |
15 TextView subclass:#EditTextView |
14 instanceVariableNames:'cursorLine cursorVisibleLine cursorCol cursorShown |
16 instanceVariableNames:'cursorLine cursorVisibleLine cursorCol cursorShown |
15 prevCursorState readOnly modifiedChannel fixedSize exceptionBlock |
17 prevCursorState readOnly modifiedChannel fixedSize exceptionBlock |
16 cursorFgColor cursorBgColor cursorNoFocusFgColor cursorType |
18 cursorFgColor cursorBgColor cursorNoFocusFgColor cursorType |
334 !EditTextView class methodsFor:'defaults'! |
336 !EditTextView class methodsFor:'defaults'! |
335 |
337 |
336 updateStyleCache |
338 updateStyleCache |
337 "extract values from the styleSheet and cache them in class variables" |
339 "extract values from the styleSheet and cache them in class variables" |
338 |
340 |
339 <resource: #style (#textCursorForegroundColor #textCursorBackgroundColor |
341 <resource: #style (#'textCursor.foregroundColor' #'textCursorBackgroundColor' |
340 #textCursorNoFocusForegroundColor |
342 #'textCursor.noFocusForegroundColor' |
341 #textCursorType )> |
343 #'textCursor.type' )> |
342 |
344 |
343 DefaultCursorForegroundColor := StyleSheet colorAt:'textCursorForegroundColor'. |
345 DefaultCursorForegroundColor := StyleSheet colorAt:'textCursor.foregroundColor'. |
344 DefaultCursorBackgroundColor := StyleSheet colorAt:'textCursorBackgroundColor'. |
346 DefaultCursorBackgroundColor := StyleSheet colorAt:'textCursor.backgroundColor'. |
345 DefaultCursorNoFocusForegroundColor := StyleSheet colorAt:'textCursorNoFocusForegroundColor'. |
347 DefaultCursorNoFocusForegroundColor := StyleSheet colorAt:'textCursor.noFocusForegroundColor'. |
346 DefaultCursorType := StyleSheet at:'textCursorType' default:#block. |
348 DefaultCursorType := StyleSheet at:'textCursor.type' default:#block. |
347 |
349 |
348 ST80Mode := false. |
350 ST80Mode := false. |
349 |
351 |
350 "Modified: 13.8.1997 / 15:38:16 / cg" |
352 "Modified: 20.10.1997 / 13:54:30 / cg" |
351 ! ! |
353 ! ! |
352 |
354 |
353 !EditTextView methodsFor:'ST-80 compatibility editing'! |
355 !EditTextView methodsFor:'ST-80 compatibility editing'! |
354 |
356 |
355 insert:aString at:aCharacterPosition |
357 insert:aString at:aCharacterPosition |
4079 ! ! |
4081 ! ! |
4080 |
4082 |
4081 !EditTextView class methodsFor:'documentation'! |
4083 !EditTextView class methodsFor:'documentation'! |
4082 |
4084 |
4083 version |
4085 version |
4084 ^ '$Header: /cvs/stx/stx/libwidg/Attic/ETxtView.st,v 1.138 1997-10-09 12:14:16 cg Exp $' |
4086 ^ '$Header: /cvs/stx/stx/libwidg/Attic/ETxtView.st,v 1.139 1997-10-21 18:28:05 cg Exp $' |
4085 ! ! |
4087 ! ! |