YesNoBox.st
changeset 2361 227ff51a7e7b
parent 2304 c96b6b899023
child 2428 f800d9ec09a8
--- 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 $'
 ! !