5 lines
98 B
Forth
5 lines
98 B
Forth
: test { \ obj -- }
|
|
New> MyClass to obj
|
|
show: obj
|
|
1000 set: obj
|
|
obj dispose ;
|