From 40ebe8f1c381a92507b05e4ff50e7b165b6a531b Mon Sep 17 00:00:00 2001
From: kake26 <codeberg@pngpst.net>
Date: Wed, 18 Sep 2024 11:26:34 -0500
Subject: [PATCH] save point

---
 kratom.db     | Bin 16384 -> 16384 bytes
 kratom.pb     |  32 ++++++++++++++++++++------------
 kratomprj.pbp |   6 +++---
 3 files changed, 23 insertions(+), 15 deletions(-)

diff --git a/kratom.db b/kratom.db
index 99850ec141eb9d713aa8d4e6877a94f616ae647c..10b6a1cef0d661235b1f3c06e93397a0d0de2148 100644
GIT binary patch
delta 103
zcmZo@U~Fh$oFL68K2gS*QG8><YI)X^{LA=fZWd7J<agxeWML2$PD)KJ%1A5`=3rq^
w6i+WoP0drt$S=wRvlxIt8AO1A2p0>3vUqNOzCv<-xk5>P<>p)ZssfB$0D%e_rT_o{

delta 103
zcmZo@U~Fh$oFL7}KT*b+k$+>tYI)X+{D=4#Zx&GK<aZPmO-fBI$}24?=3`}H5EoA`
zN=?lJa*K)?7#R3P#glSMQ<D;Na*BDGSr|mcQ!<mY%QG@dQhAtI7=*=h^Yb^~(pME=
GWCH*z6&*eR

diff --git a/kratom.pb b/kratom.pb
index f8056f1..c00bccc 100644
--- a/kratom.pb
+++ b/kratom.pb
@@ -21,7 +21,7 @@ Openkrt1()
 
 Procedure btn0click (EventType) 
   ;MessageRequester("INFO", "ADD CLICKED")
-  DatabaseUpdate(0,"INSERT into kratom (name, type) Values ('"+GetGadgetText(String_0)+"', '"+GetGadgetText(String_1)+"' );")
+  DatabaseUpdate(0,"INSERT into kratom (name, type) Values ('"+Trim(GetGadgetText(String_0))+"', '"+Trim(GetGadgetText(String_1))+"' );")
   updatelist()
 EndProcedure
 
@@ -42,18 +42,26 @@ Procedure dellist(EventType)
   selectedname$ = GetGadgetItemText(ListView_0,selecteditem)
   RemoveGadgetItem(ListView_0,GetGadgetState(ListView_0)) ; removes it from view
   fldname$ = StringField(selectedname$,2," ")
-  
-  ;Debug fldname$
-  ;Debug DatabaseUpdate(0, "DELETE FROM kratom WHERE name = '"+fldname$+"';")
+  pos1 = FindString(selectedname$,fldname$,1,#PB_String_NoCase)
+  pos2 = FindString(selectedname$,"Type",1,#PB_String_NoCase) - 6
+  key$ = Mid(selectedname$,pos1,pos2)
+  key$ = Trim(key$)
+  ;Debug "POSES " + pos1 + " " + pos2
+  ;Debug "KEY :" + key$ + ":"
+  ;Debug "FLDNAME " + fldname$
+  ;Debug 
+  DatabaseUpdate(0, "DELETE FROM kratom WHERE name = '"+key$+"';")
   ;Debug DatabaseError()
-   ;If DatabaseQuery(0, "DELETE FROM * kratom WHERE name = '"+fldname$+"';")
-  ;While NextDatabaseRow(0) ; Loop for each records
-                                   ;Debug GetDatabaseString(#Database, 0) ; Display the content of the first field  
-  ;  AddGadgetItem (ListView_0, -1, "Name " + GetDatabaseString(0,1) + " Type " + GetDatabaseString(0,2))
-  ;Wend
-  ;EndIf
+   
 EndProcedure
 
+Procedure burn()
+  
+  
+  
+EndProcedure
+
+
 ; window init
 
 updatelist()
@@ -78,8 +86,8 @@ Repeat
     
   Until Event = #PB_Event_CloseWindow ; Quit on any window close
 ; IDE Options = PureBasic 6.12 LTS (Linux - x64)
-; CursorPosition = 47
-; FirstLine = 24
+; CursorPosition = 54
+; FirstLine = 32
 ; Folding = -
 ; EnableXP
 ; DPIAware
\ No newline at end of file
diff --git a/kratomprj.pbp b/kratomprj.pbp
index 6b60cbe..f645154 100644
--- a/kratomprj.pbp
+++ b/kratomprj.pbp
@@ -7,16 +7,16 @@
   <section name="data">
     <explorer view="/opt/purebasic/examples/" pattern="0"/>
     <log show="1"/>
-    <lastopen date="2024-09-17 23:16" user="kake26" host="kake26-20l6s42e00"/>
+    <lastopen date="2024-09-18 00:19" user="kake26" host="kake26-20l6s42e00"/>
   </section>
   <section name="files">
     <file name="kratom.pb">
       <config load="0" scan="1" panel="1" warn="1" lastopen="1" sortindex="1" panelstate="+"/>
-      <fingerprint md5="ab4f18ac51a4fe0d16c110460946fe9a"/>
+      <fingerprint md5="c44a94d156eacc238e59494b51caf74f"/>
     </file>
     <file name="kratomfrm1.pbf">
       <config load="0" scan="1" panel="1" warn="1" lastopen="1" sortindex="2" panelstate="+"/>
-      <fingerprint md5="31af23cf297f2016a8d18f51dc8faeff"/>
+      <fingerprint md5="fa99faf895ea57cf32aabcb624a1769e"/>
     </file>
   </section>
   <section name="targets">