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!
packages@lists.squeakfoundation.org