[racket] Adding "undo" and "redo" to racket/gui menu item

From: Harry Spier (vasishtha.spier at gmail.com)
Date: Sat Feb 1 18:15:02 EST 2014

The following code from the racket/gui documentation gives me an "edit"
menu with "copy', "cut","paste","select all","delete"  working but "redo"
and "undo" don't appear to be working.

Do I have to add code to get "undo", "redo" to work in the "edit" menu.  If
so what code do I need to add?

Harry Spier
#lang racket/gui
(define frame (new frame% [label "Example"]))
(send frame show #t)

(define c (new editor-canvas% [parent frame]))
(define t (new text%))
(send c set-editor t)

(define mb (new menu-bar% [parent frame]))
(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 #t)
(append-editor-font-menu-items m-font)

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.racket-lang.org/users/archive/attachments/20140201/e0498594/attachment.html>

Posted on the users mailing list.