;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for System version 123.41
;;; Reason:
;;;  spiff up the imagen options menu.
;;; Written 7-Oct-87 17:18:16 by naha (Mark Nahabedian) at site LMI Cambridge
;;; while running on Love from band 2
;;; with Experimental System 123.32, 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, microcode 1754, SDU Boot Tape 3.13, SDU ROM 102.



; From file DJ: L.NETWORK.IP-TCP.USER; IMAGEN.LISP#68 at 7-Oct-87 17:18:17
#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)
    (let ((*print-base* 10.))
      (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"
						:choose (80. 132.) princ
						: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"
						:choose (1 2) princ
						: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)

))