#! xbigforth
\ automatic generated code
\ do not edit

also editor also minos also forth

component class ds1920-f5
public:
  early widget
  early open
  early dialog
  early open-app
  infotextfield ptr temp
  varbox ptr devices
  text-label ptr dev-first
 ( [varstart] )  ( [varend] ) 
how:
  : open     new DF[ 0 ]DF s" DS 1920-F5 sensor" open-component ;
  : dialog   new DF[ 0 ]DF s" DS 1920-F5 sensor" open-dialog ;
  : open-app new DF[ 0 ]DF s" DS 1920-F5 sensor" open-application ;
class;

include 1wire.fs
ds1920-f5 implements
 ( [methodstart] ) : show super show
  search-first ^^ 0 T[ ][ ]T "address rbutton new
  dev-first widgets self devices add  maxdisc
  BEGIN  search-next ^^ 0 T[ ][ ]T "address rbutton new
         dev-first widgets self devices add  maxdisc tuck = UNTIL
  drop
  ^ 1 $1000 dup NewTask pass >o
  BEGIN  readout >temp temp assign  AGAIN ; ( [methodend] ) 
  : widget  ( [dumpstart] )
        ^^ ST[  ]ST ( MINOS ) T" " X" Temperature:" infotextfield new  ^^bind temp
          X" Devices:" text-label new  ^^bind dev-first
        &1 varbox new ^^bind devices
      &2 vabox new panel
    ( [dumpend] ) ;
  : init  ^>^^  assign  widget 1 :: init ;
class;

: main
  ds1920-f5 open-app
  $1 0 ?DO  stop  LOOP bye ;
script? [IF]  main  [THEN]
previous previous previous