theseus-try.fs 552 Bytes
Newer Older
bp's avatar
bp committed
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
\ try a MINOS program interactively                    12apr98py

Vocabulary minos-try

also minos-try also definitions

: var ( n -- )  Create here swap dup allot erase ;
: method  postpone forward ;

\ Create pointers                                      12apr98py

: create-ptrs ( o -- )
    combined with childs self n @ endwith
    0 ?DO
        >slider-o >backing-o box-o?
        IF
            recurse
        ELSE
	    all-descs find-object
            descriptors with  create-ptr  endwith
        THEN
    LOOP drop ;

toss toss definitions