The Trunk: Kernel-fbs.804.mcz

Frank Shearar uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-fbs.804.mcz

==================== Summary ====================

Name: Kernel-fbs.804
Author: fbs
Time: 2 September 2013, 6:10:57.029 pm
UUID: 0345889e-dff5-8d42-bd1b-6198e307ac13
Ancestors: Kernel-fbs.803

Kernel shouldn't reference UI stuff. Even though this could well belong in System, I'm moving it to Protocol because that's the only in-image user of the message.

=============== Diff against Kernel-fbs.803 ===============

Item was removed:
- ----- Method: ClassDescription>>chooseClassVarName (in category 'instance variables') -----
- chooseClassVarName
- "Present the user with a list of class variable names and answer the one selected, or nil if none"
-
- | lines labelStream allVars index |
- lines := OrderedCollection new.
- allVars := OrderedCollection new.
- labelStream := WriteStream on: (String new: 200).
- self withAllSuperclasses reverseDo:
- [:class | | vars |
- vars := class classVarNames.
- vars do:
- [:var |
- labelStream nextPutAll: var; cr.
- allVars add: var].
- vars isEmpty ifFalse: [lines add: allVars size]].
- labelStream contents isEmpty ifTrue: [^Beeper beep]. "handle nil superclass better"
- labelStream skip: -1 "cut last CR".
- index := (UIManager default chooseFrom: (labelStream contents substrings) lines: lines).
- index = 0 ifTrue: [^ nil].
- ^ allVars at: index!