Code: Select all
;- Window Constants
;
Enumeration
  #Window_0
EndEnumeration
;- Gadget Constants
;
Enumeration
  #Button_0
  #Button_1
  #Button_2
  #Button_3
  #Listview_0
EndEnumeration
Procedure Open_Window_0()
  If OpenWindow(#Window_0, 358, 178, 300, 300, "Gadget Test",  #PB_Window_SizeGadget | #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
    If CreateGadgetList(WindowID(#Window_0))
      ButtonGadget(#Button_0, 5, 5, 70, 25, "Button0")
      ButtonGadget(#Button_1, 225, 5,70, 25, "Button1")
      ButtonGadget(#Button_2, 5, 270, 70, 25, "Button2")
      ButtonGadget(#Button_3, 225, 270, 70, 25, "Button3")
      ListViewGadget(#Listview_0, 55, 30, 190, 240)     
    EndIf
  EndIf
EndProcedure
Open_Window_0()
Repeat
 
  Event = WaitWindowEvent()
  If Event = #PB_Event_Gadget
   
    GadgetID = EventGadget()
   
    If GadgetID = #Button_0
      Debug "GadgetID: #Button_0"
     
    ElseIf GadgetID = #Button_1
      Debug "GadgetID: #Button_1"
     
    ElseIf GadgetID = #Button_2
      Debug "GadgetID: #Button_2"
     
    ElseIf GadgetID = #Button_3
      Debug "GadgetID: #Button_3"
     
    ElseIf GadgetID = #Listview_0   
      Debug "GadgetID: #Listview_0" ; <--- one does not display
     
    EndIf
   
  EndIf
 
Until Event = #PB_Event_CloseWindow
End
;Is this a bug or is the code wrong?

