--- a/DialogBox.st Mon Feb 22 09:32:25 2010 +0100
+++ b/DialogBox.st Wed Feb 24 14:07:45 2010 +0100
@@ -4652,12 +4652,14 @@
(box addTextLabel:aString) adjust:#left.
list notNil ifTrue:[
- maxLines <= list size ifTrue:[
- listView := ScrollableView for:SelectionInListView.
- ] ifFalse:[
- listView := SelectionInListView new.
- listView level:-1.
- ].
+ listView := HVScrollableView for:SelectionInListView.
+ listView autoHideScrollBars:true.
+"/ maxLines <= list size ifTrue:[
+"/ listView := HVScrollableView for:SelectionInListView.
+"/ ] ifFalse:[
+"/ listView := SelectionInListView new.
+"/ listView level:-1.
+"/ ].
listView list:list.
listView doubleClickAction:[:selectionIndex |
|val|
@@ -9000,11 +9002,11 @@
!DialogBox class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.294 2010-01-20 21:50:27 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.295 2010-02-24 13:07:45 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.294 2010-01-20 21:50:27 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.295 2010-02-24 13:07:45 cg Exp $'
! !
DialogBox initialize!