#! xbigforth
\ automatic generated code
\ do not edit

also editor also minos also forth

component class 4er-Feld
public:
  big-icon ptr led1
  big-icon ptr led4
  big-icon ptr led2
  big-icon ptr led3
 ( [varstart] )     cell var status1
    cell var status2
    cell var status3
    cell var status4 ( [varend] ) 
how:
  : params   DF[ 0 ]DF s" Spielfelder" ;
class;

4er-Feld implements
 ( [methodstart] )  ( [methodend] ) 
  : widget  ( [dumpstart] )
            $10 $1 *hfil $10 $1 *vfil glue new 
            ^^ S[  1 toggle ]S ( MINOS )  icon" LED_ge_an.png" X" " big-icon new  ^^bind led1
            $10 $1 *hfil $10 $1 *vfil glue new 
          #3 habox new panel
            ^^ S[ 4 toggle ]S ( MINOS )  icon" piece0.png" X" " big-icon new  ^^bind led4
            $10 $1 *hfil $10 $1 *vfil glue new 
            ^^ S[ 2 toggle ]S ( MINOS )  icon" piece0.png" X" " big-icon new  ^^bind led2
          #3 habox new panel
            $10 $1 *hfil $10 $1 *vfil glue new 
            ^^ S[ 3 toggle ]S ( MINOS )  icon" piece0.png" X" " big-icon new  ^^bind led3
            $10 $1 *hfil $10 $1 *vfil glue new 
          #3 habox new panel
        #3 vabox new panel
      #1 vabox new panel
    ( [dumpend] ) ;
class;

: main
  4er-Feld open-app
  event-loop bye ;
script? [IF]  main  [THEN]
previous previous previous
