Mercurial Mercurial > hg > stx-libwidg / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Mon, 13 Jan 1997 23:51:31 +0100
changeset 937 a40b299d30c8
parent 936 0e8811726930
child 938 6fc0f088a9a6
checkin from browser
PullDMenu.st file | annotate | diff | comparison | revisions
PullDownMenu.st file | annotate | diff | comparison | revisions 
--- 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 $'
 ! !
--- 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 $'
 ! !
hg/stx-libwidg