Sha256: 1fa851477d10e3a3d7006813d14e10c56e9294952df5478b2b83ea2deebb3fb3
Contents?: true
Size: 1.11 KB
Versions: 42
Compression:
Stored size: 1.11 KB
Contents
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
)
))
Version data entries
42 entries across 42 versions & 5 rubygems