261 |
261 |
262 "Created: / 13-10-2011 / 11:16:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
262 "Created: / 13-10-2011 / 11:16:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
263 "Modified: / 14-11-2012 / 01:07:12 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
263 "Modified: / 14-11-2012 / 01:07:12 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
264 ! ! |
264 ! ! |
265 |
265 |
|
266 !SCMAbstractSourceCodeManager::Utilities methodsFor:'utilities-cvs'! |
|
267 |
|
268 checkinClass:aClass withInfo:aLogInfoOrNil withCheck:doCheckClass usingManager:aManagerOrNil |
|
269 "check a class into the source repository. |
|
270 If the argument, aLogInfoOrNil isNil, ask interactively for log-message. |
|
271 If doCheckClass is true, the class is checked for send of halts etc." |
|
272 |
|
273 ^self checkinClasses:(Array with: aClass) withInfo:aLogInfoOrNil withCheck:doCheckClass usingManager:aManagerOrNil |
|
274 |
|
275 "Created: / 25-12-2011 / 23:45:55 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
276 ! ! |
|
277 |
|
278 !SCMAbstractSourceCodeManager::Utilities methodsFor:'utilities-cvs'! |
|
279 |
|
280 compareProject:aProject withRepositoryVersionFrom:aDateOrNilForNewest |
|
281 |diffSet| |
|
282 |
|
283 diffSet := self diffSetOfProject:aProject againstRepositoryVersionFrom:aDateOrNilForNewest. |
|
284 |
|
285 (Tools::ChangeSetDiffTool new) |
|
286 diffset:diffSet; |
|
287 title:('Differences of %1' bindWith:aProject); |
|
288 open. |
|
289 |
|
290 "Created: / 18-01-2012 / 16:04:50 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
291 ! ! |
|
292 |
|
293 !SCMAbstractSourceCodeManager::Utilities methodsFor:'utilities-cvs'! |
|
294 |
|
295 diffSetOfProject: package againstRepositoryVersionFrom:dateOrNil |
|
296 |
|
297 self shouldImplement |
|
298 |
|
299 "Created: / 15-10-2011 / 23:26:00 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
300 "Modified: / 14-11-2012 / 01:07:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
301 ! ! |
|
302 |
|
303 !SCMAbstractSourceCodeManager::Utilities methodsFor:'utilities-cvs'! |
|
304 |
|
305 tagClass:aClass as:tag |
|
306 |
|
307 Dialog warn: 'Individual class tagging not supported by SubVersion. Tag whole package instead'. |
|
308 |
|
309 "Modified: / 12-09-2006 / 13:03:59 / cg" |
|
310 "Created: / 15-10-2011 / 22:48:54 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
311 ! ! |
|
312 |
|
313 !SCMAbstractSourceCodeManager::Utilities methodsFor:'utilities-cvs'! |
|
314 |
|
315 tagClasses:classes as:tag |
|
316 |
|
317 Dialog warn: 'Individual class tagging not supported by SubVersion. Tag whole package instead'. |
|
318 |
|
319 "Modified: / 12-09-2006 / 13:03:59 / cg" |
|
320 "Created: / 15-10-2011 / 22:49:10 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
321 ! ! |
|
322 |
|
323 !SCMAbstractSourceCodeManager::Utilities methodsFor:'utilities-cvs'! |
|
324 |
|
325 tagPackage: package as:tag |
|
326 |
|
327 Dialog warn: 'Not yet implemented' |
|
328 |
|
329 "Created: / 12-09-2006 / 13:04:29 / cg" |
|
330 "Created: / 15-10-2011 / 22:49:27 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
331 ! ! |
|
332 |
266 !SCMAbstractSourceCodeManager class methodsFor:'documentation'! |
333 !SCMAbstractSourceCodeManager class methodsFor:'documentation'! |
267 |
334 |
268 version_SVN |
335 version_SVN |
269 ^ '$Id:: $' |
336 ^ '$Id:: $' |
270 ! ! |
337 ! ! |