--- 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 $'
! !