(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP")

(FILECREATED "27-Jun-88 12:26:08" {QV}<NOTECARDS>1.3LNEXT>RHTPATCH325.;4
 2975   

      changes to%:  (FNS NC.GraphCardLeftButtonFn)
                    (VARS RHTPATCH325COMS)

      previous date%: "27-Jun-88 12:23:37" {QV}<NOTECARDS>1.3LNEXT>RHTPATCH325.;2)


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

(PRETTYCOMPRINT RHTPATCH325COMS)

(RPAQQ RHTPATCH325COMS
 ((DECLARE%: DONTCOPY (PROPS (RHTPATCH325 MAKEFILE-ENVIRONMENT)
                                                   (RHTPATCH325 FILETYPE)))
                        [DECLARE%: FIRST (P (NC.LoadFileFromDirectories 'NCGRAPHCARD]
                        
          
          (* ;; "Additional fix that should have been in rhtpatch322.  Makes LinkIconLeftButtonFn be called when left buttoning in graph or browser.")


                        
          
          (* ;; "Change to NCGRAPHCARD")


                        (FNS NC.GraphCardLeftButtonFn)))
(DECLARE%: DONTCOPY 

(PUTPROPS RHTPATCH325 MAKEFILE-ENVIRONMENT
 (:PACKAGE "INTERLISP" :READTABLE "INTERLISP"))

(PUTPROPS RHTPATCH325 FILETYPE
 :TCOMPL)
)
(DECLARE%: FIRST 
(NC.LoadFileFromDirectories 'NCGRAPHCARD)
)



(* ;; 
"Additional fix that should have been in rhtpatch322.  Makes LinkIconLeftButtonFn be called when left buttoning in graph or browser."
)





(* ;; "Change to NCGRAPHCARD")


(DEFINEQ

(NC.GraphCardLeftButtonFn

  [LAMBDA (GraphNode GraphWindow)
                            (* ; "Edited 27-Jun-88 12:25 by Trigg")


(* ;;; "If this is a node containing a link icon, then do: IF Selection in progress, then pressing a node gets its destination ID if its actually a note card node.  Otherwise, bring up the note card pointed to by the node.")

          
          (* ;; "fgh 11/14/85 Updated to handle Card object.")

          
          (* ;; "fgh 11/14/85 Isn't this obsolete??????")

          
          (* ;; "rht&pmi 11/14/86: No longer does stupid pushcopy stuff.")

          
          (* ;; "rg 11/4/87 added ReadOnly to NC.EditNoteCard call")

          
          (* ;; "jrc 13-jun-88 added the equivalent to RHTPATCH322 -- use the LinkIconLeftButtonFn of the card type, if there is one")

          
          (* ;; "rht&jrc 6/27/88: Replaced core code with call to NC.LinkIconLeftButtonFn. ")


    (LET ((LinkIcon (fetch
 (GRAPHNODE NODELABEL) of
 GraphNode)))
         (if
 [AND (NC.LinkIconImageObjP LinkIcon)
                  (NOT (OR (KEYDOWNP 'LSHIFT)
                           (KEYDOWNP 'RSHIFT)
                           (KEYDOWNP 'CTRL)
                           (KEYDOWNP 'COPY)
                           (KEYDOWNP 'DELETE)
                           (KEYDOWNP 'MOVE]
             then
 (NC.LinkIconLeftButtonFn LinkIcon GraphWindow)
           else
 NIL])
)
(PUTPROPS RHTPATCH325 COPYRIGHT ("Xerox Corporation" 1988))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (1435 2892 (NC.GraphCardLeftButtonFn 1445 . 2890)))))
STOP