--- a/YesNoBox.st Thu May 10 19:36:59 2001 +0200
+++ b/YesNoBox.st Tue May 15 19:46:48 2001 +0200
@@ -201,124 +201,6 @@
"Modified: 1.4.1997 / 14:51:30 / cg"
! !
-!YesNoBox methodsFor:'accessing'!
-
-noAction:aBlock
- "define the action to be performed when 'no' is pressed"
-
- abortAction := aBlock
-
- "Modified: 16.1.1997 / 11:29:18 / cg"
-!
-
-noButton
- "return the no-button"
-
- ^ abortButton
-!
-
-noLabel:aString
- "define the label of the 'no'-button.
- And alias for #noText: - for backward compatibility"
-
- self noText:aString.
-
- "Created: 13.12.1995 / 16:21:57 / cg"
- "Modified: 16.1.1997 / 11:30:25 / cg"
-!
-
-noText:aString
- "define the label of the no-button.
- If not set, it defaults to the resource-string for 'no'."
-
- aString ~= abortButton label ifTrue:[
- abortButton label:aString.
- abortButton resize.
- shown ifTrue:[self resize]
- ]
-
- "Modified: 16.1.1997 / 11:30:01 / cg"
-!
-
-okText:yesString noText:noString
- "define the labels of both buttons.
- Alias for yesText:noText: for backward compatibility."
-
- ^ self yesText:yesString noText:noString
-
- "Modified: 16.1.1997 / 11:30:58 / cg"
-!
-
-title:aString yesAction:yesBlock noAction:noBlock
- "define title and actions"
-
- self title:aString.
- okAction := yesBlock.
- abortAction := noBlock
-!
-
-title:aString yesText:yesString noText:noString
- "define title and button labels"
-
- self title:aString.
- self yesText:yesString noText:noString
-!
-
-yesAction:aBlock
- "define the action to be performed when 'yes' is pressed"
-
- okAction := aBlock
-
- "Modified: 16.1.1997 / 11:31:21 / cg"
-!
-
-yesAction:yesBlock noAction:noBlock
- "define both actions"
-
- okAction := yesBlock.
- abortAction := noBlock
-!
-
-yesButton
- "return the 'yes'-button"
-
- ^ okButton
-
- "Modified: 16.1.1997 / 11:31:27 / cg"
-!
-
-yesLabel:aString
- "define the label of the 'yes'-button.
- An alias for #yesText: for backward compatibility."
-
- self yesText:aString.
-
- "Created: 13.12.1995 / 16:22:05 / cg"
- "Modified: 16.1.1997 / 11:31:58 / cg"
-!
-
-yesText:aString
- "define the label of the 'yes'-button"
-
- self okText:aString
-
- "Modified: 16.1.1997 / 11:31:39 / cg"
-!
-
-yesText:yesString noText:noString
- "define the labels of both buttons"
-
- ((yesString ~= okButton label) or:[noString ~= abortButton label]) ifTrue:[
- okButton label:yesString.
- abortButton label:noString.
- okButton resize.
- abortButton resize.
- shown ifTrue:[self resize]
- ]
-
- "Modified: 21.2.1996 / 00:58:38 / cg"
-! !
-
!YesNoBox methodsFor:'initialization'!
initialize
@@ -436,5 +318,5 @@
!YesNoBox class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/YesNoBox.st,v 1.45 2000-10-31 13:27:19 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/YesNoBox.st,v 1.46 2001-05-15 17:46:48 cg Exp $'
! !