From 87c5056667ce1623b049563f687dd48115a5d6d6 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 2 Jun 2006 17:00:24 +0000 Subject: [PATCH] removed calls to set-max-undo-history svn: r3186 original commit: 3ed19d88553f2fdeb83a8a1b6a3bda20c1eb4e49 --- collects/hierlist/hierlist-unit.ss | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/collects/hierlist/hierlist-unit.ss b/collects/hierlist/hierlist-unit.ss index a2dccfa3..02a7fcb7 100644 --- a/collects/hierlist/hierlist-unit.ss +++ b/collects/hierlist/hierlist-unit.ss @@ -251,7 +251,7 @@ ;; Buffer for a single list item (define hierarchical-item-text% (class100 text% (tp tp-select itm snp dpth) - (inherit set-max-undo-history hide-caret + (inherit hide-caret last-position set-position set-keymap invalidate-bitmap-cache set-max-width get-view-size) @@ -323,13 +323,12 @@ (sequence (super-init) (hide-caret #t) - (set-max-undo-history 0) (set-keymap item-keymap)))) ;; Buffer for a compound list item (and the top-level list) (define (make-hierarchical-list-text% super%) (class100 super% (tp tp-select dpth parent-snp) - (inherit set-max-undo-history hide-caret erase + (inherit hide-caret erase last-position insert delete line-start-position line-end-position begin-edit-sequence end-edit-sequence get-style-list) (private-field @@ -443,8 +442,7 @@ [do-edit-operation (opt-lambda (x [r? #t] [time 0]) (send top do-edit-operation x r? time))]) (sequence (super-init) - (hide-caret #t) - (set-max-undo-history 0)))) + (hide-caret #t)))) (define hierarchical-list-text% (make-hierarchical-list-text% text%)) @@ -580,7 +578,6 @@ [get-arrow-snip (lambda () arrow)]) (sequence (super-init main-buffer #f 0 0 0 0 0 0 0 0) - (send main-buffer set-max-undo-history 0) (send main-buffer hide-caret #t) (send main-buffer insert arrow) (when title (send title-buffer insert title))