Arguments: window
This function is used by the File | Open menu-item of the default menu-bar that may be interactively attached to a form. In the IDE, it demonstrates a typical "Open" command for opening a text file into an editor, but this function is not available in a runtime image. A custom application that implements an "Open" command will need to supply its own code for such a command instead, but it may be useful to model after the default menu-bar's example. Here is the code for the open-text-file example:
(in-package :cg)
(defmethod open-text-file ((window basic-pane))
(let* ((selected-window (selected-window window))
(old-pathname (and selected-window
(file selected-window)))
(pathname
(ask-user-for-existing-pathname "Edit File"
:stream window
;; By default, offer to edit a file from the same
;; directory as the file displayed in the
;; selected window, if it's a text edit window.
:host (and old-pathname
(excl::path-namestring
(pathname old-pathname)))))
editor)
(cond ((null pathname) nil)
((not (probe-file pathname))
#-runtime-system
(lisp-warning "File ~a does not exist." pathname)
nil)
(t
(setq editor
(make-window (gensym-sequential-name :editor)
:title (namestring pathname)
:device 'text-edit-window
:parent window))
(load-file (frame-child editor) pathname)))))
Common Graphics and IDE documentation is described in About Common Graphics and IDE documentation in cgide.htm.
The documentation is described in introduction.htm and the index is in index.htm.
Copyright (c) 1998-2000, Franz Inc. Berkeley, CA., USA. All rights reserved.
Created 2000.10.5.