--- a/SourceCodeManagerUtilities.st	Tue Oct 11 13:55:38 2011 +0200
+++ b/SourceCodeManagerUtilities.st	Tue Oct 11 19:11:55 2011 +0200
@@ -171,16 +171,12 @@
 !SourceCodeManagerUtilities class methodsFor:'utilities'!
 
 classIsNotYetInRepository:aClass withManager:mgr
-    |info|
-
-    info := mgr sourceInfoOfClass:aClass.
-
-    ^ (info isNil 
-    or:[(info at:#fileName ifAbsent:nil) isNil
-    or:[(info at:#module ifAbsent:nil) isNil
-    or:[(info at:#directory ifAbsent:nil) isNil]]])
-
-    "Created: / 25-10-2006 / 09:43:00 / cg"
+
+    <resource: #obsolete>
+
+    self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
+
+    ^self default classIsNotYetInRepository:aClass withManager:mgr
 !
 
 nameOfExtensionsContainer
@@ -563,34 +559,12 @@
 !
 
 askForExistingRevision:boxText title:title class:aClass
-    "open a dialog asking for a containers revision;
-     return a revision number, or nil if canceled."
-
-    |mgr sourceInfo module package fileName|
-
-    mgr := self sourceCodeManagerFor:aClass.
-    sourceInfo := mgr sourceInfoOfClass:aClass.
-    sourceInfo isNil ifTrue:[^ nil].
-
-    package := mgr directoryFromSourceInfo:sourceInfo.
-    module := mgr moduleFromSourceInfo:sourceInfo.  
-    fileName := mgr containerFromSourceInfo:sourceInfo.
-    ^ self
-        askForExistingRevision:boxText 
-        title:title 
-        class:aClass 
-        manager:mgr 
-        module:module package:package 
-        fileName:fileName
-
-    "
-     SourceCodeManagerUtilities
-        askForRevisionToCompare:'enter revision'
-        title:'revision'
-        class:Array
-    "
-
-    "Modified: / 12-09-2006 / 14:17:04 / cg"
+
+    <resource: #obsolete>
+
+    self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
+
+    ^self default askForExistingRevision:boxText title:title class:aClass
 !
 
 askForExistingRevision:boxText title:title class:clsOrNil manager:aSourceCodeManager module:module package:directory fileName:fileName
@@ -3420,6 +3394,37 @@
     "Modified: / 23-08-2006 / 14:13:04 / cg"
 !
 
+askForExistingRevision:boxText title:title class:aClass
+    "open a dialog asking for a containers revision;
+     return a revision number, or nil if canceled."
+
+    |mgr sourceInfo module package fileName|
+
+    mgr := self sourceCodeManagerFor:aClass.
+    sourceInfo := mgr sourceInfoOfClass:aClass.
+    sourceInfo isNil ifTrue:[^ nil].
+
+    package := mgr directoryFromSourceInfo:sourceInfo.
+    module := mgr moduleFromSourceInfo:sourceInfo.  
+    fileName := mgr containerFromSourceInfo:sourceInfo.
+    ^ self
+        askForExistingRevision:boxText 
+        title:title 
+        class:aClass 
+        manager:mgr 
+        module:module package:package 
+        fileName:fileName
+
+    "
+     SourceCodeManagerUtilities
+        askForRevisionToCompare:'enter revision'
+        title:'revision'
+        class:Array
+    "
+
+    "Modified: / 12-09-2006 / 14:17:04 / cg"
+!
+
 askForExistingRevision:boxText title:title class:clsOrNil manager:aSourceCodeManager module:module package:directory fileName:fileName
     "open a dialog asking for a containers revision;
      return a revision number, or nil if canceled."
@@ -3928,9 +3933,9 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.225 2011-10-11 11:55:38 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.226 2011-10-11 17:11:55 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.225 2011-10-11 11:55:38 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.226 2011-10-11 17:11:55 vrany Exp $'
 ! !