CLIM mail archive
Postscript dumps of frame output history.

To: clim@BBN.COM
Subject: Postscript dumps of frame output history.
From: Gregory M Anderson <gma@bitterroot.apl.washington.edu>
Date: Mon, 9 May 1994 19:24-0700
Character-Type-Mappings: (1 0 (NIL 0) (:FIX :ROMAN :TINY) "TINY") (2 0 (NIL 0) (NIL :BOLD NIL) "CPTFONTCB") (3 0 (NIL 0) (NIL :ITALIC NIL) "CPTFONTI")
Fonts: CPTFONT, TINY, CPTFONTCB, CPTFONTI

I'm trying to dump an application frame output to a postscript stream (the
frame display functions are presentations with incremental redisplay).  I thought
that all I would have to do is call the display functions again with
output to the postscript stream.  But CLIM seems to be trying to 
redisplay the output history on the new stream (Is it acceptable 
to change the stream on an output history?  Doesn't seem
like it would be although it partially worked once.)

And I get this error.  What am I doing wrong.


1In Symbolics MacIvory model 3 CLIM in Genera 8.3, Logical Pathnames Translation Files NEWEST, CLIM 52.13, Genera CLIM 52.5, PostScript CLIM 52.2,
CLIM Demo 52.1, CLIM Documentation 52.1, Mailer 434.0, Metering 439.0, Metering Substrate 439.0, Conversion Tools 430.0, Hacks 435.0, NFS Server 435.0,
Experimental ASAPS with Itasca 1.0, Experimental Principal Component Clustering 2 4.0, Experimental ASAPS Site 1.0,
Experimental ASAPS Itasca Interface 2.0, Experimental ASAPS User Interface 1.0, Ivory Revision 4A, FEP 328, FEP0:>I328-loaders.flod(24),
FEP0:>I328-info.flod(24), FEP0:>I328-debug.flod(24), FEP0:>I328-lisp.flod(25), FEP0:>I328-kernel.fep(44), Boot ROM version 320,
Device PROM version 325, Genera application 5.6, MacIvory SCSI Manager Server 4.3.1, Toolbox Servers 4.2, MacIvory & RPC library 6.3.2,
MacIvory life support 4.3.6, Symbolics keyboard 2.1, Macintosh System Software 7.0.1, 1152x802 Screen with Genera fonts, Machine serial number 30102,
Macintosh Quadra 950, Symbolics Keyboard,
world booted from FEP0:>Inc-CLIM-ECO-from-Genera-8-3-sys.ilod.1 on Symbolics MacIvory model 3 #30102 (BITTERROOT):



