--- a/BrowserView.st Fri Jan 27 22:18:53 2012 +0100
+++ b/BrowserView.st Sun Jan 29 12:53:39 2012 +0000
@@ -3343,7 +3343,7 @@
"/ self busyLabel:'validating %1 ...' with:aClass name.
- sourceCodeManager := SourceCodeManagerUtilities default sourceCodeManagerFor:aClass.
+ sourceCodeManager := SourceCodeManagerUtilities sourceCodeManagerFor:aClass.
sourceCodeManager isNil ifTrue:[
msg := '?? ''' , clsName , ''' has no sourceCodeManager - skipped check'.
] ifFalse:[
@@ -3370,7 +3370,8 @@
] 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.'
@@ -3413,7 +3414,6 @@
"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 default sourceCodeManagerFor:currentClass.
+ mgr := SourceCodeManagerUtilities sourceCodeManagerFor:currentClass.
rev := currentClass binaryRevision.
rev2 := currentClass revision.
@@ -5254,7 +5254,7 @@
containerModule := lastModule ? Project current repositoryModule.
containerPackage := lastPackage ? Project current package.
- rslt := SourceCodeManagerUtilities default
+ rslt := SourceCodeManagerUtilities
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,15 +5279,17 @@
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 default
+ rev := SourceCodeManagerUtilities
askForExistingRevision:msg
title:'Compare with repository'
class:currentClass
@@ -5371,7 +5373,6 @@
"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
@@ -5528,7 +5529,7 @@
|aStream comparedSource currentSource v rev revString what mgr keep className
newClass prevCategory ok|
- rev := SourceCodeManagerUtilities default
+ rev := SourceCodeManagerUtilities
askForExistingRevision:'load which revision:'
title:'Load from repository'
class:currentClass.
@@ -5540,7 +5541,7 @@
^ self
].
- mgr := SourceCodeManagerUtilities default sourceCodeManagerFor:currentClass.
+ mgr := SourceCodeManagerUtilities sourceCodeManagerFor:currentClass.
ok := false.
rev withoutSpaces isEmpty ifTrue:[
@@ -14519,7 +14520,7 @@
!BrowserView class methodsFor:'documentation'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.835 2011-10-18 13:34:20 stefan Exp $'
+ ^ '§Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.833 2011/07/06 12:14:05 cg Exp §'
! !
-BrowserView initialize!
+BrowserView initialize!
\ No newline at end of file