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

*** empty log message ***

Browse Source 
original commit: f794ae193f24799614f106aa04cb49f736bbdf2f
This commit is contained in:
Scott Owens 2003-12-11 19:44:02 +00:00
parent 4054c286a4
commit e83c09ba68
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/framework/private/scheme.ss
View File

@ -441,7 +441,8 @@
(inherit get-visible-position-range) (inherit get-visible-position-range)
(define (balance-quotes key) (define (balance-quotes key)
(let* ([char (send key get-key-code)]) ;; must be a character because of the mapping setup (void)
#;(let* ([char (send key get-key-code)]) ;; must be a character because of the mapping setup
;; this function is only bound to ascii-returning keys ;; this function is only bound to ascii-returning keys
(insert char) (insert char)
(let* ([start-pos (get-start-position)] (let* ([start-pos (get-start-position)]
@ -1154,7 +1155,7 @@
(send keymap add-function "balance-parens" (send keymap add-function "balance-parens"
(lambda (edit event) (lambda (edit event)
(send edit balance-parens event))) (send edit balance-parens event)))
(send keymap add-function "balance-quotes" #;(send keymap add-function "balance-quotes"
(lambda (edit event) (lambda (edit event)
(send edit balance-quotes event))) (send edit balance-quotes event)))
@ -1173,8 +1174,8 @@
(send keymap map-function ")" "balance-parens") (send keymap map-function ")" "balance-parens")
(send keymap map-function "]" "balance-parens") (send keymap map-function "]" "balance-parens")
(send keymap map-function "}" "balance-parens") (send keymap map-function "}" "balance-parens")
(send keymap map-function "\"" "balance-quotes") #;(send keymap map-function "\"" "balance-quotes")
(send keymap map-function "|" "balance-quotes") #;(send keymap map-function "|" "balance-quotes")
(let ([map-meta (let ([map-meta
(lambda (key func) (lambda (key func)