(FILECREATED "17-Nov-86 00:16:59" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH157.;1
 2047   

      changes to:  (VARS RHTPATCH157COMS)
		   (FNS NCP.AddLeftButtonTitleBarMenuItems NCP.AddMiddleButtonTitleBarMenuItems))


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

(PRETTYCOMPRINT RHTPATCH157COMS)

(RPAQQ RHTPATCH157COMS
 ((* * Fixes bug #215: can now change middle button items as well as left 
			     menu items of a displayed card.)
			  (* * New fns for NCPROGINT. Place near old NCP.AddTitleBarMenuItems.)
			  (FNS NCP.AddLeftButtonTitleBarMenuItems 
			       NCP.AddMiddleButtonTitleBarMenuItems)))
(* * Fixes bug #215: can now change middle button items as well as left menu items of a 
displayed card.)


(* * New fns for NCPROGINT. Place near old NCP.AddTitleBarMenuItems.)


(DEFINEQ

(NCP.AddLeftButtonTitleBarMenuItems

  (LAMBDA (Window NewMenuItems)                              (* rht: "12-Jul-86 14:11")


          (* * Add the given menu items to the left button menu of Window.)



    (LET ((Menu (
WINDOWPROP
 Window (
QUOTE
 TitleBarLeftButtonMenu))))
         (if
 Menu
	     then
 (
PROG1
 (replace
 (
MENU
 ITEMS) of
 Menu with
 (
APPEND

									  (fetch
 (
MENU
 ITEMS)
									     of
 Menu)
									  NewMenuItems))
			     (replace
 (
MENU
 IMAGE) of
 Menu with
 NIL))))))

(NCP.AddMiddleButtonTitleBarMenuItems

  (LAMBDA (Window NewMenuItems)                              (* rht: "17-Nov-86 00:15")


          (* * Add the given menu items to the middle button menu of Window.)



    (LET ((Menu (
WINDOWPROP
 Window (
QUOTE
 TitleBarMiddleButtonMenu))))
         (if
 Menu
	     then
 (
PROG1
 (replace
 (
MENU
 ITEMS) of
 Menu with
 (
APPEND

									  (fetch
 (
MENU
 ITEMS)
									     of
 Menu)
									  NewMenuItems))
			     (replace
 (
MENU
 IMAGE) of
 Menu with
 NIL))))))
)
(PUTPROPS RHTPATCH157 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (819 1965 (NCP.AddLeftButtonTitleBarMenuItems 829 . 1392) (
NCP.AddMiddleButtonTitleBarMenuItems 1394 . 1963)))))
STOP