--- a/AbstractLauncherApplication.st	Wed Feb 16 11:54:09 2000 +0100
+++ b/AbstractLauncherApplication.st	Wed Feb 16 12:03:42 2000 +0100
@@ -760,11 +760,11 @@
     "save image in aFilename"
 
     aFileName notNil ifTrue:[
-	self withCursor:Cursor write do:[
-	    (ObjectMemory snapShotOn:aFileName) ifFalse:[
-		self warn:(resources string:'Failed to save snapshot image (disk full or not writable)').
-	    ]
-	].
+        self withCursor:Cursor write do:[
+            (ObjectMemory snapShotOn:aFileName) ifFalse:[
+                self warn:('Failed to save snapshot image (disk full or not writable)').
+            ]
+        ].
     ].
 ! !
 
@@ -2157,7 +2157,7 @@
         screen visualType == #PseudoColor ifTrue:[
             useFixPalette value ifTrue:[
                 Color colorAllocationFailSignal handle:[:ex |
-                    self warn:(resources string:'Could not allocate colors.').
+                    requestor warn:'Could not allocate colors.'.
                 ] do:[
                     Color getColorsRed:4 green:8 blue:4 on:screen
                 ]
@@ -2167,7 +2167,7 @@
 
             useFixGrayPalette value ifTrue:[
                 Color colorAllocationFailSignal handle:[:ex |
-                    self warn:(resources string:'Could not allocate colors.').
+                    requestor warn:'Could not allocate colors.'.
                 ] do:[
                     Color getGrayColors:32 on:screen
                 ]
@@ -3283,7 +3283,7 @@
 
     s := fileName asFilename writeStream.
     s isNil ifTrue:[
-        self warn:'cannot write the ''' , fileName , ''' file'.
+        requestor warn:'cannot write the ''' , fileName , ''' file'.
         ^ self
     ].
 
@@ -4083,7 +4083,7 @@
     ].
 
     resourceDir isNil ifTrue:[
-        self warn:(resources string:'no styles found (missing ''resources'' directory)').
+        requestor warn:'no styles found (missing ''resources'' directory)'.
         ^ self
     ].
     dir := resourceDir asFilename directoryContents.
@@ -4903,7 +4903,7 @@
      maxLengthForSingleLineBlocks resetValue bindings|
 
     BRFormatter isNil ifTrue:[
-        ^ self warn:'Sorry, no BRFormatter class'.
+        ^ requestor warn:'Sorry, no BRFormatter class'.
     ].
 
     BRFormatter isLoaded ifFalse:[
@@ -5488,5 +5488,5 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.103 2000-02-16 10:54:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.104 2000-02-16 11:03:42 cg Exp $'
 ! !