2Error: No applicable method for POSTSCRIPT-CLIM::MAYBE-SET-COLOR with arguments 
       (#<POSTSCRIPT-CLIM::POSTSCRIPT-MEDIUM 1176743> #<CLIM-UTILS:NOWHERE 0.0 1070230525>)
0While in the function #<CLOS:STANDARD-METHOD CLIM:MEDIUM-DRAW-RECTANGLE* (POSTSCRIPT-CLIM::POSTSCRIPT-MEDIUM T T T T T) 1072507463>  #<CLOS:STANDARD-METHOD CLIM:MEDIUM-DRAW-RECTANGLE* (:AROUND) (CLIM:BASIC-MEDIUM T T T T T) 1070370267>  CLOS-INTERNALS::HANDLE-MISSED-DISPATCH

The condition signalled was CONDITIONS:SIMPLE-ERROR

2#<CLOS:STANDARD-METHOD CLIM:MEDIUM-DRAW-RECTANGLE* (POSTSCRIPT-CLIM::POSTSCRIPT-MEDIUM T T T T T) 1072507463>0  (P.C. = 54)  3(from SYS:CLIM;REL-2;POSTSCRIPT;POSTSCRIPT-MEDIUM)
0   Arg 0 (CLOS-INTERNALS::.EXTRA-ARGUMENT.): #<Map for classes POSTSCRIPT-CLIM::POSTSCRIPT-MEDIUM, T, T, T, T, T 1244560>
   Arg 1 (CLIM:MEDIUM): #<POSTSCRIPT-CLIM::POSTSCRIPT-MEDIUM 1176743>
   Arg 2 (CLIM-UTILS:LEFT): 88.00001
   Arg 3 (CLIM-UTILS:TOP): 12.0
   Arg 4 (CLIM-UTILS:RIGHT): 235.20001
   Arg 5 (CLIM-UTILS:BOTTOM): 626.0001
   Arg 6 (POSTSCRIPT-CLIM::FILLED): T
   Local 7 (CLOS-INTERNALS::.EXTRA-ARGUMENT.): #<Map for classes POSTSCRIPT-CLIM::POSTSCRIPT-MEDIUM, T, T, T, T, T 1244560>
   Local 8 (CLIM:MEDIUM): #<POSTSCRIPT-CLIM::POSTSCRIPT-MEDIUM 1176743>
   Local 9 (POSTSCRIPT-CLIM::TRANSFORM): #<CLIM-UTILS:IDENTITY-TRANSFORMATION 1070230524>
   Local 10 (POSTSCRIPT-CLIM::INK): #<CLIM-UTILS:NOWHERE 0.0 1070230525>
   Local 11 (CLIM:LINE-STYLE): #<CLIM:STANDARD-LINE-STYLE Units normal, thickness 1, joint miter, cap butt, dashes NIL 1070363767>
   Local 12 (POSTSCRIPT-CLIM::PRINTER-STREAM): #<SI:STRING-CHAR-EPSILON-OUTPUT-STREAM "B:>gma>asaps-screen-dump.ps.newest" 1152561>

2#<CLOS:STANDARD-METHOD CLIM:MEDIUM-DRAW-RECTANGLE* (:AROUND) (CLIM:BASIC-MEDIUM T T T T T) 1070370267>0  (P.C. = 61)  3(from SYS:CLIM;REL-2;SILICA;GRAPHICS)
0   Arg 0 (SYS:SELF-MAPPING-TABLE): #<Map for classes POSTSCRIPT-CLIM::POSTSCRIPT-MEDIUM, T, T, T, T, T 1244560>
   Arg 1 (CLIM:MEDIUM): #<POSTSCRIPT-CLIM::POSTSCRIPT-MEDIUM 1176743>
   Arg 2 (PYREX::X1): 88.00001
   Arg 3 (PYREX::Y1): 12.0
   Arg 4 (PYREX::X2): 235.20001
   Arg 5 (PYREX::Y2): 626.0001
   Arg 6 (PYREX::FILLED): T

2CLOS-INTERNALS::HANDLE-MISSED-DISPATCH0  (P.C. = 112)
   Arg 0 (CLOS:GENERIC-FUNCTION): #<STANDARD-GENERIC-FUNCTION CLIM:MEDIUM-DRAW-RECTANGLE* 21013005047>
   Arg 1 (CLOS-INTERNALS::ARGUMENTS): (#<POSTSCRIPT-CLIM::POSTSCRIPT-MEDIUM 1176743> 88.00001 12.0 235.20001 626.0001 T)

2CLOS-INTERNALS::HANDLE-CLASS-DISPATCH-MISS0  (P.C. = 122)
   Arg 0: #<STANDARD-GENERIC-FUNCTION CLIM:MEDIUM-DRAW-RECTANGLE* 21013005047>
   Arg 1: #<POSTSCRIPT-CLIM::POSTSCRIPT-MEDIUM 1176743>
3   --Extraneous args:--
0   Arg 2: 88.00001
   Arg 3: 12.0
   Arg 4: 235.20001
   Arg 5: 626.0001
   Arg 6: T

2(:INTERNAL #<CLOS:STANDARD-METHOD CLIM:REPLAY-OUTPUT-RECORD (CLIM-INTERNALS::RECTANGLE-OUTPUT-RECORD T) 1070547663> 0 CLIM-UTILS::WITH-DRAWING-OPTIONS-BODY)0  (P.C. = 50)  3(from SYS:CLIM;REL-2;SILICA;GRAPHICS)
0   Arg 0 (SYS:SELF-MAPPING-TABLE): #<Map for classes CLIM-INTERNALS::RECTANGLE-OUTPUT-RECORD, POSTSCRIPT-CLIM::POSTSCRIPT-STREAM 1244015>

2#<CLOS:STANDARD-METHOD CLIM:INVOKE-WITH-DRAWING-OPTIONS (CLIM:BASIC-MEDIUM T) 1070354632>0  (P.C. = 362)  3(from SYS:CLIM;REL-2;SILICA;MEDIUM)
0   Arg 0 (SYS:SELF-MAPPING-TABLE): #<Map for classes POSTSCRIPT-CLIM::POSTSCRIPT-MEDIUM, T 1211603>
   Arg 1 (SELF): #<POSTSCRIPT-CLIM::POSTSCRIPT-MEDIUM 1176743>
   Arg 2 (PYREX::CONTINUATION): #<STACK-LEXICAL-CLOSURE (:INTERNAL #<CLOS:STANDARD-METHOD CLIM:REPLAY-OUTPUT-RECORD (CLIM-INTERNALS::RECTANGLE-OUTPUT-RECORD T) 1070547663> 0 CLIM-UTILS::WITH-DRAWING-OPTIONS-BODY) 36600433625>
   Rest Arg: (:INK #<CLIM-UTILS:NOWHERE 0.0 1070230525> :LINE-STYLE NIL :CLIPPING-REGION #<CLIM-UTILS:EVERYWHERE 1.0 1070230526>)

2#<CLOS:STANDARD-METHOD CLIM:REPLAY-OUTPUT-RECORD (CLIM-INTERNALS::RECTANGLE-OUTPUT-RECORD T) 1070547663>0  (P.C. = 60)  3(from SYS:CLIM;REL-2;SILICA;GRAPHICS)
0   Arg 0 (CLOS-INTERNALS::.EXTRA-ARGUMENT.): #<Map for classes CLIM-INTERNALS::RECTANGLE-OUTPUT-RECORD, POSTSCRIPT-CLIM::POSTSCRIPT-STREAM 150163075>
   Arg 1 (SELF): #<CLIM-INTERNALS::RECTANGLE-OUTPUT-RECORD /x 81.600006:228.80002 y -198.69998:415.30014/ 150163475>
   Arg 2 (STREAM): #<POSTSCRIPT-CLIM::POSTSCRIPT-STREAM 150163523>
   Arg 3 (CLIM:REGION): #<CLIM-UTILS:EVERYWHERE 1.0 1070230526>
   Arg 4 (CLIM-INTERNALS::X-OFFSET): 6.4000015
   Arg 5 (CLIM-INTERNALS::Y-OFFSET): 210.69998

2CLOS-INTERNALS::HANDLE-MISSED-DISPATCH0  (P.C. = 112)
   Arg 0 (CLOS:GENERIC-FUNCTION): #<STANDARD-GENERIC-FUNCTION CLIM:REPLAY-OUTPUT-RECORD 21013006560>
   Arg 1 (CLOS-INTERNALS::ARGUMENTS): (#<CLIM-INTERNALS::RECTANGLE-OUTPUT-RECORD /x 81.600006:228.80002 y -198.69998:415.30014/ 150163475> #<POSTSCRIPT-CLIM::POSTSCRIPT-STREAM 150163523> #<CLIM-UTILS:EVERYWHERE 1.0 1070230526> 6.4000015 210.69998)

2CLOS-INTERNALS::HANDLE-CLASS-DISPATCH-MISS0  (P.C. = 122)
   Arg 0: #<STANDARD-GENERIC-FUNCTION CLIM:REPLAY-OUTPUT-RECORD 21013006560>
   Arg 1: #<CLIM-INTERNALS::RECTANGLE-OUTPUT-RECORD /x 81.600006:228.80002 y -198.69998:415.30014/ 150163475>
3   --Extraneous args:--
0   Arg 2: #<POSTSCRIPT-CLIM::POSTSCRIPT-STREAM 150163523>
   Arg 3: #<CLIM-UTILS:EVERYWHERE 1.0 1070230526>
   Arg 4: 6.4000015
   Arg 5: 210.69998

2(:INTERNAL #<CLOS:STANDARD-METHOD CLIM:REPLAY-OUTPUT-RECORD (CLIM-INTERNALS::OUTPUT-RECORD-MIXIN T) 1070556574> 0 CLIM-INTERNALS::REPLAY-1)0  (P.C. = 54)  3(from SYS:CLIM;REL-2;CLIM;RECORDING-PROTOCOL)
0   Arg 0 (COMPILER:.LEXICAL-ENVIRONMENT-POINTER.): #<LOCATIVE 36600433441>
   Arg 1 (CLIM-INTERNALS::RECORD): #<CLIM-INTERNALS::RECTANGLE-OUTPUT-RECORD /x 81.600006:228.80002 y -198.69998:415.30014/ 150163475>
   Arg 2 (CLIM-INTERNALS::X-OFFSET): 6.4000015
   Arg 3 (CLIM-INTERNALS::Y-OFFSET): 210.69998

2#<CLOS:STANDARD-METHOD CLIM:MAP-OVER-OUTPUT-RECORDS-OVERLAPPING-REGION (T CLIM:STANDARD-SEQUENCE-OUTPUT-RECORD T) 1070555230>0  (P.C. = 45)  3(from SYS:CLIM;REL-2;CLIM;RECORDING-PROTOCOL)
0   Arg 0 (CLOS-INTERNALS::.EXTRA-ARGUMENT.): #<Map for classes T, CLIM:STANDARD-PRESENTATION, T 1071123072>
   Arg 1 (SELF): #<CLIM:STANDARD-PRESENTATION ABASE:CLUSTERING-REGION #<ABASE:CLUSTERING-REGION 1075132327> /x 88.00001:824.0 y 12.0:627.0001/ 150163571>
   Arg 2 (CLIM-INTERNALS::RECORD): #<CLIM:STANDARD-PRESENTATION ABASE:CLUSTERING-REGION #<ABASE:CLUSTERING-REGION 1075132327> /x 88.00001:824.0 y 12.0:627.0001/ 150163571>
   Arg 3 (CLIM:REGION): #<CLIM-UTILS:EVERYWHERE 1.0 1070230526>
   Arg 4 (CLIM-INTERNALS::X-OFFSET): 0
   Arg 5 (CLIM-INTERNALS::Y-OFFSET): 0
   Rest Arg: (6.4000015 210.69998)

2(:INTERNAL #<CLOS:STANDARD-METHOD CLIM:REPLAY-OUTPUT-RECORD (CLIM-INTERNALS::OUTPUT-RECORD-MIXIN T) 1070556574> 0 CLIM-INTERNALS::REPLAY-1)0  (P.C. = 34)  3(from SYS:CLIM;REL-2;CLIM;RECORDING-PROTOCOL)
0   Arg 0 (COMPILER:.LEXICAL-ENVIRONMENT-POINTER.): #<LOCATIVE 36600433441>
   Arg 1 (CLIM-INTERNALS::RECORD): #<CLIM:STANDARD-PRESENTATION ABASE:CLUSTERING-REGION #<ABASE:CLUSTERING-REGION 1075132327> /x 88.00001:824.0 y 12.0:627.0001/ 150163571>
   Arg 2 (CLIM-INTERNALS::X-OFFSET): 0
   Arg 3 (CLIM-INTERNALS::Y-OFFSET): 0

2#<CLOS:STANDARD-METHOD CLIM:MAP-OVER-OUTPUT-RECORDS-OVERLAPPING-REGION (T CLIM:STANDARD-TREE-OUTPUT-RECORD T) 1070537305>0  (P.C. = 44)  3(from SYS:CLIM;REL-2;CLIM;COORDINATE-SORTED-SET)
0   Arg 0 (CLOS-INTERNALS::.EXTRA-ARGUMENT.): #<Map for classes T, CLIM:STANDARD-TREE-OUTPUT-HISTORY, T 1071121460>
   Arg 1 (SELF): #<CLIM:STANDARD-TREE-OUTPUT-HISTORY /x 0:836.00006 y 0:678.2/ 150171441>
   Arg 2 (CLIM-INTERNALS::RECORD): #<CLIM:STANDARD-TREE-OUTPUT-HISTORY /x 0:836.00006 y 0:678.2/ 150171441>
   Arg 3 (CLIM:REGION): #<CLIM-UTILS:EVERYWHERE 1.0 1070230526>
   Arg 4 (CLIM-INTERNALS::X-OFFSET): 0
   Arg 5 (CLIM-INTERNALS::Y-OFFSET): 0
   Rest Arg: (0 0)

2(:INTERNAL #<CLOS:STANDARD-METHOD CLIM:REPLAY-OUTPUT-RECORD (CLIM-INTERNALS::OUTPUT-RECORD-MIXIN T) 1070556574> 0 CLIM-INTERNALS::REPLAY-1)0  (P.C. = 34)  3(from SYS:CLIM;REL-2;CLIM;RECORDING-PROTOCOL)
0   Arg 0 (COMPILER:.LEXICAL-ENVIRONMENT-POINTER.): #<LOCATIVE 36600433441>
   Arg 1 (CLIM-INTERNALS::RECORD): #<CLIM:STANDARD-TREE-OUTPUT-HISTORY /x 0:836.00006 y 0:678.2/ 150171441>
   Arg 2 (CLIM-INTERNALS::X-OFFSET): 0
   Arg 3 (CLIM-INTERNALS::Y-OFFSET): 0

2#<CLOS:STANDARD-METHOD CLIM:REPLAY-OUTPUT-RECORD (CLIM-INTERNALS::OUTPUT-RECORD-MIXIN T) 1070556574>0  (P.C. = 26)  3(from SYS:CLIM;REL-2;CLIM;RECORDING-PROTOCOL)
0   Arg 0 (CLOS-INTERNALS::.EXTRA-ARGUMENT.): #<Generic function selector for CLIM:REPLAY-OUTPUT-RECORD 21012714072>
   Arg 1 (CLIM-INTERNALS::RECORD): #<CLIM:STANDARD-TREE-OUTPUT-HISTORY /x 0:836.00006 y 0:678.2/ 150171441>
   Arg 2 (STREAM): #<POSTSCRIPT-CLIM::POSTSCRIPT-STREAM 150163523>
   Arg 3 (CLIM:REGION): #<CLIM-UTILS:EVERYWHERE 1.0 1070230526>
   Arg 4 (CLIM-INTERNALS::X-OFFSET): 0
   Arg 5 (CLIM-INTERNALS::Y-OFFSET): 0

2CLIM:REPLAY0  (P.C. = 54)  3(from SYS:CLIM;REL-2;CLIM;RECORDING-PROTOCOL)
0   Arg 0 (CLIM-INTERNALS::RECORD): #<CLIM:STANDARD-TREE-OUTPUT-HISTORY /x 0:836.00006 y 0:678.2/ 150171441>
   Arg 1 (STREAM): #<POSTSCRIPT-CLIM::POSTSCRIPT-STREAM 150163523>
   Arg 2 (CLIM:REGION): #<CLIM-UTILS:EVERYWHERE 1.0 1070230526>

2#<CLOS:STANDARD-METHOD CLIM:STREAM-REPLAY (POSTSCRIPT-CLIM::POSTSCRIPT-STREAM) 1072506621>0  (P.C. = 60)  3(from SYS:CLIM;REL-2;POSTSCRIPT;PATCH;POSTSCRIPT-CLIM-52-1)
0   Arg 0 (SYS:SELF-MAPPING-TABLE): #<Map for classes POSTSCRIPT-CLIM::POSTSCRIPT-STREAM 150166311>
   Arg 1 (SELF): #<POSTSCRIPT-CLIM::POSTSCRIPT-STREAM 150163523>
   Arg 2 (CLIM:REGION): NIL

2CLOS-INTERNALS::HANDLE-MISSED-DISPATCH0  (P.C. = 112)
   Arg 0 (CLOS:GENERIC-FUNCTION): #<STANDARD-GENERIC-FUNCTION CLIM:STREAM-REPLAY 21013006060>
   Arg 1 (CLOS-INTERNALS::ARGUMENTS): (#<POSTSCRIPT-CLIM::POSTSCRIPT-STREAM 150163523> NIL)

2CLOS-INTERNALS::HANDLE-CLASS-DISPATCH-MISS0  (P.C. = 122)
   Arg 0: #<STANDARD-GENERIC-FUNCTION CLIM:STREAM-REPLAY 21013006060>
   Arg 1: #<POSTSCRIPT-CLIM::POSTSCRIPT-STREAM 150163523>
3   --Extraneous args:--
0   Arg 2: NIL

2(:INTERNAL POSTSCRIPT-CLIM::INVOKE-WITH-OUTPUT-TO-POSTSCRIPT-STREAM 3 CLIM-INTERNALS::WITH-OUTPUT-RECORDING-OPTIONS-BODY)0  (P.C. = 12)  3(from SYS:CLIM;REL-2;POSTSCRIPT;PATCH;POSTSCRIPT-CLIM-52-2)
0   Arg 0 (COMPILER:.LEXICAL-ENVIRONMENT-POINTER.): #<LOCATIVE 36600433314>

2#<CLOS:STANDARD-METHOD CLIM:INVOKE-WITH-OUTPUT-RECORDING-OPTIONS (CLIM-INTERNALS::OUTPUT-RECORDING-MIXIN T T T) 1070563117>0  (P.C. = 17)  3(from SYS:CLIM;REL-2;CLIM;RECORDING-PROTOCOL)
0   Arg 0 (SYS:SELF-MAPPING-TABLE): #<Map for classes POSTSCRIPT-CLIM::POSTSCRIPT-STREAM, T, T, T 150166722>
   Arg 1 (SELF): #<POSTSCRIPT-CLIM::POSTSCRIPT-STREAM 150163523>
   Arg 2 (CLIM-INTERNALS::CONTINUATION): #<STACK-LEXICAL-CLOSURE (:INTERNAL POSTSCRIPT-CLIM::INVOKE-WITH-OUTPUT-TO-POSTSCRIPT-STREAM 3 CLIM-INTERNALS::WITH-OUTPUT-RECORDING-OPTIONS-BODY) 36600433326>
   Arg 3 (CLIM-INTERNALS::RECORD): NIL
   Arg 4 (CLIM-INTERNALS::DRAW): T

2POSTSCRIPT-CLIM::INVOKE-WITH-OUTPUT-TO-POSTSCRIPT-STREAM0  (P.C. = 524)  3(from SYS:CLIM;REL-2;POSTSCRIPT;PATCH;POSTSCRIPT-CLIM-52-2)
0   Arg 0 (FUTURE-COMMON-LISP:FILE-STREAM): #<SI:STRING-CHAR-EPSILON-OUTPUT-STREAM "B:>gma>asaps-screen-dump.ps.newest" 150175632>
   Arg 1 (POSTSCRIPT-CLIM::CONTINUATION): #<Compiled function (:INTERNAL ASAPS-UI::HARDCOPY-DISPLAY 0 POSTSCRIPT-CLIM::POSTSCRIPT-OUTPUT-BODY) 21001711057>
   Rest Arg: (:ORIENTATION :LANDSCAPE)

2ASAPS-UI::HARDCOPY-DISPLAY0  (P.C. = 37)  3(from ASAPS-ITASCA:LISP_SOURCE;UI;SECTORS-FRAME)
Follow-Ups:
Postscript dumps of frame output history.
From: Scott McKay <swm@harlequin.com>
Re: Postscript dumps of frame output history.
From: "David L. Westbrook" <westy%lindy@cs.umass.edu>
Prev: How to detect killed windows?
Next: consing of graphics operations
Index: CLIM Mailing list (1-Jun-94 to 30-Jun-95)
Thread: CLIM Mailing list Index (1-Jun-94 to 30-Jun-95)
Main Index | Thread Index