(FILECREATED "13-Feb-87 16:18:03" {QV}<NOTECARDS>1.3K>NEXT>KOTOGRAPHERPATCHES.;4
 3238   

      changes to:  (FNS DRAWAREABOX)
		   (VARS KOTOGRAPHERPATCHESCOMS)

      previous date: "10-Feb-87 13:02:57" {QV}<NOTECARDS>1.3K>NEXT>KOTOGRAPHERPATCHES.;3)


(* Copyright (c) 1987 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT KOTOGRAPHERPATCHESCOMS)

(RPAQQ KOTOGRAPHERPATCHESCOMS
 ((* * Fixes to GRAPHER)
				 (FILES (FROM LISPUSERS)
					GRAPHER)
				 (* * rht&pmi 2/6/87: Fix to problem of GRAPHER miscomputing label 
				    sizes of virtual nodes)
				 (FNS MARK/GRAPH/NODE)
				 (* * rht&pmi 12/13/87: Replace BITBLTs with NC.DrawInnerBox. BITBLT 
				    does not behave correctly for Interpress printers.)
				 (FNS DRAWAREABOX)))
(* * Fixes to GRAPHER)


(FILESLOAD (FROM LISPUSERS)
	   GRAPHER)
(* * rht&pmi 2/6/87: Fix to problem of GRAPHER miscomputing label sizes of virtual nodes)


(DEFINEQ

(MARK/GRAPH/NODE

  (LAMBDA (NODE)                                             (* rht: " 6-Feb-87 15:04")

                                                             (* changes appearance of graph node to indicate that a

							     link has been snapped.)

    (DECLARE
 (
USEDFREE
 BORDER.FOR.MARKING LABELSHADE.FOR.MARKING))
    (
OR
 (
EQ
 BORDER.FOR.MARKING (
QUOTE
 DON'T))
	  (LET ((ORIGINAL-NODEBORDER (fetch
 NODEBORDER of
 NODE)))
	       (replace
 NODEBORDER of
 NODE with
 BORDER.FOR.MARKING)
	       (if
 (
NEQ
 BORDER.FOR.MARKING ORIGINAL-NODEBORDER)
		   then
 (
SET/LABEL/SIZE
 NODE T))))
    (
OR
 (
EQ
 LABELSHADE.FOR.MARKING (
QUOTE
 DON'T))
	  (replace
 NODELABELSHADE of
 NODE with
 LABELSHADE.FOR.MARKING))))
)
(* * rht&pmi 12/13/87: Replace BITBLTs with NC.DrawInnerBox. BITBLT does not behave correctly 
for Interpress printers.)


(DEFINEQ

(DRAWAREABOX

  (LAMBDA (BOXLEFT BOXBOTTOM BOXWIDTH BOXHEIGHT BORDER OP W TEXTURE)
                                                             (* pmi: "13-Feb-87 15:54")

                                                             (* lmm " 9-Jun-85 22:04")

                                                             (* draws lines inside the region.)


          (* * rht&pmi 12/13/87: Replace BITBLTs with NC.DrawInnerBox. BITBLT does not behave correctly for Interpress 

	  printers.)




          (* * (OR TEXTURE (SETQ TEXTURE BLACKSHADE)) (* draw left edge) (BITBLT NIL NIL NIL W BOXLEFT BOXBOTTOM BORDER 

	  BOXHEIGHT (QUOTE TEXTURE) OP TEXTURE) (* draw top) (BITBLT NIL NIL NIL W (PLUS BOXLEFT BORDER) 

	  (DIFFERENCE (PLUS BOXBOTTOM BOXHEIGHT) BORDER) (DIFFERENCE BOXWIDTH (PLUS BORDER BORDER)) BORDER 

	  (QUOTE TEXTURE) OP TEXTURE) (* draw bottom) (BITBLT NIL NIL NIL W (PLUS BOXLEFT BORDER) BOXBOTTOM 

	  (DIFFERENCE BOXWIDTH (PLUS BORDER BORDER)) BORDER (QUOTE TEXTURE) OP TEXTURE) (* draw right edge) 

	  (BITBLT NIL NIL NIL W (DIFFERENCE (PLUS BOXLEFT BOXWIDTH) BORDER) BOXBOTTOM BORDER BOXHEIGHT 

	  (QUOTE TEXTURE) OP TEXTURE))



    (
NC.DrawInnerBox
 BOXLEFT BOXBOTTOM BOXWIDTH BOXHEIGHT BORDER OP W)))
)
(PUTPROPS KOTOGRAPHERPATCHES COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (926 1734 (MARK/GRAPH/NODE 936 . 1732)) (1862 3149 (DRAWAREABOX 1872 . 3147)))))
STOP