initial commit

kratom.pb

@@ -0,0 +1,24 @@
+; Main Code File
+
+XIncludeFile "kratomfrm1.pbf"
+
+Openkrt1()
+
+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 = 11
+; EnableXP
+; DPIAware

kratomfrm1.pbf

@@ -0,0 +1,43 @@
+; Form Designer for PureBasic - 6.12
+; Warning: this file uses a strict syntax, if you edit it, make sure to respect the Form Designer limitation or it won't be opened again.
+
+;
+; This code is automatically generated by the Form Designer.
+; Manual modification is possible to adjust existing commands, but anything else will be dropped when the code is compiled.
+; Event procedures need to be put in another source file.
+;
+
+Global krt1
+
+Global Container_0, ListView_0, Text_0, Text_1, String_0, Button_0, Button_1, Button_2
+
+
+Procedure Openkrt1(x = 0, y = 0, width = 830, height = 570)
+  krt1 = OpenWindow(#PB_Any, x, y, width, height, "Kratom Picker GUI", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget)
+  Container_0 = ContainerGadget(#PB_Any, 10, 10, 810, 550)
+  ListView_0 = ListViewGadget(#PB_Any, 0, 60, 300, 470)
+  Text_0 = TextGadget(#PB_Any, 70, 20, 130, 30, "Kratom Stock")
+  Text_1 = TextGadget(#PB_Any, 310, 20, 170, 30, "Kratom to add")
+  String_0 = StringGadget(#PB_Any, 460, 10, 150, 40, "")
+  Button_0 = ButtonGadget(#PB_Any, 630, 10, 130, 40, "Add")
+  Button_1 = ButtonGadget(#PB_Any, 310, 60, 130, 40, "Burn!")
+  Button_2 = ButtonGadget(#PB_Any, 310, 490, 130, 40, "Delete")
+  CloseGadgetList()
+EndProcedure
+
+Procedure krt1_Events(event)
+  Select event
+    Case #PB_Event_CloseWindow
+      ProcedureReturn #False
+
+    Case #PB_Event_Menu
+      Select EventMenu()
+      EndSelect
+
+    Case #PB_Event_Gadget
+      Select EventGadget()
+      EndSelect
+  EndSelect
+  ProcedureReturn #True
+EndProcedure
+

kratomprj.pbp

@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+
+<project xmlns="http://www.purebasic.com/namespace" version="1.0" creator="PureBasic 6.12 LTS (Linux - x64)">
+  <section name="config">
+    <options closefiles="1" openmode="0" name="Kratom Picker"/>
+  </section>
+  <section name="data">
+    <explorer view="/opt/purebasic/examples/" pattern="0"/>
+    <log show="1"/>
+    <lastopen date="2024-09-17 20:44" user="kake26" host="kake26-20l6s42e00"/>
+  </section>
+  <section name="files"/>
+  <section name="targets">
+    <target name="Default Target" enabled="1" default="1">
+      <inputfile value=""/>
+      <outputfile value=""/>
+      <options xpskin="1" dpiaware="1" debug="1" optimizer="0"/>
+    </target>
+  </section>
+</project>