Q5/ws_objects/Ew_mainface.pbl.src/uo_thread.sru

$PBExportHeader$uo_thread.sru
$PBExportComments$线程对象
forward
global type uo_thread from nonvisualobject
end type
end forward

global type uo_thread from nonvisualobject
end type
global uo_thread uo_thread

type prototypes
Subroutine Sleep (ulong dwMilliseconds) Library "KERNEL32.DLL"
end prototypes

type variables
nonvisualobject inv_pbcomm
int ins_stopflag=0 //1-stop
end variables

forward prototypes
public subroutine of_start ()
public subroutine of_setparent (nonvisualobject arg_pbcomm)
end prototypes

public subroutine of_start ();do while ins_stopflag=0
	inv_pbcomm.triggerevent("ue_thread")
	sleep(100)
loop
end subroutine

public subroutine of_setparent (nonvisualobject arg_pbcomm);inv_pbcomm = arg_pbcomm
end subroutine

on uo_thread.create
call super::create
TriggerEvent( this, "constructor" )
end on

on uo_thread.destroy
TriggerEvent( this, "destructor" )
call super::destroy
end on