# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1289644540 -3600
# Node ID fb909281b8f3bd7d585165ec01f16050364b1615
# Parent  52358314cdbbded8f5710e34d7e5dca14c2ebe34
added:
        #string:with:with:with:with:with:with:
        #string:with:with:with:with:with:with:with:
        #stringWithCRs:with:with:with:with:with:with:
        #stringWithCRs:with:with:with:with:with:with:with:

diff -r 52358314cdbb -r fb909281b8f3 ResourcePack.st
--- a/ResourcePack.st	Sat Nov 13 10:56:19 2010 +0100
+++ b/ResourcePack.st	Sat Nov 13 11:35:40 2010 +0100
@@ -950,6 +950,22 @@
 
 !
 
+string:s with:arg1 with:arg2 with:arg3 with:arg4 with:arg5 with:arg6
+    "translate and expand args"
+
+    ^ self string:s withArgs:(Array with:arg1 with:arg2 with:arg3 with:arg4 with:arg5 with:arg6)
+
+    "Created: / 13-11-2010 / 11:35:00 / cg"
+!
+
+string:s with:arg1 with:arg2 with:arg3 with:arg4 with:arg5 with:arg6 with:arg7
+    "translate and expand args"
+
+    ^ self string:s withArgs:(Array with:arg1 with:arg2 with:arg3 with:arg4 with:arg5 with:arg6 with:arg7)
+
+    "Created: / 13-11-2010 / 11:35:07 / cg"
+!
+
 string:s withArgs:argArray
     "translate and expand args - allow text as arguments"
 
@@ -1028,6 +1044,26 @@
     "Modified: / 21.3.2003 / 14:21:55 / cg"
 !
 
+stringWithCRs:s with:arg1 with:arg2 with:arg3 with:arg4 with:arg5 with:arg6 
+    "translate, replace \'s with CRs and finally expand args.
+     CR-replacement is donw before args are inserted 
+     i.e. if any arg contains a backslash (DOS filenames), those are not translated."
+
+    ^ self stringWithCRs:s withArgs:(Array with:arg1 with:arg2 with:arg3 with:arg4 with:arg5 with:arg6)
+
+    "Created: / 13-11-2010 / 11:35:30 / cg"
+!
+
+stringWithCRs:s with:arg1 with:arg2 with:arg3 with:arg4 with:arg5 with:arg6 with:arg7
+    "translate, replace \'s with CRs and finally expand args.
+     CR-replacement is donw before args are inserted 
+     i.e. if any arg contains a backslash (DOS filenames), those are not translated."
+
+    ^ self stringWithCRs:s withArgs:(Array with:arg1 with:arg2 with:arg3 with:arg4 with:arg5 with:arg6 with:arg7)
+
+    "Created: / 13-11-2010 / 11:35:20 / cg"
+!
+
 stringWithCRs:s withArgs:argArray
     "translate, replace \'s with CRs and finally expand args.
      CR-replacement is done before args are inserted 
@@ -1342,11 +1378,11 @@
 !ResourcePack class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.146 2010-11-01 08:09:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.147 2010-11-13 10:35:40 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.146 2010-11-01 08:09:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.147 2010-11-13 10:35:40 cg Exp $'
 ! !
 
 ResourcePack initialize!