equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 2000 by eXept Software AG |
2 COPYRIGHT (c) 2000 by eXept Software AG |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
42181 self activityNotification:(resources |
42179 self activityNotification:(resources |
42182 string:'generating build-support files...'). |
42180 string:'generating build-support files...'). |
42183 |
42181 |
42184 self withActivityNotificationsRedirectedToInfoLabelDo:[ |
42182 self withActivityNotificationsRedirectedToInfoLabelDo:[ |
42185 defClass forEachFileNameAndGeneratedContentsDo:[:fileName :fileContents | |
42183 defClass forEachFileNameAndGeneratedContentsDo:[:fileName :fileContents | |
42186 self showInfo:(resources string:'filing out %1...' with:fileName). |
42184 self showInfo:(resources string:'fileing out %1...' with:fileName). |
42187 fullPathName := directory construct:fileName. |
42185 fullPathName := directory construct:fileName. |
42188 fullPathName directory exists ifFalse:[ |
42186 fullPathName directory exists ifFalse:[ |
42189 "take care for files like 'autopackage/default.apspec'" |
42187 "take care for files like 'autopackage/default.apspec'" |
42190 fullPathName directory makeDirectory. |
42188 fullPathName directory makeDirectory. |
42191 ]. |
42189 ]. |
|
42190 fullPathName exists ifTrue:[ |
|
42191 fullPathName renameTo:(fullPathName pathName,'.sav') asFilename. |
|
42192 ]. |
42192 fullPathName contents:fileContents. |
42193 fullPathName contents:fileContents. |
42193 ]. |
42194 ]. |
42194 ]. |
42195 ]. |
42195 self activityNotification:nil. |
42196 self activityNotification:nil. |
42196 |
42197 |
51238 itemClass:[:chg | chg changeClass] |
51239 itemClass:[:chg | chg changeClass] |
51239 itemSelector:[:chg | chg selector] |
51240 itemSelector:[:chg | chg selector] |
51240 label:[:chg | |
51241 label:[:chg | |
51241 |lbl| |
51242 |lbl| |
51242 "/ lbl := chg printString |
51243 "/ lbl := chg printString |
51243 lbl := (chg className ? '???') , ' ยป ' , (chg selector ? '???') allBold. |
51244 lbl := (chg className ? '???') , ' ' , (chg selector ? '???') allBold. |
51244 (chg isMethodChange and:[chg changeMethod isNil]) ifTrue:[ |
51245 (chg isMethodChange and:[chg changeMethod isNil]) ifTrue:[ |
51245 lbl := lbl asText allStrikedOut,' ','(removed)' allItalic. |
51246 lbl := lbl asText allStrikedOut,' ','(removed)' allItalic. |
51246 ]. |
51247 ]. |
51247 lbl |
51248 lbl |
51248 ] |
51249 ] |
58482 |
58483 |
58483 "Modified: / 04-08-2011 / 19:05:28 / cg" |
58484 "Modified: / 04-08-2011 / 19:05:28 / cg" |
58484 "Created: / 04-12-2011 / 22:22:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
58485 "Created: / 04-12-2011 / 22:22:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
58485 ! ! |
58486 ! ! |
58486 |
58487 |
|
58488 |
58487 !NewSystemBrowser methodsFor:'private-semantic checks'! |
58489 !NewSystemBrowser methodsFor:'private-semantic checks'! |
58488 |
58490 |
58489 checkAcceptedMethod:aMethod inClass:aClass |
58491 checkAcceptedMethod:aMethod inClass:aClass |
58490 "do some semantic checks on the just accepted method: |
58492 "do some semantic checks on the just accepted method: |
58491 does new method redefine an inherited method, which does the same ? |
58493 does new method redefine an inherited method, which does the same ? |