diff options
author | Matth?us G. Chajdas <dev@anteru.net> | 2019-11-10 13:56:53 +0100 |
---|---|---|
committer | Matth?us G. Chajdas <dev@anteru.net> | 2019-11-10 13:56:53 +0100 |
commit | 1dd3124a9770e11b6684e5dd1e6bc15a0aa3bc67 (patch) | |
tree | 87a171383266dd1f64196589af081bc2f8e497c3 /tests/examplefiles/example.ns2 | |
parent | f1c080e184dc1bbc36eaa7cd729ff3a499de568a (diff) | |
download | pygments-master.tar.gz |
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 -) - -)) |