DialogBox.st
changeset 3382 deb5b2cfea1a
parent 3357 f00242a1c6cd
child 3384 22a6f1b80bb1
equal deleted inserted replaced
3381:5a5912ac302e 3382:deb5b2cfea1a
  1496      Dialog confirm:'really ?' withCancel:false 
  1496      Dialog confirm:'really ?' withCancel:false 
  1497      Dialog confirm:'really ?' withCancel:true 
  1497      Dialog confirm:'really ?' withCancel:true 
  1498     "
  1498     "
  1499 !
  1499 !
  1500 
  1500 
       
  1501 confirm:aString yesLabel:yesText
       
  1502     "launch a Dialog, which allows user to enter yes or no.
       
  1503      return true for yes, false for no.
       
  1504      The yes button's label is defined by yesText."
       
  1505 
       
  1506     ^ self confirm:aString title:nil yesLabel:yesText noLabel:nil
       
  1507 
       
  1508     " 
       
  1509      Dialog 
       
  1510         confirm:'really ?' 
       
  1511         yesLabel:'Oh well' 
       
  1512     "
       
  1513 
       
  1514     "Created: / 04-09-2006 / 11:18:50 / cg"
       
  1515 !
       
  1516 
  1501 confirm:aString yesLabel:yesText noLabel:noText
  1517 confirm:aString yesLabel:yesText noLabel:noText
  1502     "launch a Dialog, which allows user to enter yes or no.
  1518     "launch a Dialog, which allows user to enter yes or no.
  1503      return true for yes, false for no.
  1519      return true for yes, false for no.
  1504      The yes/no buttons labels are defined by yesText/noText."
  1520      The yes/no buttons' labels are defined by yesText/noText."
  1505 
  1521 
  1506     ^ self confirm:aString title:nil yesLabel:yesText noLabel:noText
  1522     ^ self confirm:aString title:nil yesLabel:yesText noLabel:noText
  1507 
  1523 
  1508     " 
  1524     " 
  1509      Dialog 
  1525      Dialog 
  1510         confirm:'really ?' 
  1526         confirm:'really ?' 
  1511         yesLabel:'Oh well' 
  1527         yesLabel:'Oh well' 
  1512         noLabel:'Nope'
  1528         noLabel:'Nope'
  1513     "
  1529     "
  1514 
  1530 
  1515     "Created: 21.2.1996 / 01:10:14 / cg"
  1531     "Created: / 21-02-1996 / 01:10:14 / cg"
  1516     "Modified: 8.3.1996 / 21:15:06 / cg"
  1532     "Modified: / 04-09-2006 / 11:19:00 / cg"
  1517 !
  1533 !
  1518 
  1534 
  1519 confirm:aString yesLabel:yesText noLabel:noText initialAnswer:what
  1535 confirm:aString yesLabel:yesText noLabel:noText initialAnswer:what
  1520     "launch a Dialog, which allows user to enter yes or no.
  1536     "launch a Dialog, which allows user to enter yes or no.
  1521      return true for yes, false for no.
  1537      return true for yes, false for no.
  8226 ! !
  8242 ! !
  8227 
  8243 
  8228 !DialogBox class methodsFor:'documentation'!
  8244 !DialogBox class methodsFor:'documentation'!
  8229 
  8245 
  8230 version
  8246 version
  8231     ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.251 2006-08-24 09:36:16 cg Exp $'
  8247     ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.252 2006-09-04 09:20:34 cg Exp $'
  8232 ! !
  8248 ! !
  8233 
  8249 
  8234 DialogBox initialize!
  8250 DialogBox initialize!