69 lines
7.6 KiB
Plaintext
69 lines
7.6 KiB
Plaintext
Medley MODERNIZE2
|
||
|
||
4
|
||
|
||
1
|
||
|
||
MODERNIZE
|
||
1
|
||
|
||
4
|
||
|
||
By Ron Kaplan
|
||
This document was last edited in May 2022
|
||
MODERNIZE is a simple Lispusers package that changes the mouse actions on Medley windows so that moving and shaping can be done in a way that approximates the behavior of windows on modern platforms, Mac, Windows, etc. It also adds some meta keys to emulate more conventional behavior.
|
||
Thus, for a window that has been created or transformed in this way, you can move the window by left-clicking in the title bar and dragging the window's ghost region. Or you can reshape by clicking in a corner of the title bar or near the bottom of the window to drag out the ghost region by that corner.
|
||
The menu behavior for other buttons or buttons clicked in other positions is unchanged.
|
||
For bottom corners, "near" means inside the window within MODERN-WINDOW-MARGIN (initially 25) pixels above or to the left/right of the corner.
|
||
For top corners, "near" means within the title bar and within the margin from the left/right edges. (Windows that don't have a title-bar, like Snap windows, can be set up so that moving can happen by clicking anywhere, and shaping at the top is determined by the margin inside the window region.
|
||
The function MODERNWINDOW.SETUP establishes the new behavior for classes of windows:
|
||
(MODERNWINDOW.SETUP ORIGFN MODERNWINDOWFN ANYWHERE TITLEPROPORTION)
|
||
ORIGFN is either the name of the BUTTONEVENTFN for a class of windows (e.g. \TEDIT.BUTTONEVENTFN for Tedit windows) or it is a function that creates windows of a particulate kind (e.g. SNAPW or ADD-EXEC).
|
||
MODERNWINDOW.SETUP moves the definition of ORIGFN to the name (PACK* 'MODERN-ORIG- ORIGFN). It then provides a new definition for ORIGFN that does the window moving or reshaping for clicks in the triggering locations, and otherwise passes control through to the original definition.
|
||
If ORIGNFN is a button event function, then MODERNWINDOWFN should not be specified. In that case a new definition for ORIGFN is constructed to provide the desired windowing behavior.
|
||
Otherwise, if ORIGFN is the function that creates windows of a class (e.g. SNAPW), then a MODERNWINDOWFN should be provided to create such windows (by calling (PACK* 'MODERN-ORIG- ORIGFN)). The definition of MODERNWINDOWFN replaces the original definition of ORIGFN.
|
||
TITLEPROPORTION may be a number between 0 and .5. It specifies the proportion from either edge of the title bar where clicks will be interpreted as window operations. For example, if TITLEPROPORTION is .25, then a title click that is up to a quarter of the way from the left or right edge of the window will trigger the moving operation. Clicks in the middle 50% of the title bar will always pass through.
|
||
If the flag ANYWHERE is non-NIL, especially for windows without a title bar, then the moving behavior is triggered by a click anywhere in the window (except the corners).
|
||
Because this works by redefining existing functions, it is important that the MODERNIZE package be loaded AFTER Tedit and Sedit, if those are not already in the sysout. And it should be called to upgrade the proper functions for other window classes that might later be added.
|
||
Provided these capabilities are already loaded, the following window classes are "modernized" when MODERNIZE is loaded:
|
||
|
||
TEDIT
|
||
SEDIT
|
||
INSPECTOR
|
||
SNAP
|
||
DEBUGGER
|
||
EXEC
|
||
TABLEBROWSER
|
||
FILEBROWSER
|
||
FREEMENU
|
||
GRAPHER
|
||
PROMPTWINDOW
|
||
SPY
|
||
TOTOPW
|
||
If it is not known or it is inconvenient to systematically upgrade a button function or a window-creation function, the new behavior can be provided after a particular window has been created, by invoking
|
||
(MODERNWINDOW WINDOW ANYWHERE TITLEPROPORTION)
|
||
This saves the windows existing BUTTONEVENTFN as a window property PREMODERN-BUTTONEVENTFN, and installs a simple stub function in its place.
|
||
If things go awry:
|
||
(UNMODERN.SETUP ORIGFN
|
||
is provided to restore the original behavior for windows whose buttonevent function is ORIGFN.
|
||
(UNMODERNWINDOW WINDOW)
|
||
restores a modernized window to its original state.
|
||
|
||
Known issues:
|
||
Clicking at the bottom of an EXEC window running TTYIN is effective only when the input line is empty.
|
||
|
||
|
||
|
||
.
|
||
(SEQUENCE NIL NIL (0 0 0 0) ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC) STARTINGPAGE# 1) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) 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)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (ALTERNATE NIL NIL (0 0 0 0) ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC)) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) 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)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC)) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) 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)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))))))) 1 $ 1 <01> $ 1 <01> $ 1 <01> $ 1 <01> $ 1 <01> $ 4 <01> $<01> 1 <01> $ 1 <00> <00>8 $ 1 <00> <00>8 $ J <01> $<01> PAGEHEADING RUNNINGHEAD / MODERN
|
||
(CHARPROPS (COLOR . BLACK)) 0 CLASSIC
|
||
(CHARPROPS (COLOR . BLACK)) i @(TEDIT-FONTCLASS 0 (TERMINAL 10 MRR 0) NIL NIL (POSTSCRIPT NIL))
|
||
(CHARPROPS (COLOR . BLACK)) 1 TERMINAL
|
||
(CHARPROPS (COLOR . BLACK)) 1 TERMINAL
|
||
(CHARPROPS (COLOR . BLACK)) / MODERN (CHARPROPS (COLOR . BLACK)) 3
|
||
TIMESROMAN $ (CHARPROPS (COLOR . BLACK))
|
||
HRULE.GETFN HRULE.GETFN HRULE.GETFN
|
||
|
||
|
||
HRULE.GETFN HRULE.GETFN + 4 X : A (
|
||
6 C L b
|
||
( <00> " ~ 7
|
||
7 % <01> <00> N <00> c q <00> / <00> _ 4 F (((CHARENCODING . MCCS)))PROPS: #DATE:j<><6A> / ~z<> |