hg/stx-libwidg: comparison DialogBox.st

equal deleted inserted replaced

-:febbcec12413
+:e2b1cd9dd459
 The list may be suppressed (if the list arg is nil).
 If a list is present, multiple controls if multiple selections are allowed.
 Below the list, an optional row of buttons is shown, which can also be
 clicked upon, and a corresponding value from buttonValues is returned.
 If cancel is pressed, the value of cancelBlock is returned.
-Pressing ok without a selection is treated like cancel."
+Pressing ok without a selection returns nil or an empty collection (if multiple is true)."
 ^ self
 choose:aString
 fromList:list values:listValues
 buttons:buttonLabels values:buttonValues
 The list may be suppressed (if the list arg is nil).
 If a list is present, multiple controls if multiple selections are allowed.
 Below the list, an optional row of buttons is shown, which can also be
 clicked upon, and a corresponding value from buttonValues is returned.
 If cancel is pressed, the value of cancelBlock is returned.
-Pressing ok without a selection is treated like cancel."
+Pressing ok without a selection returns nil or an empty collection (if multiple is true)."
 ^ self
 choose:aString
 fromList:list values:listValues
 initialSelection:nil
 The list may be suppressed (if the list arg is nil).
 If a list is present, multiple controls if multiple selections are allowed.
 Below the list, an optional row of buttons is shown, which can also be
 clicked upon, and a corresponding value from buttonValues is returned.
 If cancel is pressed, the value of cancelBlock is returned.
-Pressing ok without a selection is treated like cancel."
+Pressing ok without a selection returns nil or an empty collection (if multiple is true)."
 ^ self
 choose:aString
 fromList:list values:listValues
 initialSelection:initialListSelectionOrNil
 The list may be suppressed (if the list arg is nil).
 If a list is present, multiple controls if multiple selections are allowed.
 Below the list, an optional row of buttons is shown, which can also be
 clicked upon, and a corresponding value from buttonValues is returned.
 If cancel is pressed, the value of cancelBlock is returned.
-Pressing ok without a selection is treated like cancel."
+Pressing ok without a selection returns nil or an empty collection (if multiple is true)."
 ^ self
 choose:aString
 fromList:list values:listValues
 initialSelection:initialListSelectionOrNil
 If a list is present, multiple controls if multiple selections are allowed.
 Below the list, an optional row of buttons is shown, which can also be
 clicked upon, and a corresponding value from buttonValues is returned.
 The buttonValue may be a block of up to 3 arguments; it gets the selection, the box and selIndices as args.
 If cancel is pressed, the value of cancelBlock is returned.
-Pressing ok without a selection is treated like cancel."
+Pressing ok without a selection returns nil or an empty collection (if multiple is true)."
 |box listView panel sel haveDefault|
 box := Dialog new.
 (box addTextLabel:aString) adjust:#left.
 ^ listValues at:sel
 ].
 ^ sel collect:[:idx | listValues at:idx]
 ].
 box destroy.
-^ nil "/ ^ true.
+^ multiple ifTrue:[ #() ] ifFalse:[ nil ]
 ].
 box destroy.
 ^ cancelBlock value
 "
 The list may be suppressed (if the list arg is nil).
 If a list is present, multiple controls if multiple selections are allowed.
 Below the list, an optional row of buttons is shown, which can also be
 clicked upon, and a corresponding value from buttonValues is returned.
 If cancel is pressed, the value of cancelBlock is returned.
-Pressing ok without a selection is treated like cancel."
+Pressing ok without a selection returns nil or an empty collection (if multiple is true)."
 ^ self
 choose:aString
 fromList:list values:listValues
 initialSelection:initialListSelectionOrNil
 "
 "Modified: / 02-03-2007 / 12:08:55 / cg"
 !
+chooseMultiple:aString fromList:list lines:maxLines
+"launch a Dialog showing the message and list.
+The user can select any combination of items and click ok;
+in this case, the values from list is returned (doubleclick works as well).
+If cancel is pressed, the value of cancelBlock is returned.
+Pressing ok without a selection returns an empty collection."
+^ self
+choose:aString
+fromList:(list collect:[:each| each printString]) values:list
+initialSelection:nil
+buttons:nil values:nil
+default:#()
+lines:maxLines
+cancel:nil
+multiple:true
+title:nil
+postBuildBlock:nil
+"
+Transcript showCR:(
+Dialog
+chooseMultiple:'choose any combination'
+fromList:#(1 2 3 4 5 6 7)
+lines:4
+)
+"
+"Modified: / 02-03-2007 / 12:08:31 / cg"
+!
 chooseMultiple:aString fromList:list values:listValues buttons:buttonLabels values:buttonValues lines:maxLines cancel:cancelBlock
 "launch a Dialog showing the message and list.
 The user can select an item and click ok; in this case, the corresponding value
 from listValues is returned (doubleclick works as well).
 The list may be suppressed (if the list arg is nil).
 Below the list, an optional row of buttons is shown, which can also be
 clicked upon, and a corresponding value from buttonValues is returned.
 If cancel is pressed, the value of cancelBlock is returned.
-Pressing ok without a selection is treated like cancel."
+Pressing ok without a selection returns an empty collection."
 ^ self
 choose:aString
 fromList:list values:listValues
 buttons:buttonLabels values:buttonValues
 from listValues is returned (doubleclick works as well).
 The list may be suppressed (if the list arg is nil).
 Below the list, an optional row of buttons is shown, which can also be
 clicked upon, and a corresponding value from buttonValues is returned.
 If cancel is pressed, the value of cancelBlock is returned.
-Pressing ok without a selection is treated like cancel."
+Pressing ok without a selection returns an empty collection."
 ^ self
 choose:aString
 fromList:list values:listValues
 initialSelection:initialListSelectionOrNil
 ! !
 !DialogBox class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.339 2013-07-04 11:56:11 cg Exp $'
+^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.340 2013-07-05 12:25:14 cg Exp $'
 !
 version_CVS
-^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.339 2013-07-04 11:56:11 cg Exp $'
+^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.340 2013-07-05 12:25:14 cg Exp $'
 ! !
 DialogBox initialize!

changeset 4642	e2b1cd9dd459
parent 4640	6069399797c0
child 4653	81ab264cb68f