[squeak-dev] FileContentsBrowser issue
Bob Arning
arning315 at comcast.net
Wed Jan 16 17:39:57 UTC 2013
I'm not sure how many folks still use FileContentsBrowser, but there is
a small issue:
browseStream: aStream named: aString
| browser |
Cursor wait showWhile: [ | package packageDict organizer |
packageDict := Dictionary new.
browser := self new.
organizer := SystemOrganizer defaultList: Array new.
package := (FilePackage new fullName: aString; fileInFrom:
aStream).
packageDict
at: package packageName
put: package.
*organizer **
** classifyAll: package classes keys **
** under: package packageName.*
(browser := self systemOrganizer: organizer)
packages: packageDict].
self
openBrowserView: browser createViews
label: 'File Contents Browser'.
which soon leads to SystemOrganizer
classify: element under: newCategory
| oldCategory class |
oldCategory := self categoryOfElement: element.
super classify: element under: newCategory.
class := Smalltalk at: element ifAbsent: [^ self].
*SystemChangeNotifier uniqueInstance**
** class: class**
** recategorizedFrom: oldCategory**
** to: newCategory *
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.
Cheers,
Bob
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20130116/f72bc407/attachment.htm
More information about the Squeak-dev
mailing list
|