DialogBox.st
changeset 884 ef5688a6a636
parent 881 76f7f4b3d4a9
child 912 310c4970e613
--- 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!