jas@cadre.dsl.PITTSBURGH.EDU (Jeffrey A. Sullivan) (04/07/88)
Here's the code to set up a grep-type tool in your tool menu. It's in the
CCL core, but is not exported or documented, so use it with care.
;;; Add a GREP-like tool to the Tools Menu. It is from the CCL package. why is it not
;;; documented? I don't know, so use it with caution.
(ask *tools-menu* (add-menu-items
(oneof *menu-item*
:menu-item-title "Grep"
:menu-item-action
#'(lambda ()
(ccl::inspect-search-file
(if (typep (front-window) *fred-window*)
(ask (front-window) (get-selected-string))))))))
--
..........................................................................
Jeffrey Sullivan | University of Pittsburgh
jas@cadre.dsl.pittsburgh.edu | Intelligent Systems Studies Program
jasper@PittVMS.BITNET, jasst3@cisunx.UUCP | Graduate Student