Consider the following example (this is pretty much the code from except I also 
added a text-field%):

#lang racket/gui
(define f (new frame% [label "Simple Edit"]
                      [width 200]
                      [height 200]))
(define c (new editor-canvas% [parent f]))
(define t (new text%))
(send c set-editor t)

(new text-field% [parent f] [label ""] [style '(multiple)])

(define mb (new menu-bar% [parent f]))
(define m-edit (new menu% [label "Edit"] [parent mb]))
(define m-font (new menu% [label "Font"] [parent mb]))
(append-editor-operation-menu-items m-edit #f)
(append-editor-font-menu-items m-font)

(send f show #t)

In the text% editor, normal text operations (select all, cut/copy/paste) work 
fine, but undo does not, the undo menu is grayed out and Ctrl-Z does not work.  
Undo works fine in the text-field% below.

How do I add undo functionality to text%?


You received this message because you are subscribed to the Google Groups 
"Racket Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
For more options, visit

Reply via email to