;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for System version 123.9
;;; Reason:
;;;  Better mouse documentation for (tcpa:set-imagen-options)
;;; Written 29-Aug-87 13:14:53 by pld (Peter L. DeWolf) at site LMI Cambridge
;;; while running on Azathoth from band 2
;;; with Experimental System 123.7, Experimental Local-File 73.0, Experimental FILE-Server 22.0, Experimental Unix-Interface 11.0, Experimental Tape 18.0, Experimental KERMIT 34.0, Experimental ZMail 71.0, Experimental Lambda-Diag 15.0, Experimental Site Data Editor 6.0, microcode 1754, SDU Boot Tape 3.12, SDU ROM 102.



; From modified file DJ: L.NETWORK.IP-TCP.USER; IMAGEN.LISP#66 at 29-Aug-87 13:14:54
#10R TCP-APPLICATION#: 
(COMPILER-LET ((*PACKAGE* (GLOBAL:PKG-FIND-PACKAGE "TCP-APPLICATION")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: NETWORK; IP-TCP; USER; IMAGEN  "

(defun set-imagen-print-options (&optional &key
				 (copies *imagen-default-copies* c-supplied)
				 (form-length *imagen-default-form-length* fl-supplied)
				 (form-width *imagen-default-form-width* fw-supplied)
				 (line-wrapping *imagen-default-line-wrapping* lw-supplied)
				 (forms-per-page *imagen-default-forms-per-page* fpp-supplied)
				 (left-margin *imagen-default-left-margin* lm-supplied)
				 (line-numbers *imagen-default-line-numbers* ln-supplied)
				 (page-headings *imagen-default-page-headings* hd-supplied)
				 (ok-wait *imagen-status-ok-wait* wt-supplied)
				 (ok-wait-tries *imagen-status-ok-wait-tries* wtt-supplied)
				 (notifications *imagen-notifications* not-supplied))
  (if (or c-supplied fl-supplied fw-supplied lw-supplied fpp-supplied lm-supplied
	  ln-supplied hd-supplied wt-supplied wtt-supplied not-supplied)
      (setq *imagen-default-copies* copies
	    *imagen-default-form-length* form-length
	    *imagen-default-form-width* form-width
	    *imagen-default-line-wrapping* line-wrapping
	    *imagen-default-forms-per-page* forms-per-page
	    *imagen-default-left-margin* left-margin
	    *imagen-default-line-numbers* line-numbers
	    *imagen-default-page-headings* page-headings
	    *imagen-status-ok-wait* ok-wait
	    *imagen-status-ok-wait-tries* ok-wait-tries
	    *imagen-notifications* notifications)
    (tv:choose-variable-values '((*imagen-default-copies* "Copies"
				   :documentation "Number of copies per document" :number)
				 (*imagen-default-form-length* "Page length (1 - 66)"
				   :documentation "Lines Per Page" :number)
				 (*imagen-default-form-width* "Page width (80 or 132)"
				   :documentation "Columns Per Page" :number)
				 (*imagen-default-line-wrapping* "Line Wrapping"
				   :documentation "Yes if lines wrap, No if they are clipped" :boolean)
				 (*imagen-default-forms-per-page* "Pages per sheet (1 or 2)"
				   :documentation "Number of logical pages per sheet of paper" :number)
				 (*imagen-default-left-margin* "Left margin"
				   :documentation "Blank columns reserved at left margin" :number)
				 (*imagen-default-line-numbers* "Line numbers"
				   :documentation "Yes to number the lines" :boolean)
				 (*imagen-default-page-headings* "Page Headings"
				   :documentation "Yes to put page headings on the pages" :boolean)
				 (*imagen-status-ok-wait* "Seconds between Imagen polls"
				   :documentation "How long to wait when Imagen is busy" :number-or-nil)
				 (*imagen-status-ok-wait-tries* "Retries before giving up"
				   :documentation "How many times to try before deciding Imagen is stuck" :number)
				 (*imagen-notifications* "Screen Dump notifications"
				   :documentation "Yes to be notified after dump sent to Imagen" :boolean))
			       :label "Set Imagen Print Options"))
  nil)

))