mirror of
https://github.com/dschmenk/PLASMA.git
synced 2024-08-21 21:29:08 +00:00
Add clear (Z) editing command
This commit is contained in:
parent
1db32cbbc2
commit
77d4481146
BIN
RPNCALC.PO
BIN
RPNCALC.PO
Binary file not shown.
@ -21,7 +21,7 @@ struc t_keyinput
|
|||||||
byte keyinfo[t_keypad]
|
byte keyinfo[t_keypad]
|
||||||
word phandler
|
word phandler
|
||||||
end
|
end
|
||||||
predef delKey#0, cmdKey#0, dropKey#0
|
predef delKey#0, cmdKey#0, dropKey#0, clearKey#0
|
||||||
predef digitKey#0, pointKey#0, opKey#0
|
predef digitKey#0, pointKey#0, opKey#0
|
||||||
predef enterKey#0, copyKey#0, chsKey#0, memKey#0
|
predef enterKey#0, copyKey#0, chsKey#0, memKey#0
|
||||||
predef elemsKey#0
|
predef elemsKey#0
|
||||||
@ -47,6 +47,8 @@ byte[t_keypad] = $1B, 0, 0, ""
|
|||||||
word = @cmdKey
|
word = @cmdKey
|
||||||
byte[t_keypad] = '=', 0, 0, ""
|
byte[t_keypad] = '=', 0, 0, ""
|
||||||
word = @dropKey
|
word = @dropKey
|
||||||
|
byte[t_keypad] = 'Z', 0, 0, ""
|
||||||
|
word = @clearKey
|
||||||
byte[t_keypad] = '7', 3, 10, "[7]"
|
byte[t_keypad] = '7', 3, 10, "[7]"
|
||||||
word = @digitKey
|
word = @digitKey
|
||||||
byte[t_keypad] = '8', 7, 10, "[8]"
|
byte[t_keypad] = '8', 7, 10, "[8]"
|
||||||
@ -262,6 +264,10 @@ def copyKey(pkey)#0
|
|||||||
fin
|
fin
|
||||||
showInput
|
showInput
|
||||||
end
|
end
|
||||||
|
def clearKey(pkey)#0
|
||||||
|
initInput
|
||||||
|
showInput
|
||||||
|
end
|
||||||
def digitKey(pkey)#0
|
def digitKey(pkey)#0
|
||||||
if inputStr < inputLen
|
if inputStr < inputLen
|
||||||
if inputStr:0 <> ZEROSTR
|
if inputStr:0 <> ZEROSTR
|
||||||
|
Loading…
Reference in New Issue
Block a user