484 |
484 |
485 |template| |
485 |template| |
486 |
486 |
487 template := self at:s ifAbsent:s. |
487 template := self at:s ifAbsent:s. |
488 ^ template expandPlaceholdersWith:argArray |
488 ^ template expandPlaceholdersWith:argArray |
|
489 ! |
|
490 |
|
491 stringWithCRs:s with:arg |
|
492 "translate, replace \'s with CRs and finally expand arg. |
|
493 CR-replacement is donw before args are inserted |
|
494 i.e. if any arg contains a backslash (DOS filenames), those are not translated." |
|
495 |
|
496 ^ self stringWithCRs:s withArgs:(Array with:arg) |
|
497 |
|
498 "Modified: / 21.3.2003 / 14:22:09 / cg" |
|
499 ! |
|
500 |
|
501 stringWithCRs:s with:arg1 with:arg2 |
|
502 "translate, replace \'s with CRs and finally expand args. |
|
503 CR-replacement is donw before args are inserted |
|
504 i.e. if any arg contains a backslash (DOS filenames), those are not translated." |
|
505 |
|
506 ^ self stringWithCRs:s withArgs:(Array with:arg1 with:arg2) |
|
507 |
|
508 "Modified: / 21.3.2003 / 14:22:06 / cg" |
|
509 ! |
|
510 |
|
511 stringWithCRs:s with:arg1 with:arg2 with:arg3 |
|
512 "translate, replace \'s with CRs and finally expand args. |
|
513 CR-replacement is donw before args are inserted |
|
514 i.e. if any arg contains a backslash (DOS filenames), those are not translated." |
|
515 |
|
516 ^ self stringWithCRs:s withArgs:(Array with:arg1 with:arg2 with:arg3) |
|
517 |
|
518 "Created: 9.12.1995 / 19:08:50 / cg" |
|
519 ! |
|
520 |
|
521 stringWithCRs:s with:arg1 with:arg2 with:arg3 with:arg4 |
|
522 "translate, replace \'s with CRs and finally expand args. |
|
523 CR-replacement is donw before args are inserted |
|
524 i.e. if any arg contains a backslash (DOS filenames), those are not translated." |
|
525 |
|
526 ^ self stringWithCRs:s withArgs:(Array with:arg1 with:arg2 with:arg3 with:arg4) |
|
527 |
|
528 "Modified: / 21.3.2003 / 14:21:48 / cg" |
|
529 ! |
|
530 |
|
531 stringWithCRs:s with:arg1 with:arg2 with:arg3 with:arg4 with:arg5 |
|
532 "translate, replace \'s with CRs and finally expand args. |
|
533 CR-replacement is donw before args are inserted |
|
534 i.e. if any arg contains a backslash (DOS filenames), those are not translated." |
|
535 |
|
536 ^ self stringWithCRs:s withArgs:(Array with:arg1 with:arg2 with:arg3 with:arg4 with:arg5) |
|
537 |
|
538 "Modified: / 21.3.2003 / 14:21:55 / cg" |
|
539 ! |
|
540 |
|
541 stringWithCRs:s withArgs:argArray |
|
542 "translate, replace \'s with CRs and finally expand args. |
|
543 CR-replacement is donw before args are inserted |
|
544 i.e. if any arg contains a backslash (DOS filenames), those are not translated." |
|
545 |
|
546 |template| |
|
547 |
|
548 template := self at:s ifAbsent:s. |
|
549 ^ template withCRs expandPlaceholdersWith:argArray |
|
550 |
|
551 "Modified: / 21.3.2003 / 14:21:59 / cg" |
489 ! ! |
552 ! ! |
490 |
553 |
491 !ResourcePack methodsFor:'accessing-internals'! |
554 !ResourcePack methodsFor:'accessing-internals'! |
492 |
555 |
493 name:aKey |
556 name:aKey |