Menu.st
changeset 739 3a1354a9f3a2
parent 738 f7e6b6cd3855
child 740 4f45cc61d4e0
--- a/Menu.st	Mon Nov 03 16:35:07 1997 +0100
+++ b/Menu.st	Wed Nov 12 22:26:53 1997 +0100
@@ -37,7 +37,7 @@
     nLabel := arrayOfString size.
 
     valueArrayOrNil isNil ifTrue:[
-        valueArray := arrayOfString isEmpty ifTrue: [
+        (valueArray := arrayOfString isEmpty) ifTrue: [
             valueArray := #()
         ] ifFalse:[
             valueArray := (1 to:nLabel)
@@ -709,5 +709,5 @@
 !Menu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.22 1997-11-03 15:35:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.23 1997-11-12 21:26:53 cg Exp $'
 ! !