The Trunk: Monticello-mt.730.mcz

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

The Trunk: Monticello-mt.730.mcz

commits-2
Marcel Taeumel uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-mt.730.mcz

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

Name: Monticello-mt.730
Author: mt
Time: 11 October 2020, 1:41:24.302652 pm
UUID: fd9bc152-dab5-f241-9807-5a83b2d4a239
Ancestors: Monticello-ul.729

Refactoring 'Active' variables -- Step 2 of 2. Removes all uses of Active(World|Hand|Event) by replacing those with "self current(World|Hand|Event)" or "Project current world" when required to not add/cement Morphic dependency.

See http://forum.world.st/Changeset-Eliminating-global-state-from-Morphic-td5121690.html

=============== Diff against Monticello-ul.729 ===============

Item was changed:
  ----- Method: MCCodeTool>>browseFullProtocol (in category 'menus') -----
  browseFullProtocol
  "Open up a protocol-category browser on the value of the receiver's current selection.    If in mvc, an old-style protocol browser is opened instead.  Someone who still uses mvc might wish to make the protocol-category-browser work there too, thanks."
 
- | aClass |
-
  (Smalltalk isMorphic and: [Smalltalk hasClassNamed: #Lexicon]) ifFalse: [^ self spawnFullProtocol].
+ self selectedClassOrMetaClass ifNotNil: [:class |
+ ^ (Smalltalk at: #Lexicon) new
+ openOnClass: class
+ inWorld: self currentWorld
+ showingSelector: self selectedMessageName].
+ ^ nil!
- (aClass := self selectedClassOrMetaClass) ifNotNil:
- [(Smalltalk at: #Lexicon) new openOnClass: aClass inWorld: ActiveWorld showingSelector: self selectedMessageName]!