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

PR 9742

Browse Source 
svn: r11723
This commit is contained in:
Robby Findler 2008-09-13 13:22:22 +00:00
parent 1f9ee1aac3
commit 5566ec2ef2
2 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/framework/private/comment-box.ss
View File

@ -32,12 +32,6 @@
(define bm (make-object bitmap% semicolon-bitmap-path)) (define bm (make-object bitmap% semicolon-bitmap-path))
(define (editor-keymap-mixin %)
(class %
(define/override (get-keymaps)
(cons (keymap:get-file) (super get-keymaps)))
(super-instantiate ())))
(define scheme+copy-self% #f) (define scheme+copy-self% #f)
(define (get-scheme+copy-self%) (define (get-scheme+copy-self%)
(unless scheme+copy-self% (unless scheme+copy-self%
@ -48,7 +42,9 @@
(let ([ed (new scheme+copy-self%)]) (let ([ed (new scheme+copy-self%)])
(copy-self-to ed) (copy-self-to ed)
ed)) ed))
(super-new)))) (super-new)
(inherit set-max-undo-history)
(set-max-undo-history 'forever))))
scheme+copy-self%) scheme+copy-self%)
(define -snip% (define -snip%

8
collects/stepper/xml-tool.ss
View File

@ -203,7 +203,9 @@
(let ([t (new scheme-box-text%)]) (let ([t (new scheme-box-text%)])
(copy-self-to t) (copy-self-to t)
t)) t))
(super-new)))) (super-new)
(inherit set-max-undo-history)
(set-max-undo-history 'forever))))
scheme-box-text%) scheme-box-text%)
(define (add-file-keymap-mixin %) (define (add-file-keymap-mixin %)
@ -311,7 +313,9 @@
(let ([t (new xml-text%)]) (let ([t (new xml-text%)])
(copy-self-to t) (copy-self-to t)
t)) t))
(super-new)))) (super-new)
(inherit set-max-undo-history)
(set-max-undo-history 'forever))))
xml-text%))) xml-text%)))
;; matching-xml : (is-a?/c text) -> void ;; matching-xml : (is-a?/c text) -> void