care for 2D styles
authorClaus Gittinger <cg@exept.de>
Wed, 17 Jul 1996 14:22:32 +0200
changeset 217 82971d8b3938
parent 216 5460cd6e2ff0
child 218 9b155a06f6e6
care for 2D styles
ComboView.st
--- a/ComboView.st	Mon Jul 15 16:42:35 1996 +0200
+++ b/ComboView.st	Wed Jul 17 14:22:32 1996 +0200
@@ -170,10 +170,13 @@
     ].
     ext := pullDownButton preferredExtent.
     pullDownButton origin:1.0@0.0 corner:1.0@1.0.
-    pullDownButton leftInset:(ext x "+ (ViewSpacing//2)") negated.
-"/    pullDownButton rightInset:(ViewSpacing//2).
-
-    field rightInset:(ext x + (ViewSpacing//2)).
+    styleSheet is3D ifTrue:[
+        pullDownButton leftInset:(ext x "+ (ViewSpacing//2)") negated.
+        field rightInset:(ext x + (ViewSpacing//2)).
+    ] ifFalse:[
+        pullDownButton leftInset:(ext x + pullDownButton borderWidth) negated.
+        field rightInset:(ext x).
+    ].
 
     pullDownButton disable.
     pullDownButton pressAction:[self pullMenu].
@@ -189,7 +192,7 @@
     "
 
     "Created: 28.2.1996 / 15:03:17 / cg"
-    "Modified: 28.2.1996 / 15:05:57 / cg"
+    "Modified: 17.7.1996 / 11:39:25 / cg"
 ! !
 
 !ComboView methodsFor:'message delegation'!
@@ -291,5 +294,5 @@
 !ComboView  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.5 1996-07-15 14:40:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.6 1996-07-17 12:22:32 cg Exp $'
 ! !