Workspace.st
changeset 6679 5036ddf57f20
parent 6675 dbea00731942
child 6687 0cccc4bffe67
equal deleted inserted replaced
6678:050e2b35eb05 6679:5036ddf57f20
  1045                     ].
  1045                     ].
  1046                 ].
  1046                 ].
  1047             ] do:[
  1047             ] do:[
  1048                 answer := OptionBox
  1048                 answer := OptionBox
  1049                         request:aString
  1049                         request:aString
  1050                         buttonLabels:(resources array:#('Abort'  "'Keep Selected'" 'Continue'))
  1050                         buttonLabels:(resources array:#('Cancel'  "'Keep Selected'" 'Continue'))
  1051                         values:#(false "#keepSelected" true)
  1051                         values:#(false "#keepSelected" true)
  1052                         default:(asWarning ifTrue:true ifFalse:false).
  1052                         default:(asWarning ifTrue:true ifFalse:false).
  1053                 answer := answer ? false.   "/ if escaped
  1053                 answer := answer ? false.   "/ if escaped
  1054             ].
  1054             ].
  1055 "/            box := YesNoBox
  1055 "/            box := YesNoBox