<div dir="ltr"><div><br></div><div>I think forcing a double-blink for every possible use-case for #flash won&#39;t work.  Plus, an arbitrary 50ms delay will not let anyone be happy because some want absolutely no blockage while others wanted more than 50ms..<br>
</div><div><br></div><div>#flashStyle or #flashIntensity preference would be one way to address those differences.<div><br></div></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">On Thu, Jul 3, 2014 at 7:29 AM,  <span dir="ltr">&lt;<a href="mailto:commits@source.squeak.org" target="_blank">commits@source.squeak.org</a>&gt;</span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">A new version of Morphic was added to project The Inbox:<br>
<a href="http://source.squeak.org/inbox/Morphic-kfr.731.mcz" target="_blank">http://source.squeak.org/inbox/Morphic-kfr.731.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: Morphic-kfr.731<br>
Author: kfr<br>
Time: 3 July 2014, 2:28:57.179 pm<br>
UUID: 05ec5d84-8101-f94b-847f-d4e467ddeead<br>
Ancestors: Morphic-kfr.730<br>
<br>
Small fix for keyboard focus.<br>
Double flash for morph implementation<br>
<br>
=============== Diff against Morphic-cmm.729 ===============<br>
<br>
Item was changed:<br>
  ----- Method: AlternatePluggableListMorphOfMany&gt;&gt;mouseUp: (in category &#39;event handling&#39;) -----<br>
  mouseUp: event<br>
+<br>
+       event hand newKeyboardFocus: self.<br>
+       hasFocus := true.<br>
+       ^self!<br>
-       &quot;Not needed.  Overridden to do nothing.&quot;!<br>
<br>
Item was changed:<br>
  ----- Method: Morph&gt;&gt;flash (in category &#39;macpal&#39;) -----<br>
  flash<br>
+       &quot;Flash me&quot;<br>
        | originalColor |<br>
        originalColor := self color.<br>
+       1<br>
+               to: 2<br>
+               do: [:i | [self<br>
+                               color: (originalColor<br>
+                                               ifNil: [Color black]<br>
+                                               ifNotNil: [((originalColor alpha: 1)<br>
+                                                               adjustSaturation: 0.8<br>
+                                                               brightness: 0) negated])]<br>
+                               ensure: [self world<br>
+                                               ifNotNil: [:w | w displayWorldSafely].<br>
+                                       (Delay forMilliseconds: 50) wait.<br>
+                                       [self color: originalColor]<br>
+                                               ensure: [self world<br>
+                                                               ifNotNil: [:w | w displayWorldSafely].<br>
+                                                       (Delay forMilliseconds: 50) wait]]]!<br>
-       [ self color:<br>
-               (originalColor<br>
-                       ifNil: [ Color black ]<br>
-                       ifNotNil: [( (originalColor alpha: 1) adjustSaturation: 0.8 brightness: 0) negated ]) ]<br>
-               ensure:<br>
-                       [ self world ifNotNil: [ : w | w displayWorldSafely ].<br>
-                       self color: originalColor ]!<br>
<br>
Item was changed:<br>
  ----- Method: TextMorphForEditView&gt;&gt;mouseDown: (in category &#39;event handling&#39;) -----<br>
  mouseDown: event<br>
<br>
        event yellowButtonPressed ifTrue: [<br>
+               (self editor yellowButtonDown: event) ifTrue:[^self].<br>
-               (editor yellowButtonDown: event) ifTrue:[^self].<br>
                ^ editView yellowButtonActivity: event shiftPressed].<br>
        ^ super mouseDown: event<br>
  !<br>
<br>
<br>
</blockquote></div><br></div>