equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1989 by Claus Gittinger |
4 COPYRIGHT (c) 1989 by Claus Gittinger |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
6325 |
6327 |
6326 self learnModeHolder value:aBoolean. |
6328 self learnModeHolder value:aBoolean. |
6327 |
6329 |
6328 aBoolean ifTrue:[ |
6330 aBoolean ifTrue:[ |
6329 learnedMacro := OrderedCollection new. |
6331 learnedMacro := OrderedCollection new. |
6330 fg := Color white. |
6332 fg := self whiteColor. |
6331 bg := Color black. |
6333 bg := self blackColor. |
6332 ] ifFalse:[ |
6334 ] ifFalse:[ |
6333 cursorFgColor := fg := (DefaultCursorForegroundColor ? bgColor). |
6335 cursorFgColor := fg := (DefaultCursorForegroundColor ? bgColor). |
6334 cursorBgColor := bg := (DefaultCursorBackgroundColor ? fgColor). |
6336 cursorBgColor := bg := (DefaultCursorBackgroundColor ? fgColor). |
6335 ]. |
6337 ]. |
6336 self cursorForegroundColor:fg backgroundColor:bg. |
6338 self cursorForegroundColor:fg backgroundColor:bg. |