equal
deleted
inserted
replaced
42 , self defaultFileSuffixForExtensions). |
42 , self defaultFileSuffixForExtensions). |
43 |
43 |
44 "Created: / 17-09-2012 / 18:27:51 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
44 "Created: / 17-09-2012 / 18:27:51 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
45 ! |
45 ! |
46 |
46 |
47 defaultFileNameForClassNamed:cclass |
47 defaultFileNameForClassNamed: name |
48 ^ ((cclass name copyReplaceAll:$: with:$_) , '.' |
48 ^ ((name copyReplaceAll:$: with:$_) , '.' |
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 |