Commit e37b7e80 authored by bp's avatar bp
Browse files

Fixed key problem in editor

git-svn-id: https://forth-ev.de/repos/bigforth@1673 3b8d8251-53f3-0310-8f3b-fd1cb8370982
parent c3ff9362
......@@ -153,7 +153,7 @@ scredit implements
: .line ( y -- ) >r at? r> 0 at
pos @ 'line c/l showtext at ;
: keyed ( key sh -- )
dup $100 and IF drop $100 /mod swap at EXIT THEN
dup $40 and IF drop $100 /mod swap at EXIT THEN
$-13 and over shift-keys? IF 2drop EXIT THEN
dup 2 and IF swap tolower swap THEN
!scr $D and ev-key ;
......
No preview for this file type
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment