1871 !

  1871 !

  1872 

  1872 

  1873 confirmWithCancel:aString labels:buttonLabels values:buttonValues default:default

  1873 confirmWithCancel:aString labels:buttonLabels values:buttonValues default:default

  1874     "launch a Dialog, which allows user to click on any button.

  1874     "launch a Dialog, which allows user to click on any button.

  1875      Return the corresponding value from the values array.

  1875      Return the corresponding value from the values array.

  1877      buttonLabels; 

  1877      buttonLabels; 

  1878      The default argument (if non-nil) defines the index of the 

  1878      The default argument (if non-nil) defines the index of the 

  1879      return button (1 to n)"

  1879      return button (1 to n)"

  1880 

  1880 

  1881     ^ self

  1881     ^ self

  1913 !

  1913 !

  1914 

  1914 

  1915 confirmWithCancel:aString labels:buttonLabels values:buttonValues default:default check:checkLabelOrNil on:checkHolderOrNil title:boxLabelOrNil

  1915 confirmWithCancel:aString labels:buttonLabels values:buttonValues default:default check:checkLabelOrNil on:checkHolderOrNil title:boxLabelOrNil

  1916     "launch a Dialog, which allows user to click on any button.

  1916     "launch a Dialog, which allows user to click on any button.

  1917      Return the corresponding value from the values array.

  1917      Return the corresponding value from the values array.

  1920      The default argument (if non-nil) defines the index of the return button (1 to n).

  1920      The default argument (if non-nil) defines the index of the return button (1 to n).

  1921      If checkLabel/checkHolder are not nil, and additional labelled checkBox is added to operate on

  1921      If checkLabel/checkHolder are not nil, and additional labelled checkBox is added to operate on

  1922      checkHolder. This can be used for 'do not show this box again' checkItems."

  1922      checkHolder. This can be used for 'do not show this box again' checkItems."

  1923 

  1923 

  1924     |box buttons answer i|

  1924     |box buttons answer i|

  1925 

  1925 

  1927     box buttonTitles:buttonLabels

  1927     box buttonTitles:buttonLabels

  1928              actions:(buttonValues collect:[:v | [answer := v]]).

  1928              actions:(buttonValues collect:[:v | [answer := v]]).

  1929     box image:(YesNoBox iconBitmap).

  1929     box image:(YesNoBox iconBitmap).

  1930     default notNil ifTrue:[

  1930     default notNil ifTrue:[

  1932                                     ifTrue:[default]

  1932                                     ifTrue:[default]

  1933                                     ifFalse:[ buttonValues indexOf:default])

  1933                                     ifFalse:[ buttonValues indexOf:default])

  1934     ].

  1934     ].

  1935     box label:(boxLabelOrNil ? (self classResources string:'Confirm')).

  1935     box label:(boxLabelOrNil ? (self classResources string:'Confirm')).

  1936     buttons := box buttons.

  1936     buttons := box buttons.

  1957     box actions:nil.

  1957     box actions:nil.

  1958     ^ answer

  1958     ^ answer

  1959 

  1959 

  1960     "

  1960     "

  1961      Transcript showCR:(

  1961      Transcript showCR:(

  1963             confirmWithCancel:'really ?'

  1963             confirmWithCancel:'really ?'

  1964             labels:#('mhmh' 'maybe' 'definitely')

  1964             labels:#('mhmh' 'maybe' 'definitely')

  1965             values:#(1 2 3)

  1965             values:#(1 2 3)

  1966             default:3

  1966             default:3

  1967             check:'Again' on:(true asValue)

  1967             check:'Again' on:(true asValue)

  1968             title:'hello there'

  1968             title:'hello there'

  1969      )

  1969      )

  1970 

  1970 

  1971      Transcript showCR:(

  1971      Transcript showCR:(

  1973             confirmWithCancel:'really ?'

  1973             confirmWithCancel:'really ?'

  1974             labels:#('mhmh' 'maybe' 'definitely')

  1974             labels:#('mhmh' 'maybe' 'definitely')

  1975             values:#(1 2 3)

  1975             values:#(1 2 3)

  1976             default:3

  1976             default:3

  1977             check:nil on:nil

  1977             check:nil on:nil

  1983 !

  1983 !

  1984 

  1984 

  1985 confirmWithCancel:aString labels:buttonLabels values:buttonValues default:default title:boxLabelOrNil

  1985 confirmWithCancel:aString labels:buttonLabels values:buttonValues default:default title:boxLabelOrNil

  1986     "launch a Dialog, which allows user to click on any button.

  1986     "launch a Dialog, which allows user to click on any button.

  1987      Return the corresponding value from the values array.

  1987      Return the corresponding value from the values array.

  1991      return button (1 to n)"

  1991      return button (1 to n)"

  1992 

  1992 

  1993     ^ self

  1993     ^ self

  1998         check:nil on:nil

  1998         check:nil on:nil

  1999         title:boxLabelOrNil

  1999         title:boxLabelOrNil

  2000 

  2000 

  2001     "

  2001     "

  2002      Transcript showCR:(

  2002      Transcript showCR:(

  2004             confirmWithCancel:'really ?'

  2004             confirmWithCancel:'really ?'

  2005             labels:#('mhmh' 'maybe' 'definitely')

  2005             labels:#('mhmh' 'maybe' 'definitely')

  2006             values:#(1 2 3)

  2006             values:#(1 2 3)

  2007             default:3

  2007             default:3

  2008             title:'hello there'

  2008             title:'hello there'