The menu item's on-demand method calls this method
Defaultly is this: (lambda (item) (send item enable (let ((target (get-edit-target-object))) (and target (is-a? target editor<%>)))))
(lambda (item) (send item enable (let ((target (get-edit-target-object))) (and target (is-a? target editor<%>)))))