blob: b1c6b92ef6cbe955b897243cd0cf42bf77bbe44b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
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
)
))
|