Well, a couple months ago I read this paper:
I got inspired and Hacked up a morph that draws when you click on it, using the following code:
Reactor loop: [ :reactor | | path |
path := PathShape vertices: { (reactor next: RMouseDown) position}.
self draw: path.
reactor loopUntil: RMouseUp with: [ | move |
move := reactor next: RMouseMove.
path addVertex: move position.
self draw: path.
].
self finishDrawing.
] on: self announcer.
p := RReactivePolygon new.
w := p openInWindow.
w extent: 400@400.
Of course it was just a dirty start, but if it is of use to anybody, here is the code:
MCSmalltalkhubRepository
owner: 'Guille'
project: 'playground'
user: ''
password: ''
Locked
Nov 01, 2014; 11:19pm
