equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 2000 by eXept Software AG |
4 COPYRIGHT (c) 2000 by eXept Software AG |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
36233 |
36235 |
36234 |doChecks| |
36236 |doChecks| |
36235 |
36237 |
36236 doChecks := (UserPreferences current at:#checkClassesWhenCheckingIn ifAbsent:true). |
36238 doChecks := (UserPreferences current at:#checkClassesWhenCheckingIn ifAbsent:true). |
36237 doChecks := doChecks asValue. |
36239 doChecks := doChecks asValue. |
|
36240 self window sensor shiftDown ifTrue:[ doChecks := false ]. |
|
36241 |
36238 self classMenuCheckIn:doChecks usingManager:aManagerOrNil. |
36242 self classMenuCheckIn:doChecks usingManager:aManagerOrNil. |
36239 doChecks value ~~ (UserPreferences current at:#checkClassesWhenCheckingIn ifAbsent:true) ifTrue:[ |
36243 doChecks value ~~ (UserPreferences current at:#checkClassesWhenCheckingIn ifAbsent:true) ifTrue:[ |
36240 UserPreferences current at:#checkClassesWhenCheckingIn put:doChecks value |
36244 UserPreferences current at:#checkClassesWhenCheckingIn put:doChecks value |
36241 ]. |
36245 ]. |
36242 |
36246 |
48207 ]. |
48211 ]. |
48208 |
48212 |
48209 dummyChangeSet := ChangeSet new addAll:previousMethods; yourself. |
48213 dummyChangeSet := ChangeSet new addAll:previousMethods; yourself. |
48210 dummyChangeSet reverse. "/ youngest first. |
48214 dummyChangeSet reverse. "/ youngest first. |
48211 browser := (UserPreferences current changeSetBrowserClass) openOn:dummyChangeSet. |
48215 browser := (UserPreferences current changeSetBrowserClass) openOn:dummyChangeSet. |
|
48216 browser label:(resources string:'Previous Versions of %1' with:(m whoStringWith:' » ')). |
|
48217 browser perform:#rightCodeLabel: with:'Previous Version' ifNotUnderstood:[]. |
48212 browser readOnly:true. |
48218 browser readOnly:true. |
48213 |
48219 |
48214 "Modified: / 13-06-2011 / 11:32:10 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
48220 "Modified: / 13-06-2011 / 11:32:10 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
48215 "Modified: / 26-07-2012 / 14:30:20 / cg" |
48221 "Modified: / 26-07-2012 / 14:30:20 / cg" |
48216 ! |
48222 ! |
48432 ]. |
48438 ]. |
48433 "/ Transcript showCR:('it took %1 seconds' bindWith:(t /1000)printString). |
48439 "/ Transcript showCR:('it took %1 seconds' bindWith:(t /1000)printString). |
48434 |
48440 |
48435 self activityNotification:nil. |
48441 self activityNotification:nil. |
48436 browser := (UserPreferences current changeSetBrowserClass) openOn:previousMethods. |
48442 browser := (UserPreferences current changeSetBrowserClass) openOn:previousMethods. |
48437 browser window label:(resources string:'Revisions of %1 » %2' with:mclass name with:mselector). |
48443 browser window label:(resources string:'Revisions of %1 » %2' with:mclass name with:mselector). |
48438 browser readOnly:true. |
48444 browser readOnly:true. |
48439 ]. |
48445 ]. |
48440 |
48446 |
48441 "Modified: / 01-07-2011 / 16:34:29 / cg" |
48447 "Modified: / 01-07-2011 / 16:34:29 / cg" |
48442 "Created: / 18-11-2011 / 18:19:50 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
48448 "Created: / 18-11-2011 / 18:19:50 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
53048 itemClass:[:chg | chg changeClass] |
53054 itemClass:[:chg | chg changeClass] |
53049 itemSelector:[:chg | chg selector] |
53055 itemSelector:[:chg | chg selector] |
53050 label:[:chg | |
53056 label:[:chg | |
53051 |lbl| |
53057 |lbl| |
53052 "/ lbl := chg printString |
53058 "/ lbl := chg printString |
53053 lbl := (chg className ? '???') , ' » ' , (chg selector ? '???') allBold. |
53059 lbl := (chg className ? '???') , ' » ' , (chg selector ? '???') allBold. |
53054 (chg isMethodChange and:[chg changeMethod isNil]) ifTrue:[ |
53060 (chg isMethodChange and:[chg changeMethod isNil]) ifTrue:[ |
53055 lbl := lbl asText allStrikedOut,' ','(removed)' allItalic. |
53061 lbl := lbl asText allStrikedOut,' ','(removed)' allItalic. |
53056 ]. |
53062 ]. |
53057 lbl |
53063 lbl |
53058 ] |
53064 ] |
60578 ]. |
60584 ]. |
60579 ]. |
60585 ]. |
60580 ^ selectorCompletion |
60586 ^ selectorCompletion |
60581 ! ! |
60587 ! ! |
60582 |
60588 |
60583 |
|
60584 !NewSystemBrowser methodsFor:'private-semantic checks'! |
60589 !NewSystemBrowser methodsFor:'private-semantic checks'! |
60585 |
60590 |
60586 checkAcceptedMethod:aMethod inClass:aClass |
60591 checkAcceptedMethod:aMethod inClass:aClass |
60587 "do some semantic checks on the just accepted method: |
60592 "do some semantic checks on the just accepted method: |
60588 does new method redefine an inherited method, which does the same ? |
60593 does new method redefine an inherited method, which does the same ? |