--- a/BrowserView.st Sun Jan 29 12:56:58 2012 +0000
+++ b/BrowserView.st Sun Jan 29 15:33:37 2012 +0000
@@ -3343,7 +3343,7 @@
"/ self busyLabel:'validating %1 ...' with:aClass name.
- sourceCodeManager := SourceCodeManagerUtilities sourceCodeManagerFor:aClass.
+ sourceCodeManager := SourceCodeManagerUtilities default sourceCodeManagerFor:aClass.
sourceCodeManager isNil ifTrue:[
msg := '?? ''' , clsName , ''' has no sourceCodeManager - skipped check'.
] ifFalse:[
@@ -3370,8 +3370,7 @@
] ifFalse:[
clsVersion ~= binVersion ifTrue:[
binVersion notNil ifTrue:[
- msg := clsName
- , ' up-to-date (but should be stc-recompiled)'
+ msg := clsName , ' up-to-date (but should be stc-recompiled)'
]
] ifFalse:[
"/ msg := clsName , ' is up-to-date.'
@@ -3414,6 +3413,7 @@
"Modified: / 15-06-1996 / 00:25:58 / stefan"
"Created: / 29-10-1996 / 13:21:08 / cg"
"Modified: / 10-11-2006 / 17:08:13 / cg"
+ "Modified (format): / 29-09-2011 / 16:09:52 / cg"
! !
!BrowserView methodsFor:'class category stuff'!
@@ -5239,7 +5239,7 @@
containerModule containerPackage containerFile rslt|
nm := currentClass name.
- mgr := SourceCodeManagerUtilities sourceCodeManagerFor:currentClass.
+ mgr := SourceCodeManagerUtilities default sourceCodeManagerFor:currentClass.
rev := currentClass binaryRevision.
rev2 := currentClass revision.
@@ -5254,7 +5254,7 @@
containerModule := lastModule ? Project current repositoryModule.
containerPackage := lastPackage ? Project current package.
- rslt := SourceCodeManagerUtilities
+ rslt := SourceCodeManagerUtilities default
askForContainer:(resources string:'The class seems to have no repository information.\\Do you want to compare it against an existing containers contents ?')
title:'Container to compare' note:nil
initialModule:containerModule
@@ -5279,17 +5279,15 @@
msg := msg , '\\' , (resources string:'Current %1 is based upon rev %2.'
with:nm allBold with:rev).
(rev2 notNil and:[rev2 ~= rev]) ifTrue:[
- msg := msg , '\' , (resources string:'And has been checked into the repository as %1.'
- with:rev2)
+ msg := msg , '\' , (resources string:'And has been checked into the repository as %1.' with:rev2)
]
].
newestRev notNil ifTrue:[
- msg := msg , '\' , (resources string:'Newest in reporitory is %1.'
- with:newestRev)
+ msg := msg , '\' , (resources string:'Newest in reporitory is %1.' with:newestRev)
].
self normalLabel.
- rev := SourceCodeManagerUtilities
+ rev := SourceCodeManagerUtilities default
askForExistingRevision:msg
title:'Compare with repository'
class:currentClass
@@ -5373,6 +5371,7 @@
"Created: / 04-01-1997 / 15:48:20 / cg"
"Modified: / 12-09-2006 / 14:25:56 / cg"
+ "Modified (format): / 29-09-2011 / 16:09:33 / cg"
!
classCreateSourceContainerFor:aClass
@@ -5529,7 +5528,7 @@
|aStream comparedSource currentSource v rev revString what mgr keep className
newClass prevCategory ok|
- rev := SourceCodeManagerUtilities
+ rev := SourceCodeManagerUtilities default
askForExistingRevision:'load which revision:'
title:'Load from repository'
class:currentClass.
@@ -5541,7 +5540,7 @@
^ self
].
- mgr := SourceCodeManagerUtilities sourceCodeManagerFor:currentClass.
+ mgr := SourceCodeManagerUtilities default sourceCodeManagerFor:currentClass.
ok := false.
rev withoutSpaces isEmpty ifTrue:[
@@ -14520,7 +14519,7 @@
!BrowserView class methodsFor:'documentation'!
version_CVS
- ^ '§Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.833 2011/07/06 12:14:05 cg Exp §'
+ ^ '§Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.835 2011/10/18 13:34:20 stefan Exp §'
! !
-BrowserView initialize!
\ No newline at end of file
+BrowserView initialize!