(FILECREATED " 8-May-86 11:31:37" {QV}<NOTECARDS>1.3K>RHTPATCH045.;1
 1700   

      changes to:  (VARS RHTPATCH045COMS))


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

(PRETTYCOMPRINT RHTPATCH045COMS)

(RPAQQ RHTPATCH045COMS
 ((* * Change to NCBROWSERCARD to fix scrolling in browser overview problem.)
			  (FNS NC.RedrawBrowserOverviewWin)))
(* * Change to NCBROWSERCARD to fix scrolling in browser overview problem.)


(DEFINEQ

(NC.RedrawBrowserOverviewWin

  (LAMBDA (OverviewWin BrowserWin)                           (* rht: " 8-May-86 11:29")


          (* * The contents of the browser window have changed. Redraw the overview win.)




          (* * rht 3/20/86: Now compresses to fit overview if necessary.)




          (* * rht 5/8/86: Now smashes SCROLLFN)



    (
NC.ShrinkGraphToWindow
 (
WINDOWPROP
 BrowserWin (
QUOTE
 GRAPH))
			      OverviewWin)
    (if
 (
EQ
 (
WINDOWPROP
 BrowserWin (
QUOTE
 OVERVIEWWINMODE))
		NC.OverviewWinMode.Compress)
	then
 (
WINDOWPROP
 OverviewWin (
QUOTE
 RESHAPEFN)
			     NIL)
	       (
NC.CompressOverviewWin
 OverviewWin BrowserWin))
    (
WINDOWPROP
 OverviewWin (
QUOTE
 REPAINTFN)
		  (
FUNCTION
 NC.BrowserOverviewWinRepaintFn))
    (
WINDOWPROP
 OverviewWin (
QUOTE
 RESHAPEFN)
		  (
FUNCTION
 NC.BrowserOverviewWinReshapeFn))
    (
WINDOWPROP
 OverviewWin (
QUOTE
 BUTTONEVENTFN)
		  (
FUNCTION
 NC.BrowserOverviewWinButtonEventFn))
    (
WINDOWPROP
 OverviewWin (
QUOTE
 SCROLLFN)
		  NIL)
    (
NC.DrawWireFrameInOverviewWin
 OverviewWin BrowserWin)))
)
(PUTPROPS RHTPATCH045 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (457 1618 (NC.RedrawBrowserOverviewWin 467 . 1616)))))
STOP