DialogBox.st
changeset 2317 2eb5c15c72fb
parent 2315 c55d1e6f75d8
child 2327 d2b1a2c814a8
equal deleted inserted replaced
2316:c259fe3a937b 2317:2eb5c15c72fb
  1179         Dialog confirm:'are you certain ?'
  1179         Dialog confirm:'are you certain ?'
  1180      )
  1180      )
  1181     "
  1181     "
  1182 
  1182 
  1183     "Modified: 14.11.1996 / 16:02:30 / cg"
  1183     "Modified: 14.11.1996 / 16:02:30 / cg"
       
  1184 !
       
  1185 
       
  1186 confirm:aString default:what
       
  1187     "launch a Dialog, which allows user to enter yes or no.
       
  1188      return true for yes, false for no.
       
  1189      InitialAnswer must be true or false and defines which button is to be
       
  1190      the default (i.e. return-) button"
       
  1191 
       
  1192     ^ self confirm:aString initialAnswer:what
  1184 !
  1193 !
  1185 
  1194 
  1186 confirm:aString initialAnswer:what
  1195 confirm:aString initialAnswer:what
  1187     "launch a Dialog, which allows user to enter yes or no.
  1196     "launch a Dialog, which allows user to enter yes or no.
  1188      return true for yes, false for no.
  1197      return true for yes, false for no.
  6686 ! !
  6695 ! !
  6687 
  6696 
  6688 !DialogBox class methodsFor:'documentation'!
  6697 !DialogBox class methodsFor:'documentation'!
  6689 
  6698 
  6690 version
  6699 version
  6691     ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.158 2000-11-22 09:36:26 cg Exp $'
  6700     ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.159 2000-11-22 13:16:13 cg Exp $'
  6692 ! !
  6701 ! !
  6693 DialogBox initialize!
  6702 DialogBox initialize!