diff options
Diffstat (limited to 'tests/examplefiles/example.ns2')
-rw-r--r-- | tests/examplefiles/example.ns2 | 69 |
1 files changed, 0 insertions, 69 deletions
diff --git a/tests/examplefiles/example.ns2 b/tests/examplefiles/example.ns2 deleted file mode 100644 index b1c6b92e..00000000 --- a/tests/examplefiles/example.ns2 +++ /dev/null @@ -1,69 +0,0 @@ -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 -) - -)) |