MenuView.st
changeset 714 5ff02d2d9fa7
parent 709 a738bd76ace4
child 727 2fba8a2ccd96
--- a/MenuView.st	Wed May 29 12:20:58 1996 +0200
+++ b/MenuView.st	Wed May 29 12:24:15 1996 +0200
@@ -2140,6 +2140,10 @@
 preferredExtent 
     |margin2 w h extra|
 
+    preferredExtent notNil ifTrue:[
+        ^ preferredExtent
+    ].
+
     widthOfWidestLine := nil.  "/ i.e. unknown
 
     margin2 := margin * 2.
@@ -2159,7 +2163,7 @@
     ].
     ^ ((w+extra) @ h).
 
-    "Modified: 2.3.1996 / 14:54:52 / cg"
+    "Modified: 29.5.1996 / 12:11:37 / cg"
 !
 
 shortKeyInset
@@ -2511,5 +2515,5 @@
 !MenuView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.83 1996-05-28 19:19:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.84 1996-05-29 10:22:44 cg Exp $'
 ! !