edit-menu:find-on-demand in frame:standard-menus<%>
The menu item's on-demand method calls this method
(-> voidsenda-frame:standard-menusedit-menu:find-on-demanditem)
item:menu-item%Defaultly is this:
(λ (item) (send item enable (let ((target (get-edit-target-object))) (and target (is-a?target editor<\%>)))))