changed: #updatePackageInfoBarIfSourceCodeManagersDoesNotMatchForClass:
authorStefan Vogel <sv@exept.de>
Thu, 27 Oct 2011 15:00:29 +0200
changeset 10843 f3ccbff96227
parent 10842 f1049d39d3da
child 10844 cbb5f5dd900a
changed: #updatePackageInfoBarIfSourceCodeManagersDoesNotMatchForClass: ignore autolaoded classes
Tools__NewSystemBrowser.st
--- a/Tools__NewSystemBrowser.st	Wed Oct 26 18:51:11 2011 +0200
+++ b/Tools__NewSystemBrowser.st	Thu Oct 27 15:00:29 2011 +0200
@@ -16824,7 +16824,6 @@
     "Created: / 24.2.2000 / 23:28:06 / cg"
 ! !
 
-
 !NewSystemBrowser methodsFor:'aspects-organization'!
 
 categoryMenuVisible
@@ -20132,7 +20131,6 @@
     ^ UserPreferences current useSearchBarInBrowser or:[self codeView searchBarActionBlock notNil]
 ! !
 
-
 !NewSystemBrowser methodsFor:'change & update'!
 
 categorySelectionChanged
@@ -42034,7 +42032,6 @@
     "Modified: / 25-06-2010 / 10:08:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !NewSystemBrowser methodsFor:'menu actions-variables'!
 
 browseVarRefsOrModsWithTitle:browserTitle boxTitle:boxTitle variables:varType access:accessType all:browseAll
@@ -46642,7 +46639,6 @@
 !
 
 updatePackageInfoBarIfSourceCodeManagersDoesNotMatchForClass: aClass
-
     "Show a warning in package info bar if configured source code manager 
      does not match the source code manager for source access"
 
@@ -46658,7 +46654,7 @@
     color := Label defaultBackgroundColor.
     showInfoButton := false.
 
-    aClass notNil ifTrue:[
+    (aClass notNil and:[aClass isLoaded]) ifTrue:[
         "For libbasic without #sourceCodeManagerFromBinaryRevision..."
         (aClass respondsTo: #sourceCodeManagerFromBinaryRevision) ifTrue:[
             cnfManager := aClass sourceCodeManager.
@@ -48944,7 +48940,6 @@
     ^ navigationState projectListApplication
 ! !
 
-
 !NewSystemBrowser methodsFor:'private-history'!
 
 lastSearchPatterns
@@ -54092,11 +54087,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1645 2011-10-26 16:51:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1646 2011-10-27 13:00:29 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1645 2011-10-26 16:51:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1646 2011-10-27 13:00:29 stefan Exp $'
 !
 
 version_SVN