scaler-test.m 519 Bytes
Newer Older
bp's avatar
bp committed
1 2 3 4 5 6 7 8 9 10
#! xbigforth
\ automatic generated code
\ do not edit

also editor also minos also forth

component class comp0000
public:
 ( [varstart] )  ( [varend] ) 
how:
bp's avatar
bp committed
11
  : params   DF[ 0 ]DF X" No Title" ;
bp's avatar
bp committed
12 13 14 15 16
class;

comp0000 implements
 ( [methodstart] )  ( [methodend] ) 
  : widget  ( [dumpstart] )
bp's avatar
bp committed
17 18
        ^^ #3 #100 SC[ ( pos -- ) drop ]SC ( MINOS ) hscaler new  #-30 SC# 
      #1 vabox new panel
bp's avatar
bp committed
19 20 21 22 23
    ( [dumpend] ) ;
class;

: main
  comp0000 open-app
bp's avatar
bp committed
24
  event-loop bye ;
bp's avatar
bp committed
25 26
script? [IF]  main  [THEN]
previous previous previous