WinBlitz 3d

; loop until user close's window.
While events <> $803

	events = WaitEvent()

	Select events									
		Case $401
			GadgetSelected = EventSource()		
			Select GadgetSelected			
				Case RADIObutton_1
					screenWidth=640					
					screenHeight=480					
				Case RADIObutton_2					
					screenWidth=800					
					screenHeight=600					
				Case RADIObutton_3
					screenWidth=1024					
					screenHeight=768					
				Case RADIObutton_4
					windowed=1					
				Case RADIObutton_5
					windowed=2					
			End Select	
	End Select		
Wend

; 
Include "../WinBlitz3D_Include.bb"

; create gui window.
Global GUIwindow = CreateWindow("WinBlitz3D Buttons Example",10,15,300,200,0,2)

Global RADIObutton_1 = CreateButton("Click Me 1",10,10,100,20,GUIwindow,3)
Global RADIObutton_2 = CreateButton("Click Me 2",10,30,100,20,GUIwindow,3)
Global RADIObutton_3 = CreateButton("Click Me 3",10,50,100,20,GUIwindow,3)
Global RADIObutton_4 = CreateButton("Click Me 4",10,70,100,20,GUIwindow,3)
Global RADIObutton_5 = CreateButton("Click Me 5",10,90,100,20,GUIwindow,3)

; loop until user close's window.
While events <> $803

	events = WaitEvent()

	Select events									
		Case $401
			GadgetSelected = EventSource()		
			Select GadgetSelected			
				Case RADIObutton_1
					Notify "RADIObutton_1"
					
				Case RADIObutton_2					
					Notify "RADIObutton_2"

				Case RADIObutton_3
					Notify "RADIObutton_3"

				Case RADIObutton_4
					Notify "RADIObutton_4"

				Case RADIObutton_5
					Notify "RADIObutton_5"

			End Select	
	End Select		
Wend
End

