| Allegro CL version 8.2 Unrevised from 8.1 to 8.2. 8.1 version |
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 (ide: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)))))
See also new-text-editor, save-text-file, and save-as-text-file.
Copyright (c) 1998-2016, Franz Inc. Oakland, CA., USA. All rights reserved.
This page was not revised from the 8.1 page.
Created 2010.1.21.
| Allegro CL version 8.2 Unrevised from 8.1 to 8.2. 8.1 version |