69 lines
1.1 KiB
Newspeak
69 lines
1.1 KiB
Newspeak
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
|
|
)
|
|
|
|
))
|