--- a/PullDMenu.st	Sat Jul 25 11:45:41 1998 +0200
+++ b/PullDMenu.st	Sat Jul 25 12:15:35 1998 +0200
@@ -19,7 +19,8 @@
 		DefaultBackgroundColor DefaultHilightForegroundColor
 		DefaultHilightBackgroundColor DefaultLevel DefaultHilightLevel
 		DefaultShadowColor DefaultLightColor DefaultEdgeStyle
-		DefaultToggleMode DefaultKeepMenu DefaultToggleKeep DefaultSeparatingLines'
+		DefaultToggleMode DefaultKeepMenu DefaultToggleKeep
+		DefaultSeparatingLines'
 	poolDictionaries:''
 	category:'Views-Menus'
 !
@@ -555,12 +556,13 @@
     |menuView|
 
     menuView := MenuView labels:labels
-		      selectors:selectors
-		   accelerators:shorties
-			   args:args
-		       receiver:anObject
-			    for:self.
-    self at:aString putMenu:menuView
+                      selectors:selectors
+                   accelerators:shorties
+                           args:args
+                       receiver:anObject
+                            for:self.
+    self at:aString putMenu:menuView.
+    ^ menuView
 
     "Created: 5.6.1996 / 16:51:48 / cg"
 !
@@ -568,7 +570,7 @@
 at:aString putLabels:labels selectors:selectors accelerators:shorties receiver:anObject
     "create and set the menu under the title, aString"
 
-    self at:aString putLabels:labels selectors:selectors accelerators:shorties args:nil receiver:anObject
+    ^ self at:aString putLabels:labels selectors:selectors accelerators:shorties args:nil receiver:anObject
 
     "Modified: 5.6.1996 / 16:48:26 / cg"
     "Created: 5.6.1996 / 16:53:39 / cg"
@@ -580,17 +582,18 @@
     |menuView|
 
     menuView := MenuView labels:labels
-		      selectors:selectors
-			   args:args
-		       receiver:anObject
-			    for:self.
-    self at:aString putMenu:menuView
+                      selectors:selectors
+                           args:args
+                       receiver:anObject
+                            for:self.
+    self at:aString putMenu:menuView.
+    ^ menuView
 !
 
 at:aString putLabels:labels selectors:selectors receiver:anObject
     "create and set the menu under the title, aString"
 
-    self at:aString putLabels:labels selectors:selectors args:nil receiver:anObject
+    ^ self at:aString putLabels:labels selectors:selectors args:nil receiver:anObject
 
     "Modified: 5.6.1996 / 16:48:26 / cg"
 !
@@ -602,8 +605,8 @@
 
     index := self indexOf:aString.
     (index == 0) ifTrue:[
-	self error:'no such menu entry'.
-	^ nil
+        self error:'no such menu entry'.
+        ^ nil
     ].
 
     aMenu container:(self superView).
@@ -611,6 +614,8 @@
     menus at:index put:aMenu.
     aMenu masterView:self.
 
+    ^ aMenu
+
     "Modified: 5.6.1996 / 16:48:50 / cg"
 !
 
@@ -1775,5 +1780,5 @@
 !PullDownMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/PullDMenu.st,v 1.81 1997-11-20 18:02:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/PullDMenu.st,v 1.82 1998-07-25 10:15:35 cg Exp $'
 ! !

--- a/PullDownMenu.st	Sat Jul 25 11:45:41 1998 +0200
+++ b/PullDownMenu.st	Sat Jul 25 12:15:35 1998 +0200
@@ -19,7 +19,8 @@
 		DefaultBackgroundColor DefaultHilightForegroundColor
 		DefaultHilightBackgroundColor DefaultLevel DefaultHilightLevel
 		DefaultShadowColor DefaultLightColor DefaultEdgeStyle
-		DefaultToggleMode DefaultKeepMenu DefaultToggleKeep DefaultSeparatingLines'
+		DefaultToggleMode DefaultKeepMenu DefaultToggleKeep
+		DefaultSeparatingLines'
 	poolDictionaries:''
 	category:'Views-Menus'
 !
@@ -555,12 +556,13 @@
     |menuView|
 
     menuView := MenuView labels:labels
-		      selectors:selectors
-		   accelerators:shorties
-			   args:args
-		       receiver:anObject
-			    for:self.
-    self at:aString putMenu:menuView
+                      selectors:selectors
+                   accelerators:shorties
+                           args:args
+                       receiver:anObject
+                            for:self.
+    self at:aString putMenu:menuView.
+    ^ menuView
 
     "Created: 5.6.1996 / 16:51:48 / cg"
 !
@@ -568,7 +570,7 @@
 at:aString putLabels:labels selectors:selectors accelerators:shorties receiver:anObject
     "create and set the menu under the title, aString"
 
-    self at:aString putLabels:labels selectors:selectors accelerators:shorties args:nil receiver:anObject
+    ^ self at:aString putLabels:labels selectors:selectors accelerators:shorties args:nil receiver:anObject
 
     "Modified: 5.6.1996 / 16:48:26 / cg"
     "Created: 5.6.1996 / 16:53:39 / cg"
@@ -580,17 +582,18 @@
     |menuView|
 
     menuView := MenuView labels:labels
-		      selectors:selectors
-			   args:args
-		       receiver:anObject
-			    for:self.
-    self at:aString putMenu:menuView
+                      selectors:selectors
+                           args:args
+                       receiver:anObject
+                            for:self.
+    self at:aString putMenu:menuView.
+    ^ menuView
 !
 
 at:aString putLabels:labels selectors:selectors receiver:anObject
     "create and set the menu under the title, aString"
 
-    self at:aString putLabels:labels selectors:selectors args:nil receiver:anObject
+    ^ self at:aString putLabels:labels selectors:selectors args:nil receiver:anObject
 
     "Modified: 5.6.1996 / 16:48:26 / cg"
 !
@@ -602,8 +605,8 @@
 
     index := self indexOf:aString.
     (index == 0) ifTrue:[
-	self error:'no such menu entry'.
-	^ nil
+        self error:'no such menu entry'.
+        ^ nil
     ].
 
     aMenu container:(self superView).
@@ -611,6 +614,8 @@
     menus at:index put:aMenu.
     aMenu masterView:self.
 
+    ^ aMenu
+
     "Modified: 5.6.1996 / 16:48:50 / cg"
 !
 
@@ -1775,5 +1780,5 @@
 !PullDownMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.81 1997-11-20 18:02:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.82 1998-07-25 10:15:35 cg Exp $'
 ! !