PR 9742

svn: r11723

collects/framework/private/comment-box.ss

@@ -32,12 +32,6 @@
   
   (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 (get-scheme+copy-self%)
     (unless scheme+copy-self%
@@ -48,7 +42,9 @@
                 (let ([ed (new scheme+copy-self%)])
                   (copy-self-to ed)
                   ed))
-              (super-new))))
+              (super-new)
+              (inherit set-max-undo-history)
+              (set-max-undo-history 'forever))))
     scheme+copy-self%)
   
   (define -snip%

collects/stepper/xml-tool.ss

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