Upload quick fix for version 0.7a

This commit is contained in:
No Time To Play 2023-03-14 12:38:01 +00:00
parent a3e7784ed6
commit 3f3fa383cb
1 changed files with 2 additions and 2 deletions

View File

@ -27,7 +27,7 @@ package require Tk 8.5
package require try
package require csv
set about_text "A personal database\nVersion 0.7 (26 Jan 2023)\nMIT License"
set about_text "A personal database\nVersion 0.7a (9 Mar 2023)\nMIT License"
set credits_text "Made by No Time To Play\nbased on knowledge\nfrom TkDocs.com"
set site_link "https://ctrl-c.club/~nttp/toys/catalog/"
@ -783,7 +783,7 @@ pack .form.buttons.bKeep .form.buttons.bClose -side left -padx 2 -pady 2
pack .form.buttons.bToday -side right -padx 2 -pady 2
proc keep_item {} {
global editing form modified status
global editing form modified status search_term
if {$editing > -1} {
set reindex 0