I'm just killing some time at work

Example code:
Code: Select all
Enumeration
#Window_0
EndEnumeration
;- Gadget Constants
;
Enumeration
#Listview_0
#Button_0
#Button_1
#Button_2
EndEnumeration
Procedure Open_Window_0()
If OpenWindow(#Window_0, 462, 241, 202, 218, "New window ( 0 )", #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
If CreateGadgetList(WindowID(#Window_0))
ListViewGadget(#Listview_0, 10, 10, 180, 120)
ButtonGadget(#Button_0, 10, 140, 60, 30, "1")
ButtonGadget(#Button_1, 70, 170, 60, 30, "2")
ButtonGadget(#Button_2, 130, 140, 60, 30, "3")
EndIf
EndIf
EndProcedure
Open_Window_0()
Repeat
Event = WindowEvent()
Delay(1)
Until Event = #PB_Event_CloseWindow