--- a/StandardSystemView.st	Wed Sep 06 15:47:34 2000 +0200
+++ b/StandardSystemView.st	Wed Sep 06 15:50:23 2000 +0200
@@ -1439,30 +1439,30 @@
 !
 
 recreate
-    "recreate the view after a snap-in"
+    "recreate the view after a snap-in or a migration"
 
     |i m|
 
     super recreate.
 
     iconView notNil ifTrue:[
-	iconView recreate.
-	device setWindowIconWindow:iconView in:drawableId.
-	iconView setRealized:true.
+        iconView recreate.
+        device setWindowIconWindow:iconView in:drawableId.
+        iconView setRealized:true.
     ] ifFalse:[
-	icon notNil ifTrue:[
-	    i := self convertedIcon:icon.
-	    (i notNil and:[i id notNil]) ifTrue:[
-		(m := icon mask) notNil ifTrue:[
-		    m := self convertedIconMask:m.
-		].
-		device setWindowIcon:i mask:m in:drawableId
-	    ]
-	].
+        icon notNil ifTrue:[
+            i := self convertedIcon:icon.
+            (i notNil and:[i id notNil]) ifTrue:[
+                (m := icon mask) notNil ifTrue:[
+                    m := self convertedIconMask:m.
+                ].
+                device setWindowIcon:i mask:m in:drawableId
+            ]
+        ].
     ].
 
     iconLabel notNil ifTrue:[
-	device setIconName:iconLabel in:drawableId
+        device setIconName:iconLabel in:drawableId
     ]
 
     "Modified: 4.4.1997 / 16:16:40 / cg"
@@ -1471,6 +1471,6 @@
 !StandardSystemView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.131 2000-06-15 09:07:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.132 2000-09-06 13:50:23 cg Exp $'
 ! !
 StandardSystemView initialize!