forward
global type nvuo_timer from timing
end type
end forward

global type nvuo_timer from timing
end type
global nvuo_timer nvuo_timer

type variables
string		is_command
window	iw_window
end variables

event timer;integer li_ret

Stop()

CHOOSE CASE is_command
	CASE 'STOP SELECT'
		iw_window.Triggerevent('ue_stop_select')
	CASE 'START SELECT'
		iw_window.Triggerevent('ue_start_select')
END CHOOSE

end event

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

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

forward
global type w_multithread from window
end type
type cb_1 from commandbutton within w_multithread
end type
type st_1 from statictext within w_multithread
end type
end forward

global type w_multithread from window
integer x = 247
integer y = 224
integer width = 928
integer height = 336
boolean titlebar = true
string title = "Multi-Threading with PowerBuilder"
boolean controlmenu = true
boolean minbox = true
boolean maxbox = true
boolean resizable = true
long backcolor = 77652192
event ue_start_select ( )
event ue_stop_select ( )
cb_1 cb_1
st_1 st_1
end type
global w_multithread w_multithread

type variables
end variables

event ue_start_select();long ll_counter

FOR ll_counter = 1 TO 32565
	IF gb_result THEN 
		MessageBox('Svershilos', 'Ostanovka')
		EXIT
	END IF
	st_1.TEXT = STRING(ll_counter)
NEXT
end event

event ue_stop_select();gb_result = TRUE
MessageBox('Stop', 'Stop LOOP')
end event

on w_multithread.create
this.cb_1=create cb_1
this.st_1=create st_1
this.Control[]={this.cb_1,&
this.st_1}
end on

on w_multithread.destroy
destroy(this.cb_1)
destroy(this.st_1)
end on

event closequery;SharedObjectUnRegister('my_timer1') 
SharedObjectUnRegister('my_timer2') 


end event

type cb_1 from commandbutton within w_multithread
integer x = 457
integer y = 20
integer width = 402
integer height = 112
integer taborder = 20
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "Timer"
end type

event clicked;nvuo_timer lnvuo_timer1, lnvuo_timer2

gb_result = FALSE

SharedObjectRegister('nvuo_timer','my_timer1') 
SharedObjectGet('my_timer1',lnvuo_timer1) 
lnvuo_timer1.iw_window = Parent
lnvuo_timer1.is_command = 'START SELECT'
lnvuo_timer1.Post Start(0.5)

SharedObjectRegister('nvuo_timer','my_timer2') 
SharedObjectGet('my_timer2',lnvuo_timer2) 
lnvuo_timer2.iw_window = Parent
lnvuo_timer2.is_command = 'STOP SELECT'
lnvuo_timer2.Post Start(1)
end event

type st_1 from statictext within w_multithread
integer x = 18
integer y = 16
integer width = 384
integer height = 80
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 8388608
long backcolor = 67108864
boolean enabled = false
string text = "0"
alignment alignment = center!
boolean border = true
borderstyle borderstyle = stylelowered!
boolean focusrectangle = false
end type

gb_ok = FALSE
ls_return = vipolnenie_chego_to()
gb_ok = TRUE