--- a/MenuPanel.st Sat Apr 25 23:13:10 1998 +0200
+++ b/MenuPanel.st Sun Apr 26 00:33:55 1998 +0200
@@ -1606,7 +1606,7 @@
drawEdgesForX:x y:y width:w height:height isSelected:aBool
- |level r2 r h|
+ |level|
level := aBool ifTrue:[onLevel] ifFalse:[offLevel].
@@ -2379,8 +2379,6 @@
initStyle
"initialize style specific stuff"
- |font|
-
super initStyle.
onLevel := DefaultHilightLevel.
@@ -2389,9 +2387,6 @@
groupDividerSize := DefaultGroupDividerSize.
fitFirstPanel := DefaultFitFirstPanel.
-
-
-
!
initialize
@@ -2484,9 +2479,9 @@
"unmap view. If we have a popup supermenu, it will get all keyboard and
mouse events.
"
- |sensor|
self clearLastActiveMenu.
+
"/
"/ Kludge for X11: after grabbing and ungrabbing other views may get buttonMotionEvents
"/ when a mouse button is still pressed. To avoid this we grab the mouse for the superview.
@@ -2727,8 +2722,6 @@
"
self do:[:el| (el containsPointX:x y:y) ifTrue:[^el] ].
^ nil
-
-
!
superMenuAtX:x y:y
@@ -2745,8 +2738,6 @@
]
].
^ nil
-
-
! !
!MenuPanel methodsFor:'queries'!
@@ -2755,8 +2746,6 @@
"returns true if an item could be drawn otherwise false
"
^ (mustRearrange not and:[shown])
-
-
!
containsPoint:aPoint
@@ -2768,9 +2757,10 @@
containsPointX:x y:y
"returns true if point is contained by the view
"
- |ext|
-
^ (x between:0 and:width) and:[y between:0 and:height]
+
+"/ |ext|
+"/
"/ (x >= 0 and:[y >= 0]) ifTrue:[
"/ ext := self computeExtent.
"/ ^ (x < ext x and:[y < ext y])
@@ -4086,7 +4076,7 @@
!
findSubMenuIn:aRecv
- |subm keys argument|
+ |subm argument|
subm := nil.
@@ -4534,6 +4524,6 @@
!MenuPanel class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.81 1998-04-25 21:13:10 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.82 1998-04-25 22:33:55 cg Exp $'
! !
MenuPanel initialize!