The Trunk: EToys-ar.69.mcz

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

The Trunk: EToys-ar.69.mcz

commits-2
Andreas Raab uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-ar.69.mcz

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

Name: EToys-ar.69
Author: ar
Time: 20 May 2010, 7:59:38.477 pm
UUID: 9537ff3f-27bd-de4d-a5d0-dc0befc8c859
Ancestors: EToys-ar.68

Add isolated code pane creation back to MethodHolder as Etoys extension.

=============== Diff against EToys-ar.68 ===============

Item was added:
+ ----- Method: MethodHolder class>>isolatedCodePaneForClass:selector: (in category '*Etoys') -----
+ isolatedCodePaneForClass: aClass selector: aSelector
+ "Answer a MethodMorph on the given class and selector"
+
+ | aCodePane aMethodHolder |
+
+ aMethodHolder := self new.
+ aMethodHolder methodClass: aClass methodSelector: aSelector.
+
+ aCodePane := MethodMorph on: aMethodHolder text: #contents accept: #contents:notifying:
+ readSelection: #contentsSelection menu: #codePaneMenu:shifted:.
+ aMethodHolder addDependent: aCodePane.
+ aCodePane borderWidth: 2; color: Color white.
+ aCodePane scrollBarOnLeft: false.
+ aCodePane width: 300.
+ ^ aCodePane!

Item was added:
+ ----- Method: MethodHolder class>>makeIsolatedCodePaneForClass:selector: (in category '*Etoys') -----
+ makeIsolatedCodePaneForClass: aClass selector: aSelector
+ "Create, and place in the morphic Hand, an isolated code pane bearing source code for the given class and selector"
+
+ (self isolatedCodePaneForClass: aClass selector: aSelector) openInHand!