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

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

@ -17,7 +17,7 @@
(lib "scheme-lexer.ss" "syntax-color"))
(provide scheme@)
(define scheme@
(unit/sig framework:scheme^
(import mred^
@ -441,7 +441,8 @@
(inherit get-visible-position-range)
(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
(insert char)
(let* ([start-pos (get-start-position)]
@ -1154,7 +1155,7 @@
(send keymap add-function "balance-parens"
(lambda (edit event)
(send edit balance-parens event)))
(send keymap add-function "balance-quotes"
#;(send keymap add-function "balance-quotes"
(lambda (edit 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-quotes")
(send keymap map-function "|" "balance-quotes")
#;(send keymap map-function "\"" "balance-quotes")
#;(send keymap map-function "|" "balance-quotes")
(let ([map-meta
(lambda (key func)