The Inbox: Morphic-ct.1711.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Inbox: Morphic-ct.1711.mcz

commits-2
A new version of Morphic was added to project The Inbox:
http://source.squeak.org/inbox/Morphic-ct.1711.mcz

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

Name: Morphic-ct.1711
Author: ct
Time: 11 November 2020, 1:11:49.166952 pm
UUID: baf41a9d-f92f-f44a-b3d8-a7fd571abb2b
Ancestors: Morphic-mt.1710

Proposal/fix: Repair the help handle functionality and show a dialog window instead of a balloon. This also improves the responsiveness of behavior IMHO.

=============== Diff against Morphic-mt.1710 ===============

Item was changed:
  ----- Method: HaloMorph>>addHelpHandle: (in category 'handles') -----
  addHelpHandle: haloSpec
  target balloonText ifNotNil:
+ [(self addHandle: haloSpec on: #mouseDown send: #mouseDownOnHelpHandle: to: innerTarget)]
- [(self addHandle: haloSpec on: #mouseDown send: #mouseDownOnHelpHandle: to: innerTarget)
- on: #mouseUp send: #deleteBalloon to: innerTarget]
  !

Item was changed:
  ----- Method: Morph>>mouseDownOnHelpHandle: (in category 'halos and balloon help') -----
  mouseDownOnHelpHandle: anEvent
  "The mouse went down in the show-balloon handle"
 
- | str |
  anEvent shiftPressed ifTrue: [^ self editBalloonHelpText].
+ self inform: (self balloonText ifNil: [self noHelpString]).!
- str := self balloonText.
- str ifNil: [str := self noHelpString].
- self showBalloon: str hand: anEvent hand.
- !