64-bit Windows MaxGUI

Building untitled1
[ 97%] Processing:untitled1.bmx
[ 98%] Compiling:untitled1.bmx.gui.release.win32.x86.c
[100%] Linking:untitled1.exe
C:/Users/James/Desktop/BlitzMax/mod/pub.mod/win32.mod/win32.release.win32.x86.a(com.bmx.release.win32.x86.o):com.bmx.release.win32.x86.c:(.text+0x6b3): undefined reference to `_imp__IIDFromString@8'
C:/Users/James/Desktop/BlitzMax/mod/pub.mod/win32.mod/win32.release.win32.x86.a(com.bmx.release.win32.x86.o):com.bmx.release.win32.x86.c:(.text+0x6f0): undefined reference to `_imp__StringFromIID@8'
Build Error: Failed to link C:/Users/James/Desktop/BlitzMax/tmp/untitled1.exe
Process complete

Print "Hello world"

Framework BRL.Retro
Print "Hello"

maxgui_driver = New TWindowsGUIDriver

...
OnDebugLog(message$)&=mem:p("bbOnDebugLog")
AppDir$&=mem:p("bbAppDir")
AppFile$&=mem:p("bbAppFile")
AppTitle$&=mem:p("bbAppTitle")
AppArgs$&[]&=mem:p("bbAppArgs")
LaunchDir$&=mem:p("bbLaunchDir") '<<<<<<<<< this line is highlighted

Function Create:TActionHandler( pLayer:Int, pSource:Object, pEventIDs:Int[], pDatas:Int[], pReturnEventId:Int=0, pCallbackTests:Byte(o:TActionHandler)[], pCallBack(o:TActionHandler), pMode:Byte=ONACTION_QUIT, pName:String="" )

Function Create:TActionHandler( pLayer:Int, pSource:Object, pEventIDs:Int[], pDatas:Int[], pReturnEventId:Int=0, pCallbackTests:Byte Ptr, pCallBack:Byte Ptr, pMode:Byte=ONACTION_QUIT, pName:String="" )

Import maxgui.drivers

	Method QueueResize( hwnd:Byte Ptr, xpos, ypos, width, height )
-->>>		If parent And GetParent_(hwnd) = parent.Query(QUERY_HWND_CLIENT) And TWindowsGadget(parent).hdwpStruct Then	

If parent
	If GetParent_(hwnd) = parent.Query(QUERY_HWND_CLIENT) And TWindowsGadget(parent).hdwpStruct Then

SetGadgetPixmap(Self.view, ConvertPixmap ( l_renderedTex.getPixmap(0, True), PF_RGB888 ) )

Global intButtonStates%[3]

If intButtonStates[MOUSE_MIDDLE] Then wp:|MK_MBUTTON

Const MOUSE_LEFT=1
Const MOUSE_RIGHT=2
Const MOUSE_MIDDLE=3

$ time ./bmk makemods -a

real	1m18.416s
user	2m44.762s
sys	0m18.352s

SuperStrict

Extern "win32"
  Function MessageBoxW(hwnd%, lpText$w, lpCaption$w, uType%) 'UNICODE ...
EndExtern

'main
Const ICON_INFO% = $00000040 'Icon Info ...
MessageBoxW(0, "This is my Test", "Bmx-ng App", ICON_INFO)
End

Extern "C"
  Function puts:Int( s$z)
EndExtern

extern inline int bb_puts( const char* s) { return puts(s); }

static inline int bb_puts( const char* s) { return puts(s); }

int MessageBoxW(HWND, LPCWSTR, LPCWSTR, UINT)!

SuperStrict

Extern "win32"
  Function MessageBoxW%(hwnd%, lpText$w, lpCaption$w, uType%) 'UNICODE ...
EndExtern

'main
Const ICON_INFO% = $00000040 'Info ...
MessageBoxW(0, "This is my Test", "Bmx-ng App", ICON_INFO)
End

Function MessageBoxW%(hwnd%, lpText$w, lpCaption$w, uType%)

Function MessageBoxW%(hwnd:Byte Ptr, lpText$w, lpCaption$w, uType%)

Const title$   = "My App"
Const version$ = "Version XYZ"
Const author$  = "~nWritten by Me" 'carriage return added -> ~n
Const ICON_INFO% = $00000040 'Info ...

int MessageBoxW(HWND, LPCWSTR, LPCWSTR, UINT)!

SuperStrict

Import "myvars.bmx"

Extern "win32"
  Function MessageBoxW%(hwnd:Byte Ptr, lpText$w, lpCaption$w, uType%) 'UNICODE ...
EndExtern

'main
MessageBoxW(0, title + " " + version + author, title, ICON_INFO)
End

static BBString _s6={
	&bbStringClass,
	33,
	{77,121,32,65,112,112,32,86,101,114,115,105,111,110,32,88,89
	,90,92,-> 110 <-,87,114,105,116,116,101,110,32,98,121,32,77,101
}

SuperStrict

Function Add%(a%, b%)
  Return a + b
End Function

DebugStop

Const _TEST% = 1
Global a% = 1
Global b% = 2
Local txt$ ="test"

Print "Add = " + Add(a, b)

End

Local Rect[] = [_item,0,0,0] -> Local Rect[] = [Int Byte Ptr _item,0,0,0]