|
|
|
|
@ -261,10 +261,14 @@
|
|
|
|
|
@on-touch-zoomview ( -> ) |
|
|
|
|
.Mouse/y DEI2 .zoomview/y1 LDZ2 SUB2 #0020 LTH2 ?{ |
|
|
|
|
.Mouse/x DEI2 .zoomview/x1 LDZ2 SUB2 #03 SFT2 NIP |
|
|
|
|
( ) DUP #00 EQU .Mouse/state DEI #01 EQU #0101 NEQ2 ?{ ;op-shiftu <run> } |
|
|
|
|
DUP #00 EQU .Mouse/state DEI #01 GTH #0101 NEQ2 ?{ ;op-shiftd <run> } |
|
|
|
|
DUP #01 EQU .Mouse/state DEI #01 EQU #0101 NEQ2 ?{ ;op-shiftr <run> } |
|
|
|
|
DUP #01 EQU .Mouse/state DEI #01 GTH #0101 NEQ2 ?{ ;op-shiftl <run> } |
|
|
|
|
( ) DUP #00 EQU .Mouse/state DEI #01 EQU #0101 NEQ2 ?{ ;op-shiftu <run> |
|
|
|
|
state/<change> } |
|
|
|
|
DUP #00 EQU .Mouse/state DEI #01 GTH #0101 NEQ2 ?{ ;op-shiftd <run> |
|
|
|
|
state/<change> } |
|
|
|
|
DUP #01 EQU .Mouse/state DEI #01 EQU #0101 NEQ2 ?{ ;op-shiftr <run> |
|
|
|
|
state/<change> } |
|
|
|
|
DUP #01 EQU .Mouse/state DEI #01 GTH #0101 NEQ2 ?{ ;op-shiftl <run> |
|
|
|
|
state/<change> } |
|
|
|
|
POP |
|
|
|
|
( release mouse ) [ LIT2 00 -Mouse/state ] DEO !&finish } |
|
|
|
|
.Mouse/x DEI2 .zoomview/x1 LDZ2 SUB2 #02 SFT2 #00 .selection/x1 LDZ #30 SFT2 ADD2 |
|
|
|
|
@ -1092,15 +1096,18 @@
|
|
|
|
|
@edit-paste ( -- ) |
|
|
|
|
;snarf-txt .File/name DEO2 |
|
|
|
|
#0010 .File/length DEO2 |
|
|
|
|
;op-read <run> !<redraw> |
|
|
|
|
;op-read <run> |
|
|
|
|
state/<change> !<redraw> |
|
|
|
|
|
|
|
|
|
@edit-paste-icn ( -- ) |
|
|
|
|
;snarf-txt .File/name DEO2 |
|
|
|
|
#0008 .File/length DEO2 |
|
|
|
|
;op-read <run> !<redraw> |
|
|
|
|
;op-read <run> |
|
|
|
|
state/<change> !<redraw> |
|
|
|
|
|
|
|
|
|
@edit-cut ( -- ) |
|
|
|
|
edit-copy-chr ;op-erase <run> !<redraw> |
|
|
|
|
edit-copy-chr ;op-erase <run> |
|
|
|
|
state/<change> !<redraw> |
|
|
|
|
|
|
|
|
|
@edit-erase ( -- ) |
|
|
|
|
;op-erase <run> |
|
|
|
|
|
Devine Lu Linvega
5 days ago