--- a/OptionBox.st Wed Nov 20 10:56:19 2002 +0100
+++ b/OptionBox.st Thu Nov 21 14:11:20 2002 +0100
@@ -142,6 +142,20 @@
"Modified: / 23.2.2000 / 11:59:32 / cg"
!
+request:title buttonLabels:labels values:values
+ "create a new optionBox, open it modal and return the value of
+ the corresponding values collection."
+
+ ^ self request:title label:title buttonLabels:labels values:values
+
+ "
+ OptionBox
+ request:'please select any'
+ buttonLabels:#('one' 'two' 'three')
+ values:#(1 2 3)
+ "
+!
+
request:title label:label buttonLabels:labels values:values
"create a new optionBox, open it modal and return the value of
the corresponding values collection."
@@ -149,6 +163,14 @@
^ self
request:title label:label form:(YesNoBox iconBitmap)
buttonLabels:labels values:values default:nil onCancel:nil
+
+ "
+ OptionBox
+ request:'please select'
+ label:'select any'
+ buttonLabels:#('one' 'two' 'three')
+ values:#(1 2 3)
+ "
!
request:title label:label buttonLabels:labels values:values default:defaultValue
@@ -158,6 +180,15 @@
^ self
request:title label:label form:(YesNoBox iconBitmap) buttonLabels:labels values:values
default:defaultValue onCancel:defaultValue
+
+ "
+ OptionBox
+ request:'please select'
+ label:'select any'
+ buttonLabels:#('one' 'two' 'three')
+ values:#(1 2 3)
+ default:3
+ "
!
request:title label:label buttonLabels:labels values:values default:defaultValue onCancel:cancelValue
@@ -167,6 +198,16 @@
^ self
request:title label:label form:(YesNoBox iconBitmap) buttonLabels:labels values:values
default:defaultValue onCancel:cancelValue
+
+ "
+ OptionBox
+ request:'please select'
+ label:'select any'
+ buttonLabels:#('one' 'two' 'three')
+ values:#(1 2 3)
+ default:3
+ onCancel:2
+ "
!
request:title label:label form:aForm buttonLabels:labels values:values
@@ -174,6 +215,15 @@
the corresponding values collection."
^ self request:title label:label form:aForm buttonLabels:labels values:values default:nil onCancel:nil
+
+ "
+ OptionBox
+ request:'please select'
+ label:'select any'
+ form:(WarningBox iconBitmap)
+ buttonLabels:#('one' 'two' 'three')
+ values:#(1 2 3)
+ "
!
request:title label:label form:aForm buttonLabels:labels values:values default:defaultValue
@@ -183,6 +233,16 @@
^ self
request:title label:label form:aForm buttonLabels:labels values:values
default:defaultValue onCancel:defaultValue
+
+ "
+ OptionBox
+ request:'please select'
+ label:'select any'
+ form:(WarningBox iconBitmap)
+ buttonLabels:#('one' 'two' 'three')
+ values:#(1 2 3)
+ default:3
+ "
!
request:title label:label form:aForm buttonLabels:labels values:values default:defaultValue onCancel:cancelValue
@@ -207,12 +267,14 @@
^ retVal
"
- OptionBox request:'please select'
- label:'select any'
- form:(WarningBox iconBitmap)
- buttonLabels:#('one' 'two' 'three')
- values:#(1 2 3)
- default:3
+ OptionBox
+ request:'please select'
+ label:'select any'
+ form:(WarningBox iconBitmap)
+ buttonLabels:#('one' 'two' 'three')
+ values:#(1 2 3)
+ default:3
+ onCancel:nil
"
"Modified: / 23.2.2000 / 11:59:32 / cg"
@@ -479,5 +541,5 @@
!OptionBox class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.52 2002-08-20 14:36:20 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.53 2002-11-21 13:11:20 cg Exp $'
! !