Re: Pathname for "Search Files" dialog

[lynch@aristotle.ils.nwu.edu (Richard Lynch)]

>
>When one selects the "Search Files" command under the Tools menu,
>MACL brings up a dialog with the pathname set to "ccl;*.lisp".
>Does anyone have code to set the pathname to something else
>as the default?
>
>Thanks in advance.
>
>
>
>Rodney Daughtrey           E-mail: rodney@huntsai.boeing.com
>Huntsville AI Center               {major site}!uw-beaver!bcsaic!huntsai!rodney
>Boeing Computer Services   Voice:  (205)-461-2352  Fax: (205)-461-2933
>
>

Well, it's not pretty, but it's easy so I wrote it and here it is:

This is a HACK.  It is not meant to be an example of good code.

(let ((*warn-if-redefine* nil))
  (defobfun (menu-item-action (ask *tools-menu* (find-menu-item "search
files"))) ()
    (usual-menu-item-action)
    (ccl::search-file-dialog)
    (ask (find-window "Search Files")
      (ask (current-editable-text)
        (set-dialog-item-text "HARD DRIVE;*.lisp")
) ) ) )

"TANSTAAFL" Rich lynch@aristotle.ils.nwu.edu