(FILECREATED " 2-Apr-87 15:16:03" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH236.;1
 2177   

      changes to:  (VARS RHTPATCH236COMS))


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

(PRETTYCOMPRINT RHTPATCH236COMS)

(RPAQQ RHTPATCH236COMS
 ((DECLARE: FIRST (P (LOAD? (NC.FindFile (QUOTE NCBROWSERCARD)))))
			  (* * Fix to get around Shrager's WDWHACKS package putting SHAPEW.POP stuff 
			     on PASSTOMAINCOMS.)
			  (* * Change to NCBROWSERCARD)
			  (FNS NC.ReattachBrowserOverviewWin)))
(DECLARE: FIRST 
(LOAD? (NC.FindFile (QUOTE NCBROWSERCARD)))
)
(* * Fix to get around Shrager's WDWHACKS package putting SHAPEW.POP stuff on PASSTOMAINCOMS.)


(* * Change to NCBROWSERCARD)


(DEFINEQ

(NC.ReattachBrowserOverviewWin

  (LAMBDA (OverviewWin BrowserWin WhereToAttach)             (* rht: " 2-Apr-87 15:12")


          (* * Check to see if OverviewWin is attached at correct place. If not, detach and reattach.)




          (* * rht 3/7/86: No longer checks. Just reattaches.)




          (* * rht 4/2/87: Changed WINDOWDELPROP of PASSTOMAINCOMS to just smash them. Otherwise Shrager's special 

	  SHAPEW.POP, etc. crud hangs around.)



    (LET ((Width (fetch
 (REGION WIDTH) of
 (
WINDOWREGION
 OverviewWin)))
	  (Height (fetch
 (REGION HEIGHT) of
 (
WINDOWREGION
 OverviewWin))))
         (
DETACHWINDOW
 OverviewWin)
         (
ATTACHWINDOW
 OverviewWin BrowserWin (
OR
 (
CAR
 WhereToAttach)
						      (
QUOTE
 LEFT))
			 (
OR
 (
CDR
 WhereToAttach)
			       (
QUOTE
 TOP))
			 (
QUOTE
 LOCALCLOSE))
         (
WINDOWPROP
 OverviewWin (
QUOTE
 PASSTOMAINCOMS)
		       (
QUOTE
 (
MOVEW
 SHAPEW SHRINKW BURYW)))
         (
WINDOWPROP
 BrowserWin (
QUOTE
 OverviewWinWidth)
		       Width)
         (
WINDOWPROP
 BrowserWin (
QUOTE
 OverviewWinHeight)
		       Height)
         (
WINDOWPROP
 OverviewWin (
QUOTE
 MINSIZE)
		       (
FUNCTION
 NC.BrowserOverviewWinMINSIZEFn))
         (
WINDOWPROP
 OverviewWin (
QUOTE
 MAXSIZE)
		       (
CONS
 Width Height)))))
)
(PUTPROPS RHTPATCH236 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (715 2095 (NC.ReattachBrowserOverviewWin 725 . 2093)))))
STOP