forward
global type w_test from window
end type
type ole_1 from olecontrol within w_test
end type
type cb_1 from commandbutton within w_test
end type
end forward

global type w_test from window
integer width = 4754
integer height = 1980
boolean titlebar = true
string title = "Untitled"
boolean controlmenu = true
boolean minbox = true
boolean maxbox = true
boolean resizable = true
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
ole_1 ole_1
cb_1 cb_1
end type
global w_test w_test

on w_test.create
this.ole_1=create ole_1
this.cb_1=create cb_1
this.Control[]={this.ole_1,&
this.cb_1}
end on

on w_test.destroy
destroy(this.ole_1)
destroy(this.cb_1)
end on

type ole_1 from olecontrol within w_test
event endofstream ( long result )
event gomxerror ( long errorcode )
event gomxstate ( long state )
integer y = 168
integer width = 4699
integer height = 1440
integer taborder = 20
borderstyle borderstyle = stylelowered!
string binarykey = "w_test.win"
omactivation activation = activateondoubleclick!
omdisplaytype displaytype = displayascontent!
omcontentsallowed contentsallowed = containsany!
end type

type cb_1 from commandbutton within w_test
integer x = 133
integer y = 332
integer width = 517
integer height = 104
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "none"
boolean cancel = true
end type

event clicked;close(parent)
end event