Hi, i was looking at this issue and I have some questions :):<br><br>- There are some changes to HandMorph in a changeset hardcoded in the ConfigurationOfAlgernon.� As Mariano said here (<a href="http://forum.world.st/Putting-Algernon-and-WorkingSet-in-a-Dev-image-td1295930.html#a1295941">http://forum.world.st/Putting-Algernon-and-WorkingSet-in-a-Dev-image-td1295930.html#a1295941</a>)� &quot;The main change does the simples modifications to HandMorph for it to support various focus holders&quot;.� Is it safe to integrate it in Pharo?� If so, should it be integrated in the core Morph package? � The changeset is the following:<br>
<br><i>�&#39;&#39;&#39;From Squeak3.7gamma of &#39;&#39;&#39;&#39;17 July 2004&#39;&#39;&#39;&#39; [latest update: #5985] on 9 August 2004 at 7:56:10 pm&#39;&#39;!<br>&quot;Change Set:��� ��� MultipleFocusHolder-hpt<br>Date:��� ��� ��� 9 August 2004<br>
Author:��� ��� ��� Hernan Tylim<br><br>This changesets does the simplest modifications to HandMorph for it to support various focus holders.<br><br>The important changes are:<br><br>* addiionalKeyboardFocuses instance variable was added with its getter and setter methods.<br>
<br>* HandMorph&gt;&gt;sendKeyboardEvent: was changed to traverse the list of keyboard focus holders and call HandMorph&gt;&gt;sendEvent:focus:clear: to each one of them.<br><br>* HandMorph&gt;&gt;sendEvent:focus:clear: was changed to preserve the &#39;&#39;wasHandled&#39;&#39; status of the event, before that info were lost because the Event instance were copied before passed to the Morph. <br>
&quot;!<br><br>Morph subclass: #HandMorph<br>��� instanceVariableNames: &#39;&#39;mouseFocus keyboardFocus eventListeners mouseListeners keyboardListeners mouseClickState mouseOverHandler lastMouseEvent targetOffset damageRecorder cacheCanvas cachedCanvasHasHoles temporaryCursor temporaryCursorOffset hasChanged savedPatch userInitials lastEventBuffer genieGestureProcessor additionalKeyboardFocuses &#39;&#39;<br>
��� classVariableNames: &#39;&#39;DoubleClickTime EventStats NewEventRules NormalCursor PasteBuffer ShowEvents &#39;&#39;<br>��� poolDictionaries: &#39;&#39;EventSensorConstants&#39;&#39;<br>��� category: &#39;&#39;Morphic-Kernel&#39;&#39;!<br>
<br>!HandMorph methodsFor: &#39;&#39;focus handling&#39;&#39; stamp: &#39;&#39;hpt 8/8/2004 01:52&#39;&#39;!<br>addAdditionalKeyboardFocus: aMorph<br>��� (self additionalKeyboardFocuses includes: aMorph)<br>��� ��� ifFalse: [self additionalKeyboardFocuses addFirst: aMorph]! !<br>
<br>!HandMorph methodsFor: &#39;&#39;focus handling&#39;&#39; stamp: &#39;&#39;hpt 8/7/2004 23:47&#39;&#39;!<br>additionalKeyboardFocuses<br>��� ^additionalKeyboardFocuses ifNil: [additionalKeyboardFocuses _ OrderedCollection new].! !<br>
<br>!HandMorph methodsFor: &#39;&#39;focus handling&#39;&#39; stamp: &#39;&#39;hpt 8/8/2004 00:12&#39;&#39;!<br>clearFocusHolder: aMorph<br>��� self keyboardFocus == aMorph<br>��� ��� ifTrue: ��� [^self keyboardFocus: nil].<br>
��� (self additionalKeyboardFocuses includes: aMorph)<br>��� ��� ifTrue: [self removeAdditionalKeyboardFocus: aMorph].! !<br><br>!HandMorph methodsFor: &#39;&#39;focus handling&#39;&#39; stamp: &#39;&#39;hpt 8/7/2004 23:48&#39;&#39;!<br>
fullKeyboardFocuses<br>��� ^self additionalKeyboardFocuses copyWith: self keyboardFocus.! !<br><br>!HandMorph methodsFor: &#39;&#39;focus handling&#39;&#39; stamp: &#39;&#39;hpt 8/7/2004 23:43&#39;&#39;!<br>keyboardFocuses<br>
��� keyboardFocuses ifNil: [keyboardFocuses := OrderedCollection new].<br>��� ^keyboardFocuses! !<br><br>!HandMorph methodsFor: &#39;&#39;focus handling&#39;&#39; stamp: &#39;&#39;hpt 8/7/2004 23:49&#39;&#39;!<br>removeAdditionalKeyboardFocus: aMorph<br>
��� self additionalKeyboardFocuses remove: aMorph! !<br><br>!HandMorph methodsFor: &#39;&#39;private events&#39;&#39; stamp: &#39;&#39;hpt 8/8/2004 01:18&#39;&#39;!<br>sendFocusEvent: anEvent to: focusHolder clear: aBlock<br>
��� &quot;Send the event to the morph currently holding the focus&quot;<br>��� | result w e |<br>��� w _ focusHolder world ifNil:[^ aBlock value].<br>��� w becomeActiveDuring:[<br>��� ��� ActiveHand _ self.<br>��� ��� ActiveEvent _ anEvent.<br>
��� ��� e _ (anEvent transformedBy: (focusHolder transformedFrom: self)).<br>��� ��� result _ focusHolder handleFocusEvent: e��� .<br>��� ��� anEvent wasHandled: e wasHandled.<br>��� ].<br>��� ^result! !<br><br>!HandMorph methodsFor: &#39;&#39;private events&#39;&#39; stamp: &#39;&#39;hpt 8/8/2004 01:09&#39;&#39;!<br>
sendKeyboardEvent: anEvent<br>��� &quot;Send the event to the morph currently holding the focus, or if none to the owner of the hand.&quot;<br><br>��� self fullKeyboardFocuses do: [:focusHolder |<br>��� ��� &quot;(anEvent keyCharacter = $\) ifTrue: [self halt].&quot;<br>
��� ��� anEvent wasHandled<br>��� ��� ��� ifFalse: [self sendEvent: anEvent focus: focusHolder clear:[self clearFocusHolder: focusHolder]]].! !<br><br>Morph subclass: #HandMorph<br>��� instanceVariableNames: &#39;&#39;mouseFocus keyboardFocus eventListeners mouseListeners keyboardListeners mouseClickState mouseOverHandler lastMouseEvent targetOffset damageRecorder cacheCanvas cachedCanvasHasHoles temporaryCursor temporaryCursorOffset hasChanged savedPatch userInitials lastEventBuffer genieGestureProcessor additionalKeyboardFocuses&#39;&#39;<br>
��� classVariableNames: &#39;&#39;DoubleClickTime EventStats NewEventRules NormalCursor PasteBuffer ShowEvents&#39;&#39;<br>��� poolDictionaries: &#39;&#39;EventSensorConstants&#39;&#39;<br>��� category: &#39;&#39;Morphic-Kernel&#39;&#39;!<br>
</i>&#39;<br><br>It should be nice someone who knows well morphic checks it.<br><br>Cheers,<br>Guille<br>