gmgauthier/rexx-address-book
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

minor tweaks

Browse Source
This commit is contained in:
Greg Gauthier 2025-05-10 13:38:30 +01:00
parent e10a6aeb5a
commit f68b12f1b6
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
app/appui.cls
View File

@ -215,7 +215,7 @@
RETURN RETURN
END END
street = self~getInputField(formwin, 7, 10, 25, '') street = self~getInputField(formwin, 7, 10, 35, '')
if street = .nil then do if street = .nil then do
self~dropWindow(formwin) self~dropWindow(formwin)
RETURN RETURN
@ -264,12 +264,12 @@
/* Display result message */ /* Display result message */
if result > 0 then do /* should be a result id number */ if result > 0 then do /* should be a result id number */
formwin~mvaddstr(10, 2, "Contact ID ["result"] added successfully!") formwin~mvaddstr(11, 2, "Contact ID ["result"] added successfully!")
formwin~refresh() formwin~refresh()
call SysWait 0.5 call SysWait 0.5
end end
else do else do
formwin~mvaddstr(10, 2, "Failed to add contact.") formwin~mvaddstr(11, 2, "Failed to add contact.")
formwin~refresh() formwin~refresh()
call SysWait 0.5 call SysWait 0.5
end end
@ -411,7 +411,7 @@
RETURN RETURN
END END
street = self~getInputField(editwin, 7, 10, 30, streetInit) street = self~getInputField(editwin, 7, 10, 35, streetInit)
if street = .nil then do if street = .nil then do
self~dropWindow(editwin) self~dropWindow(editwin)
RETURN RETURN
@ -459,7 +459,7 @@
/* Display result message */ /* Display result message */
if result = 0 then do /* should be a result id number */ if result = 0 then do /* should be a result id number */
editwin~mvaddstr(11, 2, "Contact ID ["result"] edited successfully!") editwin~mvaddstr(11, 2, "Contact edited successfully!")
editwin~refresh() editwin~refresh()
call SysWait 1.5 call SysWait 1.5
end end

BIN
db/contacts.sqlite
View File

Binary file not shown.