equal
deleted
inserted
replaced
49 , self defaultFileSuffixForClass). |
49 , self defaultFileSuffixForClass). |
50 |
50 |
51 "Created: / 17-09-2012 / 18:11:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
51 "Created: / 17-09-2012 / 18:11:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
52 ! |
52 ! |
53 |
53 |
54 defaultFileNameForClassPackageNamed:aCypressPackage |
|
55 ^ ((aCypressPackage name copy) |
|
56 replaceAll:$: with:$_; |
|
57 replaceAll:$/ with:$_; |
|
58 yourself) , '.' |
|
59 , self defaultFileSuffixForPackage |
|
60 |
|
61 "Created: / 17-09-2012 / 17:32:49 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
62 ! |
|
63 |
|
64 defaultFileNameForComment |
54 defaultFileNameForComment |
65 ^ repository properties at:'commentFile' ifAbsent:[ 'README.md' ] |
55 ^ repository properties at:'commentFile' ifAbsent:[ 'README.md' ] |
66 |
56 |
67 "Created: / 17-09-2012 / 18:07:25 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
57 "Created: / 17-09-2012 / 18:07:25 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
68 ! |
58 ! |
74 "/Add more" |
64 "/Add more" |
75 at: selector |
65 at: selector |
76 ifAbsent:[ ((selector copyReplaceAll:$: with:$.) , '.st') ] |
66 ifAbsent:[ ((selector copyReplaceAll:$: with:$.) , '.st') ] |
77 |
67 |
78 "Created: / 17-09-2012 / 18:22:07 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
68 "Created: / 17-09-2012 / 18:22:07 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
69 ! |
|
70 |
|
71 defaultFileNameForPackageNamed:aCypressPackage |
|
72 ^ ((aCypressPackage name copy) |
|
73 replaceAll:$: with:$_; |
|
74 replaceAll:$/ with:$_; |
|
75 yourself) , '.' |
|
76 , self defaultFileSuffixForPackage |
|
77 |
|
78 "Created: / 17-09-2012 / 17:32:49 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
79 ! |
79 ! |
80 |
80 |
81 defaultFileNameForProperties |
81 defaultFileNameForProperties |
82 ^ 'properties.ston' |
82 ^ 'properties.ston' |
83 |
83 |