(DEFINE-FILE-INFO PACKAGE "IL" READTABLE "INTERLISP" BASE 10)

(FILECREATED "10-May-88 11:06:31" {PEACH}<MACDONALD>COEDS>DWMPATCH004.;7
 14968  

      changes to%:  (FNS NC.MakeTEditReadWrite NCP.MakeCardReadOnly NCP.ChangeCardWriteStatus 
                         NC.MakeTextCardReadOnly NC.Don'tDoIt)

      previous date%: " 9-May-88 16:34:16" {PEACH}<MACDONALD>COEDS>DWMPATCH004.;5)


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

(PRETTYCOMPRINT DWMPATCH004COMS)

(RPAQQ DWMPATCH004COMS
 (

(* ;;; "Add ReadOnly card User interface")


                        (DECLARE%: DONTCOPY (PROPS (DWMPATCH004 MAKEFILE-ENVIRONMENT)
                                                   (DWMPATCH004 FILETYPE)))
                        

(* ;;; "New for NCINTERFACE")


                        (FNS NC.Don'tDoIt NC.MakeCardReadOnly NC.MakeCardReadWrite 
                             NC.ChangeCardWriteStatus)
                        (VARIABLES NC.SafeLeftButtonItems NC.SafeLeftButtonSubItems 
                               NC.SafeMiddleButtonItems NC.SafeMiddleButtonSubItems)
                        

(* ;;; " Changes for NCINTERFACE")


                        (FNS NC.MakeTEditReadOnly NC.MakeTEditReadWrite)
                        (VARS NC.CardOpsItems)
                        

(* ;;; "New for NCPROGINT")


                        (FNS NCP.MakeCardReadOnly NCP.MakeCardReadWrite NCP.ChangeCardWriteStatus)
                        

(* ;;; "Changes for NCTEXTCARD")


                        (FNS NC.MakeTextCardReadOnly)
                        

(* ;;; "Changes for NCGRAPHCARD")


                        (FNS NC.MakeGraphCardReadOnly)
                        

(* ;;; "Changes for NCBROWSERCARD")


                        (FNS NC.MakeBrowserCardReadOnly)
                        

(* ;;; "Changes for NCCARD")


                        (FNS NC.ReadOnlyCardP)))



(* ;;; "Add ReadOnly card User interface")


(DECLARE%: DONTCOPY 

(PUTPROPS DWMPATCH004 MAKEFILE-ENVIRONMENT
 (:PACKAGE "IL" :READTABLE "INTERLISP" :BASE 10))

(PUTPROPS DWMPATCH004 FILETYPE
 :TCOMPL)
)



(* ;;; "New for NCINTERFACE")


(DEFINEQ

(NC.Don'tDoIt

  [LAMBDA (Viewer Element OtherParam)
                    (* ; "Edited 10-May-88 08:41 by MacDonald")


    'DON'T])

(NC.MakeCardReadOnly

  [LAMBDA (Card MoreSafeItems MoreSafeSubItems)
          (* ; "Edited 14-Apr-88 12:49 by MacDonald")

          
          (* ;; "Apply Card's MakeReadOnlyFn")


    (LET (Card-To-Change)
         (COND
            ((SETQ Card-To-Change (OR Card (NCP.SelectCards NC.NoteCardsIconWindow T NIL 
                                                  "Please select card to be made read only")))
             (NCP.ApplyCardTypeFn MakeReadOnlyFn Card-To-Change MoreSafeItems MoreSafeSubItems])

(NC.MakeCardReadWrite

  [LAMBDA (Card)
                                         (* ; "Edited 14-Apr-88 12:50 by MacDonald")

          
          (* ;; "Apply Card's MakeReadWriteFn")


    (LET (Card-To-Change)
         (COND
            ((SETQ Card-To-Change (OR Card (NCP.SelectCards NC.NoteCardsIconWindow T NIL 
                                                  "Please select card to be made read write")))
             (NCP.ApplyCardTypeFn MakeReadWriteFn Card-To-Change])

(NC.ChangeCardWriteStatus

  [LAMBDA (Card MoreSafeItems MoreSafeSubITems)
          (* ; "Edited 12-Apr-88 09:55 by MacDonald")


    (LET (Card-To-Change)
         (SETQ Card-To-Change (NCP.SelectCards NC.NoteCardsIconWindow T NIL 
                                     "Please select card to be changed"))
         (if
 Card-To-Change
             then
 (if
 (NC.FetchUserDataProp Card-To-Change 'ReadOnly)
                      then
 (NC.MakeCardReadWrite
 Card-To-Change)
                    else
 (NC.MakeCardReadOnly
 Card-To-Change MoreSafeItems MoreSafeSubITems])
)

(DEFGLOBALVAR NC.SafeLeftButtonItems
 '(Show% Links Show% Info Designate% FileBoxes |Close and Save|)
   )


(DEFGLOBALVAR NC.SafeLeftButtonSubItems
 '(|Close and Save| |Close w/o Saving| |Save in NoteFile| 
                                                Indicate% NoteFile) )


(DEFGLOBALVAR NC.SafeMiddleButtonItems
 '(Put Find Quit Dictionary) )


(DEFGLOBALVAR NC.SafeMiddleButtonSubItems
 '(Set% Dictionary Get% Synonyms Get% Definitions 
                                                  |Search For Word| FindWord Plain-Text Old-Format)
   )




(* ;;; " Changes for NCINTERFACE")


(DEFINEQ

(NC.MakeTEditReadOnly

  [LAMBDA (Window Safe-Text-Menu-Items Safe-Text-Menu-SubItems)

                                                         (* ; "Edited 14-Apr-88 12:23 by MacDonald")


(* ;;; 

"dwm 4/14/88:  Replace dangerous menu stuff to a call to NC.MakeMenusReadOnly with safe menu items.")


    (LET* ((TxtObj (TEXTOBJ Window)))
          (if
 (NOT (TEXTPROP TxtObj 'READONLY))
              then
 (TEXTPROP TxtObj 'READONLY T)
                   (TEXTPROP TxtObj 'SELFN (FUNCTION NC.ReadOnlyTEditSelFn))
                   (replace
 (TEXTOBJ TXTREADONLY) of
 TxtObj with
 T)
                   (UNINTERRUPTABLY
                       (KILL-PROCESS-OF-TEDIT-WINDOW Window) (* ; 

                                                       "make sure TEdit killer won't restart process")


                       (UNMARK-AS-WITHOUT-PROCESS Window))
                   (NC.MakeMenusReadOnly Window Safe-Text-Menu-Items Safe-Text-Menu-SubItems])

(NC.MakeTEditReadWrite

  [LAMBDA (Window)
                                       (* ; "Edited 10-May-88 11:03 by MacDonald")


(* ;;; "dwm 5/10/88; Replaced dangerous menu item stuff with a call to NC.MakeMenusReadWrite")


    (LET* ((TxtObj (TEXTOBJ Window))
           (Sel (fetch
 SEL of
 TxtObj)))
          (if
 (TEXTPROP TxtObj 'READONLY)
              then
 (NC.MakeMenusReadWrite Window)
                   (\SHOWSEL Sel NIL NIL)
                   (replace
 SET of
 Sel with
 NIL)
                   (replace
 (TEXTOBJ TXTREADONLY) of
 TxtObj with
 NIL)
                   (TEXTPROP TxtObj 'READONLY NIL)
                   (MARK-AS-WITHOUT-PROCESS Window 'TEDIT])
)

(RPAQQ NC.CardOpsItems
 [(| Close | (NC.CloseNoteCards NIL NC.NoteCardsIconWindow)
                               "Delete several note cards."
                               (SUBITEMS (Close% Structure (NC.CloseStructure NIL NIL 
                                                                  NC.NoteCardsIconWindow)
                                                "Close note cards belonging to a structure.")))
                        (| Delete | (NC.DeleteNoteCards NIL T NIL NC.NoteCardsIconWindow)
                               "Delete several note cards."
                               (SUBITEMS (Delete% Structure (NC.DeleteStructure NIL NIL 
                                                                   NC.NoteCardsIconWindow)
                                                "Delete note cards belonging to a structure.")))
                        (| Copy | (NC.CopyCards NIL NIL NIL NIL NC.NoteCardsIconWindow)
                               "Copy note cards to a filebox"
                               (SUBITEMS (Copy% Structure (NC.CopyStructure NIL NIL NIL 
                                                                 NC.NoteCardsIconWindow)
                                                "Copy note cards belonging to a structure.")))
                        (| Move | (NC.MoveCards NIL NIL NIL NIL NC.NoteCardsIconWindow)
                               "Move note cards to a filebox"
                               (SUBITEMS (Move% Structure (NC.MoveStructure NIL NIL NIL 
                                                                 NC.NoteCardsIconWindow)
                                                "Move note cards belonging to a structure.")))
                        (|Change Write Status| (NC.ChangeCardWriteStatus)
                               "Toggle a card's Write permission"
                               (SUBITEMS (|Make Read Only| (NC.MakeCardReadOnly)
                                                "MakeCardReadOnly")
                                      (|Make Read Write| (NC.MakeCardReadWrite)
                                             "MakeCardReadWrite"])



(* ;;; "New for NCPROGINT")


(DEFINEQ

(NCP.MakeCardReadOnly

  [LAMBDA (Card MoreSafeItems MoreSafeSubItems)
          (* ; "Edited 10-May-88 10:55 by MacDonald")


    (NC.MakeCardReadOnly
 Card MoreSafeItems MoreSafeSubItems])

(NCP.MakeCardReadWrite

  [LAMBDA (Card)
                                         (* ; "Edited  9-May-88 10:14 by MacDonald")


    (NC.MakeCardReadWrite
 Card])

(NCP.ChangeCardWriteStatus

  [LAMBDA (Card MoreSafeItems MoreSafeSubITems)
          (* ; "Edited 10-May-88 10:57 by MacDonald")


    (NC.ChangeCardWriteStatus
 Card MoreSafeItems MoreSafeSubITems])
)



(* ;;; "Changes for NCTEXTCARD")


(DEFINEQ

(NC.MakeTextCardReadOnly

  [LAMBDA (Card New-Safe-Items New-Safe-Sub-Items)
       (* ; "Edited 10-May-88 11:05 by MacDonald")


(* ;;; "dwm 5/10/88;  Changed from Dangerous menu item logic to safe menu item logic.")


    (DECLARE
 (GLOBALVARS NC.ShowPropListMenu NC.SafeMiddleButtonItems NC.SafeLeftButtonItems 
                    NC.SafeMiddleButtonSubItems NC.SafeLeftButtonSubItems))
    (LET ((Window (NC.FetchWindow Card))
          PropListEditor
          (TextCard-Safe-Items (APPEND New-Safe-Items NC.SafeMiddleButtonItems NC.SafeLeftButtonItems
                                      ))
          (TextCard-Safe-Sub-Items (APPEND New-Safe-Sub-Items NC.SafeMiddleButtonSubItems 
                                          NC.SafeLeftButtonSubItems)))
         (NC.ProtectedCardOperation Card "Make Read-Only" Window
                (if
 (NC.CardSomehowDirtyP Card)
                    then
 (ALLOW.BUTTON.EVENTS)
                         (if
 (MENU (create
 MENU
                                          TITLE _ "Card has been edited"
                                          ITEMS _ '(("Save Changes" T 
                                                           "Save edited version of card in NoteFile")
                                                    ("Revert" NIL 
                                                 "Discard edits, refetch card contents from NoteFile"
                                                           ))
                                          CENTERFLG _ T))
                             then
 (NC.CardSaveFn Card NIL Window)
                           else
 (NC.RevertTextCard Card)))
                (NC.SetUserDataProp Card 'ReadOnly T)
                (if
 (WINDOWP (SETQ PropListEditor (NC.PropListEditorOpenP Window)))
                    then
 (NC.MakeTEditReadOnly
 PropListEditor)
                         (WINDOWPROP PropListEditor 'TEDIT.MENU NC.ShowPropListMenu))
                (if
 (WINDOWP (SETQ PropListEditor (NC.PropListEditorOpenP Window T)))
                    then
 (NC.MakeTEditReadOnly
 PropListEditor))
                (NC.MakeTEditReadOnly
 Window TextCard-Safe-Items TextCard-Safe-Sub-Items])
)



(* ;;; "Changes for NCGRAPHCARD")


(DEFINEQ

(NC.MakeGraphCardReadOnly

  [LAMBDA (Card New-Safe-Items New-Safe-Sub-Items)
       (* ; "Edited 12-Apr-88 12:04 by MacDonald")


(* ;;; "Make a GraphCard Read-Only.")


(* ;;; "dwm 4/12/88:  Add global safe menu items.")


    (DECLARE
 (GLOBALVARS NC.ShowPropListMenu NC.SafeMiddleButtonItems NC.SafeLeftButtonItems 
                    NC.SafeMiddleButtonSubItems NC.SafeLeftButtonSubItems))
    (LET [(Window (NC.FetchWindow Card))
          PropListEditor
          (Grapher-Safe-Items (APPEND New-Safe-Items NC.SafeMiddleButtonItems NC.SafeLeftButtonItems)
                 )
          (Grapher-Safe-Sub-Items (APPEND New-Safe-Sub-Items NC.SafeMiddleButtonSubItems 
                                         NC.SafeLeftButtonSubItems '(Relayout% Graph]
         (NC.ProtectedCardOperation Card "Make Read-Only" Window (if
 (NC.CardSomehowDirtyP Card)
                                                                     then
 (NC.SaveOrRevertGraphCard
                                                                           Card Window))
                (NC.SetUserDataProp Card 'ReadOnly T)
                (if
 (WINDOWP (SETQ PropListEditor (NC.PropListEditorOpenP Window)))
                    then
 (NC.MakeTEditReadOnly
 PropListEditor)
                         (WINDOWPROP PropListEditor 'TEDIT.MENU NC.ShowPropListMenu))
                (WINDOWPROP Window 'RIGHTBUTTONFN NIL)
                (NC.MakeMenusReadOnly Window Grapher-Safe-Items Grapher-Safe-Sub-Items])
)



(* ;;; "Changes for NCBROWSERCARD")


(DEFINEQ

(NC.MakeBrowserCardReadOnly

  [LAMBDA (Card New-Safe-Items New-Safe-Sub-Items)
       (* ; "Edited 12-Apr-88 12:01 by MacDonald")


(* ;;; "Make a BrowserCard Read-Only.")


(* ;;; "dwm 4/12/88: Add global safe menu items.")


    (DECLARE
 (GLOBALVARS NC.ShowPropListMenu NC.SafeMiddleButtonItems NC.SafeLeftButtonItems 
                    NC.SafeMiddleButtonSubItems NC.SafeLeftButtonSubItems))
    (LET ((Window (NC.FetchWindow Card))
          PropListEditor
          [Browser-Safe-Items (APPEND New-Safe-Items NC.SafeMiddleButtonItems NC.SafeLeftButtonItems
                                     '(|Browser Overview Win|]
          (Browser-Safe-Sub-Items (APPEND New-Safe-Sub-Items NC.SafeMiddleButtonSubItems 
                                         NC.SafeLeftButtonSubItems)))
         (NC.ProtectedCardOperation Card "Make Read-Only" Window (if
 (NC.CardSomehowDirtyP Card)
                                                                     then
 (NC.SaveOrRevertGraphCard
                                                                           Card Window))
                (NC.SetUserDataProp Card 'ReadOnly T)
                (NC.GetGraphEditMenu Window)
                (if
 (WINDOWP (SETQ PropListEditor (NC.PropListEditorOpenP Window)))
                    then
 (NC.MakeTEditReadOnly
 Window)
                         (WINDOWPROP PropListEditor 'TEDIT.MENU NC.ShowPropListMenu))
                (NC.MakeMenusReadOnly Window Browser-Safe-Items Browser-Safe-Sub-Items])
)



(* ;;; "Changes for NCCARD")


(DEFINEQ

(NC.ReadOnlyCardP

  [LAMBDA (Card)
                                         (* ; "Edited  8-Apr-88 10:56 by MacDonald")


(* ;;; "Return non-nil if card's notefile is open for read only.  Someday it will get smarter.")


(* ;;; "dwm 03/15/88:  That day is here, now checks Card's ReadOnly property")


    (NC.FetchUserDataProp Card 'ReadOnly])
)
(PUTPROPS DWMPATCH004 COPYRIGHT ("Xerox Corporation" 1988))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (2182 3952 (NC.Don'tDoIt 2192 . 2332) (NC.MakeCardReadOnly 2334 . 2853) (
NC.MakeCardReadWrite 2855 . 3347) (NC.ChangeCardWriteStatus 3349 . 3950)) (4560 6278 (
NC.MakeTEditReadOnly 4570 . 5557) (NC.MakeTEditReadWrite 5559 . 6276)) (8444 9047 (
NCP.MakeCardReadOnly 8454 . 8656) (NCP.MakeCardReadWrite 8658 . 8831) (NCP.ChangeCardWriteStatus 8833
 . 9045)) (9089 11325 (NC.MakeTextCardReadOnly 9099 . 11323)) (11368 12893 (NC.MakeGraphCardReadOnly 
11378 . 12891)) (12938 14475 (NC.MakeBrowserCardReadOnly 12948 . 14473)) (14513 14885 (
NC.ReadOnlyCardP 14523 . 14883)))))
STOP