# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 853195891 -3600
# Node ID a40b299d30c8c17e051d1d5e5ce4cd30e2e3463b
# Parent  0e881172693072bce5755f02d7368998ef8534cb
checkin from browser

diff -r 0e8811726930 -r a40b299d30c8 PullDMenu.st
--- a/PullDMenu.st	Mon Jan 13 23:47:18 1997 +0100
+++ b/PullDMenu.st	Mon Jan 13 23:51:31 1997 +0100
@@ -1383,15 +1383,15 @@
         activeBgColor := DefaultHilightBackgroundColor
     ].
     DefaultShadowColor notNil ifTrue:[
-        shadowColor := DefaultShadowColor on:device
+        shadowColor := DefaultShadowColor
     ].
     DefaultLightColor notNil ifTrue:[
-        lightColor := DefaultLightColor on:device
+        lightColor := DefaultLightColor
     ].
 
     raiseTopWhenActivated := styleSheet at:'pullDownMenuRaiseTop' default:true.
 
-    "Modified: 13.1.1997 / 23:25:34 / cg"
+    "Modified: 13.1.1997 / 23:51:21 / cg"
 !
 
 initialize
@@ -1660,5 +1660,5 @@
 !PullDownMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/PullDMenu.st,v 1.68 1997-01-13 22:28:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/PullDMenu.st,v 1.69 1997-01-13 22:51:31 cg Exp $'
 ! !
diff -r 0e8811726930 -r a40b299d30c8 PullDownMenu.st
--- a/PullDownMenu.st	Mon Jan 13 23:47:18 1997 +0100
+++ b/PullDownMenu.st	Mon Jan 13 23:51:31 1997 +0100
@@ -1383,15 +1383,15 @@
         activeBgColor := DefaultHilightBackgroundColor
     ].
     DefaultShadowColor notNil ifTrue:[
-        shadowColor := DefaultShadowColor on:device
+        shadowColor := DefaultShadowColor
     ].
     DefaultLightColor notNil ifTrue:[
-        lightColor := DefaultLightColor on:device
+        lightColor := DefaultLightColor
     ].
 
     raiseTopWhenActivated := styleSheet at:'pullDownMenuRaiseTop' default:true.
 
-    "Modified: 13.1.1997 / 23:25:34 / cg"
+    "Modified: 13.1.1997 / 23:51:21 / cg"
 !
 
 initialize
@@ -1660,5 +1660,5 @@
 !PullDownMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.68 1997-01-13 22:28:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.69 1997-01-13 22:51:31 cg Exp $'
 ! !