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 |
27041 Smalltalk allClassesDo:[:cls | |
27043 Smalltalk allClassesDo:[:cls | |
27042 |
27044 |
27043 (cls theMetaclass includesSelector:#copyright) ifFalse:[ |
27045 (cls theMetaclass includesSelector:#copyright) ifFalse:[ |
27044 noCopyright add:cls. |
27046 noCopyright add:cls. |
27045 ] ifTrue:[ |
27047 ] ifTrue:[ |
27046 Transcript showCR:(' %1' bindWith:cls name). |
27048 Transcript showCR:' %1' with:cls name. |
27047 |
27049 |
27048 copyright := ((cls theMetaclass sourceCodeAt:#copyright) ? '') asStringCollection. |
27050 copyright := ((cls theMetaclass sourceCodeAt:#copyright) ? '') asStringCollection. |
27049 line := copyright detect:[:l | (l includesString:'Copyright' caseSensitive:false) |
27051 line := copyright detect:[:l | (l includesString:'Copyright' caseSensitive:false) |
27050 and:[l includesAny:'0123456789'] |
27052 and:[l includesAny:'0123456789'] |
27051 ] |
27053 ] |
43151 |
43153 |
43152 Transcript isView ifTrue:[ |
43154 Transcript isView ifTrue:[ |
43153 Transcript topView raise. |
43155 Transcript topView raise. |
43154 ]. |
43156 ]. |
43155 Transcript showCR:'*******************'. |
43157 Transcript showCR:'*******************'. |
43156 Transcript showCR:('building in %1...' bindWith:projectBuilder buildDirectory pathName). |
43158 Transcript showCR:'building in %1...' with:projectBuilder buildDirectory pathName. |
43157 |
43159 |
43158 "/ build |
43160 "/ build |
43159 projectBuilder buildWithColorizedOutputTo:Transcript. |
43161 projectBuilder buildWithColorizedOutputTo:Transcript. |
43160 |
43162 |
43161 buildDir := projectToBuild asPackageId pathRelativeToTopDirectory:projectBuilder buildDirectory. |
43163 buildDir := projectToBuild asPackageId pathRelativeToTopDirectory:projectBuilder buildDirectory. |
49201 ]. |
49203 ]. |
49202 |
49204 |
49203 dummyChangeSet := ChangeSet new addAll:previousMethods; yourself. |
49205 dummyChangeSet := ChangeSet new addAll:previousMethods; yourself. |
49204 dummyChangeSet reverse. "/ youngest first. |
49206 dummyChangeSet reverse. "/ youngest first. |
49205 browser := (UserPreferences current changeSetBrowserClass) openOn:dummyChangeSet. |
49207 browser := (UserPreferences current changeSetBrowserClass) openOn:dummyChangeSet. |
49206 browser label:(resources string:'Previous Versions of %1' with:(m whoStringWith:' » ')). |
49208 browser label:(resources string:'Previous Versions of %1' with:(m whoStringWith:' » ')). |
49207 browser perform:#rightCodeLabel: with:'Previous Version' ifNotUnderstood:[]. |
49209 browser perform:#rightCodeLabel: with:'Previous Version' ifNotUnderstood:[]. |
49208 browser readOnly:true. |
49210 browser readOnly:true. |
49209 |
49211 |
49210 "Modified: / 13-06-2011 / 11:32:10 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
49212 "Modified: / 13-06-2011 / 11:32:10 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
49211 "Modified: / 26-07-2012 / 14:30:20 / cg" |
49213 "Modified: / 26-07-2012 / 14:30:20 / cg" |
49428 ]. |
49430 ]. |
49429 "/ Transcript showCR:('it took %1 seconds' bindWith:(t /1000)printString). |
49431 "/ Transcript showCR:('it took %1 seconds' bindWith:(t /1000)printString). |
49430 |
49432 |
49431 self activityNotification:nil. |
49433 self activityNotification:nil. |
49432 browser := (UserPreferences current changeSetBrowserClass) openOn:previousMethods. |
49434 browser := (UserPreferences current changeSetBrowserClass) openOn:previousMethods. |
49433 browser window label:(resources string:'Revisions of %1 » %2' with:mclass name with:mselector). |
49435 browser window label:(resources string:'Revisions of %1 » %2' with:mclass name with:mselector). |
49434 browser readOnly:true. |
49436 browser readOnly:true. |
49435 ]. |
49437 ]. |
49436 |
49438 |
49437 "Modified: / 01-07-2011 / 16:34:29 / cg" |
49439 "Modified: / 01-07-2011 / 16:34:29 / cg" |
49438 "Created: / 18-11-2011 / 18:19:50 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
49440 "Created: / 18-11-2011 / 18:19:50 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
54114 itemClass:[:chg | chg changeClass] |
54116 itemClass:[:chg | chg changeClass] |
54115 itemSelector:[:chg | chg selector] |
54117 itemSelector:[:chg | chg selector] |
54116 label:[:chg | |
54118 label:[:chg | |
54117 |lbl| |
54119 |lbl| |
54118 "/ lbl := chg printString |
54120 "/ lbl := chg printString |
54119 lbl := (chg className ? '???') , ' » ' , (chg selector ? '???') allBold. |
54121 lbl := (chg className ? '???') , ' » ' , (chg selector ? '???') allBold. |
54120 (chg isMethodChange and:[chg changeMethod isNil]) ifTrue:[ |
54122 (chg isMethodChange and:[chg changeMethod isNil]) ifTrue:[ |
54121 lbl := lbl asText allStrikedOut,' ','(removed)' allItalic. |
54123 lbl := lbl asText allStrikedOut,' ','(removed)' allItalic. |
54122 ]. |
54124 ]. |
54123 lbl |
54125 lbl |
54124 ] |
54126 ] |