summaryrefslogtreecommitdiff
path: root/tests/examplefiles/example.ns2
diff options
context:
space:
mode:
Diffstat (limited to 'tests/examplefiles/example.ns2')
-rw-r--r--tests/examplefiles/example.ns269
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
-)
-
-))