--- a/DialogBox.st Thu Nov 14 17:40:54 1996 +0100
+++ b/DialogBox.st Fri Nov 15 00:40:33 1996 +0100
@@ -1003,7 +1003,7 @@
^ self
confirm:aString
- title:(ClassResources string:'confirm')
+ title:(self classResources string:'confirm')
yesLabel:nil
noLabel:nil
@@ -1042,7 +1042,7 @@
box acceptReturnAsOK:false.
box noButton beReturnButton.
].
- box label:(ClassResources string:'confirm').
+ box label:(self classResources string:'confirm').
box showAtPointer.
box yesAction:nil noAction:nil.
box destroy.
@@ -1081,7 +1081,7 @@
title notNil ifTrue:[
t := title
] ifFalse:[
- t := ClassResources string:'confirm'
+ t := self classResources string:'confirm'
].
box label:t.
box showAtPointer.
@@ -1175,7 +1175,7 @@
with:[answer := true]
).
default notNil ifTrue:[box defaultButtonIndex:default].
- box label:(ClassResources string:'confirm').
+ box label:(self classResources string:'confirm').
box showAtPointer.
box actions:nil.
box destroy.
@@ -1521,7 +1521,7 @@
versionSymbol == #new ifTrue:[
"/ file may not exist
name asFilename exists ifTrue:[
- (self confirm:(ClassResources string:'''%1'' exists.\\Continue anyway ?' with:box fileName) withCRs)
+ (self confirm:(self classResources string:'''%1'' exists.\\Continue anyway ?' with:box fileName) withCRs)
ifFalse:[^ ''].
].
].
@@ -1531,7 +1531,7 @@
versionSymbol == #old ifTrue:[
"/ file may not exist
name asFilename exists ifFalse:[
- (self confirm:(ClassResources string:'''%1'' does not exist yet.\\Continue anyway ?' with:box fileName) withCRs)
+ (self confirm:(self classResources string:'''%1'' does not exist yet.\\Continue anyway ?' with:box fileName) withCRs)
ifFalse:[^ ''].
].
].
@@ -5265,6 +5265,6 @@
!DialogBox class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.93 1996-11-14 15:07:36 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.94 1996-11-14 23:40:33 cg Exp $'
! !
DialogBox initialize!