Function CreateWindow(title$,x,y,width,height,group=0,style=0)

	Local CLASSbank
	Local WINBLITZ3D_CLASS_NAME$ = "WinBlitz3D_CLASS"
	Local statusCLASS$ = ""
	Local hwnd
	Local statusbar

	; create class and winproc function.
	If FIRST_CREATE_CLASS = 0 Then

		; hide the blitz runtime window.
		RUNTIME_Window$ = "Initializing GUI"
		AppTitle RUNTIME_Window
		runtimewindow = apiFindWindow("",RUNTIME_Window$)
		;apiShowWindow runtimewindow,SW_HIDE

		; INITCOMMONCONTROLSEX struct
		CommonControls = CreateBank(8)
		PokeInt CommonControls,0,BankSize(CommonControls)
		PokeInt CommonControls,4,ICC_WIN95_CLASSES

		; Registers and initializes the common controls.
		bm = apiInitCommonControls(GRAB_BankAddr(CommonControls))

		; create the winproc function.
		WinProcBank = CreateBank(1256)
		Restore CREATE_WINPROC_FUNCTION
		Repeat
			Read e_data
			If e_data = 999 Then Exit
			PokeByte WinProcBank,next_entry_data,e_data
			next_entry_data = next_entry_data + 1
		Forever

		; location offset where to copy defwindowproc data.
		winproc_poke_offset = next_entry_data

		; store address of bank to hold winproc return values.
		WinProcReturn = CreateBank(124)
		WinProcReturnAddr = GRAB_BankAddr(WinProcReturn)

		; poke the address of the bank to store winproc return values.
		PokeByte WinProcBank,03,WinProcReturnAddr And 255
		PokeByte WinProcBank,04,WinProcReturnAddr Shr 8 And 255
		PokeByte WinProcBank,05,WinProcReturnAddr Shr 16 And 255
		PokeByte WinProcBank,06,WinProcReturnAddr Shr 24

		;
		defwinbank = CreateBank(256)
		Restore DEF_WINDOW_PROC
		next_entry_data = 0
		Repeat
			Read e_data
			If e_data = 999 Then Exit
			PokeByte defwinbank,next_entry_data,e_data
			next_entry_data = next_entry_data + 1
		Forever

		; get thunk to defwindowproc
		USER32 = apiGetModuleHandle(GRAB_StringAddr("user32.dll"))
		DefProcA = apiGetProcAddress(USER32,"DefWindowProcA")

		; poke defwindowproc thunk memory pointer.
		PokeByte defwinbank,18,DefProcA And 255
		PokeByte defwinbank,19,DefProcA Shr 8 And 255
		PokeByte defwinbank,20,DefProcA Shr 16 And 255
		PokeByte defwinbank,21,DefProcA Shr 24

		; copy defwindowproc bank to winproc bank.
		CopyBank defwinbank,0,WinProcBank,winproc_poke_offset,26

		FreeBank defwinbank

		; create winblitz3d's class.
		;WINBLITZ3D_CLASS_NAME$ = "WinBlitz3D_CLASS"
		CLASSbank = CreateBank($30)
		PokeInt CLASSbank,$00,BankSize(CLASSbank)
		PokeInt CLASSbank,$04,CS_HREDRAW Or CS_VREDRAW Or CS_GLOBALCLASS
		PokeInt CLASSbank,$08,GRAB_BankAddr(WinProcBank)
		PokeInt CLASSbank,$14,apiGetModuleHandle(0)
		PokeInt CLASSbank,$18,apiLoadIcon(hModule,32512)
		PokeInt CLASSbank,$20,apiGetSysColorBrush(COLOR_BTNFACE)
		PokeInt CLASSbank,$28,GRAB_StringAddr(WINBLITZ3D_CLASS_NAME$)

		; attempt to register the class.
		WinBlitzClass = apiRegisterClass(GRAB_BankAddr(CLASSbank))

		If WinBlitzClass = 0 Then
			DebugLog "Error Creating WinBlitz3D Class!"
			Stop
		EndIf

		;WinProcBlitz3D = apiGetWindowLong(runtimewindow,GWL_WNDPROC)
		;apiSetWindowLong runtimewindow,GWL_WNDPROC,GRAB_BankAddr(WinProcBank)

		FIRST_CREATE_CLASS = 1

	EndIf

	If group = 0 Then
		group = apiGetDesktopWindow()
	EndIf

	Select style

		Case 0 ; borderless popup window
			style = WS_POPUP

		Case 1 ; no resize with close button
			style = WS_CAPTION 	Or WS_SYSMENU Or  WS_POPUP

		Case 2 ; resize and statusbar
			statusCLASS$ = "msctls_statusbar32"
			style = WS_MINIMIZEBOX Or WS_SYSMENU Or WS_TABSTOP Or WS_THICKFRAME Or WS_VISIBLE

	Default
		; passed own style
		style = style				
	End Select

	;hwnd = apiCreateWindow(0,WINBLITZ3D_CLASS_NAME$,title$,style,x,y,width,height,group,0,apiGetModuleHandle(0),0)
	;apiShowWindow hwnd,$5
	;apiUpdateWindow(hwnd)

	hwnd=runtimewindow

	; attach window status bar
	If statusCLASS$ = "msctls_statusbar32" Then 		
		statusbar = apiCreateWindow(0,statusCLASS$,"",WS_CHILD Or WS_VISIBLE,0,0,100,100,hwnd,0,apiGetModuleHandle(0),0)	
		statuspartsbank = CreateBank(255)
		apiSetWindowLong statusbar,GWL_USERDATA,statuspartsbank
	EndIf
	
	;
	bank = CreateBank(256)
	PokeByte bank,0,BB_ID_WINDOW
	PokeInt bank,4,statusbar
		
	apiSetWindowLong hwnd,GWL_USERDATA,bank
		
	Return hwnd
	
End Function

BB_3D_View = Create3DScene(VisWin,0,0,width-255,height-75,0)
    style = apiGetWindowLong(BB_3D_View,GWL_STYLE)
    style = style Or WS_CLIPSIBLINGS ;Why this makes it work, I will never know.
    apiSetWindowLong(BB_3D_View,GWL_STYLE,style)