--- a/ShadowView.st	Wed Sep 06 15:47:34 2000 +0200
+++ b/ShadowView.st	Wed Sep 06 15:50:23 2000 +0200
@@ -240,7 +240,7 @@
 !
 
 recreate
-    "sent after a snapin, reinit for new device"
+    "sent after a snapin or a migration, reinit for new device"
 
     shadowClr notNil ifTrue:[
         shadowClr := shadowClr onDevice:device
@@ -268,5 +268,5 @@
 !ShadowView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ShadowView.st,v 1.31 2000-09-05 12:03:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ShadowView.st,v 1.32 2000-09-06 13:50:08 cg Exp $'
 ! !