<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=ISO-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<font face="Georgia">I'm not sure how many folks still use
FileContentsBrowser, but there is a small issue:<br>
<br>
browseStream: aStream named: aString<br>
<br>
| browser |<br>
Cursor wait showWhile: [ | package packageDict organizer |<br>
packageDict := Dictionary new.<br>
browser := self new.<br>
organizer := SystemOrganizer defaultList: Array new.<br>
package := (FilePackage new fullName: aString; fileInFrom:
aStream).<br>
packageDict <br>
at: package packageName <br>
put: package.<br>
<b> organizer </b><b><br>
</b><b> classifyAll: package classes keys </b><b><br>
</b><b> under: package packageName.</b><br>
(browser := self systemOrganizer: organizer)<br>
packages: packageDict].<br>
self<br>
openBrowserView: browser createViews<br>
label: 'File Contents Browser'.<br>
<br>
which soon leads to SystemOrganizer<br>
<br>
classify: element under: newCategory<br>
| oldCategory class |<br>
oldCategory := self categoryOfElement: element.<br>
super classify: element under: newCategory.<br>
class := Smalltalk at: element ifAbsent: [^ self].<br>
<b>SystemChangeNotifier uniqueInstance</b><b><br>
</b><b> class: class</b><b><br>
</b><b> recategorizedFrom: oldCategory</b><b><br>
</b><b> to: newCategory </b><br>
<br>
which causes all known classes in the file being browsed to be
added to the current change set as having a class definition
change. Perhaps it makes sense to do the notification only if this
SystemOrganizer is actually SystemOrganization.<br>
<br>
Cheers,<br>
Bob<br>
</font>
</body>
</html>