equal
deleted
inserted
replaced
150 ^'N/A' |
150 ^'N/A' |
151 |
151 |
152 "Created: / 19-03-2012 / 23:31:57 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
152 "Created: / 19-03-2012 / 23:31:57 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
153 ! ! |
153 ! ! |
154 |
154 |
|
155 !ChangeSetSpec methodsFor:'testing'! |
|
156 |
|
157 isChangeSet |
|
158 ^self isExplicit |
|
159 |
|
160 "Created: / 20-03-2012 / 14:58:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
161 ! |
|
162 |
|
163 isDirectory |
|
164 ^false |
|
165 |
|
166 "Created: / 20-03-2012 / 14:59:16 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
167 ! |
|
168 |
|
169 isExplicit |
|
170 ^false |
|
171 |
|
172 "Created: / 20-03-2012 / 14:58:50 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
173 ! |
|
174 |
|
175 isFile |
|
176 ^false |
|
177 |
|
178 "Created: / 20-03-2012 / 14:58:34 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
179 ! |
|
180 |
|
181 isPackage |
|
182 ^false |
|
183 |
|
184 "Created: / 20-03-2012 / 14:58:43 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
185 ! ! |
|
186 |
155 !ChangeSetSpec::Directory class methodsFor:'accessing'! |
187 !ChangeSetSpec::Directory class methodsFor:'accessing'! |
156 |
188 |
157 editorSpecSelector |
189 editorSpecSelector |
158 "superclass Tools::ChangeSetSpec class says that I am responsible to implement this method" |
190 "superclass Tools::ChangeSetSpec class says that I am responsible to implement this method" |
159 |
191 |
193 |
225 |
194 directory:aStringOrFilename |
226 directory:aStringOrFilename |
195 directory := aStringOrFilename. |
227 directory := aStringOrFilename. |
196 ! ! |
228 ! ! |
197 |
229 |
|
230 !ChangeSetSpec::Directory methodsFor:'testing'! |
|
231 |
|
232 isDirectory |
|
233 ^true |
|
234 |
|
235 "Created: / 20-03-2012 / 14:59:20 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
236 ! ! |
|
237 |
198 !ChangeSetSpec::Explicit class methodsFor:'accessing'! |
238 !ChangeSetSpec::Explicit class methodsFor:'accessing'! |
199 |
239 |
200 editorSpecSelector |
240 editorSpecSelector |
201 "superclass Tools::ChangeSetSpec class says that I am responsible to implement this method" |
241 "superclass Tools::ChangeSetSpec class says that I am responsible to implement this method" |
202 |
242 |
215 |
255 |
216 changeSet |
256 changeSet |
217 "superclass Tools::ChangeSetSpec says that I am responsible to implement this method" |
257 "superclass Tools::ChangeSetSpec says that I am responsible to implement this method" |
218 |
258 |
219 ^ self shouldImplement |
259 ^ self shouldImplement |
|
260 ! ! |
|
261 |
|
262 !ChangeSetSpec::Explicit methodsFor:'testing'! |
|
263 |
|
264 isExplicit |
|
265 ^true |
|
266 |
|
267 "Created: / 20-03-2012 / 14:59:29 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
220 ! ! |
268 ! ! |
221 |
269 |
222 !ChangeSetSpec::File class methodsFor:'accessing'! |
270 !ChangeSetSpec::File class methodsFor:'accessing'! |
223 |
271 |
224 editorSpecSelector |
272 editorSpecSelector |
260 |
308 |
261 file:something |
309 file:something |
262 file := something. |
310 file := something. |
263 ! ! |
311 ! ! |
264 |
312 |
|
313 !ChangeSetSpec::File methodsFor:'testing'! |
|
314 |
|
315 isFile |
|
316 ^true |
|
317 |
|
318 "Created: / 20-03-2012 / 14:59:41 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
319 ! ! |
|
320 |
265 !ChangeSetSpec::Package class methodsFor:'accessing'! |
321 !ChangeSetSpec::Package class methodsFor:'accessing'! |
266 |
322 |
267 editorSpecSelector |
323 editorSpecSelector |
268 "superclass Tools::ChangeSetSpec class says that I am responsible to implement this method" |
324 "superclass Tools::ChangeSetSpec class says that I am responsible to implement this method" |
269 |
325 |
297 |
353 |
298 package:aStringOrSymbol |
354 package:aStringOrSymbol |
299 package := aStringOrSymbol. |
355 package := aStringOrSymbol. |
300 ! ! |
356 ! ! |
301 |
357 |
|
358 !ChangeSetSpec::Package methodsFor:'testing'! |
|
359 |
|
360 isPackage |
|
361 ^true |
|
362 |
|
363 "Created: / 20-03-2012 / 14:59:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
364 ! ! |
|
365 |
302 !ChangeSetSpec class methodsFor:'documentation'! |
366 !ChangeSetSpec class methodsFor:'documentation'! |
303 |
367 |
304 version_CVS |
368 version_CVS |
305 ^ '§Header: /cvs/stx/stx/libtool/Tools__ChangeSetSpec.st,v 1.2 2011/10/02 19:52:17 stefan Exp §' |
369 ^ '§Header: /cvs/stx/stx/libtool/Tools__ChangeSetSpec.st,v 1.2 2011/10/02 19:52:17 stefan Exp §' |
306 ! |
370 ! |
307 |
371 |
308 version_SVN |
372 version_SVN |
309 ^ '$Id: Tools__ChangeSetSpec.st 7946 2012-03-20 12:36:40Z vranyj1 $' |
373 ^ '$Id: Tools__ChangeSetSpec.st 7947 2012-03-20 16:59:54Z vranyj1 $' |
310 ! ! |
374 ! ! |