File: w_netapi.srw
Size: 1242
Date: Mon, 31 Dec 2018 21:14:38 +0100
$PBExportHeader$w_netapi.srw
forward
global type w_netapi from Window
end type
type tab_1 from u_tab_main within w_netapi
end type
type cb_close from commandbutton within w_netapi
end type
type tab_1 from u_tab_main within w_netapi
end type
end forward

global type w_netapi from Window
int X=1189
int Y=556
int Width=2898
int Height=1584
boolean TitleBar=true
string Title="NetAPI Example App"
long BackColor=79416533
boolean ControlMenu=true
tab_1 tab_1
cb_close cb_close
end type
global w_netapi w_netapi

type variables
n_netapi in_netapi
end variables

on w_netapi.create
this.tab_1=create tab_1
this.cb_close=create cb_close
this.Control[]={this.tab_1,&
this.cb_close}
end on

on w_netapi.destroy
destroy(this.tab_1)
destroy(this.cb_close)
end on

type tab_1 from u_tab_main within w_netapi
int X=37
int Y=32
end type

type cb_close from commandbutton within w_netapi
int X=2523
int Y=1344
int Width=297
int Height=100
int TabOrder=20
string Text="Close"
boolean Cancel=true
int TextSize=-8
int Weight=400
string FaceName="Arial"
FontCharSet FontCharSet=Ansi!
FontFamily FontFamily=Swiss!
FontPitch FontPitch=Variable!
end type

event clicked;Close(Parent)

end event