d6
/
uxn-utils
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(notepad) Basic keyboard controls

This commit is contained in:
Devine Lu Linvega 2023-04-26 12:40:48 -07:00
parent 1493b723f2
commit 7d469ec9f1
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
gui/notepad/notepad.tal
View File

@ -34,6 +34,20 @@ BRK
@on-control ( -> ) @on-control ( -> )
.Controller/button DEI
DUP #40 NEQ ?&no-l
.selection/from LDZ2 #0001 SUB2 select-from
&no-l
DUP #80 NEQ ?&no-r
.selection/from LDZ2 INC2 select-from
&no-r
DUP #44 NEQ ?&no-sl
.selection/to LDZ2 #0001 SUB2 select-to
&no-sl
DUP #84 NEQ ?&no-sr
.selection/to LDZ2 INC2 select-to
&no-sr
POP
.Controller/key DEI ;mem sput .Controller/key DEI ;mem sput
#00 ;on-frame/f STA #00 ;on-frame/f STA
redraw redraw
@ -544,7 +558,7 @@ JMP2r
|8000 @mem |8000 @mem
"Keep 20 "up 20 "to 20 "eight 20 "pages 20 "of 20 "notes 20 "in 20 "the 20 "Note 20 "Pad. 20 "Keep 20 "up 20 "to 20 "eight 20 "pages 20 "of 20 "notes 20 "in 20 "the 20 "Note 20 "Pad. 20
"Click 20 "on 20 "the 20 "dog-ear 20 "to 20 "turn 20 "to 20 "to 20 "the 20 "next 20 "following 20 "page. 20 "Click 20 "on 20 "the 20 "dog-ear 20 "to 20 "turn 20 "to 20 "the 20 "next 20 "following 20 "page. 20
"Click 20 "in 20 "the 20 "lower 20 "left 20 "corner 20 "to 20 "turn 20 "to 20 "the 20 "next 20 "previous 20 "page. "Click 20 "in 20 "the 20 "lower 20 "left 20 "corner 20 "to 20 "turn 20 "to 20 "the 20 "next 20 "previous 20 "page.
|a000 "The 20 "other 20 "page. |a000 "The 20 "other 20 "page.