--- a/StandardSystemView.st	Thu Sep 27 16:50:24 2018 +0200
+++ b/StandardSystemView.st	Thu Sep 27 16:51:32 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -1433,39 +1435,6 @@
 
 !StandardSystemView methodsFor:'realization'!
 
-collapse
-    "iconify the receiver"
-
-    shown ifTrue:[
-	self unmap.
-
-	"if it was iconified, try to remap iconified"
-	device
-	    mapView:self id:self drawableId iconified:true
-	    atX:left y:top width:width height:height
-	    minExtent:minExtent maxExtent:maxExtent.
-
-	shown ifTrue:[
-	    shown := false.
-	    dependents notNil ifTrue:[ self changed:#visibility ].
-	].
-    ].
-
-    "
-     |top|
-
-     top := StandardSystemView new.
-     top label:'hello'.
-     top openAndWait.
-     Delay waitForSeconds:2.
-     top collapse.
-     Delay waitForSeconds:2.
-     top expand.
-    "
-
-    "Modified: 24.7.1997 / 12:32:17 / cg"
-!
-
 create
     "create - make certain that icon is available"
 
@@ -1693,6 +1662,42 @@
     "Modified: / 30-10-2007 / 16:39:42 / cg"
 ! !
 
+!StandardSystemView methodsFor:'show & hide'!
+
+collapse
+    "iconify the receiver"
+
+    shown ifTrue:[
+        self unmap.
+
+        "remap iconified"
+        device
+            mapView:self id:self drawableId iconified:true
+            atX:left y:top width:width height:height
+            minExtent:minExtent maxExtent:maxExtent.
+        
+        shown ifTrue:[
+            shown := false.
+            dependents notNil ifTrue:[ self changed:#visibility ].
+        ].
+    ].
+
+    "
+     |top|
+
+     top := StandardSystemView new.
+     top label:'hello'.
+     top openAndWait.
+     Delay waitForSeconds:2.
+     top collapse.
+     Delay waitForSeconds:2.
+     top expand.
+    "
+
+    "Modified: / 24-07-1997 / 12:32:17 / cg"
+    "Modified: / 27-09-2018 / 16:51:04 / Claus Gittinger"
+! !
+
 !StandardSystemView class methodsFor:'documentation'!
 
 version