Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1140.mcz
==================== Summary ====================
Name: Morphic-mt.1140
Author: mt
Time: 9 May 2016, 1:37:31.427729 pm
UUID: fecf2a29-d4e3-c547-b948-21eca8fe7c5a
Ancestors: Morphic-mt.1139
Look up a morph's active hand also via the world it is in. Use this when activating a system window or deleting a morph. -- This makes much Morphic code work from within MVC or testing environments.
=============== Diff against Morphic-mt.1139 ===============
Item was changed:
----- Method: Morph>>activeHand (in category 'structure') -----
activeHand
+
+ ^ ActiveHand ifNil: [
+ self isInWorld
+ ifTrue: [self world activeHand]
+ ifFalse: [nil]]!
- ^ActiveHand!
Item was changed:
----- Method: Morph>>delete (in category 'submorphs-add/remove') -----
delete
"Remove the receiver as a submorph of its owner and make its
new owner be nil."
| aWorld |
self removeHalo.
+
+ self isInWorld ifTrue: [
+ self disableSubmorphFocusForHand: self activeHand.
+ self activeHand
+ releaseKeyboardFocus: self;
+ releaseMouseFocus: self].
+
+ "Preserve world reference for player notificaiton. See below."
aWorld := self world ifNil: [World].
+
+ owner ifNotNil:[
+ self privateDelete.
+ self player ifNotNil: [:player |
- "Terminate genie recognition focus"
- "I encountered a case where the hand was nil, so I put in a little
- protection - raa "
- " This happens when we are in an MVC project and open
- a morphic window. - BG "
- aWorld ifNotNil:
- [self disableSubmorphFocusForHand: self activeHand.
- self activeHand releaseKeyboardFocus: self;
- releaseMouseFocus: self.].
- owner ifNotNil:[ self privateDelete.
- self player ifNotNil: [ :player |
- "Player must be notified"
player noteDeletionOf: self fromWorld: aWorld]].!
Item was changed:
----- Method: SystemWindow>>activate (in category 'top window') -----
activate
"Bring the receiver to the top. If I am modal, bring along my owning window as well."
| modalOwner |
self modalChild ifNotNil:
[ : modalChild | modalChild owner ifNotNil:
[ modalChild activate.
^ modalChild modalChild ifNil: [ modalChild flash ] ] ].
(isCollapsed not and:
[ self paneMorphs size > 1 and: [ self splitters isEmpty ] ]) ifTrue: [ self addPaneSplitters ].
self activateWindow.
+ PasteUpMorph globalCommandKeysEnabled ifTrue: [self activeHand addKeyboardListener: self].
- PasteUpMorph globalCommandKeysEnabled ifTrue: [ActiveHand addKeyboardListener: self].
modalOwner := self modalOwner.
(modalOwner notNil and: [ modalOwner isSystemWindow ]) ifTrue: [ modalOwner bringBehind: self ]!
Marcel Taeumel uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-mt.826.mcz
==================== Summary ====================
Name: System-mt.826
Author: mt
Time: 9 May 2016, 1:14:47.861723 pm
UUID: ec4d495c-324c-214f-9944-0e2be7e78ec6
Ancestors: System-mt.825
Return the result of a debug-it for further processing.
=============== Diff against System-mt.825 ===============
Item was changed:
----- Method: Project>>debugMethod:forReceiver:inContext: (in category 'debugging') -----
debugMethod: aCompiledMethod forReceiver: anObject inContext: aContextOrNil
"Just execute the method and return the result. We cannot know how interactive debugging works for arbitrary projects."
+ ^ aCompiledMethod
- aCompiledMethod
valueWithReceiver: anObject
arguments: (aContextOrNil
ifNil: [#()]
+ ifNotNil: [{aContextOrNil}])!
- ifNotNil: [{aContextOrNil}]).!
Marcel Taeumel uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-mt.699.mcz
==================== Summary ====================
Name: Tools-mt.699
Author: mt
Time: 9 May 2016, 10:36:32.952377 am
UUID: 02e95a99-17e0-9e42-8091-237d1f56e447
Ancestors: Tools-mt.698
Return the result of debug-it requests for further processing.
=============== Diff against Tools-mt.698 ===============
Item was changed:
----- Method: StandardToolSet class>>debugMethod:forReceiver:inContext: (in category 'debugging') -----
debugMethod: aCompiledMethod forReceiver: anObject inContext: aContext
+ ^ Project current debugMethod: aCompiledMethod forReceiver: anObject inContext: aContext!
- Project current debugMethod: aCompiledMethod forReceiver: anObject inContext: aContext.
- !
Marcel Taeumel uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-mt.825.mcz
==================== Summary ====================
Name: System-mt.825
Author: mt
Time: 9 May 2016, 10:31:15.970377 am
UUID: dfbd9b4f-f443-7f4e-8ab1-3ae64be157e0
Ancestors: System-mt.824
Moves etoys-specific code that was still in the base system.
=============== Diff against System-mt.824 ===============
Item was removed:
- ----- Method: Project>>currentStack: (in category 'accessing') -----
- currentStack: aStack
- "Set the current stack as indicated; if the parameter supplied is nil, delete any prior memory of the CurrentStack"
-
- aStack
- ifNil:
- [self removeParameter: #CurrentStack]
- ifNotNil:
- [self projectParameterAt: #CurrentStack put: aStack]!
Marcel Taeumel uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-mt.135.mcz
==================== Summary ====================
Name: EToys-mt.135
Author: mt
Time: 9 May 2016, 10:29:55.747377 am
UUID: 2f85239d-d85b-144e-a9f8-7b9f650c4306
Ancestors: EToys-mt.134
Adds etoys-specific code that was still in the base system.
=============== Diff against EToys-mt.134 ===============
Item was added:
+ ----- Method: MorphicProject>>currentStack: (in category '*Etoys-stack') -----
+ currentStack: aStack
+ "Set the current stack as indicated; if the parameter supplied is nil, delete any prior memory of the CurrentStack"
+
+ aStack
+ ifNil:
+ [self removeParameter: #CurrentStack]
+ ifNotNil:
+ [self projectParameterAt: #CurrentStack put: aStack]!
Hi,
Sometimes I use empty categories as markers. In general I would not delete what someone may have carefully set up.
IIRC we had a similar discussion re category sort order.
Cheers,
Herbert
<div>-------- Ursprüngliche Nachricht --------</div><div>Von: "marcel.taeumel" <Marcel.Taeumel(a)hpi.de> </div><div>Datum:09.05.2016 09:22 (GMT+01:00) </div><div>An: squeak-dev(a)lists.squeakfoundation.org </div><div>Betreff: [squeak-dev] Remove all empty message/class categories after code
update </div><div>
</div>Hi, there!
What do you think about removing all empty system categories (resp. class
categories) and message categories after loading code?
Only for Squeak update?
Also for any Monticello merge/load?
Would anybody miss those empty categories?
Best,
Marcel
--
View this message in context: http://forum.world.st/Remove-all-empty-message-class-categories-after-code-…
Sent from the Squeak - Dev mailing list archive at Nabble.com.
Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1139.mcz
==================== Summary ====================
Name: Morphic-mt.1139
Author: mt
Time: 9 May 2016, 10:13:00.512377 am
UUID: bc66106b-ac8f-4043-ae82-1f1604c19c40
Ancestors: Morphic-mt.1138
Support for unloading Morphic.
=============== Diff against Morphic-mt.1138 ===============
Item was removed:
- ----- Method: Project>>isMorphic (in category '*Morphic-testing') -----
- isMorphic
-
- ^ false!
Marcel Taeumel uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-mt.824.mcz
==================== Summary ====================
Name: System-mt.824
Author: mt
Time: 9 May 2016, 10:11:56.105377 am
UUID: 633ca5f8-2835-dc46-b7ec-6b7f4efcbfca
Ancestors: System-mt.823
Support for unloading Morphic.
=============== Diff against System-mt.823 ===============
Item was added:
+ ----- Method: Project>>isMorphic (in category 'testing') -----
+ isMorphic
+
+ self flag: #moveEventually. "mt: Once we manage to remove all calls to this from outside the Morphic package, we can add this as an extension of Morphic to Project."
+ ^ false!
Marcel Taeumel uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-mt.698.mcz
==================== Summary ====================
Name: Tools-mt.698
Author: mt
Time: 9 May 2016, 9:50:04.716377 am
UUID: 4c9af351-718a-5e42-aa14-3e6456646de3
Ancestors: Tools-nice.697
Move #representsSameBrowseeAs: from Morphic extension to tool package to simplify load/unload of Morphic. Although the Tools package is somewhat coupled with Morphic, it is more consistent with all the other implementations of #representsSameBrowseeAs:.
=============== Diff against Tools-nice.697 ===============
Item was added:
+ ----- Method: ObjectExplorer>>representsSameBrowseeAs: (in category 'user interface') -----
+ representsSameBrowseeAs: anotherObjectExplorer
+ ^ self rootObject == anotherObjectExplorer rootObject!
Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1138.mcz
==================== Summary ====================
Name: Morphic-mt.1138
Author: mt
Time: 9 May 2016, 9:49:11.264377 am
UUID: 057144ea-d4af-bd47-aa80-968af1300aea
Ancestors: Morphic-mt.1137
Move #representsSameBrowseeAs: from Morphic extension to tool package to simplify load/unload of Morphic. Although the Tools package is somewhat coupled with Morphic, it is more consistent with all the other implementations of #representsSameBrowseeAs:.
=============== Diff against Morphic-mt.1137 ===============
Item was removed:
- ----- Method: ObjectExplorer>>representsSameBrowseeAs: (in category '*morphic') -----
- representsSameBrowseeAs: anotherObjectExplorer
- ^ self rootObject == anotherObjectExplorer rootObject!