--- 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!