(FILECREATED "24-Jul-87 19:16:23" {QV}<NOTECARDS>1.3KNEXT>RHTPATCH284.;2
 2398   

      changes to:  (VARS RHTPATCH284COMS)
		   (FNS NC.ReattachBrowserOverviewWin)

      previous date: "24-Jul-87 19:13:35" {QV}<NOTECARDS>1.3KNEXT>RHTPATCH284.;1)


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

(PRETTYCOMPRINT RHTPATCH284COMS)

(RPAQQ RHTPATCH284COMS
 ((DECLARE: FIRST (P (NC.LoadFileFromDirectories (QUOTE NCBROWSERCARD))))
			  (* * Fixes bug %#589 reported by John Tang whereby first reshape of browser 
			     overview win screws up.)
			  (* * Change to NCBROWSERCARD)
			  (FNS NC.ReattachBrowserOverviewWin)))
(DECLARE: FIRST 
(NC.LoadFileFromDirectories (QUOTE NCBROWSERCARD))
)
(* * Fixes bug %#589 reported by John Tang whereby first reshape of browser overview win 
screws up.)


(* * Change to NCBROWSERCARD)


(DEFINEQ

(NC.ReattachBrowserOverviewWin

  (LAMBDA (OverviewWin BrowserWin WhereToAttach)             (* rht: "24-Jul-87 19:10")


          (* * 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.)




          (* * rht 7/24/87: Took SHAPEW off of list of PASSTOMAINCOMS.)



    (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
 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 RHTPATCH284 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (864 2316 (NC.ReattachBrowserOverviewWin 874 . 2314)))))
STOP