Commit 08cc3279 authored by bp's avatar bp

Deleted outdated canvas.fs

git-svn-id: https://forth-ev.de/repos/bigforth@1903 3b8d8251-53f3-0310-8f3b-fd1cb8370982
parent 04c30880
minos also
canvas ptr canvas-test
: canvas-win
screen self window new window with
1 1 ^ viewport new viewport with
:[ canvas with clear endwith ]:
$200 0 $200 0 ^ canvas new dup [ also Forth ] bind canvas-test [ toss ]
assign ^
endwith
^ sliderview new s" Canvas-Test" assign
map
endwith ;
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment