pe

? "*** point 0"

proc TASK_TEST::run(arg)

local val

while 1 do
	val = int(arg.result_textbox.get_value())
	arg.result_textbox.set_value(val + 1)
	result 0
done

endproc

proc TASK_TEST::build_task

define var x

x = generator TASK_TEST::run(this.frame)

add_idle_task(x)

endproc


? "*** point 1"

define var tmp
invalidate(tmp)

tmp = unpack("{type=frame}{control_name=frame_7}{background_colour=26}{border_type=96}{caption=}{font_name=}{foreground_colour=}{border_width=}{left_follows=left}{top_follows=top}{right_follows=right}{bottom_follows=bottom}{x=148}{y=215}{width=133}{height=133}{control_list=[{type=button}{pressed_func_name=TASK_TEST::build_task}{control_name=button_3547}{background_colour=26}{caption=start}{x=181}{y=303}{width=67}{height=23}{font_name=}{foreground_colour=}{border_type=}{border_width=}{left_follows=left}{top_follows=top}{right_follows=left}{bottom_follows=top}][{type=textbox}{control_name=result_textbox}{background_colour=26}{border_type=2}{border_width=2}{x=181}{y=248}{width=67}{height=23}{text=}{font_name=}{foreground_colour=}{left_follows=left}{top_follows=top}{right_follows=left}{bottom_follows=top}{completed_func_name=}{aborted_func_name=}]}")

? "*** point 2"

WINCTL::form(tmp)
xpe