169 ! ! |
169 ! ! |
170 |
170 |
171 !SourceCodeManagerUtilities class methodsFor:'utilities'! |
171 !SourceCodeManagerUtilities class methodsFor:'utilities'! |
172 |
172 |
173 classIsNotYetInRepository:aClass withManager:mgr |
173 classIsNotYetInRepository:aClass withManager:mgr |
174 |info| |
174 |
175 |
175 <resource: #obsolete> |
176 info := mgr sourceInfoOfClass:aClass. |
176 |
177 |
177 self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
178 ^ (info isNil |
178 |
179 or:[(info at:#fileName ifAbsent:nil) isNil |
179 ^self default classIsNotYetInRepository:aClass withManager:mgr |
180 or:[(info at:#module ifAbsent:nil) isNil |
|
181 or:[(info at:#directory ifAbsent:nil) isNil]]]) |
|
182 |
|
183 "Created: / 25-10-2006 / 09:43:00 / cg" |
|
184 ! |
180 ! |
185 |
181 |
186 nameOfExtensionsContainer |
182 nameOfExtensionsContainer |
187 |
183 |
188 <resource: #obsolete> |
184 <resource: #obsolete> |
561 |
557 |
562 ^self default askForContainer:boxText title:title note:notice initialModule:initialModule initialPackage:initialPackage initialFileName:initialFileName forNewContainer:forNewContainer |
558 ^self default askForContainer:boxText title:title note:notice initialModule:initialModule initialPackage:initialPackage initialFileName:initialFileName forNewContainer:forNewContainer |
563 ! |
559 ! |
564 |
560 |
565 askForExistingRevision:boxText title:title class:aClass |
561 askForExistingRevision:boxText title:title class:aClass |
566 "open a dialog asking for a containers revision; |
562 |
567 return a revision number, or nil if canceled." |
563 <resource: #obsolete> |
568 |
564 |
569 |mgr sourceInfo module package fileName| |
565 self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
570 |
566 |
571 mgr := self sourceCodeManagerFor:aClass. |
567 ^self default askForExistingRevision:boxText title:title class:aClass |
572 sourceInfo := mgr sourceInfoOfClass:aClass. |
|
573 sourceInfo isNil ifTrue:[^ nil]. |
|
574 |
|
575 package := mgr directoryFromSourceInfo:sourceInfo. |
|
576 module := mgr moduleFromSourceInfo:sourceInfo. |
|
577 fileName := mgr containerFromSourceInfo:sourceInfo. |
|
578 ^ self |
|
579 askForExistingRevision:boxText |
|
580 title:title |
|
581 class:aClass |
|
582 manager:mgr |
|
583 module:module package:package |
|
584 fileName:fileName |
|
585 |
|
586 " |
|
587 SourceCodeManagerUtilities |
|
588 askForRevisionToCompare:'enter revision' |
|
589 title:'revision' |
|
590 class:Array |
|
591 " |
|
592 |
|
593 "Modified: / 12-09-2006 / 14:17:04 / cg" |
|
594 ! |
568 ! |
595 |
569 |
596 askForExistingRevision:boxText title:title class:clsOrNil manager:aSourceCodeManager module:module package:directory fileName:fileName |
570 askForExistingRevision:boxText title:title class:clsOrNil manager:aSourceCodeManager module:module package:directory fileName:fileName |
597 |
571 |
598 <resource: #obsolete> |
572 <resource: #obsolete> |
3418 " |
3392 " |
3419 |
3393 |
3420 "Modified: / 23-08-2006 / 14:13:04 / cg" |
3394 "Modified: / 23-08-2006 / 14:13:04 / cg" |
3421 ! |
3395 ! |
3422 |
3396 |
|
3397 askForExistingRevision:boxText title:title class:aClass |
|
3398 "open a dialog asking for a containers revision; |
|
3399 return a revision number, or nil if canceled." |
|
3400 |
|
3401 |mgr sourceInfo module package fileName| |
|
3402 |
|
3403 mgr := self sourceCodeManagerFor:aClass. |
|
3404 sourceInfo := mgr sourceInfoOfClass:aClass. |
|
3405 sourceInfo isNil ifTrue:[^ nil]. |
|
3406 |
|
3407 package := mgr directoryFromSourceInfo:sourceInfo. |
|
3408 module := mgr moduleFromSourceInfo:sourceInfo. |
|
3409 fileName := mgr containerFromSourceInfo:sourceInfo. |
|
3410 ^ self |
|
3411 askForExistingRevision:boxText |
|
3412 title:title |
|
3413 class:aClass |
|
3414 manager:mgr |
|
3415 module:module package:package |
|
3416 fileName:fileName |
|
3417 |
|
3418 " |
|
3419 SourceCodeManagerUtilities |
|
3420 askForRevisionToCompare:'enter revision' |
|
3421 title:'revision' |
|
3422 class:Array |
|
3423 " |
|
3424 |
|
3425 "Modified: / 12-09-2006 / 14:17:04 / cg" |
|
3426 ! |
|
3427 |
3423 askForExistingRevision:boxText title:title class:clsOrNil manager:aSourceCodeManager module:module package:directory fileName:fileName |
3428 askForExistingRevision:boxText title:title class:clsOrNil manager:aSourceCodeManager module:module package:directory fileName:fileName |
3424 "open a dialog asking for a containers revision; |
3429 "open a dialog asking for a containers revision; |
3425 return a revision number, or nil if canceled." |
3430 return a revision number, or nil if canceled." |
3426 |
3431 |
3427 |partialLog revisions items newestRev |
3432 |partialLog revisions items newestRev |