Devil gui isnt working right..

Blitz3D Forums/Blitz3D Programming/Devil gui isnt working right..
Guy Fawkes
(Posted 2009) [#1]
What's up w/ this code?

It says 'object does not exist' when i compile.
Global checked

Global test

Include "DevilGUI.bb"

Include "particle candy.bb"

Include "WB3DStyles.bb"

Include "mcimp3.bb"

Include "mcimidi.bb"

Include "mciwav.bb"

const wm_paint = $000f

Graphics3D 1024, 768, 32, 2
SetBuffer BackBuffer()
SeedRnd MilliSecs()
ClsColor 255, 205, 105
HidePointer

;Globs
Global fnt = LoadFont("Courier New", 20, True, False, False)
Global cmbSkin, OldSkin$ = "WinXP"
Global sld1, sld2, lblSld1, lblSld2
Global prg1, prg2, lblPrg1, lblPrg2
Global scr1, lblScr1
Global btnLst1, lst1
Global chk1, chk2, chk3, chk4

Global image

Global EM0
Global EM1
Global EM2
Global EM3
Global EM4
Global EM5
Global EM6
Global EM7
Global EM8
Global EM9
Global EM10
Global EM11
Global EM12

; setup gfx mode.
Graphics3D 1024,768,32,2

load_banner()

Global WindCenter = CreatePivot() ; MOVE WHIRLWIND AROUND THIS CENTER

Global soundpath$ = "Media/"

Global mp3length

Global midilength

Global mwavlength

Global copyright$ = "Copyright (c) 2008 - 2009 Photo-Xtreme"+Chr$(13)+"          Created by: ~ZeldaX~"

Global Player = CreatePivot()

Global CameraXRotate = CreatePivot(Player)

Global Cam   = CreateCamera(CameraXRotate)

Light  = CreateLight()

PositionEntity cam, -4, 1, -18

Listener = CreateListener(Cam, .005, 1, 1)

; quick playlist contains the filename of files To be played
Dim playlist$(200)

Dim emitter_slot(33)

; the playing loaded_song, and its play status  
Global loaded_song,loaded_song_playing

Dim play_time(33)

; the index of the loaded_song playing
Global current_loaded_song_index = 0

;Checkbox/Radiobutton
grp2 = GUI_CreateGroupBox(mainmenu, 105, 10, 193, 80, "Checkbox/Radiobutton")
chk1 = GUI_CreateCheckBox(grp2, 10, 13, "Checkbox 1", True, checked)
chk2 = GUI_CreateCheckBox(grp2, 10, 28, "Checkbox 2", True)
chk3 = GUI_CreateCheckBox(grp2, 10, 43, "Checkbox 3", False)
chk4 = GUI_CreateCheckBox(grp2, 10, 58, "Checkbox 4", False, True)
rad1 = GUI_CreateRadio(grp2, 100, 13, "Radiobutton 1", 0)
rad2 = GUI_CreateRadio(grp2, 100, 28, "Radiobutton 2", 0, True, True)
rad3 = GUI_CreateRadio(grp2, 100, 43, "Radiobutton 3", 1, False)
rad4 = GUI_CreateRadio(grp2, 100, 58, "Radiobutton 4", 1, False, True)

;GUI
GUI_InitGUI("Skins\WinXP.skin")
;GUI_CreateWindow(150, 150, 400, 300, "Dummy window")
CreateSampleWindow(-1, -1)

While Not KeyHit(1)

If GUI_CheckedCheckBox(chk1) = 1 Or GUI_CheckedCheckBox(chk2) = 1
checked = True
EndIf
If GUI_CheckedCheckBox(chk1) = 0 And GUI_CheckedCheckBox(chk2) = 0 Then checked = 0
If GUI_CheckedCheckBox(chk1) = 1 And GUI_CheckedCheckBox(chk2) = 1 Or GUI_CheckedCheckBox(chk2) = 1 And GUI_CheckedCheckBox(chk1) = 1

checked = 0

GUI_UncheckCheckBox(chk1)

GUI_UncheckCheckBox(chk2)

EndIf

;If checked(chk1) Then check()

;If checked(chk1) = 1 And checked(chk2) = 1 Then WB3D_Notify "","",0

;If is_checked(chk1) = 1 Then 				WB3D_Notify "","",0

	Cls
	GUI_UpdateGUI()
	UpdateDebugBar("FPS: " + FPS(), "Event: " + GUI_AppEvent())
	UpdateSampleWindow()
	
	Text 110, 110, "checked 1:"+checked
	Text 110, 130, "gui_checkedcheckbox:"+Gui_CheckedCheckBox(chk1)
	Text 110, 150, "gui_checkedcheckboxii:"+Gui_CheckedCheckBox(chk2)
	
	Flip
Wend
GUI_FreeGUI()
End
~DarkShadowWing~
Guy Fawkes
(Posted 2009) [#2]
Nvm. figured it out.