--- a/PullDownMenu.st	Sat Jan 08 18:27:39 1994 +0100
+++ b/PullDownMenu.st	Sat Jan 08 18:27:56 1994 +0100
@@ -25,7 +25,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
              All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.3 1993-10-13 02:48:49 claus Exp $
+$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.4 1994-01-08 17:27:45 claus Exp $
 
 written summer 89 by claus
 '!
@@ -35,7 +35,8 @@
 documentation
 "
 PullDown menu provides the top (always visible) part of these menus. It controls
-display of its menus, which become visible when one of the PullDownMenus entries is pressed.
+display of its menus, which become visible when one of the PullDownMenus entries 
+is pressed.
 
 Instance variables:
 
@@ -48,6 +49,8 @@
 bgColor                 <Color>         color to draw passive menu-titles
 activeFgColor           <Color>         color to draw activated menu-titles
 activeBgColor           <Color>         color to draw activated menu-titles
+onLevel                 <Integer>       level of entry-buttons when pressed
+offLevel                <Integer>       level of entry-buttons when released
 "
 ! !
 
@@ -75,6 +78,9 @@
     showSeparatingLines := false.
     fgColor := Black.
     bgColor := viewBackground.
+    onLevel := -1.
+    offLevel := 1.
+
     self is3D ifTrue:[
         device hasColors ifTrue:[
             activeFgColor := Color name:'yellow'
@@ -86,14 +92,20 @@
         ] ifFalse:[
             activeBgColor := fgColor.
         ].
-        topMargin := 2
+        topMargin := 2.
+
+        style == #iris ifTrue:[
+            self level:2.
+            softEdge := true.
+            onLevel := 2.
+            offLevel := 0.
+            activeFgColor := fgColor
+        ]
     ] ifFalse:[
         activeFgColor := bgColor.
         activeBgColor := fgColor.
         topMargin := 0
     ].
-    onLevel := -1.
-    offLevel := 1
 !
 
 initEvents