--- a/Label.st	Sun Jun 06 01:02:42 1999 +0200
+++ b/Label.st	Thu Jun 10 18:17:13 1999 +0200
@@ -1036,7 +1036,7 @@
 !Label methodsFor:'accessing-layout'!
 
 adjust
-    "return the adjust symbol"
+    "return the adjust symbol. See #adjust: for an explanation."
 
     ^ adjust
 !
@@ -1358,21 +1358,21 @@
 
     a := adjust.
     (width < labelWidth) ifTrue:[
-        ((adjust == #centerRight) or:[adjust == #leftRight]) ifTrue:[
+        ((a == #centerRight) or:[a == #leftRight]) ifTrue:[
             a := #right
         ] ifFalse:[
-            ((adjust == #centerLeft) or:[adjust == #rightLeft]) ifTrue:[
+            ((a == #centerLeft) or:[a == #rightLeft]) ifTrue:[
                 a := #left
             ].
         ]
     ] ifFalse:[
-        ((adjust == #centerRight) or:[adjust == #centerLeft]) ifTrue:[
+        ((a == #centerRight) or:[a == #centerLeft]) ifTrue:[
             a := #center
         ] ifFalse:[
-            adjust == #leftRight ifTrue:[
+            a == #leftRight ifTrue:[
                 a := #left
             ] ifFalse:[
-                adjust == #rightLeft ifTrue:[
+                a == #rightLeft ifTrue:[
                     a := #right
                 ]
             ]
@@ -1724,5 +1724,5 @@
 !Label class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.102 1999-05-26 13:43:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.103 1999-06-10 16:16:15 cg Exp $'
 ! !

--- a/PopUpList.st	Sun Jun 06 01:02:42 1999 +0200
+++ b/PopUpList.st	Thu Jun 10 18:17:13 1999 +0200
@@ -551,25 +551,6 @@
     "Modified: 27.2.1997 / 10:24:12 / cg"
 ! !
 
-!PopUpList methodsFor:'accessing - look'!
-
-showHandle
-    "return true if the pull-handle is to be drawn; default is true"
-
-    ^ showHandle
-
-    "Created: / 6.3.1999 / 21:26:40 / cg"
-!
-
-showHandle:aBoolean
-    "controls if the pull-handle is to be drawn; default is true"
-
-    showHandle := aBoolean.
-    self computeLabelSize
-
-    "Modified: / 6.3.1999 / 21:58:21 / cg"
-! !
-
 !PopUpList methodsFor:'accessing-behavior'!
 
 action:aOneArgBlock
@@ -617,6 +598,25 @@
     "
 ! !
 
+!PopUpList methodsFor:'accessing-look'!
+
+showHandle
+    "return true if the pull-handle is to be drawn; default is true"
+
+    ^ showHandle
+
+    "Created: / 6.3.1999 / 21:26:40 / cg"
+!
+
+showHandle:aBoolean
+    "controls if the pull-handle is to be drawn; default is true"
+
+    showHandle := aBoolean.
+    self computeLabelSize
+
+    "Modified: / 6.3.1999 / 21:58:21 / cg"
+! !
+
 !PopUpList methodsFor:'accessing-mvc'!
 
 addModelInterfaceTo:aDictionary
@@ -1044,5 +1044,5 @@
 !PopUpList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.61 1999-04-13 20:27:15 tm Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.62 1999-06-10 16:17:13 cg Exp $'
 ! !