; Main Code File

; init stuff

UseSQLiteDatabase()
XIncludeFile "kratomfrm1.pbf"

; init code

dbfile$ = "kratom.db" ; created and setup with dbbrowser for now 

If OpenDatabase(0, dbfile$, "", "")
    ;Debug "Connected to PureBasic.sqlite"
Else
  MessageRequester("ERROR","I can't open the database kratom.db!",#PB_MessageRequester_Error)
EndIf

Openkrt1()

; window init



AddGadgetItem (ListView_0, -1, "Item " + Str(a) + " of the Listview")

HideWindow(krt1,#False)

;AddGadgetItem (0, -1, "Item " + Str(a) + " of the Listview")

Repeat
    Event = WaitWindowEvent()
    
    Select EventWindow()
      Case krt1
        krt1_Events(Event) ; This procedure name is always window name followed by '_Events'
        
      ;Case DateWindow
        ;DateWindow_Events(Event)
        
    EndSelect
    
  Until Event = #PB_Event_CloseWindow ; Quit on any window close

; IDE Options = PureBasic 6.12 LTS (Linux - x64)
; CursorPosition = 21
; EnableXP
; DPIAware