func init() lng.include('debugform.h') if(!isset(DFORM)) gvar(DFORM) HEADERS += " debugform.h" SOURCES += " debugform.cpp" end fvar(old) old = block.select(BLK_INIT) if(linked(doEvent)) lng.decl_priv_var(dbg_we, 'int') println(dbg_we + ' = debugForm->add(' + WEName + ');') end block.select(old) end func doEvent(_data) lang(dt) fvar(tp, tn) tp = lng.get_type(_data) if(tp) tn = lng.get_type_name(tp) lng.decl_loc_var(dt, tn) println(dt + ' = ' + _data + ';') println('debugForm->showValue(' + dbg_we + ',' + dt + ');') else println('debugForm->showValue(' + dbg_we + ');') end event(onEvent, _data_) end func Var(_data) if(linked(Data)) fvar(d) d = sys.event(0, "Data", _data) return(d) else return("") end end