open-text-file

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.