equal
deleted
inserted
replaced
573 |
573 |
574 m := self moduleDirectory. |
574 m := self moduleDirectory. |
575 path := m subStrings:$/. |
575 path := m subStrings:$/. |
576 path last = 'application' ifTrue:[ |
576 path last = 'application' ifTrue:[ |
577 path size > 1 ifTrue:[ |
577 path size > 1 ifTrue:[ |
578 path := path copyWithoutLast:1. |
578 path := path copyButLast:1. |
579 ]. |
579 ]. |
580 ]. |
580 ]. |
581 ^ path last |
581 ^ path last |
582 |
582 |
583 " |
583 " |
2931 ! ! |
2931 ! ! |
2932 |
2932 |
2933 !ApplicationDefinition class methodsFor:'documentation'! |
2933 !ApplicationDefinition class methodsFor:'documentation'! |
2934 |
2934 |
2935 version |
2935 version |
2936 ^ '$Header: /cvs/stx/stx/libbasic/ApplicationDefinition.st,v 1.233 2013-04-04 14:16:21 cg Exp $' |
2936 ^ '$Header: /cvs/stx/stx/libbasic/ApplicationDefinition.st,v 1.234 2013-04-25 13:11:29 stefan Exp $' |
2937 ! |
2937 ! |
2938 |
2938 |
2939 version_CVS |
2939 version_CVS |
2940 ^ '$Header: /cvs/stx/stx/libbasic/ApplicationDefinition.st,v 1.233 2013-04-04 14:16:21 cg Exp $' |
2940 ^ '$Header: /cvs/stx/stx/libbasic/ApplicationDefinition.st,v 1.234 2013-04-25 13:11:29 stefan Exp $' |
2941 ! |
2941 ! |
2942 |
2942 |
2943 version_SVN |
2943 version_SVN |
2944 ^ '§ Id: ApplicationDefinition.st 10645 2011-06-09 15:28:45Z vranyj1 §' |
2944 ^ '§ Id: ApplicationDefinition.st 10645 2011-06-09 15:28:45Z vranyj1 §' |
2945 ! ! |
2945 ! ! |