$PBExportHeader$w_test.srw
forward
global type w_test from window
end type
type dw_1 from datawindow within w_test
end type
type ds_1 from datastore within w_test
end type
end forward

global type w_test from window
integer width = 2825
integer height = 1560
boolean titlebar = true
string title = "Untitled"
boolean controlmenu = true
windowtype windowtype = response!
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
dw_1 dw_1
ds_1 ds_1
end type
global w_test w_test

on w_test.create
this.dw_1=create dw_1
this.ds_1=create ds_1
this.Control[]={this.dw_1}
end on

on w_test.destroy
destroy(this.dw_1)
destroy(this.ds_1)
end on

event timer;Timer(0)

This.dw_1.Retrieve()
//This.ds_1.Retrieve()

Timer(1)

end event

event open;Timer(1)

end event

event closequery;Timer(0)

end event

type dw_1 from datawindow within w_test
integer x = 626
integer y = 204
integer width = 1353
integer height = 816
integer taborder = 10
string title = "none"
string dataobject = "dw_gd_flag"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

event constructor;This.SetTransObject(SQLCA)

end event

type ds_1 from datastore within w_test descriptor "pb_nvo" = "true" 
string dataobject = "dw_gd_flag"
end type

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

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

event constructor;This.SetTransObject(SQLCA)

end event