win32 module

[Simon ArmstrongParticipant]

My first attempts at a native win32 environment for monkey2.

Interesting times ahead, wetwear due for refresh.

First comment is todo not a feature list.

[Simon ArmstrongParticipant]

Monkey

' native win32 window, menu and request #import "<libc>" #Import "<windows.h>" #Import "<libgdi32.a>" #Import "<libuser32.a>" #Import "<libkernel32.a>" #Import "<libversion.a>" Extern Struct HINSTANCE End Struct HWND End 'Alias HANDLE:Void Ptr 'Alias HWND:Int Alias DWORD:Int Alias HMENU:Int 'Alias HINSTANCE:HANDLE Alias LPCTSTR:CString Alias LPVOID:Void Ptr Function CreateWindowEx:HWND( dwExStyle:DWORD, lpClassName:CString, lpWindowName:CString, dwStyle:DWORD, x:Int, y:Int, nWidth:Int, nHeight:Int, hWndParent:HWND, hMenu:HMENU, hInstance:HINSTANCE, lpParam:LPVOID) Public Function Main() Local winClass:=New Byte[32] Local winTitle:=New Byte[32] Local lparam:LPVOID Local parent:HWND Local instance:HINSTANCE'=Cast<HINSTANCE>(0) Local hwnd:=CreateWindowEx(0,"Class","Title",0, 0,0,320,240, parent,0, instance, lparam) ' Print "hellohellohello" End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59

' native win32 window, menu and request   #import "<libc>"   #Import "<windows.h>"   #Import "<libgdi32.a>" #Import "<libuser32.a>" #Import "<libkernel32.a>" #Import "<libversion.a>"   Extern   Struct HINSTANCE End   Struct HWND End   'Alias HANDLE:Void Ptr 'Alias HWND:Int Alias DWORD:Int Alias HMENU:Int 'Alias HINSTANCE:HANDLE Alias LPCTSTR:CString Alias LPVOID:Void Ptr     Function CreateWindowEx:HWND( dwExStyle:DWORD, lpClassName:CString, lpWindowName:CString, dwStyle:DWORD, x:Int, y:Int, nWidth:Int, nHeight:Int, hWndParent:HWND, hMenu:HMENU, hInstance:HINSTANCE, lpParam:LPVOID) Public   Function Main()   Local winClass:=New Byte[32] Local winTitle:=New Byte[32] Local lparam:LPVOID Local parent:HWND Local instance:HINSTANCE'=Cast<HINSTANCE>(0)   Local hwnd:=CreateWindowEx(0,"Class","Title",0, 0,0,320,240, parent,0, instance, lparam) ' Print "hellohellohello"   End

[Author]

Posts