(FILECREATED " 6-Mar-85 13:51:44" 
{PHYLUM}<TRILLIUM>BIRTHDAY84>ENHANCEMENTS>RECORDS-NHB>TRI-RECORD-HARDCOPY.;8
 3110   

      changes to:  (FNS GET.WINDOW.EXTENT HARDCOPY.INTERFACE HARDCOPY.INTERFACE.CONFIRM)

      previous date: " 1-Mar-85 16:05:41" 
{PHYLUM}<TRILLIUM>BIRTHDAY84>ENHANCEMENTS>RECORDS-NHB>TRI-RECORD-HARDCOPY.;7)


(* Copyright (c) 1984, 1985 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT TRI-RECORD-HARDCOPYCOMS)

(RPAQQ TRI-RECORD-HARDCOPYCOMS
 ((FNS GET.WINDOW.EXTENT HARDCOPY.INTERFACE HARDCOPY.INTERFACE.CONFIRM))
)
(DEFINEQ

(GET.WINDOW.EXTENT

  [LAMBDA (W)                                                (* N.H.Briggs "22-Feb-85 09:30")

                                                             (* trb "13-Jul-84 13:04")


          (* * Returns the EXTENT of a of the window if it has one. Otrherwise returns the region of the current Trillium 

	  interface)



    (DECLARE
 (
GLOBALVARS
 CURRENT.INTERFACE))
    (
OR
 (
WINDOWPROP
 W (
QUOTE
 EXTENT))
	(fetch.interface.fieldq CURRENT.INTERFACE REGION])

(HARDCOPY.INTERFACE

  [LAMBDA (INTERFACE)                                        (* N.H.Briggs "13-Feb-85 11:38")

    (DECLARE
 (
GLOBALVARS
 CURRENT.INTERFACE.WINDOW HARDCOPY.TRACEFLG))
    (
PROG
 (FRAMES FRAME.NAMES FILE CUT CUT.SPECS)
          (
COND

	    ((
NULL
 INTERFACE)
	      (TRILLIUM.PRINTOUT ON TRILLIUM.WARNINGS "Hardcopy of interface aborted.")
	      (
RETURN
)))
          (
SETQ
 CUT (
CONFIRM
 "Hardcopy in sections?"))
          (
AND
 HARDCOPY.TRACEFLG (TRILLIUM.PRINTOUT ON TRILLIUM.TRACE "Starting hardcopy..."
						    (
DATE
)))
          (
HARDCOPY.SETUP
)
          (
AND
 CUT (
SETQ
 CUT.SPECS (
HARDCOPY.DEFINE.SECTIONS
 CURRENT.INTERFACE.WINDOW)))
          (
SETQ
 FRAMES (fetch.interface.fieldq INTERFACE FRAMES))
          (
SETQ
 FRAME.NAMES (
HARDCOPY.ACQUIRE.FRAME.LIST
 FRAMES))
          (
AND
 (HARDCOPY.INTERFACE.CONFIRM
 INTERFACE FRAMES FRAME.NAMES)
	       (
HARDCOPY.LOOP.THRU.FRAMES
 INTERFACE FRAME.NAMES CUT.SPECS)
	       (
AND
 HARDCOPY.TRACEFLG (TRILLIUM.PRINTOUT ON TRILLIUM.TRACE "Finishing hardcopy..."
							 (
DATE
])

(HARDCOPY.INTERFACE.CONFIRM

  [LAMBDA (INTERFACE FRAMES FRAME.NAMES)                     (* N.H.Briggs "22-Feb-85 11:23")

                                                             (* trb " 5-Jul-84 14:35")

    (
TRILLIUM.CLEAR.ALL.PROMPTING
)
    (TRILLIUM.PRINTOUT ON TRILLIUM.DESCRIPTIONS T "There are " (
FLENGTH
 FRAME.NAMES)
		       " frames in interface "
		       (fetch.interface.fieldq INTERFACE NAME)
		       " to be hardcopied." T T)
    (do
 (
SELECTQ
 (
MENU
 (
GET.HARDCOPY.CONFIRM.MENU
))
		 (NIL)
		 (Y (
RETURN
 T))
		 (N (TRILLIUM.PRINTOUT ON TRILLIUM.WARNINGS "Hardcopy of interface aborted.")
		    (
RETURN
 NIL))
		 (E (
EDITE
 FRAME.NAMES))
		 (S (TRILLIUM.PRINTOUT ON TRILLIUM.DESCRIPTIONS T 5 FRAME.NAMES T T))
		 (
SHOULDNT
])
)
(PUTPROPS TRI-RECORD-HARDCOPY COPYRIGHT ("Xerox Corporation" 1984 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (564 3015 (GET.WINDOW.EXTENT 574 . 1088) (HARDCOPY.INTERFACE 1090 . 2221) (
HARDCOPY.INTERFACE.CONFIRM 2223 . 3013)))))
STOP