equal
deleted
inserted
replaced
846 "Modified: / 18-02-2012 / 19:10:00 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
846 "Modified: / 18-02-2012 / 19:10:00 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
847 ! |
847 ! |
848 |
848 |
849 sourceFile |
849 sourceFile |
850 ^ sourceFile |
850 ^ sourceFile |
|
851 ! |
|
852 |
|
853 sourceString |
|
854 ^sourceString |
|
855 |
|
856 "Created: / 19-04-2013 / 09:28:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
851 ! |
857 ! |
852 |
858 |
853 staticFields |
859 staticFields |
854 ^ staticFields |
860 ^ staticFields |
855 ! |
861 ! |
2178 ] |
2184 ] |
2179 |
2185 |
2180 "Created: / 20-02-2012 / 22:47:00 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2186 "Created: / 20-02-2012 / 22:47:00 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2181 ! |
2187 ! |
2182 |
2188 |
2183 setSource: aString |
2189 setSource: aStringOrNil |
2184 self assert: aString isString. |
2190 self assert: (aStringOrNil isNil or:[aStringOrNil isString]). |
2185 sourceString := aString |
2191 sourceString := aStringOrNil |
2186 |
2192 |
2187 "Created: / 15-04-1996 / 16:42:52 / cg" |
2193 "Created: / 15-04-1996 / 16:42:52 / cg" |
2188 "Created: / 18-02-2012 / 19:10:47 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2194 "Created: / 18-02-2012 / 19:10:47 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
2195 "Modified: / 19-04-2013 / 09:30:06 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2189 ! |
2196 ! |
2190 |
2197 |
2191 setSourceFile:aFilename |
2198 setSourceFile:aFilename |
2192 sourceFile := aFilename. |
2199 sourceFile := aFilename. |
2193 |
2200 |