save-as-text-file

Arguments: window

This function is used by the File | Save As menu-item of the default menu-bar that may be interactively attached to a form. In the IDE, it demonstrates a typical "Save As" command for saving a text file but this function is not available in a runtime image. A custom application that implements a "Save As" 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 save-as-text-file example:

(in-package :cg)
(defmethod save-as-text-file ((window basic-pane))
   (save-text-file-2 window))
(defun save-text-file-2 (window &optional pathname)
  (let* ((selected-window (selected-window window))
	 (pane nil))
    (cond ((typep selected-window 'text-edit-window)
	   (setq pane (frame-child selected-window))
	   (save-file pane pathname))
	  (t
	   #-runtime-system
	   (lisp-warning 
           "There is no selected text editor window to save."
           ))))) 

Copyright (c) 1998-2002, Franz Inc. Oakland, CA., USA. All rights reserved.
Documentation for Allegro CL version 6.2. This page was not revised from the 6.1 page.
Created 2002.2.26.