--- a/PullDownMenu.st	Sun Sep 03 21:38:31 2000 +0200
+++ b/PullDownMenu.st	Tue Sep 05 14:03:47 2000 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libwidg' }"
+
 View subclass:#PullDownMenu
 	instanceVariableNames:'receiver menus titles selectors activeMenuNumber
 		showSeparatingLines topMargin fgColor bgColor activeFgColor
@@ -1529,15 +1531,16 @@
 !
 
 recreate
-    "if the image was saved with an active menu, hide it"
+    "sent after a snapin;
+     if the image was saved with an active menu, hide it"
 
     |m|
 
     activeMenuNumber notNil ifTrue:[
-	(m := menus at:activeMenuNumber) notNil ifTrue:[
-	    m unmap.
-	].
-	activeMenuNumber := nil.
+        (m := menus at:activeMenuNumber) notNil ifTrue:[
+            m unmap.
+        ].
+        activeMenuNumber := nil.
     ].
     super recreate.
     self setMenuOrigins
@@ -1802,5 +1805,5 @@
 !PullDownMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.92 2000-02-12 15:34:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.93 2000-09-05 12:03:47 cg Exp $'
 ! !