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

removed calls to set-max-undo-history

Browse Source 
svn: r3186

original commit: 3ed19d88553f2fdeb83a8a1b6a3bda20c1eb4e49
This commit is contained in:
Robby Findler 2006-06-02 17:00:24 +00:00
parent c84c58306b
commit 87c5056667
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/hierlist/hierlist-unit.ss
View File

@ -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))