Interlisp.medley/lispusers/TURBO-WINDOWS.LCOM

(FILECREATED "14-Sep-94 18:47:17" ("compiled on " {DSK}<lispcore>lispusers>TURBO-WINDOWS.;1) 
"28-Jul-94 17:28:46" bcompl'd in "Medley 25-Aug-94 ..." dated "25-Aug-94 10:02:49")
(FILECREATED "19-Oct-87 03:24:45" {PHYLUM}<CAMERON>LISP>TURBO-WINDOWS.;14 18744 changes to: (ADVICE 
\GETREGIONTRACKWITHBOX DOWINDOWCOM) (FNS TW.CHECK-DEFAULT-REGION-WANTED TW.CHECK-KEYCHORDS TW.HELP) (
VARS TURBO-WINDOWSCOMS) (PROPS (TURBO-WINDOWS MAKEFILE-ENVIRONMENT)) previous date: 
"26-Aug-87 22:48:43" {PHYLUM}<CAMERON>LISP>TURBO-WINDOWS.;12)
TW.CHECK-DEFAULT-REGION-WANTED D8
(P 1 y P 0 x F 4 GETREGIONDEFAULT F 5 BASEX F 6 BASEY F 7 OPPY F 8 OPPX) ]g	´QT	´I¿`kåjð³7T
1T¹UHغVIÙ»Jd`ó™¿`c
HÙc¿jKó–jcIcKch(24 GETMOUSESTATE 17 POSITIONP 9 BOUNDP)
(67 SCREENWIDTH 59 SCREENWIDTH 30 LASTMOUSEBUTTONS 4 GETREGIONDEFAULT)
()
TW.HELP D8
NIL 
oi
¿i	¿i	oi
¿i	oi
¿i	oi
¿i	oi
¿i	oi
¿i	oi
¿i	oi
¿i	oi
¿i	oi
¿i	oi
¿i	oi
¿i	oi
¿i	oi
¿i	oi
(269 PRIN1 258 TERPRI 251 PRIN1 240 TERPRI 233 PRIN1 222 TERPRI 215 PRIN1 204 TERPRI 197 PRIN1 186 TERPRI 179 PRIN1 168 TERPRI 161 PRIN1 150 TERPRI 143 PRIN1 132 TERPRI 125 PRIN1 114 TERPRI 107 PRIN1 96 TERPRI 89 PRIN1 78 TERPRI 71 PRIN1 60 TERPRI 53 PRIN1 42 TERPRI 35 PRIN1 24 TERPRI 17 TERPRI 10 PRIN1)
NIL
( 263 "[* = Presssing this key may have side-effects]" 245 " This Help		 <HELP>		 Help" 227 " PopShape		 <UNDO>*"
 209 " Inspect		 <META-HELP>*	 PSW" 191 " Hardcopy		 <META-COPY>" 173 " Clear		<RSHIFT> <META-AGAIN>*	 Idle"
 155 " Redisplay	 MS	 <AGAIN>*" 137 " Bury		 SMC	 <FIND>*" 119 " Shrink		 MC	 <META-SAME>*	 Idle" 101 " Shape		 M	 <SAME>*	 PSW"
 83 " Move		 SC	 <MOVE>" 65 " Delete		 C	 <DEL>*		 SlamWindows" 47 " Copy		 S	 <COPY>		 Snap" 29 "-ACTION-	-CHORD-	-OTHER WAY-	-BACKGROUND-"
 4 "TurboWindow CribSheet	[S=Shift C=Control M=Meta]")
SNAPW-WINDOW D8
(P 4 BorderGrowth P 3 NEWWINDOW P 2 REGION P 1 SCREEN P 0 SCREENREGION I 1 ANDATTATCHEDWINDOWSTOO? I 0 WINDOW F 5 TW.DONT-GROW-SNAP-BORDER F 6 TW.SNAP-HERE) —Pg	“U‘j„`\@	@	É2YA–@	‡@	ÉZIJL
hdi[IÉJ
J
KÉLdJ
J
gg
K	g	‘V¥K	K(147 MOVEW 138 BOUNDP 128 OPENW 122 BKBITBLT 73 CREATEW 64 GROW/REGION 53 \INSUREWINDOW 46 WINDOWREGION 35 \INSUREWINDOW 29 TOTOPW 12 BOUNDP)
(133 TW.SNAP-HERE 116 REPLACE 111 INPUT 93 WINDOW 80 SCREEN 22 WBorder 7 TW.DONT-GROW-SNAP-BORDER)
()
TW.CHECK-KEYCHORDS D8
(P 3 FN P 0 THE-WINDOW I 0 WINDOW F 4 t F 5 TW.NO-FLASH-CLOSE) 
g	’@µ!H´l@`lÂåjð‘j€kjð‘H†Hi
Xg	²Bg	²6oi
¿Ti
g	´g		og	³#l`lÂåjð‘j€kjð²#g	²Hµ
o	°õl`lÂåjð‘j€kjð²'g	žHµŠ	„ol`kÂåjð‘j€kjð²%g	³g	«g	³:l`kÂåjð‘j€kjð³;g	³/g	²#g	²Hµ
o	°õl`lÂåjð‘j€kjð³%g	²%g	²g	«H	ol`kÂåjð‘j€kjð²%g	³g	«g	²:l`kÂåjð‘j€kjð³Mg	³Ag	³5g	²)H²g	–H	‹H	„ol@`lÂåjð‘j€kjð³,g	¢±Ãg	’±µg	’±§l@`lÂåjð‘j€kjð²kg	²_`do¿dg¿mÿj¹dI¿dg¿dg ¿di¿jdnÿdhºdJ
¿	
K•HkK¿°"H	l@`lÂåjð‘j€kjðhð
ol`lÂåjð‘j€kjð³&g	²+g	³g	²Hµo	¿°ôl `lÂåjð‘j€kjð³&g	²+g	²g	²Hµo	¿°ôl`lÂåjð‘j€kjð³,g	’±Ãg	¢±µg	’±§H²vg	‘U¦H	¿l`l	Âåjð‘j€kjð³íg	³l`lÂåjð‘j€kjð´&H	É``´
H	og	²o	¿‰o	ok`lÂåjð‘j€kjð³"l`kÂåjð‘j€kjð´¬g	´ H²g	–H	‰o	o(1289 PROMPTPRINT 1278 SHAPEW.POP 1271 \DEFINEDP 1256 SHIFTDOWNP 1200 PROMPTPRINT 1189 CLOSE.WINDOWS.IN.REGION 1183 PROMPTPRINT 1171 \DEFINEDP 1155 CLOSEW 1147 INSIDEP 1130 \INSUREWINDOW 1101 SHIFTDOWNP 1091 GETMOUSESTATE 1064 FLASHWINDOW 1055 BOUNDP 1038 SHIFTDOWNP 1024 SHIFTDOWNP 1010 SHIFTDOWNP 976 BURYW 960 SHIFTDOWNP 948 SHIFTDOWNP 936 SHIFTDOWNP 902 REDISPLAYW 886 SHIFTDOWNP 874 SHIFTDOWNP 862 SHIFTDOWNP 825 SNAPW-WINDOW 799 TOTOPW 779 MENU 698 SHIFTDOWNP 663 SHIFTDOWNP 649 SHIFTDOWNP 635 SHIFTDOWNP 598 PROCESS.STATUS.WINDOW 592 SHAPEW 585 SHAPEW.AND.SAVE 578 \DEFINEDP 563 SHIFTDOWNP 551 SHIFTDOWNP 539 SHIFTDOWNP 507 SHIFTDOWNP 496 SHIFTDOWNP 484 SHIFTDOWNP 448 MOVEW 441 SHIFTDOWNP 429 SHIFTDOWNP 417 SHIFTDOWNP 384 SHRINKW 373 IDLE 363 SHIFTDOWNP 351 SHIFTDOWNP 339 SHIFTDOWNP 307 SHIFTDOWNP 296 SHIFTDOWNP 284 SHIFTDOWNP 248 TW.HELP 242 INSPECT 236 PROCESS.STATUS.WINDOW 227 SHIFTDOWNP 194 CLEARW 183 IDLE 173 SHIFTDOWNP 140 SHIFTDOWNP 124 GREMLINS 119 SHIFTDOWNP 107 SHIFTDOWNP 97 PRIN1 89 PRIN1 76 SHIFTDOWNP 64 SHIFTDOWNP 53 MAINWINDOW 18 WHICHW 9 BOUNDP)
(1266 SHAPEW.POP 1251 SHIFT 1233 \LASTKEYSTATE 1212 \LASTKEYSTATE 1166 CLOSE.WINDOWS.IN.REGION 1142 LASTMOUSEY 1137 LASTMOUSEX 1110 \LASTKEYSTATE 1096 CTRL 1072 \LASTKEYSTATE 1050 TW.NO-FLASH-CLOSE 1033 META 1019 CTRL 1005 SHIFT 986 \LASTKEYSTATE 955 META 943 CTRL 931 SHIFT 912 \LASTKEYSTATE 881 META 869 CTRL 857 SHIFT 838 \LASTKEYSTATE 806 \LASTKEYSTATE 749 CLRPROMPT 740 PPROMPT3 721 Y 705 MENUTYPE# 693 SHIFT 674 \LASTKEYSTATE 658 META 644 CTRL 630 SHIFT 611 \LASTKEYSTATE 573 SHAPEW.AND.SAVE 558 META 546 CTRL 534 SHIFT 516 \LASTKEYSTATE 502 META 491 CTRL 479 SHIFT 461 \LASTKEYSTATE 436 META 424 CTRL 412 SHIFT 393 \LASTKEYSTATE 358 META 346 CTRL 334 SHIFT 316 \LASTKEYSTATE 302 META 291 CTRL 279 SHIFT 261 \LASTKEYSTATE 222 META 203 \LASTKEYSTATE 168 META 149 \LASTKEYSTATE 135 2SHIFT 114 META 102 CTRL 71 2SHIFT 59 1SHIFT 31 \LASTKEYSTATE 4 WINDOW)
( 1294 "RETURN" 1284 "Window shape-popping is not available - You need to load WDHACKS" 1205 "RETURN" 1195
 "Window slamming is not available - You need to load WDHACKS" 1178 "Specify the Slamming region" 1160
 "RETURN" 970 "RETURN" 896 "RETURN" 830 "RETURN" 712 (("To default printer" (QUOTE HARDCOPYIMAGEW) "Prints a window using its HARDCOPYFN.") ("To a file" (QUOTE HARDCOPYIMAGEW.TOFILE) "Puts image on a file; prompts for filename and format") ("To another printer" (QUOTE HARDCOPYIMAGEW.TOPRINTER) "Sends image to a printer of your choosing"))
 603 "RETURN" 453 "RETURN" 378 "RETURN" 253 "RETURN" 188 "RETURN" 129 "RETURN" 83 "How did you do that?")
(PRETTYCOMPRINT TURBO-WINDOWSCOMS)
(RPAQQ TURBO-WINDOWSCOMS ((* ;; "AUTHOR: Andrew J. Cameron, III") (* ;; 
"This file add advice to the function called when the right mouse button is pressed while in a window.  It  defines a set of accelerators based on other keys which might be depresed when the right mouse button was depressed."
) (* ;; 
"Also, a default size for a window can be accessed by using the middle button when orignally sizing a window."
) (* ;; " ") (PROP MAKEFILE-ENVIRONMENT TURBO-WINDOWS) (* ;; 
"Would like to know the number of pixels per inch here") (INITVARS (GETREGIONDEFAULT (CONS (ITIMES 7 
72) (ITIMES 9 72))) (TW.NO-FLASH-CLOSE) (TW.DONT-GROW-SNAP-BORDER) (TW.SNAP-HERE)) (SPECVARS 
GETREGIONDEFAULT TW.NO-FLASH-CLOSE TW.DONT-GROW-SNAP-BORDER TW.SNAP-HERE) (* ;; 
"Need access to source-code for WINDOWS because we need the definition of record SCREEN. ") (DECLARE: 
DONTEVAL@COMPILE DONTCOPY (FILES (LOADCOMP) WINDOW)) (FNS TW.CHECK-DEFAULT-REGION-WANTED TW.HELP 
SNAPW-WINDOW TW.CHECK-KEYCHORDS) (ADVISE DOWINDOWCOM \GETREGIONTRACKWITHBOX) (* ;; 
"This adds SNAP-WINDOW as a slide-out from SNAP on IL:WindowMenuCommands") (P (LET ((foo (SASSOC (
QUOTE Snap) WindowMenuCommands))) (if foo then (NCONC foo (QUOTE ((SUBITEMS ("Snap Window" (QUOTE 
SNAPW-WINDOW) "Saves a snapshot of this window")) (SUBITEMS ("Snap Window" (QUOTE SNAPW-WINDOW) 
"Saves a snapshot of this window"))))) (SETQ WindowMenu))))))
(PUTPROPS TURBO-WINDOWS MAKEFILE-ENVIRONMENT (PACKAGE "INTERLISP" READTABLE "OLD-INTERLISP-FILE"))
(RPAQ? GETREGIONDEFAULT (CONS (ITIMES 7 72) (ITIMES 9 72)))
(RPAQ? TW.NO-FLASH-CLOSE)
(RPAQ? TW.DONT-GROW-SNAP-BORDER)
(RPAQ? TW.SNAP-HERE)
(XCLREINSTALL-ADVICE (QUOTE DOWINDOWCOM) BEFORE (QUOTE ((FIRST (if (EQUAL (TW.CHECK-KEYCHORDS 
WINDOW) "RETURN") then (RETURN))))))
(XCLREINSTALL-ADVICE (QUOTE \GETREGIONTRACKWITHBOX) AFTER (QUOTE ((FIRST (
TW.CHECK-DEFAULT-REGION-WANTED)))))
(READVISE DOWINDOWCOM \GETREGIONTRACKWITHBOX)
(LET ((foo (SASSOC (QUOTE Snap) WindowMenuCommands))) (if foo then (NCONC foo (QUOTE ((SUBITEMS (
"Snap Window" (QUOTE SNAPW-WINDOW) "Saves a snapshot of this window")) (SUBITEMS ("Snap Window" (QUOTE
 SNAPW-WINDOW) "Saves a snapshot of this window"))))) (SETQ WindowMenu)))
(PUTPROPS TURBO-WINDOWS COPYRIGHT ("Andrew J Cameron, III and Xerox Corporation" 1987))
NIL