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

reduce the delay times

Browse Source
This commit is contained in:
Greg Gauthier 2025-05-05 20:27:13 +01:00
parent 577d05f3e2
commit 4f0071c711
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
app/appui.cls
View File

@ -152,7 +152,9 @@
RETURN
end
when key = D2C(10) | key = D2C(13) then do /* Enter key - numeric codes only */
menuwin~mvaddstr(19 - 1, 18, "Letter selection ["||menu_keys[.environment~selected]||"]")
menuwin~refresh
call SysWait 0.25
self~ProcessSelection(menuwin, menu_keys[.environment~selected])
return
end
@ -163,7 +165,7 @@
if pos > 0 then do
menuwin~mvaddstr(19 - 1, 18, "Letter selection ["||key||"]")
menuwin~refresh
call SysWait 0.5
call SysWait 0.25
self~ProcessSelection(menuwin, key)
return
end
@ -185,32 +187,32 @@
when key_char = 'a' then do
menuwin~mvaddstr(19 - 3, 5, "I would launch the ADD panel ");
menuwin~refresh
call SysWait 1
call SysWait 0.25
END
when key_char = 'r' then do
menuwin~mvaddstr(19 - 3, 5, "I would launch the REMOVE panel ");
menuwin~refresh
call SysWait 1
call SysWait 0.25
END
when key_char = 'e' then do
menuwin~mvaddstr(19 - 3, 5, "I would launch the EDIT panel ");
menuwin~refresh
call SysWait 1
call SysWait 0.25
END
when key_char = 's' then do
menuwin~mvaddstr(19 - 3, 5, "I would launch the SEARCH panel ");
menuwin~refresh
call SysWait 1
call SysWait 0.25
END
when key_char = 'l' then do
menuwin~mvaddstr(19 - 3, 5, "I would launch the LIST panel ")
menuwin~refresh
call SysWait 1
call SysWait 0.25
END
when key_char = 'q' then do
menuwin~mvaddstr(19 - 3, 5, "Exiting The Application... ");
menuwin~refresh
call SysWait 1
call SysWait 0.25
menuwin~endwin
.environment['STOPNOW'] = 1
END