Xref: utzoo comp.lang.lisp:794 comp.sys.mac.programmer:411
Path: utzoo!mnetor!uunet!husc6!bloom-beacon!mit-eddie!bbn!rochester!PT.CS.CMU.EDU!cadre!jas
From: jas@cadre.dsl.PITTSBURGH.EDU (Jeffrey A. Sullivan)
Newsgroups: comp.lang.lisp,comp.sys.mac.programmer
Subject: Allegro CL Grep Tool (Undocumented)
Message-ID: <1114@cadre.dsl.PITTSBURGH.EDU>
Date: 6 Apr 88 22:09:03 GMT
Organization: Decision Systems Lab., Univ. of Pittsburgh, PA.
Lines: 20
Keywords: GREP CL

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