[squeak-dev] The Trunk: EToys-ar.69.mcz
commits at source.squeak.org
commits at source.squeak.org
Fri May 21 03:00:39 UTC 2010
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!
More information about the Squeak-dev
mailing list
|