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

(FILECREATED " 8-May-87 14:17:43" 
{QV}<NOTECARDS>1.3K>NEXT>KIRKPATCH037.\;1
 2929   

      |changes| |to:|  (VARS KIRKPATCH037COMS))


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

(PRETTYCOMPRINT KIRKPATCH037COMS)

(RPAQQ KIRKPATCH037COMS
 ((FNS |NC.MakeTEditPropsList|)))
(DEFINEQ

(|NC.MakeTEditPropsList|

  (LAMBDA (|TEditWindow| |Don'tAttachUserSpecifiedPropsFlg| 
                 |NoteFile|)
 (* \; 

                          "Edited  8-May-87 14:15 by kirk:")

      
      (* * |Create| |the| |props| |list| |to| 

      |hand| |to| |all| |TEdit| |and| 

      OPENTEXTSTREAM |calls|)

      
      (* * |rht| 9/10/85\: |Now| |takes| \a 

      |TEditWindow| |arg| |so| |can| |compute| \a 

      |prompt| |window.|)

      
      (* * 5/1/86\: |Now| |appends| |NC-specific| 

      |props| |in| |front| |of| |TEdit| |props| 

      |specified| |as| |global| |param| |by| 

      |user.|)

      
      (* * |rht| 8/2/86\: |Added| 

      |Don'tAttachUserSpecifiedPropsFlg| |to| 

      |override| |attaching| |user-specified| 

      |props.| |For| |use| |by| |fileboxes.|)

      
      (* * |rht&pmi| 11/19/86\: |Added| |another| 

      |set| |of| |props| |at| |the| |notefile| 

      |level| |stashed| |on| |NoteFile| |user| 

      |data.| |Also| |added| |NoteFile| |argument.|)

      
      (* * |rht| 3/9/87\: |Now| |passes| DON\'T 

      |to| PROMPTWINDOW |to| |fix| |things| |for| 

      |lyric.|)

      
      (* * |kirk| 5/8/87\: |Deleted| |passing| 

      DON\'T |to| PROMPTWINDOW)


    (DECLARE (GLOBALVARS |NC.UserSpecifiedTEditProps| 
                    |NC.DefaultFont|))
    (APPEND (LIST 'TITLEMENUFN (FUNCTION |NC.TEditMenuFn|)
                  'PUTFN
                  (FUNCTION |NC.TEditPutFn|)
                  'GETFN
                  (FUNCTION |NC.TEditGetFn|)
                  'QUITFN
                  (LIST (FUNCTION |NC.TEditPropsListQuitFn|
                         )
                        (FUNCTION (LAMBDA NIL
                                    'DON\'T))))
           (LIST 'FONT (OR (AND (|type?| |NoteFile| 
                                       |NoteFile|)
                                (|NC.NoteFileProp|
                                 |NoteFile|
                                 '|Font|))
                           |NC.DefaultFont|))
           (|if| |Don'tAttachUserSpecifiedPropsFlg|
               |then| NIL
             |else| (OR (AND (|type?| |NoteFile| |NoteFile|
                                    )
                             (|NC.NoteFileProp|
                              |NoteFile|
                              '|ExtraTEditProps|))
                        |NC.UserSpecifiedTEditProps|)))))
)
(PUTPROPS KIRKPATCH037 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE\: DONTCOPY
  (FILEMAP (NIL (361 2845 (|NC.MakeTEditPropsList| 371 . 2843)
))))
STOP