XEROX HISTMENU 2 4 1 HISTMENU 1 4 Original Fugue version By: Danny Bobrow (Bobrow.PA@Xerox.COM) 2020 Medley 3.5 clean sheet reimplemnentation By: Michele Denber (mdenber@gmail.com) INTRODUCTION HISTMENU is a Xerox Lisp (Medley, Lyric or Koto) program that provides quick access to commands recently typed in the Exec window. The original HISTMENU was written by Danny Bobrow but seems to have been lost over time. This version was reverse engineered from a running instance in an old sysout. OPERATION Load HISTMENU.LCOM from your local Lispusers directory. Then call (HistoryMenu [histMenuLength] [histMenuPosition]) where histMenuLength optionally specifies the number of commands you want displayed. Default is 30. hitMenuPosition optionally specifies a position on the display to place the menu. Default is to place it using the mouse. Clicking Left on any menu item will redo that command. Clicking Middle brings up a pop-up menu that lets you issue one of the four Programmer's Assistant commands REDO, FIX, UNDO, ?? plus an option Delete which removes that item from the History Menu. Clicking Right bring up a pop-up menu with the three standard options Bury, Move, and Shrink plus an option Update which updates the entries in the History Menu to again show the last n commands from the Exec window. I have made one change to the original HISTMENU. In the original, it would send the command to whatever window had the keyboard focus. So if you were in a TEdit window, clicking a HISTMENU itwm would place "REDO 354" in the TEdit window. This version only allows commands to go into a selected Exec window. OPTIONS (LIST ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC) STARTINGPAGE# 1) (0 0 612 792) ((HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (72 72 468 648) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC)) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD LEFT) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (72 762 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (72 744 540 36) NIL) (TEXT NIL NIL (72 72 468 648) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC)) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD RIGHT) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (252 762 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (72 744 540 36) NIL) (TEXT NIL NIL (72 72 468 648) NIL)))))..È.ŠŠ8.È .ŠŠ8JÈÈ PAGEHEADING RUNNINGHEADTERMINAL MODERN MODERN MODERN MODERN MODERN MODERN   HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN   HRULE.GETFNMODERN  HRULE.GETFNMODERN ?W / E2_{7ÅÚ6‡;zº