(FILECREATED "14-NOV-83 08:55:34" {PHYLUM}<DMRUSSELL>DEMOSCRIPT.;8
 4492   

      previous date: " 3-AUG-83 16:32:26" {PHYLUM}<DMRUSSELL>DEMOSCRIPT.;7)


(PRETTYCOMPRINT DEMOSCRIPTCOMS)

(RPAQQ DEMOSCRIPTCOMS
 ((FNS DemoMenuFN DemoWindow DMRDrawBox FixMenus LargeMouse)
		       (P (FixMenus))))
(DEFINEQ

(DemoMenuFN

  [LAMBDA (a b c)                                            (* dmr: " 2-AUG-83 12:59")

    [COND
      ((CADR a)
	(EVAL (CADR a]
    (SHADEITEM a DemoMenu BLACKSHADE])

(DemoWindow

  [LAMBDA NIL                                                (* edited: " 3-AUG-83 16:30")

    (PROG NIL
          (SETQ DemoMenu
	    (create
 MENU
		    WHENSELECTEDFN ←(QUOTE DemoMenuFN)
		    ITEMS ←[QUOTE (["Large Mouse Buttons" (SETQ LargeMouseProc
							    (EVAL.AS.PROCESS (QUOTE (LargeMouse
]
				    ("Show Mouse as Cursor" NIL)
				    ("Show Cursor Changes" NIL)
				    ("Show Mouse Buttons" NIL)
				    ("Define Window" NIL)
				    ("Show how PromptWindow works" NIL)
				    ("Show and define a menu (RIGHTBUTTONFN)" NIL)
				    ("Explain each RIGHTBUTTONFN" NIL)
				    ("Mouse click vs. Depress&Hold" NIL)
				    ("Show Inspector" NIL)
				    ("Define term Active Region" NIL)
				    ("Show Active Region via SET" NIL)
				    ("Typein expr: (PRINT (PLUS (QUOTIENT 6 2) 4) )" NIL)
				    ("Demo BS and ↑W" NIL)
				    ("Show list operations:" NIL)
				    ("(CONS '(A) '(B))" NIL)
				    ("(LIST 'A 'B 'C)" NIL)
				    ("(CONS 'A1 '(B C D) )" NIL)
				    (" " NIL)
				    ("Show use of ↑D" NIL)
				    ("Show use of ↑ to escape from BREAK" (PROG NIL
									        (DEL.PROCESS 
										   LargeMouseProc)
									        (CLOSEW 
										 LargeMouseWindow)
									        (DELETEMENU DemoMenu 
											    T)
									        (SHAPEW 
									       \TopLevelTtyWindow
											(create

											  REGION
											  LEFT ← 3
											  BOTTOM ← 
											  463
											  WIDTH ← 422
											  HEIGHT ← 
											  283]
		    CENTERFLG ← T))
          (ADDMENU DemoMenu NIL (create
 POSITION
					XCOORD ← 700
					YCOORD ← 500])

(DMRDrawBox

  [LAMBDA (reg win)                                          (* dmr: "29-JUL-83 13:20")

    (DRAWLINE reg:LEFT reg:BOTTOM reg:WIDTH+reg:LEFT reg:BOTTOM 4 NIL win)
    (DRAWLINE reg:LEFT reg:BOTTOM reg:LEFT reg:HEIGHT+reg:BOTTOM 4 NIL win)
    (DRAWLINE reg:LEFT reg:HEIGHT+reg:BOTTOM reg:WIDTH+reg:LEFT reg:HEIGHT+reg:BOTTOM 4 NIL win)
    (DRAWLINE reg:LEFT+reg:WIDTH reg:HEIGHT+reg:BOTTOM reg:LEFT+reg:WIDTH reg:BOTTOM 4 NIL win])

(FixMenus

  [LAMBDA NIL                                                (* dmr: " 2-AUG-83 16:16")

    (PROG (x)
          (x←(FASSOC (QUOTE Paint)
		     WindowMenuCommands))
          (if
 x
	      then
 (WindowMenuCommands←(DREMOVE x WindowMenuCommands))
		   (WindowMenu←NIL])

(LargeMouse

  [LAMBDA NIL                                                (* edited: "14-NOV-83 08:50")

    (PROG ((BUTTON1 (create
 REGION
			    LEFT ← 10
			    BOTTOM ← 400
			    WIDTH ← 75
			    HEIGHT ← 150))
	   (BUTTON2 (create
 REGION
			    LEFT ← 110
			    BOTTOM ← 400
			    WIDTH ← 75
			    HEIGHT ← 150))
	   (BUTTON3 (create
 REGION
			    LEFT ← 210
			    BOTTOM ← 400
			    WIDTH ← 75
			    HEIGHT ← 150)))
          (LargeMouseWindow←(CREATEW (create
 REGION
					     LEFT ← 50
					     BOTTOM ← 100
					     WIDTH ← 300
					     HEIGHT ← 600)
				     NIL 4))
          (DMRDrawBox
 BUTTON1 LargeMouseWindow)
          (DMRDrawBox
 BUTTON2 LargeMouseWindow)
          (DMRDrawBox
 BUTTON3 LargeMouseWindow)
          (WINDOWPROP LargeMouseWindow (QUOTE RIGHTBUTTONFN)
		      (FUNCTION [LAMBDA NIL NIL]))
          (SHAPEW \TopLevelTtyWindow
		  (create
 REGION
			  LEFT ← 600
			  BOTTOM ← 50
			  WIDTH ← 400
			  HEIGHT ← 300))
          (while
 T
	     do
 (BLOCK)
		(if
 (ACTIVEWP LargeMouseWindow)
		    then
 (if
 (MOUSESTATE LEFT)
			     then
 (DSPFILL BUTTON1 BLACKSHADE NIL LargeMouseWindow)
			   else
 (DSPFILL BUTTON1 WHITESHADE NIL LargeMouseWindow))
			 (if
 (MOUSESTATE MIDDLE)
			     then
 (DSPFILL BUTTON2 BLACKSHADE NIL LargeMouseWindow)
			   else
 (DSPFILL BUTTON2 WHITESHADE NIL LargeMouseWindow))
			 (if
 (MOUSESTATE RIGHT)
			     then
 (DSPFILL BUTTON3 BLACKSHADE NIL LargeMouseWindow)
			   else
 (DSPFILL BUTTON3 WHITESHADE NIL LargeMouseWindow])
)
(FixMenus)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (303 4459 (DemoMenuFN 313 . 501) (DemoWindow 503 . 2128) (DMRDrawBox 2130 . 2582) (
FixMenus 2584 . 2877) (LargeMouse 2879 . 4457)))))
STOP