--- a/ShadowView.st	Tue Sep 05 14:03:05 2000 +0200
+++ b/ShadowView.st	Tue Sep 05 14:03:54 2000 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libview' }"
+
 SimpleView subclass:#ShadowView
 	instanceVariableNames:'myView shadowLength shadowClr imageUnderShadow'
 	classVariableNames:''
@@ -238,6 +240,8 @@
 !
 
 recreate
+    "sent after a snapin, reinit for new device"
+
     shadowClr notNil ifTrue:[
         shadowClr := shadowClr onDevice:device
     ].
@@ -264,5 +268,5 @@
 !ShadowView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ShadowView.st,v 1.30 1999-09-20 06:58:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ShadowView.st,v 1.31 2000-09-05 12:03:54 cg Exp $'
 ! !