small experiment on integration scripts failure

Cuis-Smalltalk · Jul 28, 2024 · ccccf45 · ccccf45
1 parent 0b11536
commit ccccf45
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/...es/6539-ReleaseMouseFocus-whenMorphAddedToWorld-KenDickey-2024Jul27-15h16m-KenD.001.cs.st b/...es/6539-ReleaseMouseFocus-whenMorphAddedToWorld-KenDickey-2024Jul27-15h16m-KenD.001.cs.st
@@ -0,0 +1,10 @@
+'From Cuis7.1 [latest update: #6538] on 27 July 2024 at 3:17:32 pm'!
+
+!WorldMorph methodsFor: 'change reporting' stamp: 'KenD 7/27/2024 07:32:54'!
+addedMorphx: aMorph
+ "Notify the receiver that the given morph was just added."
+ super addedMorph: aMorph.
+ self firstHand newMouseFocus: nil. "Hand need to reset mouseFocus"
+ self taskbar ifNotNil: [ :tb |
+ tb wasOpened: aMorph ]! !
+