The Trunk: ToolBuilder-Morphic-mt.123.mcz

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.123.mcz

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

Name: ToolBuilder-Morphic-mt.123
Author: mt
Time: 11 April 2015, 4:47:51.035 pm
UUID: f35b0f2e-9a5f-a54a-bc96-a486f18550a5
Ancestors: ToolBuilder-Morphic-mt.122

Due to the variety of mouse events and the high frequency of mouse-move events in particular, only spawn a new tool at the hand if preference is enabled and the current/last event was mouse-up, e.g. button or menu click.

=============== Diff against ToolBuilder-Morphic-mt.122 ===============

Item was changed:
  ----- Method: MorphicToolBuilder>>open: (in category 'opening') -----
  open: anObject
  "Build and open the object. Answer the widget opened."
  | morph |
  anObject isMorph
  ifTrue:[morph := anObject]
  ifFalse:[morph := self build: anObject].
  (morph isKindOf: MenuMorph)
  ifTrue:[morph popUpInWorld: World].
  (morph isKindOf: SystemWindow)
  ifFalse:[morph openInWorld]
  ifTrue:[
  morph := morph openInWorldExtent: morph extent.
+ (self class openToolsAttachedToMouseCursor
+ and: [self currentEvent isMouse  and: [self currentEvent isMouseUp]])
+ ifTrue: [
+ morph hasDropShadow: false.
+ self currentHand attachMorph: morph]].
- (self class openToolsAttachedToMouseCursor and: [self currentEvent isMouse])
- ifTrue: [
- morph hasDropShadow: false.
- self currentHand attachMorph: morph]].
  ^morph!