taro-ls: implement nav of mail list by key

This commit is contained in:
Iris Lightshard 2023-03-26 16:07:39 -06:00
parent baeb19bcae
commit 0b85806136
Signed by: nilix
GPG key ID: 3B7FBC22144E6398

View file

@ -334,9 +334,16 @@ JMP2r
POP POP
.Controller/button DEI .Controller/button DEI
DUP #10 NEQ ,&no_up JCN DUP #10 NEQ ,&no_up JCN
;noop_list_click .list #01 nav_list_by_key
&no_up &no_up
DUP #20 NEQ ,&no_down JCN DUP #20 NEQ ,&no_down JCN
;noop_list_click .list #00 nav_list_by_key
&no_down &no_down
DUP #14 NEQ ,&no_select_up JCN
&no_select_up
DUP #24 NEQ ,&no_select_down JCN
&no_select_down
POP
BRK BRK
@nav_list_by_key ( onchange* list up? -- ) @nav_list_by_key ( onchange* list up? -- )