--- 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!