Created
May 17, 2009 12:49
-
-
Save ldfallas/113001 to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Newsqueak2 | |
'Langexplr | |
' | |
class ShapesExperiment usingLib: platform = ( | |
"A small experiment for using Hopscotch shape classes ." | |
| | |
CanvasDependent = platform CanvasDependent. | |
Presenter = platform HPresenter. | |
Subject = platform Subject. | |
EllipseShape = platform EllipseShape. | |
Color = platform Color. | |
| | |
) | |
( | |
class ShapesExperimentSubject = Subject( | |
"Subject for shapes experiment" | |
| | |
| | |
) | |
('as yet unclassified' | |
createPresenter = ( | |
^ShapesExperimentPresenter new subject: self. | |
) | |
) | |
class ShapesExperimentPresenter = Presenter ( | |
"A presenter for a small experiment of using shape classes" | |
| | |
| | |
) | |
('as yet unclassified' | |
controlPoint = ( | |
^ControlPoint new. | |
) | |
definition = ( | |
^ column: { | |
canvas: { | |
at: 10 @ 10 display: controlPoint. | |
at: 15 @ 10 display: controlPoint. | |
} | |
} | |
) | |
) | |
class ControlPoint = CanvasDependent( | |
"A class that represents a small point in the screen" | |
| | |
| | |
) | |
('as yet unclassified' | |
addVisualsTo: container = ( | |
container add: visual. | |
updateLayout. | |
) | |
createVisual = ( | |
| s | | |
s:: EllipseShape new size: 5@5 . | |
s color: Color red. | |
^ s | |
) | |
)) | |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment