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:
--- 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!