simple example:
'new skeleton - awinh2.inc
$ filename "Bone.exe"
include "RTL32.inc"
include "awinh2.inc"
'#lookahead
INT win ' window handler
INT x=100,y=100,w=640,h=480 ' window sizes
INT winStyle = WS_OVERLAPPEDWINDOW ' window style
INT b1ID = 100 ' button 1 ID
INT hButton1 ' button handler
INT edit1,ed1ID=200
$ CRLF = chr(13)+chr(10) ' carriage ret/line feed
'create window
win = SetWindow("New Window",x,y,w,h,0,winStyle)
'create button
hButton1 = SetButton (win,4,4,80,24,"OPEN",0,0x200,b1ID)
'create editbox - singleLine
edit1 = SetEditBox (win,100,4,100,24,"Edit 1",0x50004000,0x200,ed1ID)
'message loop
WHILE GetMessage(wm,0,0,0)>0
TranslateMessage wm
DispatchMessage wm
WEND
'main callback function
Function WndProc(sys hwnd,wmsg,wparam,lparam) as sys callback
Select wmsg
case WM_DESTROY
PostQuitMessage 0
End select
'ret default
Return DefWindowProc(hwnd,wmsg,wparam,lparam)
End Function
' [[[[[[[[[ PROGRAM FUNCTIONS / SUBS ]]]]]]]]]]]]]]]]]]]]]]]]]