FLTK MaxGUI: Listboxslider not hidden properly

Archives Forums/MaxGUI Bug Reports/FLTK MaxGUI: Listboxslider not hidden properly

Grisu (Posted 2010) [#1]

Hi, for some strange reason the horizontal slider of the listbox in the example given below isn't hidden when the window is resized to its minimal state. Therefore it is overlapping with other gadgets such as the volume slider. Screenshots: 1. default window state: 2. minimzed / shrinked window: Code: SuperStrict Framework Brl.EventQueue Import maxgui.Drivers AppTitle = "SETGADGETLAYOUT BUG? V2.0" Const MAINWINDOW_W:Int = 275 Const MAINWINDOW_H:Int = 154 Const BUTTONSIZE:Byte = 30 Const LABEL_STARTY:Byte = 3 ?win32 Const BUTTON_ACTION:Int = EVENT_GADGETACTION ?Not win32 Const BUTTON_ACTION:Int = EVENT_MOUSEDOWN ? ?win32 Const PNL_HEIGHT:Int = 22 Const SLIDER_WIDTH:Int = 40 Const WIN_MENU_FLAG:Int = 0 ?macos Const PNL_HEIGHT:Int = 22 Const SLIDER_WIDTH:Int = 22 Const WIN_MENU_FLAG:Int = WINDOW_MENU ?linux Const PNL_HEIGHT:Int = 22 Const SLIDER_WIDTH:Int = 22 Const WIN_MENU_FLAG:Int = 0 ? Global FLAGS:Int FLAGS:| WINDOW_TITLEBAR | WINDOW_CLIENTCOORDS | WINDOW_HIDDEN | WIN_MENU_FLAG | WINDOW_ACCEPTFILES | WINDOW_RESIZABLE | WINDOW_CENTER Global MainWindow:TGadget = CreateWindow( AppTitle, 0, 0, MAINWINDOW_W, MAINWINDOW_H, Null, FLAGS ) SetMinWindowSize(MainWindow,MAINWINDOW_W,MAINWINDOW_H) SetMaxWindowSize(MainWindow,MAINWINDOW_W,MAINWINDOW_H*3) Global MainPanel:TGadget = CreatePanel(0, 0, MAINWINDOW_W, MAINWINDOW_H, MainWindow, PANEL_ACTIVE) SetGadgetLayout MainPanel, EDGE_ALIGNED, EDGE_ALIGNED, EDGE_ALIGNED, EDGE_ALIGNED Global label_station_name:TGadget=CreateLabel:TGadget("",2,LABEL_STARTY,MAINWINDOW_W-6,16,MainPanel,LABEL_CENTER) Global label_station_name2:TGadget=CreateLabel:TGadget("",2,LABEL_STARTY+16,MAINWINDOW_W-6,16,MainPanel,LABEL_CENTER) SetGadgetLayout label_station_name, Null, Null, EDGE_ALIGNED, Null SetGadgetLayout label_station_name2, Null, Null, EDGE_ALIGNED, Null ' SERVER LISTBOX ------------------------------------------------------------------------------------------------------------------------------ Global ServerListbox:TGadget = CreateListBox(2,MAINWINDOW_H-Buttonsize-4, MAINWINDOW_W-4,0,MainPanel) 'Hidden state when window panel is at normal size! AddGadgetItem ServerListbox, "This text is too long and thus we need a horizontal slider!",0 AddGadgetItem ServerListbox, "This text is too long and thus we need a horizontal slider!",0 AddGadgetItem ServerListbox, "This text is too long and thus we need a horizontal slider!",0 AddGadgetItem ServerListbox, "This text is too long and thus we need a horizontal slider!",0 AddGadgetItem ServerListbox, "This text is too long and thus we need a horizontal slider!",0 AddGadgetItem ServerListbox, "This text is too long and thus we need a horizontal slider!",0 AddGadgetItem ServerListbox, "This text is too long and thus we need a horizontal slider!",0 AddGadgetItem ServerListbox, "This text is too long and thus we need a horizontal slider!",0 AddGadgetItem ServerListbox, "This text is too long and thus we need a horizontal slider!",0 AddGadgetItem ServerListbox, "This text is too long and thus we need a horizontal slider!",0 AddGadgetItem ServerListbox, "This text is too long and thus we need a horizontal slider!",0 AddGadgetItem ServerListbox, "This text is too long and thus we need a horizontal slider!",0 AddGadgetItem ServerListbox, "This text is too long and thus we need a horizontal slider!",0 AddGadgetItem ServerListbox, "This text is too long and thus we need a horizontal slider!",0 AddGadgetItem ServerListbox, "This text is too long and thus we need a horizontal slider!",0 AddGadgetItem ServerListbox, "This text is too long and thus we need a horizontal slider!",0 AddGadgetItem ServerListbox, "This text is too long and thus we need a horizontal slider!",0 AddGadgetItem ServerListbox, "This text is too long and thus we need a horizontal slider!",0 AddGadgetItem ServerListbox, "This text is too long and thus we need a horizontal slider!",0 AddGadgetItem ServerListbox, "This text is too long and thus we need a horizontal slider!",0 SetGadgetLayout ServerListbox, Null, Null, EDGE_ALIGNED, EDGE_ALIGNED ' Show when window height increases... ' ------------------------------------------------------------------------------------------------------------------------------ Global RadioStationCanvas:TGadget = CreatePanel(2, MAINWINDOW_H-100-3-18, 270, 86, MainPanel, PANEL_ACTIVE) '110 SetPanelColor( RadioStationCanvas:TGadget,255,255,255 ) SetGadgetLayout RadioStationCanvas, Null, Null, EDGE_ALIGNED, Null Global Button_back:Tgadget = PRPCreateButton("", MAINWINDOW_W-2-BUTTONSIZE,MAINWINDOW_H-1-BUTTONSIZE,BUTTONSIZE,BUTTONSIZE,MainPanel,BUTTON_PUSH) Global Button_skipforw:Tgadget = PRPCreateButton("", MAINWINDOW_W-2-BUTTONSIZE*3-15,MAINWINDOW_H-1-BUTTONSIZE,BUTTONSIZE,BUTTONSIZE,MainPanel,BUTTON_PUSH) Global Button_stop:Tgadget = PRPCreateButton("", MAINWINDOW_W-2-BUTTONSIZE*5-15,MAINWINDOW_H-1-BUTTONSIZE,BUTTONSIZE,BUTTONSIZE,MainPanel,BUTTON_PUSH) Global Button_mute:Tgadget = PRPCreateButton("", MAINWINDOW_W-2-BUTTONSIZE*4-15,MAINWINDOW_H-1-BUTTONSIZE,BUTTONSIZE,BUTTONSIZE,MainPanel,BUTTON_PUSH) Global Button_skipbackw:Tgadget = PRPCreateButton("", MAINWINDOW_W-2-BUTTONSIZE*6-15,MAINWINDOW_H-1-BUTTONSIZE,BUTTONSIZE,BUTTONSIZE,MainPanel,BUTTON_PUSH) Global Station_VolumeSlider:TGadget = CreateSlider(2,MAINWINDOW_H-1-BUTTONSIZE,BUTTONSIZE*2-2 , SLIDER_WIDTH, MainPanel, SLIDER_HORIZONTAL | SLIDER_TRACKBAR) SetGadgetLayout Station_VolumeSlider, Null, Null, Null, EDGE_ALIGNED SetGadgetToolTip(Button_back,"Push me... even if I'm naked!") ShowGadget(MainWindow) Repeat WaitEvent() Print CurrentEvent.ToString() Select EventID() Case EVENT_APPTERMINATE, EVENT_WINDOWCLOSE End End Select Select EventSource() Case Button_back Select EventID() Case BUTTON_ACTION Print "Happy Button says: 'Hello World!' :)" End Select End Select Forever Function PRPCreateButton:TGadget(title:String, x:Int, y:Int, w:Int, h:Int, parent:TGadget, style:Int = BUTTON_PUSH) Local gadget:TGadget ?win32 gadget = CreateButton("", x, y, w, h, parent, style) SetGadgetLayout gadget, Null, Null, Null, EDGE_ALIGNED ?Not win32 gadget = CreatePanel(x, y, w, h, parent, PANEL_ACTIVE) SetGadgetLayout gadget, Null, Null, Null, EDGE_ALIGNED ' recently added, not tested yet on Mac or Linux! ? Return gadget End Function I think, I have reported this glitch ages ago for the windows port. It was fixed. - The example above works fine under Windows XP and Windows 7. Grisu P.S.:Special Thanks to Degac for his help and provided screenshots.

SebHoll (Posted 2010) [#2]

FLTK library bug.

Grisu (Posted 2010) [#3]

Any workaround? P.S.: This bug is also in Brucey's module.

SebHoll (Posted 2010) [#4]

Not that I know of (see STR here). Last edited 2010