--- a/SelectionInListModelView.st	Sun Jan 24 22:18:28 2016 +0100
+++ b/SelectionInListModelView.st	Mon Jan 25 16:31:54 2016 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1999 by eXept Software AG
 	      All Rights Reserved
@@ -43,15 +45,15 @@
 
     1 to:100 do:[:i| list add:('element: ', i printString) ].
 
-    top  := StandardSystemView new; extent:300@300.
+    top  := StandardSystemView extent:300@300.
     view := ScrollableView for:SelectionInListModelView miniScroller:true
-			origin:0.0@0.0 corner:1.0@1.0 in:top.
+                        origin:0.0@0.0 corner:1.0@1.0 in:top.
 
     view minimumEditorHeight:100.
     view openEditorAction:[:ln :aGC| |f|
-	f := SimpleView in:aGC.
-	f viewBackground:(Color red).
-	f
+        f := SimpleView in:aGC.
+        f viewBackground:(Color red).
+        f
     ].
     view list:list.
     top  open.