# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1158064032 -7200
# Node ID 8355a2fd2dc1fbdc386563ba8ca552038c408cbb
# Parent  9af7fc48edf2731d6254166946ab1725c55469ed
sourceCodeManager access

diff -r 9af7fc48edf2 -r 8355a2fd2dc1 BrowserView.st
--- a/BrowserView.st	Mon Sep 11 12:47:17 2006 +0200
+++ b/BrowserView.st	Tue Sep 12 14:27:12 2006 +0200
@@ -3343,7 +3343,7 @@
                 
 "/                    self busyLabel:'validating %1 ...' with:aClass name.
                 
-                    sourceCodeManager := aClass sourceCodeManager.
+                    sourceCodeManager := SourceCodeManagerUtilities sourceCodeManagerFor:aClass.
                     sourceCodeManager isNil ifTrue:[
                         msg := '?? ''' , clsName , ''' has no sourceCodeManager - skipped check'.
                     ] ifFalse:[
@@ -3411,9 +3411,9 @@
         self normalLabel.
     ]
 
-    "Modified: 15.6.1996 / 00:25:58 / stefan"
-    "Created: 29.10.1996 / 13:21:08 / cg"
-    "Modified: 18.8.1997 / 15:43:04 / cg"
+    "Modified: / 15-06-1996 / 00:25:58 / stefan"
+    "Created: / 29-10-1996 / 13:21:08 / cg"
+    "Modified: / 12-09-2006 / 14:25:22 / cg"
 ! !
 
 !BrowserView methodsFor:'class category stuff'!
@@ -5240,7 +5240,7 @@
          containerModule containerPackage containerFile rslt|
 
         nm := currentClass name.
-        mgr := currentClass sourceCodeManager.
+        mgr := SourceCodeManagerUtilities sourceCodeManagerFor:currentClass.
 
         rev := currentClass binaryRevision.
         rev2 := currentClass revision.
@@ -5372,8 +5372,8 @@
         ]
     ]
 
-    "Created: / 4.1.1997 / 15:48:20 / cg"
-    "Modified: / 28.4.1998 / 17:40:02 / cg"
+    "Created: / 04-01-1997 / 15:48:20 / cg"
+    "Modified: / 12-09-2006 / 14:25:56 / cg"
 !
 
 classCreateSourceContainerFor:aClass
@@ -5541,7 +5541,7 @@
                 ^ self
             ].
 
-            mgr := currentClass sourceCodeManager.
+            mgr := SourceCodeManagerUtilities sourceCodeManagerFor:currentClass.
             ok := false.
 
             rev withoutSpaces isEmpty ifTrue:[
@@ -5644,8 +5644,8 @@
         ]
     ]
 
-    "Created: / 14.11.1995 / 16:43:15 / cg"
-    "Modified: / 18.6.1998 / 14:29:40 / cg"
+    "Created: / 14-11-1995 / 16:43:15 / cg"
+    "Modified: / 12-09-2006 / 14:26:12 / cg"
 !
 
 classModifyContainer
@@ -14560,7 +14560,7 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.802 2006-08-29 13:05:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.803 2006-09-12 12:27:12 cg Exp $'
 ! !
 
 BrowserView initialize!