9 lines
3.8 KiB
Plaintext
9 lines
3.8 KiB
Plaintext
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))))) . . <01> . <00> <00>8 . <01> . <00> <00>8 J <01> <01> PAGEHEADING RUNNINGHEAD TERMINAL
|
||
MODERN
|
||
MODERN
|
||
MODERN MODERN MODERN
|
||
MODERN HRULE.GETFN MODERN
|
||
HRULE.GETFN MODERN
|
||
HRULE.GETFN MODERN
|
||
HRULE.GETFN MODERN HRULE.GETFN MODERN ? W /
|
||
E 2 _ { 7 <00> <00> 6 <06> ;z<> |