MenuPanel.st
changeset 4113 9172e1e60149
parent 4112 df82e28ca882
child 4118 a2a352a255a9
--- a/MenuPanel.st	Tue Mar 06 14:50:29 2012 +0100
+++ b/MenuPanel.st	Wed Mar 07 11:30:01 2012 +0100
@@ -1703,7 +1703,7 @@
 !
 
 maxExtent
-    |minH info pos|
+    |minH pos|
 
     maxExtent notNil ifTrue:[^ maxExtent].
 
@@ -1711,13 +1711,11 @@
         "/ notice, the position-dependent query: if there is a higher secondary screen,
         "/ this makes a difference in where a popUpMenu is allowed...
         pos := self origin.
-        minH := (device usableHeightAt:pos).
         pos = (0@0) ifTrue:[
             "called too early"
-            device monitorHandles do:[:eachHandle |
-                info := device monitorInfoFor:eachHandle.
-                info notNil ifTrue:[ minH := minH min: info workHeight ].
-            ].
+            minH := device smallestMonitorHeight.
+        ] ifFalse:[
+            minH := device usableHeightAt:pos.
         ].
         ^ device usableWidth @ (minH - 2)
         "/ ^ device usableExtent - 5.
@@ -8633,11 +8631,11 @@
 !MenuPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.535 2012-03-06 13:50:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.536 2012-03-07 10:30:01 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.535 2012-03-06 13:50:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.536 2012-03-07 10:30:01 stefan Exp $'
 ! !
 
 MenuPanel initialize!