\ automatic generated code
\ do not edit

editor also windows also forth

s" calc-classes.str" included?
component class calc
public:
  early widget
  early open
  early open-app
  infotextfield ptr a#
  infotextfield ptr b#
  infotextfield ptr r#
 ( [varstart] )  ( [varend] ) 
how:
  : open     s" Calculator" new 0 open-component ;
  : open-app s" Calculator" new 0 open-application ;
class;

s" calc.str" included?
calc implements
 ( [methodstart] )  ( [methodend] ) 
  : widget  ( [dumpstart] )
        ^^ SN[  ]SN ( MINOS ) &0. ]N ( MINOS ) S" A:" infotextfield new  ^^bind a#
        ^^ SN[  ]SN ( MINOS ) &0. ]N ( MINOS ) S" B:" infotextfield new  ^^bind b#
          ^^ S[ a# get b# get d+ r# assign ]S ( MINOS ) S" +" button new 
          ^^ S[ a# get b# get d- r# assign ]S ( MINOS ) S" -" button new 
          ^^ S[ a# get b# get d* r# assign ]S ( MINOS ) S" *" button new 
          ^^ S[ a# get b# get drop ud/mod r# assign drop ]S ( MINOS ) S" /" button new 
          ^^ S[ a# get 1. b# get drop 0 ?DO 2over d* LOOP r# assign 2drop ]S ( MINOS ) S" ^" button new 
          ^^ S[ r# get a# assign ]S ( MINOS ) S" >A" button new 
          ^^ S[ r# get b# assign ]S ( MINOS ) S" >B" button new 
        &7 hatbox new &1 hskips
        ^^ SN[  ]SN ( MINOS ) &0. ]N ( MINOS ) S" R:" infotextfield new  ^^bind r#
      &4 component new panel
    ( [dumpend] ) ;
  : init  ^ to ^^  widget 1 super init ;
class;

: main
  calc open-app
  &1 0 ?DO  stop  LOOP bye ;
script? [IF]  main  [ELSE]  main:  main ;  [THEN]