Can't update WB3D tabber?

Blitz3D Forums/Blitz3D Programming/Can't update WB3D tabber?

Guy Fawkes (Posted 2014) [#1]

Hi all. I have run into a SERIOUS problem that is putting my program in jeopardy... For some reason, I can't get each tab page to update its' own data.. In other words... If I'm on tab page 1 then ONLY tab page 1's values should update. However, if I switch to tab page 2 then tab page 1's page should NOT update, but tab page 2's data SHOULD update. What am I doing wrong? WB3DStyles.bb: ; WB3D styles Include "WB3DStyles.bb" Graphics3D 800, 600, 0, 2 SetBuffer BackBuffer() ;Constants Const SC_MOVE = $F010 Const SC_MAXIMIZE = $F030 Const SC_MINIMIZE = $F020 Const SC_SIZE = $F000 ; Set Window Long Const GWL_WNDPROC = ( -4 ) Const GWL_HINSTANCE = ( -6 ) Const GWL_HWNDPARENT = ( -8 ) Const GWL_STYLE = ( -16 ) Const GWL_EXSTYLE = ( -20 ) Const GWL_USERDATA = ( -21 ) Const GWL_ID = ( -12 ) ;Set Window Pos Const SWP_ASYNCWINDOWPOS = $4000 Const SWP_DEFERERASE = $2000 Const SWP_DRAWFRAME = $0020 Const SWP_FRAMECHANGED = $0020 Const SWP_HIDEWINDOW = $0080 Const SWP_NOACTIVATE = $0010 Const SWP_NOCOPYBITS = $0100 Const SWP_NOMOVE = $0002 Const SWP_NOOWNERZORDER = $0200 Const SWP_NOREDRAW = $0008 Const SWP_NOREPOSITION = $0200 Const SWP_NOSENDCHANGING = $0400 Const SWP_NOSIZE = $0001 Const SWP_NOZORDER = $0004 Const SWP_SHOWWINDOW = $0040 ;Globals Global max_tabs = 5 Global QUIT = 0 Global cam_pos_title Global cam_xpos_label Global cam_ypos_label Global cam_zpos_label Global cam_xpos_val Global cam_ypos_val Global cam_zpos_val Global cam_rot_title Global cam_xrot_label Global cam_yrot_label Global cam_zrot_label Global cam_xrot_val Global cam_yrot_val Global cam_zrot_val Global cam_misc_title ;Dims Dim tab_panels(max_tabs) ;Special Globals Global RuntimeWindow_hWnd = WB3D_InitializeGUI(SystemProperty("AppHwnd"), 0, 0, GraphicsWidth(), GraphicsHeight()) Global camera = CreateCamera() PositionEntity camera, 0, 1, 0 CameraRange camera, 0.01, 10000 AmbientLight 255, 255, 255 Global sky = CreateCube() ScaleEntity sky, 4000, 4000, 4000 EntityColor sky, 102, 102, 255 FlipMesh sky Global land = CreatePlane() EntityColor land, 0, 64, 0 Create_Menu() api_SetFocus(RuntimeWindow_hWnd) cube = CreateCube() PositionEntity cube, 0, 1, 15 api_ShowWindow(SystemProperty$("AppHWND"), 1) While Not QUIT Or KeyHit(1) Cls MoveEntity camera, 0, 0, 0.1 TurnEntity camera, 0, -1.0, 0 ;THESE SHOULD ONLY UPDATE WHEN THE 1ST TAB IS ALREADY SELECTED ;Position WB3D_SetGadgetText(cam_xpos_val, EntityX#(camera)) WB3D_SetGadgetText(cam_ypos_val, EntityY#(camera)) WB3D_SetGadgetText(cam_zpos_val, EntityZ#(camera)) ;Rotation WB3D_SetGadgetText(cam_xrot_val, EntityPitch#(camera)) WB3D_SetGadgetText(cam_yrot_val, EntityYaw#(camera)) WB3D_SetGadgetText(cam_zrot_val, EntityRoll#(camera)) ;TABS 2, 3, 4, ETC... GO BELOW ONLY IF THAT PARTICULAR TAB WAS SELECTED event = WB3D_WaitEvent() Select event Case WB3D_EVENT_GADGET Select WB3D_EventSource() Case button_1 WB3D_Notify "Hello","Button 1 event",0 Case button_2 WB3D_Notify "Hello","Button 2 event",0 Case button_3 WB3D_Notify "Hello","Button 3 event",0 Case button_4 WB3D_Notify "Hello","Button 4 event",0 Case tabber For loop = 1 To max_tabs If loop = WB3D_EventData() WB3D_ShowGadget tab_panels(loop) WB3D_ShowGadget button_1 Else WB3D_HideGadget tab_panels(loop) WB3D_HideGadget button_1 EndIf Next End Select Case WB3D_EVENT_WINDOW_CLOSE Select WB3D_EventSource() Case RuntimeWindow_hWnd QUIT = 1 End Select End Select UpdateWorld RenderWorld Flip Wend WB3D_EndGUI() End Function Create_Menu() ; windows mainwindow = WB3D_CreateWindow("", 0, 10, GraphicsWidth()/4+5, GraphicsHeight(), SystemProperty$("AppHWND"), WS_TOPMOST) api_SetWindowLong(mainwindow, GWL_STYLE, WS_VISIBLE Or WS_BORDER) api_MoveWindow(mainwindow, 0, 0, GraphicsWidth()/4+5, GraphicsHeight(), WM_PAINT) api_SetWindowPos(mainwindow, 0, 0, 0, GraphicsWidth()/4+5, GraphicsHeight(), SWP_FRAMECHANGED) ; main title maintitle = WB3D_CreateLabel("Control Panel", 0, 0, 175, 15, mainwindow, WS_CHILD Or WS_VISIBLE Or SS_LEFT) tabber = WB3D_CreateTabber(1, 25, GraphicsWidth()/4+5, GraphicsHeight()-75, mainwindow, 0) For loop = 1 To max_tabs If loop = 1 Then WB3D_AddGadgetItem tabber, "Tab 1", 0, 0 If loop = 2 Then WB3D_AddGadgetItem tabber, "Tab 2", 0, 0 If loop = 3 Then WB3D_AddGadgetItem tabber, "Tab 3", 0, 0 If loop = 4 Then WB3D_AddGadgetItem tabber, "Tab 4", 0, 0 If loop = 5 Then WB3D_AddGadgetItem tabber, "Tab 5", 0, 0 tab_panels(loop) = WB3D_CreateTabberPanel(0, 30, WB3D_GadgetWidth(tabber)-25, WB3D_GadgetHeight(tabber)-75, tabber) WB3D_HideGadget tab_panels(loop) Next ;Tab Titles cam_pos_title = WB3D_CreateLabel("Position", 10, 0, 125, 20, tab_panels(1), WS_CHILD Or WS_VISIBLE Or SS_LEFT) ;Position cam_xpos_label = WB3D_CreateLabel("X: ", 10, 30, 75, 20, tab_panels(1), WS_CHILD Or WS_VISIBLE Or SS_LEFT) cam_ypos_label = WB3D_CreateLabel("Y: ", 10, 70, 75, 20, tab_panels(1), WS_CHILD Or WS_VISIBLE Or SS_LEFT) cam_zpos_label = WB3D_CreateLabel("Z: ", 10, 110, 75, 20, tab_panels(1), WS_CHILD Or WS_VISIBLE Or SS_LEFT) cam_rot_title = WB3D_CreateLabel("Rotation", 10, 145, 125, 20, tab_panels(1), WS_CHILD Or WS_VISIBLE Or SS_LEFT) ;Rotation cam_xrot_label = WB3D_CreateLabel("X: ", 10, 175, 75, 20, tab_panels(1), WS_CHILD Or WS_VISIBLE Or SS_LEFT) cam_yrot_label = WB3D_CreateLabel("Y: ", 10, 215, 75, 20, tab_panels(1), WS_CHILD Or WS_VISIBLE Or SS_LEFT) cam_zrot_label = WB3D_CreateLabel("Z: ", 10, 255, 75, 20, tab_panels(1), WS_CHILD Or WS_VISIBLE Or SS_LEFT) cam_misc_title = WB3D_CreateLabel("Miscellaneous", 10, 295, 125, 20, tab_panels(1), WS_CHILD Or WS_VISIBLE Or SS_LEFT) ;Controls for Tabs ;Position cam_xpos_val = WB3D_CreateEditField(Float(0), 28, 28, 100, 20, tab_panels(1), WS_CHILD Or WS_VISIBLE Or SS_LEFT Or ES_READONLY, 0) cam_ypos_val = WB3D_CreateEditField(Float(0), 28, 68, 100, 20, tab_panels(1), WS_CHILD Or WS_VISIBLE Or SS_LEFT Or ES_READONLY, 0) cam_zpos_val = WB3D_CreateEditField(Float(0), 28, 108, 100, 20, tab_panels(1), WS_CHILD Or WS_VISIBLE Or SS_LEFT Or ES_READONLY, 0) ;Rotation cam_xrot_val = WB3D_CreateEditField(Float(0), 28, 173, 100, 20, tab_panels(1), WS_CHILD Or WS_VISIBLE Or SS_LEFT Or ES_READONLY, 0) cam_yrot_val = WB3D_CreateEditField(Float(0), 28, 213, 100, 20, tab_panels(1), WS_CHILD Or WS_VISIBLE Or SS_LEFT Or ES_READONLY, 0) cam_zrot_val = WB3D_CreateEditField(Float(0), 28, 253, 100, 20, tab_panels(1), WS_CHILD Or WS_VISIBLE Or SS_LEFT Or ES_READONLY, 0) WB3D_ShowGadget tab_panels(1) WB3D_HideGadget tab_panels(2) WB3D_FlushEvents End Function Thank You, and have a wonderful afternoon!

Guy Fawkes (Posted 2014) [#2]

... I still don't know why these tabs won't update...

Guy Fawkes (Posted 2014) [#3]

Anyone?... :(

Guy Fawkes (Posted 2014) [#4]

Hello.......

John Blackledge (Posted 2014) [#5]

I know that you will have to make your main 'tabber' a global if you want to reference it outside of the creating function.