(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")
(FILECREATED "14-Sep-94 18:37:47" ("compiled on " |{DSK}<lispcore>lispusers>STEP-COMMAND-MENU.;1|) 
"28-Jul-94 17:28:46" |bcompl'd| |in| "Medley 25-Aug-94 ..." |dated| "25-Aug-94 10:02:49")
(FILECREATED "29-Sep-87 12:03:08" {DSK}<LISPFILES>MATT>STEP-COMMAND-MENU.\;11 7859 |changes| |to:| (
FUNCTIONS USER::STEP-COMMAND-AFTER USER::STEP-COMMAND-ASKUSER-MENUSELFN USER::STEP-COMMAND-BEFORE 
USER::STEP-COMMAND-WRAPPER USER::STEP-COMMAND-ASKUSER) (VARS STEP-COMMAND-MENUCOMS) |previous| |date:|
 " 4-May-87 16:45:38" {DSK}<LISPFILES>MATT>STEP-COMMAND-MENU.\;8)
(PRETTYCOMPRINT STEP-COMMAND-MENUCOMS)
(RPAQQ STEP-COMMAND-MENUCOMS ((INITVARS (*STEP-COMMAND-MENU* T) (USER::*STEP-COMMAND-INVERT-MENU-SHADE*
 1)) (P (CL:PROCLAIM (QUOTE (CL:SPECIAL *STEP-COMMAND-MENU* USER::*STEP-COMMAND-INVERT-MENU-SHADE*))))
 (FUNCTIONS USER::STEP-COMMAND-AFTER USER::STEP-COMMAND-ASKUSER USER::STEP-COMMAND-ASKUSER-MENUSELFN 
USER::STEP-COMMAND-BEFORE USER::STEP-COMMAND-WRAPPER) (P (CHANGENAME (QUOTE CL::STEP-COMMAND) (QUOTE 
ASKUSER) (QUOTE USER::STEP-COMMAND-ASKUSER)) (MOVD (QUOTE CL::STEP-COMMAND) (QUOTE 
USER::STEP-COMMAND-ORIGINAL)) (MOVD (QUOTE USER::STEP-COMMAND-WRAPPER) (QUOTE CL::STEP-COMMAND))) (
PROP (MAKEFILE-ENVIRONMENT) STEP-COMMAND-MENU)))
(RPAQ? *STEP-COMMAND-MENU* T)
(RPAQ? USER::*STEP-COMMAND-INVERT-MENU-SHADE* 1)
(CL:PROCLAIM (QUOTE (CL:SPECIAL *STEP-COMMAND-MENU* USER::*STEP-COMMAND-INVERT-MENU-SHADE*)))
(CL:DEFUN USER::STEP-COMMAND-AFTER NIL (* \; "Edited 29-Sep-87 11:39 by Matt Heffron") (LET ((
USER::STEP-WINDOW (WFROMDS CL::*STEP-IO*))) (CL:WHEN (AND *STEP-COMMAND-MENU* (CL:ZEROP 
CL::*STEP-INDENTATION-LEVEL*)) (REMOVEWINDOW (WINDOWPROP USER::STEP-WINDOW (QUOTE USER::STEP-MENUW))) 
(WINDOWPROP USER::STEP-WINDOW (QUOTE USER::STEP-MENUW) NIL) (WINDOWPROP USER::STEP-WINDOW (QUOTE 
USER::STEP-EVENT) NIL))))
(CL:DEFUN USER::STEP-COMMAND-ASKUSER (USER::WAIT USER::DEFAULT USER::MESS USER::KEYLIST) (* \; 
"Edited  1-May-87 10:25 by Matt Heffron") (CL:IF *STEP-COMMAND-MENU* (LET ((USER::MENUW (WINDOWPROP (
WFROMDS CL::*STEP-IO*) (QUOTE USER::STEP-MENUW)))) (INVERTW USER::MENUW 
USER::*STEP-COMMAND-INVERT-MENU-SHADE*) (WINDOWPROP USER::MENUW (QUOTE USER::STEP-ACTIVE) T) (
AWAIT.EVENT (WINDOWPROP USER::MENUW (QUOTE USER::STEP-EVENT))) (WINDOWPROP USER::MENUW (QUOTE 
USER::STEP-ACTIVE) NIL) (INVERTW USER::MENUW USER::*STEP-COMMAND-INVERT-MENU-SHADE*) (WINDOWPROP 
USER::MENUW (QUOTE USER::STEP-VALUE))) (ASKUSER USER::WAIT USER::DEFAULT USER::MESS USER::KEYLIST)))
(CL:DEFUN USER::STEP-COMMAND-ASKUSER-MENUSELFN (USER::ITEM USER::MENU USER::BUTTON) (* \; 
"Edited  1-May-87 10:25 by Matt Heffron") (LET ((USER::W (WFROMMENU USER::MENU))) (CL:WHEN (WINDOWPROP
 USER::W (QUOTE USER::STEP-ACTIVE)) (WINDOWPROP USER::W (QUOTE USER::STEP-VALUE) (CADR USER::ITEM)) (
NOTIFY.EVENT (WINDOWPROP USER::W (QUOTE USER::STEP-EVENT))))))
(CL:DEFUN USER::STEP-COMMAND-BEFORE NIL (* \; "Edited 29-Sep-87 11:43 by Matt Heffron") (LET ((
USER::STEP-WINDOW (WFROMDS CL::*STEP-IO*))) (CL:WHEN (AND *STEP-COMMAND-MENU* (NOT (WINDOWPROP 
USER::STEP-WINDOW (QUOTE USER::STEP-MENUW)))) (LET ((USER::WREGION (WINDOWREGION USER::STEP-WINDOW)) 
USER::MENUW USER::MREGION) (CL:SETQ USER::MENUW (MENUWINDOW (|create| MENU ITEMS _ (QUOTE (("Step" \  
"Step - Evaluate this expression, stepping on the sub-expressions") ("Next" N 
"Next - Evaluate this expression without stepping") ("Finish" F 
"Finish - Complete evaluation without the stepper") ("Abort" ^ "Abort - Abort this evaluation"))) 
WHENSELECTEDFN _ (CL:FUNCTION USER::STEP-COMMAND-ASKUSER-MENUSELFN) MENUCOLUMNS _ 1 TITLE _ 
" Commands " CENTERFLG _ T) T)) (CL:SETQ USER::MREGION (WINDOWREGION USER::MENUW)) (ATTACHWINDOW 
USER::MENUW USER::STEP-WINDOW (CL:IF (> (+ (|fetch| (REGION LEFT) |of| USER::WREGION) (|fetch| (REGION
 WIDTH) |of| USER::WREGION) (|fetch| (REGION WIDTH) |of| USER::MREGION)) SCREENWIDTH) (QUOTE LEFT) (
QUOTE RIGHT)) (QUOTE BOTTOM)) (WINDOWPROP USER::STEP-WINDOW (QUOTE USER::STEP-MENUW) USER::MENUW) (
WINDOWPROP USER::MENUW (QUOTE USER::STEP-EVENT) (CREATE.EVENT (QUOTE USER::STEP-MENU))) (INVERTW 
USER::MENUW USER::*STEP-COMMAND-INVERT-MENU-SHADE*)))))
(CL:DEFUN USER::STEP-COMMAND-WRAPPER (USER::FORM USER::ENVIRONMENT) (* \; 
"Edited  1-May-87 11:33 by Matt Heffron") (CL:IF *STEP-COMMAND-MENU* (CL:UNWIND-PROTECT (PROGN (
USER::STEP-COMMAND-BEFORE) (USER::STEP-COMMAND-ORIGINAL USER::FORM USER::ENVIRONMENT)) (
USER::STEP-COMMAND-AFTER)) (USER::STEP-COMMAND-ORIGINAL USER::FORM USER::ENVIRONMENT)))
(CHANGENAME (QUOTE CL::STEP-COMMAND) (QUOTE ASKUSER) (QUOTE USER::STEP-COMMAND-ASKUSER))
(MOVD (QUOTE CL::STEP-COMMAND) (QUOTE USER::STEP-COMMAND-ORIGINAL))
(MOVD (QUOTE USER::STEP-COMMAND-WRAPPER) (QUOTE CL::STEP-COMMAND))
(PUTPROPS STEP-COMMAND-MENU MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE "INTERLISP"))
(PUTPROPS STEP-COMMAND-MENU COPYRIGHT ("Beckman Instruments, Inc" 1987))
NIL