hg/stx-libtool: comparison BrowserView.st

equal deleted inserted replaced

-:8dc04189f7b1
+:d01d467c5199
 "for all classes, ask the sourceCodeManager for the most recent version
 and compare this to the actual version. Send mismatch info to the Transcript.
 Use this, to find classes, which need to be reloaded from the repository."
 self withBusyCursorDo:[
-	|logMessage classes repVersion clsVersion binVersion
+|logMessage classes repVersion clsVersion binVersion
-	 count unloadedCount badCount cat needCheckIn|
+count unloadedCount badCount cat needCheckIn|
-	cat := currentClassCategory.
+cat := currentClassCategory.
-	(cat = '* hierarchy *') ifTrue:[
+(cat = '* hierarchy *') ifTrue:[
-	    cat := '* all *'
+cat := '* all *'
-	].
+].
-	classes := self listOfAllClassesInCategory:cat names:false.
+classes := self listOfAllClassesInCategory:cat names:false.
-	classes isNil ifTrue:[
+classes isNil ifTrue:[
-	    Transcript showCR:'no classes to validate'.
+Transcript showCR:'no classes to validate'.
-	    ^ self
+^ self
-	].
+].
-	count := unloadedCount := badCount := needCheckIn := 0.
+count := unloadedCount := badCount := needCheckIn := 0.
-	Transcript cr.
+Transcript cr.
-	Transcript showCR:'-------------------------------------------------'.
+Transcript showCR:'-------------------------------------------------'.
-	Transcript showCR:'checking class revisions vs. repository ...'.
+Transcript showCR:'checking class revisions vs. repository ...'.
-	Transcript cr.
+Transcript cr.
-	classes do:[:aClass |
+classes do:[:aClass |
-	    |clsName msg sourceCodeManager repSource currentSource aStream|
+|clsName msg sourceCodeManager repSource currentSource aStream|
-	    count := count + 1.
+count := count + 1.
-	    "/ ignore autoloaded and private classes here
+"/ ignore autoloaded and private classes here
-	    clsName := aClass name.
+clsName := aClass name.
-	    aClass isLoaded ifFalse:[
+aClass isLoaded ifFalse:[
-		unloadedCount := unloadedCount + 1.
+unloadedCount := unloadedCount + 1.
-		(currentClassCategory ~= '* all *'
+(currentClassCategory ~= '* all *'
-		and:[currentClassCategory ~= '* hierarchy *']) ifTrue:[
+and:[currentClassCategory ~= '* hierarchy *']) ifTrue:[
-		    msg := '?? ''' , clsName , ''' is not loaded - skipped check'.
+msg := '?? ''' , clsName , ''' is not loaded - skipped check'.
-		]
+]
-	    ] ifTrue:[
+] ifTrue:[
-		((aClass isNamespace not or:[aClass == Smalltalk])
+((aClass isNameSpace not or:[aClass == Smalltalk])
-		and:[aClass topOwningClass isNil]) ifTrue:[
+and:[aClass topOwningClass isNil]) ifTrue:[
 "/                    self busyLabel:'validating %1 ...' with:aClass name.
-		    sourceCodeManager := aClass sourceCodeManager.
+sourceCodeManager := aClass sourceCodeManager.
-		    sourceCodeManager isNil ifTrue:[
+sourceCodeManager isNil ifTrue:[
-			msg := '?? ''' , clsName , ''' has no sourceCodeManager - skipped check'.
+msg := '?? ''' , clsName , ''' has no sourceCodeManager - skipped check'.
-		    ] ifFalse:[
+] ifFalse:[
-			repVersion := sourceCodeManager newestRevisionOf:aClass.
+repVersion := sourceCodeManager newestRevisionOf:aClass.
-			repVersion isNil ifTrue:[
+repVersion isNil ifTrue:[
-			    msg := '-- ' , clsName
+msg := '-- ' , clsName
-				    , ' not in repository'
+, ' not in repository'
-			] ifFalse:[
+] ifFalse:[
-			    clsVersion := aClass revision.
+clsVersion := aClass revision.
-			    binVersion := aClass binaryRevision.
+binVersion := aClass binaryRevision.
-			    clsName := aClass name.
+clsName := aClass name.
-			    msg := nil.
+msg := nil.
-			    clsVersion ~= repVersion ifTrue:[
+clsVersion ~= repVersion ifTrue:[
-				badCount := badCount + 1.
+badCount := badCount + 1.
-				msg := '** ' , clsName
+msg := '** ' , clsName
-					, ' is not up-to-date (this: '
+, ' is not up-to-date (this: '
-					, clsVersion printString
+, clsVersion printString
-					, ' repository: '
+, ' repository: '
-					, repVersion printString
+, repVersion printString
-					, ').'.
+, ').'.
-				msg := msg asText allBold.
+msg := msg asText allBold.
-			    ] ifFalse:[
+] ifFalse:[
-				clsVersion ~= binVersion ifTrue:[
+clsVersion ~= binVersion ifTrue:[
-				    binVersion notNil ifTrue:[
+binVersion notNil ifTrue:[
-					msg := clsName
+msg := clsName
-					       , ' up-to-date (but should be stc-recompiled)'
+, ' up-to-date (but should be stc-recompiled)'
-				    ]
+]
-				] ifFalse:[
+] ifFalse:[
 "/                              msg := clsName , ' is up-to-date.'
-				].
+].
-				"/ compare the sources;
+"/ compare the sources;
-				"/ to find classes which need a checkin.
+"/ to find classes which need a checkin.
-				aStream := sourceCodeManager getMostRecentSourceStreamForClassNamed:aClass name.
+aStream := sourceCodeManager getMostRecentSourceStreamForClassNamed:aClass name.
-				repSource := aStream contents asString.
+repSource := aStream contents asString.
-				aStream close.
+aStream close.
-				aStream := '' writeStream.
+aStream := '' writeStream.
-				Method flushSourceStreamCache.
+Method flushSourceStreamCache.
-				aClass fileOutOn:aStream withTimeStamp:false.
+aClass fileOutOn:aStream withTimeStamp:false.
-				currentSource := aStream contents asString.
+currentSource := aStream contents asString.
-				repSource ~= currentSource ifTrue:[
+repSource ~= currentSource ifTrue:[
-				    msg := '-- ' , clsName , ' should be checked into the repository'.
+msg := '-- ' , clsName , ' should be checked into the repository'.
-				    needCheckIn := needCheckIn + 1.
+needCheckIn := needCheckIn + 1.
-				].
+].
-			    ].
+].
-			].
+].
-		    ].
+].
-		].
+].
-	    ].
+].
-	    msg notNil ifTrue:[
+msg notNil ifTrue:[
-		Transcript showCR:msg
+Transcript showCR:msg
-	    ].
+].
-	].
+].
-	Transcript cr.
+Transcript cr.
-	Transcript showCR:'----------------------------------------------------------'.
+Transcript showCR:'----------------------------------------------------------'.
-	Transcript showCR:('%1 classes / %2 unloaded / %3 need checkout / %4 need checkin.'
+Transcript showCR:('%1 classes / %2 unloaded / %3 need checkout / %4 need checkin.'
-			   bindWith:count with:unloadedCount with:badCount with:needCheckIn).
+bindWith:count with:unloadedCount with:badCount with:needCheckIn).
-	Transcript showCR:'----------------------------------------------------------'.
+Transcript showCR:'----------------------------------------------------------'.
-	self normalLabel.
+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"
 |nameSpaceList newList cat allNameSpaces|
 newList := Set new.
 currentNamespace = '* all *' ifTrue:[
-	nameSpaceList := Array with:Smalltalk.
+nameSpaceList := Array with:Smalltalk.
-	allNameSpaces := true.
+allNameSpaces := true.
 ] ifFalse:[
-	nameSpaceList := self listOfNamespaces.
+nameSpaceList := self listOfNamespaces.
-	allNameSpaces := false.
+allNameSpaces := false.
 ].
 nameSpaceList do:[:aNamespace |
-	aNamespace allBehaviorsDo:[:aClass |
+aNamespace allBehaviorsDo:[:aClass |
-	    aClass isMeta ifFalse:[
+aClass isMeta ifFalse:[
-		(aClass isNamespace not
+(aClass isNameSpace not
-		or:[aClass == Namespace
+or:[aClass == Namespace
-		or:[aClass == Smalltalk]]) ifTrue:[
+or:[aClass == Smalltalk]]) ifTrue:[
-		    (allNameSpaces or:[aClass nameSpace == aNamespace]) ifTrue:[
+(allNameSpaces or:[aClass nameSpace == aNamespace]) ifTrue:[
-			cat := aClass category.
+cat := aClass category.
-			cat isNil ifTrue:[
+cat isNil ifTrue:[
-			    cat := '* no category *'
+cat := '* no category *'
-			].
+].
-			cat ~= 'obsolete' ifTrue:[
+cat ~= 'obsolete' ifTrue:[
-			    newList add:cat
+newList add:cat
-			]
+]
-		    ]
+]
-		]
+]
-	    ]
+]
-	]
+]
 ].
 newList notEmpty ifTrue:[
-	newList add:'* all *'; add:'* hierarchy *'.
+newList add:'* all *'; add:'* hierarchy *'.
 ].
 ^ newList asOrderedCollection sort.
 "Modified: 5.1.1997 / 17:12:01 / cg"
 cls := acceptClass ? currentClass.
 cls isMeta ifTrue:[
 cls := cls soleInstance
 ].
-(cls isNamespace and:[cls ~~ Smalltalk]) ifTrue:[
+(cls isNameSpace and:[cls ~~ Smalltalk]) ifTrue:[
 cls fileOutDefinitionOn:aStream
 ] ifFalse:[
 "/
 "/ here, show it with a nameSpace pragma
 allClassesInCategory:aCategory
 |classes|
 currentNamespace = '* all *' ifTrue:[
-	^ Smalltalk allClassesInCategory:currentClassCategory
+^ Smalltalk allClassesInCategory:currentClassCategory
 ].
 classes := Set new.
 (self listOfNamespaces) do:[:aNamespace |
-	aNamespace allBehaviorsDo:[:aClass |
+aNamespace allBehaviorsDo:[:aClass |
-	    |actualNamespace nm|
+|actualNamespace nm|
-	    aClass isMeta ifFalse:[
+aClass isMeta ifFalse:[
-		(aCategory = '* all *'
+(aCategory = '* all *'
-		or:[aClass category = aCategory]) ifTrue:[
+or:[aClass category = aCategory]) ifTrue:[
-		    (aClass isNamespace not
+(aClass isNameSpace not
-		    or:[aClass == Smalltalk]) ifTrue:[
+or:[aClass == Smalltalk]) ifTrue:[
-			actualNamespace := aClass nameSpace.
+actualNamespace := aClass nameSpace.
-			(actualNamespace isNamespace not "/ a private class
+(actualNamespace isNameSpace not "/ a private class
-			or:[actualNamespace == aNamespace]) ifTrue:[
+or:[actualNamespace == aNamespace]) ifTrue:[
-			    classes add:aClass
+classes add:aClass
-			]
+]
-		    ]
+]
-		]
+]
-	    ]
+]
-	]
+]
 ].
 ^ classes
 "Created: 23.12.1996 / 10:26:28 / cg"
 "Modified: 23.12.1996 / 11:33:13 / cg"
 "/ keep track of added names (care for obsolete classes)
 namesPresent := Set new.
 (aCategory = '* hierarchy *') ifTrue:[
-	listOfClassNames := OrderedCollection new.
+listOfClassNames := OrderedCollection new.
-	listOfClasses := OrderedCollection new.
+listOfClasses := OrderedCollection new.
-	self classHierarchyOf:Object withAutoloaded:true do:[:aClass :lvl|
+self classHierarchyOf:Object withAutoloaded:true do:[:aClass :lvl|
-	    |indent|
+|indent|
-	    (aClass isNamespace not
+(aClass isNameSpace not
-	    or:[aClass == Smalltalk]) ifTrue:[
+or:[aClass == Smalltalk]) ifTrue:[
-		aClass isObsolete ifFalse:[
+aClass isObsolete ifFalse:[
-		    nm := self displayedClassNameOf:aClass.
+nm := self displayedClassNameOf:aClass.
-		    (namesPresent includes:nm) ifFalse:[
+(namesPresent includes:nm) ifFalse:[
-			indent := String new:lvl*2.
+indent := String new:lvl*2.
-			"/ show classes from other nameSpaces in italic
+"/ show classes from other nameSpaces in italic
-			(allNameSpaces not
+(allNameSpaces not
-			 and:[(self findClassNamedInNameSpace:nm) isNil]) ifTrue:[
+and:[(self findClassNamedInNameSpace:nm) isNil]) ifTrue:[
-			    nm := nm asText emphasizeAllWith:#italic.
+nm := nm asText emphasizeAllWith:#italic.
-			].
+].
-			nm := indent , nm.
+nm := indent , nm.
-			namesPresent add:nm.
+namesPresent add:nm.
-			listOfClassNames add:nm.
+listOfClassNames add:nm.
-			listOfClasses add:nm.
+listOfClasses add:nm.
-		    ]
+]
-		]
+]
-	    ]
+]
-	].
+].
-	namesFlag ifFalse:[
+namesFlag ifFalse:[
-	    ^ listOfClasses
+^ listOfClasses
-	].
+].
-	^ listOfClassNames
+^ listOfClassNames
 ].
 (aCategory = '* all *') ifTrue:[
-	anyCategory := true
+anyCategory := true
 ] ifFalse:[
-	anyCategory := false.
+anyCategory := false.
-	(aCategory = '* no category *') ifTrue:[
+(aCategory = '* no category *') ifTrue:[
-	    searchCategory := nil
+searchCategory := nil
-	] ifFalse:[
+] ifFalse:[
-	    searchCategory := aCategory
+searchCategory := aCategory
-	].
+].
 ].
 allNameSpaces ifTrue:[
-	nameSpaces := Array with:Smalltalk.
+nameSpaces := Array with:Smalltalk.
 ] ifFalse:[
-	nameSpaces := self listOfNamespaces.
+nameSpaces := self listOfNamespaces.
 ].
 listOfClasses := OrderedCollection new.
 listOfClassNames := OrderedCollection new.
 classesPresent := IdentitySet new.
 nameSpaces do:[:aNamespace |
-	aNamespace allBehaviorsDo:[:aClass |
+aNamespace allBehaviorsDo:[:aClass |
-	    |thisCategory actualNamespace nm owner|
+|thisCategory actualNamespace nm owner|
-	    aClass isMeta ifFalse:[
+aClass isMeta ifFalse:[
-		(aClass isNamespace not
+(aClass isNameSpace not
-		or:[aClass == Smalltalk]) ifTrue:[
+or:[aClass == Smalltalk]) ifTrue:[
-		    (classesPresent includes:aClass) ifFalse:[
+(classesPresent includes:aClass) ifFalse:[
-			match := anyCategory.
+match := anyCategory.
-			match ifFalse:[
+match ifFalse:[
-			    thisCategory := aClass category.
+thisCategory := aClass category.
-			    match := ((thisCategory = searchCategory)
+match := ((thisCategory = searchCategory)
-				     or:[thisCategory = aCategory]).
+or:[thisCategory = aCategory]).
-			].
+].
-			match ifTrue:[
+match ifTrue:[
-			    fullClass ifTrue:[
+fullClass ifTrue:[
-				aClass owningClass notNil ifTrue:[
+aClass owningClass notNil ifTrue:[
-				    match := false
+match := false
-				]
+]
-			    ].
+].
-			].
+].
-			match ifTrue:[
+match ifTrue:[
-			    nm := self displayedClassNameOf:aClass.
+nm := self displayedClassNameOf:aClass.
-			    (namesPresent includes:nm) ifFalse:[
+(namesPresent includes:nm) ifFalse:[
-				allNameSpaces ifFalse:[
+allNameSpaces ifFalse:[
-				    (owner := aClass topOwningClass) notNil ifTrue:[
+(owner := aClass topOwningClass) notNil ifTrue:[
-					actualNamespace := owner nameSpace
+actualNamespace := owner nameSpace
-				    ] ifFalse:[
+] ifFalse:[
-					actualNamespace := aClass nameSpace.
+actualNamespace := aClass nameSpace.
-				    ].
+].
-				    match := actualNamespace isNamespace not "/ a private class
+match := actualNamespace isNameSpace not "/ a private class
-					     or:[actualNamespace == aNamespace].
+or:[actualNamespace == aNamespace].
-				].
+].
-				match ifTrue:[
+match ifTrue:[
-				    namesPresent add:nm.
+namesPresent add:nm.
-				    classesPresent add:aClass.
+classesPresent add:aClass.
-				    listOfClasses add:aClass.
+listOfClasses add:aClass.
-				    listOfClassNames add:nm.
+listOfClassNames add:nm.
-				]
+]
-			    ]
+]
-			]
+]
-		    ]
+]
-		]
+]
-	    ]
+]
-	]
+]
 ].
 fullClass ifFalse:[
-	"/
+"/
-	"/ mhm - must search through private classes of those
+"/ mhm - must search through private classes of those
-	"/ in smalltalk (they are not visible in the nameSpace,
+"/ in smalltalk (they are not visible in the nameSpace,
-	"/ but should also be displayed)
+"/ but should also be displayed)
-	"/
+"/
-	Smalltalk allBehaviorsDo:[:aClass |
+Smalltalk allBehaviorsDo:[:aClass |
-	    |actualNamespace owner|
+|actualNamespace owner|
-	    aClass isMeta ifFalse:[
+aClass isMeta ifFalse:[
-		(classesPresent includes:aClass) ifFalse:[
+(classesPresent includes:aClass) ifFalse:[
-		    (owner := aClass topOwningClass) notNil ifTrue:[
+(owner := aClass topOwningClass) notNil ifTrue:[
-			(classesPresent includes:owner) ifTrue:[
+(classesPresent includes:owner) ifTrue:[
-			    nm := self displayedClassNameOf:aClass.
+nm := self displayedClassNameOf:aClass.
-			    (namesPresent includes:nm) ifFalse:[
+(namesPresent includes:nm) ifFalse:[
-				namesPresent add:nm.
+namesPresent add:nm.
-				listOfClasses add:aClass.
+listOfClasses add:aClass.
-				listOfClassNames add:nm.
+listOfClassNames add:nm.
-			    ]
+]
-			]
+]
-		    ]
+]
-		]
+]
-	    ]
+]
-	].
+].
 ].
 (listOfClasses size == 0) ifTrue:[^ nil].
 "/ sort by name
 listOfClassNames sortWith:listOfClasses.
 namesFlag ifFalse:[
-	^ listOfClasses
+^ listOfClasses
 ].
 "/ indent after sorting
 1 to:listOfClassNames size do:[:index |
-	|nm cls owner s|
+|nm cls owner s|
-	cls := listOfClasses at:index.
+cls := listOfClasses at:index.
-	owner := cls.
+owner := cls.
-	(owner := owner owningClass) notNil ifTrue:[
+(owner := owner owningClass) notNil ifTrue:[
-	    nm := listOfClassNames at:index.
+nm := listOfClassNames at:index.
-	    s := nm.
+s := nm.
-	    [owner notNil] whileTrue:[
+[owner notNil] whileTrue:[
-		s := '  ' , s.
+s := '  ' , s.
-		owner := owner owningClass
+owner := owner owningClass
-	    ].
+].
-	    listOfClassNames at:index put:s.
+listOfClassNames at:index put:s.
-	].
+].
 ].
 ^ listOfClassNames
 "Created: 10.1.1997 / 13:57:34 / cg"
 changeNameSpaceTo:nsName
 |n selectedClass str selectedCategory l newCat|
 nsName = '* all *' ifTrue:[
-	currentNamespace := nsName.
+currentNamespace := nsName.
 ] ifFalse:[
-	n := Smalltalk at:nsName asSymbol.
+n := Smalltalk at:nsName asSymbol.
-	n isNamespace ifTrue:[
+n isNameSpace ifTrue:[
-	    currentNamespace := n.
+currentNamespace := n.
-	] ifFalse:[
+] ifFalse:[
-	    ^ self
+^ self
-	]
+]
 ].
 selectedClass := actualClass.
 currentClass := actualClass := nil.
 selectedCategory := currentClassCategory.
 self updateClassCategoryListWithScroll:true.
 selectedCategory notNil ifTrue:[
-	self classCategorySelectionChanged.
+self classCategorySelectionChanged.
 ].
 selectedClass notNil ifTrue:[
-	str := self displayedClassNameOf:selectedClass.
+str := self displayedClassNameOf:selectedClass.
-	self switchToClassNamed:str.
+self switchToClassNamed:str.
-	((l := classListView list) isNil
+((l := classListView list) isNil
-	or:[(l includes:str) not]) ifTrue:[
+or:[(l includes:str) not]) ifTrue:[
-	     currentClassCategory := nil.
+currentClassCategory := nil.
-	     currentClass := nil.
+currentClass := nil.
-	     aspect := nil.
+aspect := nil.
-	     self updateMethodCategoryList.
+self updateMethodCategoryList.
-	     self updateMethodList.
+self updateMethodList.
-	     self updateCodeView.
+self updateCodeView.
-	].
+].
-	(classCategoryListView notNil and:[currentClass notNil]) ifTrue:[
+(classCategoryListView notNil and:[currentClass notNil]) ifTrue:[
-	    newCat := currentClass category.
+newCat := currentClass category.
-	    (currentClassCategory = newCat) ifFalse:[
+(currentClassCategory = newCat) ifFalse:[
-		currentClassCategory := newCat.
+currentClassCategory := newCat.
-		classCategoryListView setSelectElement:newCat
+classCategoryListView setSelectElement:newCat
-	    ]
+]
-	].
+].
 ]
 "Created: 3.1.1997 / 11:11:13 / cg"
 "Modified: 29.1.1997 / 18:33:42 / cg"
 !
 allNameSpaces := (currentNamespace = '* all *').
 nameSpaceList := self listOfNamespaces.
 Smalltalk allBehaviorsDo:[:aClass |
-	|actualNamespace match owner|
+|actualNamespace match owner|
-	aClass isMeta ifFalse:[
+aClass isMeta ifFalse:[
-	    (aClass isNamespace not
+(aClass isNameSpace not
-	    or:[aClass == Smalltalk]) ifTrue:[
+or:[aClass == Smalltalk]) ifTrue:[
-		match := allNameSpaces.
+match := allNameSpaces.
-		match ifFalse:[
+match ifFalse:[
-		    (owner := aClass topOwningClass) notNil ifTrue:[
+(owner := aClass topOwningClass) notNil ifTrue:[
-			actualNamespace := owner nameSpace
+actualNamespace := owner nameSpace
-		    ] ifFalse:[
+] ifFalse:[
-			actualNamespace := aClass nameSpace.
+actualNamespace := aClass nameSpace.
-		    ].
+].
-		    match := nameSpaceList includesIdentical:actualNamespace.
+match := nameSpaceList includesIdentical:actualNamespace.
-		].
+].
-		match ifTrue:[
+match ifTrue:[
-		    classes addAll:(aClass withAllSuperclasses).
+classes addAll:(aClass withAllSuperclasses).
-		]
+]
-	    ]
+]
-	]
+]
 ].
 "/ now, generate a dictionary, which associates a set of subclasses
 "/ to each ...
 subclassDict := IdentityDictionary new:classes size.
 classes do:[:aClass |
-	s := aClass superclass.
+s := aClass superclass.
-	s notNil ifTrue:[
+s notNil ifTrue:[
-	    l := subclassDict at:s ifAbsent:[nil].
+l := subclassDict at:s ifAbsent:[nil].
-	    l isNil ifTrue:[
+l isNil ifTrue:[
-		l := OrderedCollection new:5.
+l := OrderedCollection new:5.
-		subclassDict at:s put:l
+subclassDict at:s put:l
-	    ].
+].
-	    l add:aClass
+l add:aClass
-	]
+]
 ].
 "/
 "/ walk this ..
 "/
 "/
 "/ if autoloaded classes are wanted ...
 "/
 withAutoloaded ifTrue:[
-	(remaining includes:Autoload) ifTrue:[
+(remaining includes:Autoload) ifTrue:[
-	    self classHierarchyOf:Autoload level:0 do:aBlock using:subclassDict removeFrom:remaining.
+self classHierarchyOf:Autoload level:0 do:aBlock using:subclassDict removeFrom:remaining.
-	].
+].
-	(remaining asSortedCollection:[:a :b | a name < b name]) do:[:aNilSubclass |
+(remaining asSortedCollection:[:a :b | a name < b name]) do:[:aNilSubclass |
-	    aBlock value:aNilSubclass value:0
+aBlock value:aNilSubclass value:0
-	]
+]
 ].
 "Created: 28.5.1996 / 13:46:23 / cg"
 "Modified: 5.1.1997 / 18:44:50 / cg"
 !
 currentClass isJavaClass ifTrue:[
 ^ self setAcceptActionForJavaClass.
 ].
-(currentClass isNamespace and:[currentClass ~~ Smalltalk]) ifTrue:[
+(currentClass isNameSpace and:[currentClass ~~ Smalltalk]) ifTrue:[
 self clearAcceptAction.
 ] ifFalse:[
 codeView acceptAction:[:theCode |
 |ns|
 cls := (Compiler evaluate:theCode asString notifying:codeView compile:false).
 cls isBehavior ifTrue:[
 codeView modified:false.
 self classCategoryUpdate.
 self updateClassListWithScroll:false.
-cls isNamespace ifFalse:[
+cls isNameSpace ifFalse:[
 self switchToClassNamed:(cls name).
 ]
 ]
 ]
 ]
 ! !
 !BrowserView class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.612 2000-03-21 14:11:44 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.613 2000-03-24 16:42:52 cg Exp $'
 ! !
 BrowserView initialize!

changeset 2645	d01d467c5199
parent 2644	8dc04189f7b1
child 2646	bb22d1b835e6