FWD » Core Development » User Interface

I am almost complete with revising CHOOSE so that it can react to any characters that are being pressed. Previously it could only react to alphanumeric, but in thi testcases I can see it should react to any valid keystroke.

def var l-noerr as log.
message "no-error?" update l-noerr.

def var l-fkeys as log.
message "Mod-fkeys?" update l-fkeys.

if l-fkeys then do:
  on f9 new-line.
  on f10 delete-line.
end.  

def var lst as char extent 5 init ["One", "Two", "Three", "Four", "Five"].
def var dlst as decimal extent 5 init [0.01, 1.02, 1.10, 3.20, 4.50]. 
def var i as int init 1.
def var str as char.
def var choice as char.

form str with 4 down frame f0.

repeat with frame f0:
    str = string(dlst[i]). i = i + 1. display str. down.

    if i = 5 then do:
        up. leave.
    end.
end.

repeat with frame f0:
    if l-noerr then choose row str auto-return no-error.
         else choose row str auto-return.
    message l-noerr "/" l-fkeys keylabel(lastkey) keyfunction(lastkey) string(frame-line) + " " + string(frame-down).
end.

The documentation indicates KEYCODE(RETURN) is returned when AUTO-RETURN is set, and a match is found.