--- a/EditTextView.st	Wed Jul 20 11:36:00 2016 +0200
+++ b/EditTextView.st	Wed Jul 20 11:36:27 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -6162,12 +6164,12 @@
     self learnModeHolder value:aBoolean.
 
     aBoolean ifTrue:[
-	learnedMacro := OrderedCollection new.
-	fg := Color white.
-	bg := Color black.
+        learnedMacro := OrderedCollection new.
+        fg := self whiteColor.
+        bg := self blackColor.
     ] ifFalse:[
-	cursorFgColor := fg := (DefaultCursorForegroundColor ? bgColor).
-	cursorBgColor := bg := (DefaultCursorBackgroundColor ? fgColor).
+        cursorFgColor := fg := (DefaultCursorForegroundColor ? bgColor).
+        cursorBgColor := bg := (DefaultCursorBackgroundColor ? fgColor).
     ].
     self cursorForegroundColor:fg backgroundColor:bg.
 !