The Trunk: ToolBuilder-Kernel-jr.109.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: ToolBuilder-Kernel-jr.109.mcz

commits-2
David T. Lewis uploaded a new version of ToolBuilder-Kernel to project The Trunk:
http://source.squeak.org/trunk/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:
+ "
+ !