save-text-file

Generic Function

Package: common-graphics

Arguments: window

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

(in-package :cg)

(defmethod save-text-file ((window basic-pane))
   (let* ((selected-window (selected-window window)))
      (save-text-file-2 window
        (and selected-window (file selected-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."
    )))))

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.

Created 2000.10.5.