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

add a test for undo-clickback repair

Browse Source
This commit is contained in:
Matthew Flatt 2011-08-26 06:07:18 -06:00
parent b0d909bd8f
commit b0245395b7
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/tests/gracket/editor.rktl
View File

@ -539,6 +539,16 @@
(send t end-edit-sequence) (send t end-edit-sequence)
(send t undo) (send t undo)
(st "" t get-text)) (st "" t get-text))
;; ----------------------------------------
;; undo and clickbacks
(let ([t (new text%)])
(send t set-max-undo-history 100)
(send t insert "abcdef")
(send t set-clickback 1 3 void)
(send t delete 0 5)
(send t undo))
;; ---------------------------------------- ;; ----------------------------------------