(FILECREATED "20-Apr-87 15:07:45" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH244.;1
 2697   

      changes to:  (VARS RHTPATCH244COMS)
		   (FNS NC.BrowserCreateCard))


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

(PRETTYCOMPRINT RHTPATCH244COMS)

(RPAQQ RHTPATCH244COMS
 ((* * Fix to bug #518: Titling from browser doesn't spawn mouse. Added a 
			     protected card operation wrapper in NC.BrowserCreateCard as well as call 
			     to ALLOW.BUTTON.EVENTS.)
			  (DECLARE: FIRST (P (LOAD? (NC.FindFile (QUOTE NCBROWSERCARD)))))
			  (* * Change to NCBROWSERCARD)
			  (FNS NC.BrowserCreateCard)))
(* * Fix to bug #518: Titling from browser doesn't spawn mouse. Added a protected card 
operation wrapper in NC.BrowserCreateCard as well as call to ALLOW.BUTTON.EVENTS.)


(DECLARE: FIRST 
(LOAD? (NC.FindFile (QUOTE NCBROWSERCARD)))
)
(* * Change to NCBROWSERCARD)


(DEFINEQ

(NC.BrowserCreateCard

  (LAMBDA (Graph Window)                                     (* rht: "20-Apr-87 15:03")


          (* * Called from grapher ADDNODE fn. Used to create a new card and corresponding browser node.)




          (* * Rht 11/17/85: updated for new card and notefile objects.)




          (* * rht 4/30/86: Now only computes title if got a link.)




          (* * rht 4/20/87: Added ProtectedCardOperation wrapper and call to ALLOW.BUTTON.EVENTS.)



    (LET ((GraphCard (
NC.CoerceToCard
 Window))
	  Link GraphNodeID Card Title)
         (NC.ProtectedCardOperation GraphCard "Create card from browser" Window
				    (
SETQ
 Link (
NC.MakeLink
 Window NC.BrowserContentsLinkLabel
								(
QUOTE
 *New% Card*)
								GraphCard NIL NIL NIL T))
				    (if
 Link
					then
 (
SETQ
 Title (
NC.RetrieveTitle

						   (
SETQ
 Card (fetch
 (Link DestinationCard)
								   of
 Link))))
					       (
ALLOW.BUTTON.EVENTS
)
					       (
NC.SetTitle
 Card
							      (
OR
 (
NC.AskUser

								      "Title of new card: " NIL
								      (if
 (
STREQUAL
 "Untitled" 
											Title)
									  then
 NIL
									else
 Title)
								      T Window)
								    "Untitled"))
                                                             (* Create hash array if haven't already.)

					       (
NC.GetBrowserHashArray
 GraphCard Graph)
					       (
SETQ
 GraphNodeID (
NC.GetBrowserNodeID
 GraphCard 
											  Card))
					       (
NC.MarkCardDirty
 GraphCard)
					       (
NODECREATE
 GraphNodeID (
NC.MakeLinkIcon
 Link)
							     (
CURSORPOSITION
 NIL Window))
				      else
 NIL)))))
)
(PUTPROPS RHTPATCH244 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (898 2615 (NC.BrowserCreateCard 908 . 2613)))))
STOP