(FILECREATED "24-Apr-85 01:13:10" {PHYLUM}<NOTECARDS>RELEASE1.2>NCSTRUCTEDITBROWSERCARD.;4
 2160   

      changes to:  (FNS NC.AddStructEditBrowserCard)

      previous date: "15-Mar-85 19:18:31" {PHYLUM}<NOTECARDS>RELEASE1.2>NCSTRUCTEDITBROWSERCARD.;3)


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

(PRETTYCOMPRINT NCSTRUCTEDITBROWSERCARDCOMS)

(RPAQQ NCSTRUCTEDITBROWSERCARDCOMS
 ((E (SETQ NC.SystemDate (DATE))
				       (UNMARKASCHANGED (QUOTE NC.SystemDate)
							(QUOTE VARS)))
				    (VARS NC.SystemDate)
				    (P (UNMARKASCHANGED (QUOTE NC.SystemDate)
							(QUOTE VARS)))
				    (* * Struct Editor browser Stuff)
				    (FILES NCBROWSERCARD NCSTRUCTEDITCARD)
				    (FNS NC.MakeStructEditBrowserCard)
				    (FNS NC.AddStructEditBrowserCard)
				    (P (NC.AddStructEditBrowserCard))))

(RPAQQ NC.SystemDate
 "24-Apr-85 01:13:10")
(UNMARKASCHANGED (QUOTE NC.SystemDate)
		 (QUOTE VARS))
(* * Struct Editor browser Stuff)


(FILESLOAD NCBROWSERCARD NCSTRUCTEDITCARD)
(DEFINEQ

(NC.MakeStructEditBrowserCard

  (LAMBDA (ID Title NoDisplayFlg ListOfRootIDAndListOfLinkLabelsAndVerticalFlg)
                                                             (* rht: " 8-Mar-85 11:14")


          (* * Make a StructEditBrowser card. Just like a browser card except edits of the browser are reflected in the 

	  underlying notecards structure.)



    (
NC.MakeBrowserCard
 ID Title NoDisplayFlg ListOfRootIDAndListOfLinkLabelsAndVerticalFlg T)))
)
(DEFINEQ

(NC.AddStructEditBrowserCard

  (LAMBDA NIL                                                (* rht: "24-Apr-85 01:10")

    (
NC.AddCardType
 (
QUOTE
 StructEditBrowser)
		    (
QUOTE
 StructEdit)
		    (
QUOTE
 GRAPH)
		    (
BQUOTE
 ((MakeCardFn , (
FUNCTION
 NC.MakeStructEditBrowserCard))
			     (EditCardFn , (
FUNCTION
 NC.BringUpBrowserCard))))
		    (
BQUOTE
 ((LinkDisplayMode Title)
			     (DefaultHeight 350)
			     (DefaultWidth 500)
			     (CardDisplayedInMenuFlg , NIL))))))
)
(NC.AddStructEditBrowserCard)
(PUTPROPS NCSTRUCTEDITBROWSERCARD COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (1024 1510 (NC.MakeStructEditBrowserCard 1034 . 1508)) (1511 2036 (
NC.AddStructEditBrowserCard 1521 . 2034)))))
STOP