bbSetBlitz3DDebugCallback

$include "blitz3dsdk.inc"
DECLARE CDECL mydebugfunction(string errormessage)

bbSetBlitz3DDebugCallback(&mydebugfunction)
bbBeginBlitz3D()

	bbGraphics( 640,480,16,2)
	bbSetBuffer( bbBackBuffer())

	' trying to load a non-existing image to kickoff bbSetBlitz3DDebugCallback 
	image=bbLoadImage( "b3dlogo3.jpg" )
	If image=0 then image=bbLoadImage( "../b3dlogo3.jpg" )

	bbMidHandle( image)

	def run:int
	run=1
	do
		bbCls()		
		bbDrawBlock(image,320,144,0)

		bbText( 320,280,"[Escape] to exit",True,0)

		If bbKeyHit( 1 ) then run=0

		bbFlip(1)

	until run=0

bbEndBlitz3D()
end

sub mydebugfunction(string errormessage)
	MESSAGEBOX(NULL,errormessage,"Blitz3D SDK Error",@MB_ICONEXCLAMATION | @MB_OK)
	end
endsub

' This demostrates bbSetBlitz3DEventCallback working, but it will
' make the application continue to run in the background even after
' the window closes. Thus, using taskmanager to end process it.
$include "blitz3dsdk.inc"

DECLARE CDECL BBEventHandler(int ehhwnd,int ehmsg,int ehwp,int ehlp),int

bbSetBlitz3DEventCallback(&BBEventHandler)
bbBeginBlitz3D()


bbGraphics3D( 800,600,0,2)

bbSetBuffer( bbBackBuffer())

def cube:BBEntity
def light:BBLight
def camera:BBCamera

cube=bbCreateCube()
light=bbCreateLight()
camera=bbCreateCamera()

bbPositionEntity( camera,0,0,-4)

def hwnd,msg,wp,lp:int
def run:int
run=1

do 
	bbCls()

	bbTurnEntity( cube,1,2,3)
	bbRenderWorld()
	bbText(20,20,"mouse:"+str$(MouseX())+","+str$(MouseY()))
	bbText(20,40,"hwnd"+str$(hwnd))
	bbText(20,60,"msg"+str$(msg))
	bbText(20,80,"wp"+str$(wp))
	bbText(20,100,"lp"+str$(lp))

	if bbkeydown(1)=true then run=0

	bbFlip(1)
until run=0

bbEndBlitz3D()
end

Sub BBEventHandler(int ehhwnd,int ehmsg,int ehwp,int ehlp),int
	hwnd=ehhwnd
	msg=ehmsg
	wp=ehwp
	lp=ehlp
	Return -1
End Sub