As for your checkbox question:
Code: Select all
If OpenWindow(0, 100, 100, 300, 200, "Checkbox in ListIconGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ListIconGadget(0, 10, 10, 280, 150, "Item", 250, #PB_ListIcon_CheckBoxes)
AddGadgetItem(0, -1, "Item 1")
AddGadgetItem(0, -1, "Item 2")
AddGadgetItem(0, -1, "Item 3")
ButtonGadget(1, 10, 170, 100, 20, "Check State")
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Gadget
Select EventGadget()
Case 1 ; ButtonGadget clicked
For i = 0 To CountGadgetItems(0) - 1
If GetGadgetItemState(0, i) & #PB_ListIcon_Checked
Debug "Item " + Str(i + 1) + " is checked"
EndIf
Next
EndSelect
EndSelect
Until Event = #PB_Event_CloseWindow
EndIf