--- a/MenuPanel.st	Tue Aug 04 18:25:03 1998 +0200
+++ b/MenuPanel.st	Wed Aug 05 10:46:22 1998 +0200
@@ -386,7 +386,7 @@
 
     RightArrowForm := SelectionInListView rightArrowFormOn:Display.
 
-    style ~~ #os2 ifTrue:[
+    (style ~~ #os2 and:[style ~~ #win95]) ifTrue:[
         RightArrowShadowForm := SelectionInListView rightArrowShadowFormOn:Display.
     ] ifFalse:[
         RightArrowShadowForm := nil
@@ -407,7 +407,7 @@
 
     Item updateStyleCache
 
-    "Modified: / 30.7.1998 / 23:53:38 / cg"
+    "Modified: / 5.8.1998 / 00:09:33 / cg"
 ! !
 
 !MenuPanel class methodsFor:'image registration'!
@@ -4667,7 +4667,7 @@
         ^ self.
     ].
 
-    menuPanel verticalLayout ifTrue:[p := (layout right) @ (layout top)]
+    menuPanel verticalLayout ifTrue:[p := (layout right - 4) @ (layout top)]
                             ifFalse:[p := (layout left)  @ (layout bottom)].
 
     d := menuPanel device.
@@ -4675,6 +4675,7 @@
     self openSubmenuAt:p.
 
     "Modified: / 2.2.1998 / 10:17:41 / stefan"
+    "Modified: / 5.8.1998 / 00:15:36 / cg"
 ! !
 
 !MenuPanel::Item::Adornment methodsFor:'accessing'!
@@ -4730,6 +4731,6 @@
 !MenuPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.105 1998-08-04 15:40:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.106 1998-08-05 08:46:22 cg Exp $'
 ! !
 MenuPanel initialize!