From 95730485b217158dbbb1512ae32decdc8386813a Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 30 Oct 2002 01:03:52 +0000 Subject: [PATCH] .. original commit: 37cd017ee1a0bdd12a06d7ea1ee98f5bc3d3ac15 --- collects/framework/private/keymap.ss | 16 +++++++++++++--- 1 file changed, 13 insertions(+), 3 deletions(-) diff --git a/collects/framework/private/keymap.ss b/collects/framework/private/keymap.ss index 347669c9..937e52f1 100644 --- a/collects/framework/private/keymap.ss +++ b/collects/framework/private/keymap.ss @@ -822,7 +822,12 @@ (let ([new-pos (send editor get-snip-position snip)]) (send editor set-position new-pos new-pos)) (send editor set-caret-owner #f 'display))))))))) - #t)]) + #t)] + + [make-read-only + (lambda (text event) + (send text lock #t) + #t)]) (lambda (kmap) (let* ([map (lambda (key func) @@ -894,7 +899,9 @@ (add "delete-key" delete-key) (add "mouse-popup-menu" mouse-popup-menu) - + + (add "make-read-only" make-read-only) + ; Map keys to functions (map-meta "c:down" "down-into-embedded-editor") @@ -1066,7 +1073,10 @@ (unless (eq? (system-type) 'windows) (map "middlebutton" "paste-click-region")) - (map ":rightbuttonseq" "mouse-popup-menu"))))) + (map ":rightbuttonseq" "mouse-popup-menu") + + (map "c:c;c:q" "make-read-only") + )))) (define setup-search (let* ([send-frame