(FILECREATED "13-Oct-87 18:39:47" {QV}<NOTECARDS>1.3KNEXT>RHTPATCH291.;1
 2173   

      changes to:  (VARS RHTPATCH291COMS)
		   (FNS NC.ShowBrowserGraph))


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

(PRETTYCOMPRINT RHTPATCH291COMS)

(RPAQQ RHTPATCH291COMS
 ((* * Fixes bug reported by John Tang whereby ExpandBrowserNode trashed the 
			     COPYBUTTONEVENTFN of the window so that one couldn't shift select cards 
			     out of the browser until next browser relayout.)
			  (* * Change to NCBROWSERCARD)
			  (FNS NC.ShowBrowserGraph)))
(* * Fixes bug reported by John Tang whereby ExpandBrowserNode trashed the COPYBUTTONEVENTFN 
of the window so that one couldn't shift select cards out of the browser until next browser 
relayout.)


(* * Change to NCBROWSERCARD)


(DEFINEQ

(NC.ShowBrowserGraph

  (LAMBDA (Graph Window)                                     (* rht: "13-Oct-87 18:36")


          (* * SHOWGRAPH Graph in Window.)




          (* * rht 5/13/87: Added call to NC.InstallCopyButtonEventFn.)




          (* * rht 10/13/87: Added COPYBUTTONEVENTFN arg to SHOWGRAPH to fix bug reported by John Tang.)



    (
SHOWGRAPH
 Graph Window (
FUNCTION
 NC.GraphCardLeftButtonFn)
		 (
FUNCTION
 NC.GraphCardMiddleButtonFn)
		 NIL T (
FUNCTION
 NC.GRAPHERCOPYBUTTONEVENTFN))

          (* * Have to reset windowprops since SHOWGRAPH messes with them.)


                                                             (* Disable the old-style right button grapher editor 

							     menu.)

    (
WINDOWPROP
 Window (
QUOTE
 RIGHTBUTTONFN)
		  (
FUNCTION
 NC.BrowserRightButtonFn))
    (
WINDOWADDPROP
 Window (
QUOTE
 REPAINTFN)
		     (
FUNCTION
 NC.BrowserRepaintFn)
		     T)
    (
WINDOWPROP
 Window (
QUOTE
 SCROLLFN)
		  (
FUNCTION
 NC.BrowserScrollFn))
    (
WINDOWPROP
 Window (
QUOTE
 RESHAPEFN)
		  (
FUNCTION
 NC.BrowserReshapeFn))
    (
NC.InstallTitleBarButtonEventFn
 Window (
FUNCTION
 NC.TitleBarButtonEventFn))
    (
NC.InstallCopyButtonEventFn
 Window)))
)
(PUTPROPS RHTPATCH291 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (815 2091 (NC.ShowBrowserGraph 825 . 2089)))))
STOP