#Include Once "windows.bi"
#Define nl Chr(13)&Chr(10)

'some stupid shortcuts
#Define asbyt Dim As Byte
#Define assht Dim As Short
#Define asint Dim As Integer
#Define aslng Dim As Long
#Define assng Dim As Single
#Define asdbl Dim As Double 
#Define asstr Dim As String
#Define aszstr(num) Dim As ZString * (num)

'Assign a windows message to a user proc
Declare Sub Assign(mess As Long,proc As Any Ptr )

'Events
Declare Sub OnClick(id As Integer,proc As Any Ptr)
Declare Sub OnChange(id As Integer,proc As Any Ptr)
Declare Sub OnActivate(ID As Integer,proc As Any Ptr)
Declare Sub OnInit(ID As Integer,proc As Any Ptr)

'GUI section
Declare Function CreateForm(ByVal menuID As Integer,ClassName As String,iconID As Integer,DlgID As Integer) As HANDLE
Declare Sub RunForm(accel As Integer)
Declare Sub ChildForm(ChildID As Integer)
Declare Function GetMainHandle () As HANDLE
Declare Function GetDlgHandle () As HANDLE

#Inclib "wndproc"