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