A new version of ToolBuilder-Kernel was added to project The Inbox: http://source.squeak.org/inbox/ToolBuilder-Kernel-jr.109.mcz
==================== Summary ====================
Name: ToolBuilder-Kernel-jr.109 Author: jr Time: 28 February 2017, 1:37:47.610081 am UUID: edda3c34-f8df-fc4f-b6a5-6404053750f1 Ancestors: ToolBuilder-Kernel-tfel.108
offer a class selection from another environment
=============== Diff against ToolBuilder-Kernel-tfel.108 ===============
Item was changed: ----- Method: UIManager>>chooseClassOrTrait (in category 'ui requests') ----- chooseClassOrTrait "Let the user choose a Class or Trait" + ^self chooseClassOrTraitFrom: Smalltalk globals! - ^self chooseClassOrTrait: 'Class name or fragment?'!
Item was added: + ----- Method: UIManager>>chooseClassOrTraitFrom: (in category 'ui requests') ----- + chooseClassOrTraitFrom: anEnvironment + "Let the user choose a Class or Trait from the given environment" + + ^self chooseClassOrTrait: 'Class name or fragment?' from: anEnvironment!
Item was changed: ----- Method: UIManager>>classFromPattern:withCaption: (in category 'system introspecting') ----- classFromPattern: pattern withCaption: aCaption + ^self classFromPattern: pattern withCaption: aCaption in: Smalltalk environment - "If there is a class or trait whose name exactly given by pattern, return it. - If there is only one class or trait in the system whose name matches pattern, return it. - Otherwise, put up a menu offering the names of all classes that match pattern, and return the class chosen, else nil if nothing chosen. - This method ignores separator characters in the pattern" - - ^self classOrTraitFrom: Smalltalk environment pattern: pattern label: aCaption " self classFromPattern: 'CharRecog' withCaption: '' self classFromPattern: 'rRecog' withCaption: '' self classFromPattern: 'znak' withCaption: '' self classFromPattern: 'orph' withCaption: '' self classFromPattern: 'TCompil' withCaption: '' " !
Item was added: + ----- Method: UIManager>>classFromPattern:withCaption:in: (in category 'system introspecting') ----- + classFromPattern: pattern withCaption: aCaption in: anEnvironment + "If there is a class or trait whose name exactly given by pattern, return it. + If there is only one class or trait in the system whose name matches pattern, return it. + Otherwise, put up a menu offering the names of all classes that match pattern, and return the class chosen, else nil if nothing chosen. + This method ignores separator characters in the pattern" + + ^self classOrTraitFrom: anEnvironment pattern: pattern label: aCaption + " + for examples, see #classFromPattern:withCaption: + " + !