equal
deleted
inserted
replaced
1380 The default argument (if non-nil) defines the index of the |
1380 The default argument (if non-nil) defines the index of the |
1381 return button (1 to n)" |
1381 return button (1 to n)" |
1382 |
1382 |
1383 |box answer| |
1383 |box answer| |
1384 |
1384 |
1385 box := OptionBox title:aString numberOfOptions:3. |
1385 box := OptionBox title:aString numberOfOptions:buttonLabels size. |
1386 box buttonTitles:buttonLabels |
1386 box buttonTitles:buttonLabels |
1387 actions:(buttonValues collect:[:v | [answer := v]]). |
1387 actions:(buttonValues collect:[:v | [answer := v]]). |
1388 |
1388 |
1389 default notNil ifTrue:[box defaultButtonIndex:default]. |
1389 default notNil ifTrue:[box defaultButtonIndex:default]. |
1390 box label:(self classResources string:'confirm'). |
1390 box label:(self classResources string:'confirm'). |
1402 default:3 |
1402 default:3 |
1403 ) |
1403 ) |
1404 " |
1404 " |
1405 |
1405 |
1406 "Created: / 18.10.1996 / 14:50:51 / cg" |
1406 "Created: / 18.10.1996 / 14:50:51 / cg" |
1407 "Modified: / 21.10.1998 / 15:48:33 / cg" |
1407 "Modified: / 21.10.1998 / 17:14:14 / cg" |
1408 ! ! |
1408 ! ! |
1409 |
1409 |
1410 !DialogBox class methodsFor:'defaults'! |
1410 !DialogBox class methodsFor:'defaults'! |
1411 |
1411 |
1412 defaultLabel |
1412 defaultLabel |
5818 ! ! |
5818 ! ! |
5819 |
5819 |
5820 !DialogBox class methodsFor:'documentation'! |
5820 !DialogBox class methodsFor:'documentation'! |
5821 |
5821 |
5822 version |
5822 version |
5823 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.122 1998-10-21 13:50:45 cg Exp $' |
5823 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.123 1998-10-21 15:20:17 cg Exp $' |
5824 ! ! |
5824 ! ! |
5825 DialogBox initialize! |
5825 DialogBox initialize! |