NIL printer for region in background menu
This commit is contained in:
rmkaplan
@@ -1,14 +1,12 @@
|
|||||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||||
|
|
||||||
(FILECREATED " 5-Dec-2025 17:24:03" {WMEDLEY}<sources>HARDCOPY.;93 149900
|
(FILECREATED " 6-Dec-2025 00:46:05" {WMEDLEY}<sources>HARDCOPY.;94 149688
|
||||||
|
|
||||||
:EDIT-BY rmk
|
:EDIT-BY rmk
|
||||||
|
|
||||||
:CHANGES-TO (FNS HARDCOPYIMAGEW.TOPRINTER PRINTERTYPE NewPrinter PRINTERS SEND.FILE.TO.PRINTER
|
:CHANGES-TO (FNS HARDCOPYREGION.TOPRINTER)
|
||||||
CAN.PRINT.DIRECTLY MakeMenuOfPrinters DEFAULTPRINTER PRINTERTYPEP)
|
|
||||||
(VARS HARDCOPYCOMS)
|
|
||||||
|
|
||||||
:PREVIOUS-DATE " 5-Dec-2025 10:37:26" {WMEDLEY}<sources>HARDCOPY.;87)
|
:PREVIOUS-DATE " 5-Dec-2025 17:24:03" {WMEDLEY}<sources>HARDCOPY.;93)
|
||||||
|
|
||||||
|
|
||||||
(PRETTYCOMPRINT HARDCOPYCOMS)
|
(PRETTYCOMPRINT HARDCOPYCOMS)
|
||||||
@@ -213,7 +211,8 @@
|
|||||||
NIL NIL NIL (CDR FILE&TYPE])
|
NIL NIL NIL (CDR FILE&TYPE])
|
||||||
|
|
||||||
(HARDCOPYREGION.TOPRINTER
|
(HARDCOPYREGION.TOPRINTER
|
||||||
[LAMBDA NIL (* ; "Edited 13-Jul-90 01:57 by jds")
|
[LAMBDA NIL (* ; "Edited 6-Dec-2025 00:45 by rmk")
|
||||||
|
(* ; "Edited 13-Jul-90 01:57 by jds")
|
||||||
(LET ((PRINTERCHOICE (GetPrinterName))
|
(LET ((PRINTERCHOICE (GetPrinterName))
|
||||||
PRINTERTYPE)
|
PRINTERTYPE)
|
||||||
[COND
|
[COND
|
||||||
@@ -223,14 +222,13 @@
|
|||||||
(SETQ PRINTERCHOICE (CADR PRINTERCHOICE)))
|
(SETQ PRINTERCHOICE (CADR PRINTERCHOICE)))
|
||||||
(PRINTERCHOICE (* ; "Got back just a name.")
|
(PRINTERCHOICE (* ; "Got back just a name.")
|
||||||
(SETQ PRINTERTYPE (PRINTERTYPE PRINTERCHOICE]
|
(SETQ PRINTERTYPE (PRINTERTYPE PRINTERCHOICE]
|
||||||
(COND
|
(PROG (REGION)
|
||||||
(PRINTERCHOICE (PROG (REGION)
|
(SPAWN.MOUSE)
|
||||||
(SPAWN.MOUSE)
|
(PROMPTPRINT "Select a region")
|
||||||
(PROMPTPRINT "Select a region")
|
(SETQ REGION (GETREGION))
|
||||||
(SETQ REGION (GETREGION))
|
(CLRPROMPT)
|
||||||
(CLRPROMPT)
|
(HARDCOPYW REGION (PACK* '{LPT} PRINTERCHOICE)
|
||||||
(HARDCOPYW REGION (PACK* '{LPT} PRINTERCHOICE)
|
NIL NIL NIL (PRINTERTYPE PRINTERCHOICE])
|
||||||
NIL NIL NIL (PRINTERTYPE PRINTERCHOICE])
|
|
||||||
|
|
||||||
(COPY.WINDOW.TO.BITMAP
|
(COPY.WINDOW.TO.BITMAP
|
||||||
[LAMBDA (WINDOW) (* ; "Edited 26-Aug-87 14:09 by Snow")
|
[LAMBDA (WINDOW) (* ; "Edited 26-Aug-87 14:09 by Snow")
|
||||||
@@ -2410,39 +2408,39 @@
|
|||||||
(ADDTOVAR LAMA )
|
(ADDTOVAR LAMA )
|
||||||
)
|
)
|
||||||
(DECLARE%: DONTCOPY
|
(DECLARE%: DONTCOPY
|
||||||
(FILEMAP (NIL (6578 13917 (HARDCOPY.SOMEHOW 6588 . 8824) (HARDCOPYIMAGEW 8826 . 9276) (
|
(FILEMAP (NIL (6398 13705 (HARDCOPY.SOMEHOW 6408 . 8644) (HARDCOPYIMAGEW 8646 . 9096) (
|
||||||
HARDCOPYIMAGEW.TOFILE 9278 . 9570) (HARDCOPYIMAGEW.TOPRINTER 9572 . 11237) (HARDCOPYREGION.TOFILE
|
HARDCOPYIMAGEW.TOFILE 9098 . 9390) (HARDCOPYIMAGEW.TOPRINTER 9392 . 11057) (HARDCOPYREGION.TOFILE
|
||||||
11239 . 11781) (HARDCOPYREGION.TOPRINTER 11783 . 12896) (COPY.WINDOW.TO.BITMAP 12898 . 13915)) (13989
|
11059 . 11601) (HARDCOPYREGION.TOPRINTER 11603 . 12684) (COPY.WINDOW.TO.BITMAP 12686 . 13703)) (13777
|
||||||
26293 (MakeMenuOfPrinters 13999 . 15457) (PRINTERS.WHENSELECTEDFN 15459 . 17082) (MakeMenuOfImageTypes
|
26081 (MakeMenuOfPrinters 13787 . 15245) (PRINTERS.WHENSELECTEDFN 15247 . 16870) (MakeMenuOfImageTypes
|
||||||
17084 . 17903) (GetNewPrinterFromUser 17905 . 18347) (PopUpWindowAndGetAtom 18349 . 19800) (
|
16872 . 17691) (GetNewPrinterFromUser 17693 . 18135) (PopUpWindowAndGetAtom 18137 . 19588) (
|
||||||
PopUpWindowAndGetList 19802 . 21372) (NewPrinter 21374 . 22770) (GetPrinterName 22772 . 23060) (
|
PopUpWindowAndGetList 19590 . 21160) (NewPrinter 21162 . 22558) (GetPrinterName 22560 . 22848) (
|
||||||
GetImageFile 23062 . 26041) (FetchDefaultPrinter 26043 . 26291)) (26348 44438 (DEFAULTPRINTER 26358 .
|
GetImageFile 22850 . 25829) (FetchDefaultPrinter 25831 . 26079)) (26136 44226 (DEFAULTPRINTER 26146 .
|
||||||
26619) (CONVERT.FILE.TO.TYPE.FOR.PRINTER 26621 . 27598) (CAN.PRINT.DIRECTLY 27600 . 28033) (EMPRESS
|
26407) (CONVERT.FILE.TO.TYPE.FOR.PRINTER 26409 . 27386) (CAN.PRINT.DIRECTLY 27388 . 27821) (EMPRESS
|
||||||
28035 . 28610) (HARDCOPYW 28612 . 33516) (LISTFILES1 33518 . 33695) (PRINTER.BITMAPFILE 33697 . 34086)
|
27823 . 28398) (HARDCOPYW 28400 . 33304) (LISTFILES1 33306 . 33483) (PRINTER.BITMAPFILE 33485 . 33874)
|
||||||
(PRINTER.BITMAPSCALE 34088 . 34572) (PRINTER.SCRATCH.FILE 34574 . 34885) (PRINTERPROP 34887 . 35137)
|
(PRINTER.BITMAPSCALE 33876 . 34360) (PRINTER.SCRATCH.FILE 34362 . 34673) (PRINTERPROP 34675 . 34925)
|
||||||
(PRINTERSTATUS 35139 . 35414) (PRINTERTYPE 35416 . 38051) (PRINTERNAME 38053 . 39139) (PRINTFILETYPE
|
(PRINTERSTATUS 34927 . 35202) (PRINTERTYPE 35204 . 37839) (PRINTERNAME 37841 . 38927) (PRINTFILETYPE
|
||||||
39141 . 39403) (PRINTERTYPEP 39405 . 39630) (SEND.FILE.TO.PRINTER 39632 . 44436)) (44439 50998 (
|
38929 . 39191) (PRINTERTYPEP 39193 . 39418) (SEND.FILE.TO.PRINTER 39420 . 44224)) (44227 50786 (
|
||||||
PRINTERDEVICE 44449 . 45426) (PRINTERDEVICE.OPENFN 45428 . 46148) (PRINTERDEVICE.CLOSEFN 46150 . 49235
|
PRINTERDEVICE 44237 . 45214) (PRINTERDEVICE.OPENFN 45216 . 45936) (PRINTERDEVICE.CLOSEFN 45938 . 49023
|
||||||
) (PRINTERDEVICEP 49237 . 49908) (PRINTERNAME 49910 . 50996)) (51060 52700 (PRINTERS 51070 . 52698)) (
|
) (PRINTERDEVICEP 49025 . 49696) (PRINTERNAME 49698 . 50784)) (50848 52488 (PRINTERS 50858 . 52486)) (
|
||||||
52995 53553 (SCALEREGION 53005 . 53551)) (53777 60840 (TEXTTOIMAGEFILE 53787 . 54646) (
|
52783 53341 (SCALEREGION 52793 . 53339)) (53565 60628 (TEXTTOIMAGEFILE 53575 . 54434) (
|
||||||
COPY.TEXT.TO.IMAGE 54648 . 60838)) (60902 62645 (\BLTSHADE.GENERICPRINTER 60912 . 62643)) (62712 99878
|
COPY.TEXT.TO.IMAGE 54436 . 60626)) (60690 62433 (\BLTSHADE.GENERICPRINTER 60700 . 62431)) (62500 99666
|
||||||
(MAKEHARDCOPYSTREAM 62722 . 64438) (UNMAKEHARDCOPYSTREAM 64440 . 65370) (HARDCOPYSTREAMTYPE 65372 .
|
(MAKEHARDCOPYSTREAM 62510 . 64226) (UNMAKEHARDCOPYSTREAM 64228 . 65158) (HARDCOPYSTREAMTYPE 65160 .
|
||||||
65779) (\CHARWIDTH.HDCPYDISPLAY 65781 . 66601) (\DSPFONT.HDCPYDISPLAY 66603 . 69398) (
|
65567) (\CHARWIDTH.HDCPYDISPLAY 65569 . 66389) (\DSPFONT.HDCPYDISPLAY 66391 . 69186) (
|
||||||
\DSPRIGHTMARGIN.HDCPYDISPLAY 69400 . 70255) (\DSPXPOSITION.HDCPYDISPLAY 70257 . 70632) (
|
\DSPRIGHTMARGIN.HDCPYDISPLAY 69188 . 70043) (\DSPXPOSITION.HDCPYDISPLAY 70045 . 70420) (
|
||||||
\DSPYPOSITION.HDCPYDISPLAY 70634 . 71009) (\STRINGWIDTH.HDCPYDISPLAY 71011 . 71966) (
|
\DSPYPOSITION.HDCPYDISPLAY 70422 . 70797) (\STRINGWIDTH.HDCPYDISPLAY 70799 . 71754) (
|
||||||
\STRINGWIDTH.HCPYDISPLAYAUX 71968 . 77308) (\HDCPYBLTCHAR 77310 . 82207) (\HDCPYDISPLAY.FIX.XPOS 82209
|
\STRINGWIDTH.HCPYDISPLAYAUX 71756 . 77096) (\HDCPYBLTCHAR 77098 . 81995) (\HDCPYDISPLAY.FIX.XPOS 81997
|
||||||
. 82966) (\HDCPYDISPLAY.FIX.YPOS 82968 . 83709) (\HDCPYDISPLAYINIT 83711 . 85401) (\HDCPYDSPPRINTCHAR
|
. 82754) (\HDCPYDISPLAY.FIX.YPOS 82756 . 83497) (\HDCPYDISPLAYINIT 83499 . 85189) (\HDCPYDSPPRINTCHAR
|
||||||
85403 . 91316) (\SLOWHDCPYBLTCHAR 91318 . 97934) (\CHANGECHARSET.HDCPYDISPLAY 97936 . 99876)) (100193
|
85191 . 91104) (\SLOWHDCPYBLTCHAR 91106 . 97722) (\CHANGECHARSET.HDCPYDISPLAY 97724 . 99664)) (99981
|
||||||
149744 (MAKEHARDCOPYMODESTREAM 100203 . 102924) (UNMAKEHARDCOPYMODESTREAM 102926 . 104516) (
|
149532 (MAKEHARDCOPYMODESTREAM 99991 . 102712) (UNMAKEHARDCOPYMODESTREAM 102714 . 104304) (
|
||||||
\HCPYDISPLAYIMAGEOPS 104518 . 107338) (\BLTSHADE.HCPYMODE 107340 . 108006) (\BITBLT.HCPYMODE 108008 .
|
\HCPYDISPLAYIMAGEOPS 104306 . 107126) (\BLTSHADE.HCPYMODE 107128 . 107794) (\BITBLT.HCPYMODE 107796 .
|
||||||
108756) (\BRUSHCONVERT.HCPYMODE 108758 . 109307) (\CHANGECHARSET.HCPYMODE 109309 . 112571) (
|
108544) (\BRUSHCONVERT.HCPYMODE 108546 . 109095) (\CHANGECHARSET.HCPYMODE 109097 . 112359) (
|
||||||
\DASHINGCONVERT.HCPYMODE 112573 . 112914) (\CHARWIDTH.HCPYMODE 112916 . 113353) (\DRAWLINE.HCPYMODE
|
\DASHINGCONVERT.HCPYMODE 112361 . 112702) (\CHARWIDTH.HCPYMODE 112704 . 113141) (\DRAWLINE.HCPYMODE
|
||||||
113355 . 113884) (\DRAWCURVE.HCPYMODE 113886 . 114473) (\DRAWCIRCLE.HCPYMODE 114475 . 114960) (
|
113143 . 113672) (\DRAWCURVE.HCPYMODE 113674 . 114261) (\DRAWCIRCLE.HCPYMODE 114263 . 114748) (
|
||||||
\DRAWELLIPSE.HCPYMODE 114962 . 115646) (\DSPFONT.HCPYMODE 115648 . 118332) (\DSPLEFTMARGIN.HCPYMODE
|
\DRAWELLIPSE.HCPYMODE 114750 . 115434) (\DSPFONT.HCPYMODE 115436 . 118120) (\DSPLEFTMARGIN.HCPYMODE
|
||||||
118334 . 119076) (\DSPLINEFEED.HCPYMODE 119078 . 119711) (\DSPRIGHTMARGIN.HCPYMODE 119713 . 120781) (
|
118122 . 118864) (\DSPLINEFEED.HCPYMODE 118866 . 119499) (\DSPRIGHTMARGIN.HCPYMODE 119501 . 120569) (
|
||||||
\DSPSPACEFACTOR.HCPYMODE 120783 . 121558) (\DSPXPOSITION.HCPYMODE 121560 . 122578) (
|
\DSPSPACEFACTOR.HCPYMODE 120571 . 121346) (\DSPXPOSITION.HCPYMODE 121348 . 122366) (
|
||||||
\DSPYPOSITION.HCPYMODE 122580 . 123230) (\MOVETO.HCPYMODE 123232 . 123446) (\FONTCREATE.HCPYMODE
|
\DSPYPOSITION.HCPYMODE 122368 . 123018) (\MOVETO.HCPYMODE 123020 . 123234) (\FONTCREATE.HCPYMODE
|
||||||
123448 . 125405) (\CREATECHARSET.HCPYMODE 125407 . 127130) (\STRINGWIDTH.HCPYMODE 127132 . 127927) (
|
123236 . 125193) (\CREATECHARSET.HCPYMODE 125195 . 126918) (\STRINGWIDTH.HCPYMODE 126920 . 127715) (
|
||||||
\HCPYMODEBLTCHAR 127929 . 133679) (\HCPYMODEDSPPRINTCHAR 133681 . 139615) (\SLOWHCPYMODEBLTCHAR 139617
|
\HCPYMODEBLTCHAR 127717 . 133467) (\HCPYMODEDSPPRINTCHAR 133469 . 139403) (\SLOWHCPYMODEBLTCHAR 139405
|
||||||
. 146246) (\SFFixY.HCPYMODE 146248 . 149742)))))
|
. 146034) (\SFFixY.HCPYMODE 146036 . 149530)))))
|
||||||
STOP
|
STOP
|
||||||
|
|||||||
Binary file not shown.
Reference in New Issue
Block a user