suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

loosen slightly the requirements for changing existing chars

Browse Source 
in the c:x;r;a keystroke

original commit: fce4cbad3a6dcd68b182a7bcf9dd38df2d92356e
This commit is contained in:
Robby Findler 2013-01-17 15:38:15 -06:00
parent a614b998aa
commit e7382e1cb9
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/framework/private/keymap.rkt
View File

@ -1506,10 +1506,10 @@
(define dn (xy->pos t x (+ y 1))) (define dn (xy->pos t x (+ y 1)))
(define lt (xy->pos t (- x 1) y)) (define lt (xy->pos t (- x 1) y))
(define rt (xy->pos t (+ x 1) y)) (define rt (xy->pos t (+ x 1) y))
(define i-up? (and (i? t up) (member c up-chars))) (define i-up? (and (i? t up) (or (member c up-chars) (member c double-barred-chars))))
(define i-dn? (and (i? t dn) (member c dn-chars))) (define i-dn? (and (i? t dn) (or (member c dn-chars) (member c double-barred-chars))))
(define i-lt? (and (i? t lt) (member c lt-chars))) (define i-lt? (and (i? t lt) (or (member c lt-chars) (member c double-barred-chars))))
(define i-rt? (and (i? t rt) (member c rt-chars))) (define i-rt? (and (i? t rt) (or (member c rt-chars) (member c double-barred-chars))))
(cond (cond
[(and i-up? i-dn? i-lt? i-rt?) (set t pos "╬")] [(and i-up? i-dn? i-lt? i-rt?) (set t pos "╬")]
[(and i-dn? i-lt? i-rt?) (set t pos "╦")] [(and i-dn? i-lt? i-rt?) (set t pos "╦")]
@ -1526,7 +1526,7 @@
(when i-dn? (loop dn)) (when i-dn? (loop dn))
(when i-lt? (loop lt)) (when i-lt? (loop lt))
(when i-rt? (loop rt)))) (when i-rt? (loop rt))))
(send t end-edit-sequence))) (send t end-edit-sequence)))
(define (scan-for-start-pos t pos) (define (scan-for-start-pos t pos)
(define-values (x y) (pos->xy t pos)) (define-values (x y) (pos->xy t pos))