--- a/SimpleView.st	Wed Jul 20 11:35:44 2016 +0200
+++ b/SimpleView.st	Wed Jul 20 11:38:15 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
@@ -9,8 +11,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-'From Smalltalk/X, Version:7.1.0.0 on 16-07-2016 at 16:48:53'                   !
-
 "{ Package: 'stx:libview' }"
 
 "{ NameSpace: Smalltalk }"
@@ -1446,18 +1446,6 @@
     ^ ViewSpacing
 ! !
 
-!SimpleView class methodsFor:'misc ui support'!
-
-iconInBrowserSymbol
-    "the browser will use this as index into the toolbariconlibrary"
-
-    <resource: #programImage>
-
-    self isAbstract ifTrue:[
-        ^ #abstractWindowClassBrowserIcon
-    ].    
-    ^ #windowClassBrowserIcon
-! !
 
 !SimpleView class methodsFor:'resources'!
 
@@ -1983,7 +1971,7 @@
         clr := border color
     ].
     clr isNil ifTrue:[
-        ^ Color black
+        ^ self blackColor
     ].
     ^ clr.
 
@@ -2110,7 +2098,7 @@
     "return the foreground color of the contents -
      here, (since there is no contents), some default is returned."
 
-    ^ Color black
+    ^ self blackColor
 
     "Modified: / 3.5.1997 / 10:28:04 / cg"
     "Created: / 18.6.1998 / 16:57:33 / cg"
@@ -7950,15 +7938,6 @@
     subViews := nil
 ! !
 
-!SimpleView methodsFor:'inspecting'!
-
-inspectorExtraAttributes
-    ^ super inspectorExtraAttributes
-        add:'-windowGroup' -> [ self instVarNamed:#windowGroup ];
-        add:'-sensor' -> [ self instVarNamed:#sensor ];
-        add:'-parent' -> [ self instVarNamed:#container ];
-        yourself
-! !
 
 !SimpleView methodsFor:'keyboard control'!
 
@@ -10340,14 +10319,14 @@
 
     self fill:flashColor.
     messageOrNil notNil ifTrue:[
-        self withForeground:Color white do:[
+        self withForeground:self whiteColor do:[
             self displayString:messageOrNil centeredAt:(self center).
         ].
     ].
     Delay waitForSeconds:0.1.
     self fill:self whiteColor.
     messageOrNil notNil ifTrue:[
-        self withForeground:Color black do:[
+        self withForeground:self blackColor do:[
             self displayString:messageOrNil centeredAt:(self center).
         ].
     ].
@@ -11665,14 +11644,6 @@
     ^ false
 !
 
-isCodeView2
-    "codeview2 seems to require some extra hacks"
-
-    ^ false
-
-    "Created: / 20-07-2010 / 15:42:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
 isComboView
     ^ false
 !