(FILECREATED "10-Sep-85 12:04:18" {QV}<NOTECARDS>RELEASE1.2I>NCGESTURES.;3
 4584   

      changes to:  (FNS NC.GrabWindow)

      previous date: "18-Mar-85 18:45:56" {QV}<NOTECARDS>RELEASE1.2I>NCGESTURES.;1)


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

(PRETTYCOMPRINT NCGESTURESCOMS)

(RPAQQ NCGESTURESCOMS
 ((E (SETQ NC.SystemDate (DATE))
			  (UNMARKASCHANGED (QUOTE NC.SystemDate)
					   (QUOTE VARS)))
		       (VARS NC.SystemDate)
		       (P (UNMARKASCHANGED (QUOTE NC.SystemDate)
					   (QUOTE VARS)))
		       (* * Stuff for closing and moving windows by gesturing.)
		       (GLOBALVARS LASTMOUSEBUTTONS)
		       (FNS NC.GrabWindow)
		       (P (SETQ BACKGROUNDBUTTONEVENTFN (FUNCTION NC.GrabWindow)))))

(RPAQQ NC.SystemDate
 "10-Sep-85 12:04:20")
(UNMARKASCHANGED (QUOTE NC.SystemDate)
		 (QUOTE VARS))
(* * Stuff for closing and moving windows by gesturing.)


(DECLARE: DOEVAL@COMPILE DONTCOPY

(GLOBALVARS LASTMOUSEBUTTONS)
)
(DEFINEQ

(NC.GrabWindow

  (LAMBDA NIL                                                (* fgh: "10-Sep-85 12:03")

    (
PROG
 ((InOutList NIL)
	   Window WindowRegionLeft WindowRegionBottom WindowRegionWidth WindowRegionHeight INX INY 
	   OUTX OUTY)
          (
AND
 (
NEQ
 LASTMOUSEBUTTONS 7)
	       (until
 (MOUSESTATE UP)
		  do
 (
RESETLST
 (
RESETSAVE
 (
CURSOR
 BOXCURSOR))
			       (until
 (
OR
 (MOUSESTATE UP)
					  (
NEQ
 Window (
WHICHW
)))
				  do
 (
BLOCK
))
			       (
SETQ
 InOutList (
CONS
 (
LIST
 Window LASTMOUSEX LASTMOUSEY)
						     InOutList))
			       (
SETQ
 WindowRegionLeft (fetch
 (REGION LEFT)
							 of
 (
WINDOWPROP
 Window (
QUOTE
 REGION))))
			       (
SETQ
 WindowRegionBottom (fetch
 (REGION BOTTOM)
							   of
 (
WINDOWPROP
 Window (
QUOTE
 REGION))))
			       (
SETQ
 WindowRegionWidth (fetch
 (REGION WIDTH)
							  of
 (
WINDOWPROP
 Window (
QUOTE
 REGION))))
			       (
SETQ
 WindowRegionHeight (fetch
 (REGION HEIGHT)
							   of
 (
WINDOWPROP
 Window (
QUOTE
 REGION))))
			       (
SETQ
 OUTX (
CADAR
 InOutList))
			       (
SETQ
 OUTY (
CADDAR
 InOutList))
			       (
SETQ
 INX (
CADR
 (
CADR
 InOutList)))
			       (
SETQ
 INY (
CADDR
 (
CADR
 InOutList)))
			       (
COND

				 ((
AND
 Window (
NOT
 (LASTMOUSESTATE UP))
				       (
AND
 (
OR
 (
AND
 (
ILESSP
 INX (
IPLUS
 WindowRegionLeft
									(
FTIMES
 .25 WindowRegionWidth)
									))
						     (
ILESSP
 OUTX (
IPLUS
 WindowRegionLeft
									 (
FTIMES
 .25 
										WindowRegionWidth))))
						(
AND
 (
IGREATERP
 INX (
IPLUS
 WindowRegionLeft
									   (
FTIMES
 .75 
										WindowRegionWidth)))
						     (
IGREATERP
 OUTX (
IPLUS
 WindowRegionLeft
									    (
FTIMES
 .75 
										WindowRegionWidth)))))
					    (
OR
 (
AND
 (
ILESSP
 INY (
IPLUS
 WindowRegionBottom
									(
FTIMES
 .25 
									       WindowRegionHeight)))
						     (
ILESSP
 OUTY (
IPLUS
 WindowRegionBottom
									 (
FTIMES
 .25 
									       WindowRegionHeight))))
						(
AND
 (
IGREATERP
 INY (
IPLUS
 WindowRegionBottom
									   (
FTIMES
 .75 
									       WindowRegionHeight)))
						     (
IGREATERP
 OUTY (
IPLUS
 WindowRegionBottom
									    (
FTIMES
 .75 
									       WindowRegionHeight)))))
					    ))
				   (
MOVEW
 Window))
				 ((
AND
 Window (
NOT
 (LASTMOUSESTATE UP))
				       (for
 N from
 3 to
 3 by
 2
					  always
 (
AND
 (
EQ
 Window (
CAAR
 (
NTH
 InOutList N)))
						      (
NOT
 (
INSIDEP
 (
CREATEREGION
 (
IPLUS
 
										 WindowRegionLeft 20)
										  (
IPLUS
 
									       WindowRegionBottom 20)
										  (
IDIFFERENCE
 
										WindowRegionWidth 40)
										  (
IDIFFERENCE
 
									       WindowRegionHeight 40))
								    (
CADAR
 (
NTH
 InOutList
										(
SUB1
 N)))
								    (
CADDAR
 (
NTH
 InOutList
										 (
SUB1
 N))))))))
				   (
CLOSEW
 Window)
				   (
BLOCK
)))
			       (
SETQ
 Window (
WHICHW
))

          (* * Kludge to fix TEDIT image object button event fn bug.)



			       (
COND

				 ((
AND
 (
WINDOWP
 Window)
				       TEDIT.SELPENDING
				       (
EQ
 (
WINDOWPROP
 Window (
QUOTE
 TEXTOBJ))
					   TEDIT.SELPENDING))
				   (
SETQ
 Window NIL)))))))))
)
(SETQ BACKGROUNDBUTTONEVENTFN (FUNCTION NC.GrabWindow))
(PUTPROPS NCGESTURES COPYRIGHT ("Xerox Corporation" 1984 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (990 4442 (NC.GrabWindow 1000 . 4440)))))
STOP