1
0
mirror of synced 2026-01-29 05:21:35 +00:00
Files
Interlisp.medley/internal/test/tools/VARBROWSER.LCOM

77 lines
7.7 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
(FILECREATED "24-Oct-2020 22:32:16" ("compiled on "
{DSK}<home>larry>ilisp>ENVOS>MISC>TEST>Tools>VARBROWSER.;1) " 9-Apr-2000 18:01:32" bcompl'd in
"Medley 3.5 PARC Full Sysout 4-Nov-2003 ..." dated " 4-Nov-2003 23:32:48")
(FILECREATED "22-Jul-85 13:26:35" {DSK}<LISPFILES>UTILITIES>VARBROWSER.;2 12094 changes to: (FNS
VARBROWSER VB.CREATE-LIST-OF-EQ-WIDTH-MENUS VB.CREATE-ICON-WINDOW) (VARS VARBROWSERCOMS VB.MASK
VB.ICON) previous date: "16-Jul-85 13:22:23" {DSK}<LISPFILES>UTILITIES>VARBROWSER.;1)
VARBROWSER D8
(P 18 VAR-VALUES-DEFAULTE P 17 M P 16 Y P 13 V P 9 INIT-VALUE P 8 MENU-ITEM-HEIGHT P 7 MAX-MENU-WIDTH P 6 FIRST-POSITION P 5 POSITION-DECREMENT P 4 MENU-LIST P 3 W-HIGHT P 2 W-WIDTH P 1 W-REGION P 0 W I 6 MAX-NAME-WIDTH I 5 MIN-MENU-WIDTH I 4 VAR-NAMES-FONT I 3 MENU-FONT I 2 W-TITLE I 1 W-POSITION I 0 LIST-OF-VAR-RANGE-DEFAULT F 19 X-OFFSET F 20 W-HEIGHT) ý  CC ®gl
b¿D—C ³glg b¿E¤lb
¿Fµ7g@
@°!d_ _¿Oµ Oh_O&_¿µàO
b ElMC
Úb
FlMD
Úc&@CE \d _dl
ØW&ØZLÉ
kØ_L OÚlØc(dlOØÙ^jOÕ]Aµ@JW(hddo
YdBµo
Xdgg @LN#Oµ°AJW( °È_"¿Oµ%Hgg Hgg H_$¿lO H ¿DH
¿O$H
¿hH
hH
W&O hhooH
¿O"HW&O  ¿O$d²_¿O$O
° ´
O$ _¿O"O
¿O_¿O_¿O MÔ_ ¿±ÿ(484 VB.UPDATE-MENU 472 EVAL 462 BOUNDP 454 SET 430 ADDMENU 416 DRAWCURVE 389 DSPYPOSITION 382 DSPXPOSITION 374 PRIN1 364 DSPFONT 356 MOVETO 340 PUTWINDOWPROP 324 PUTWINDOWPROP 296 CREATEREGION 272 PUTWINDOWPROP 255 CREATEW 240 GETBOXREGION 199 LENGTH 166 BITMAPWIDTH 161 CHECK/MENU/IMAGE 153 VB.CREATE-LIST-OF-EQ-WIDTH-MENUS 142 CHARWIDTH 130 CHARWIDTH 119 APPLY 87 NCHARS 53 FONTCREATE 34 FONTP 23 FONTCREATE 10 FONTP)
(335 VB.UPDATE-ALL-MENUS 330 EXPANDFN 319 VB.UPDATE-ALL-MENUS 314 OPENFN 267 VB.CREATE-ICON-WINDOW 262 ICONFN 183 MENU 71 MAX 48 BOLD 41 HELVETICA 16 GACHA)
( 409 (1 3) 404 (ROUND 1) 250 "Varbrowser window" 234 "Specify position for varbrowser window")
VB.CREATE-ICON-WINDOW D8
(I 1 ICON I 0 WINDOW F 0 VB.ICON F 1 VB.MASK) 0Aµ-PQldlAl( h@ É(gl
(45 TITLEDICONW 40 FONTCREATE 26 \INSUREWINDOW 16 CREATEREGION)
(33 GACHA)
()
VB.CREATE-LIST-OF-EQ-WIDTH-MENUS D8
(P 12 VALUE P 8 VAR-RANGE-DEFAULT P 1 MAX-WIDTH P 0 TEMP-MENU-LIST I 2 MIN-MENU-WIDTH I 1 MENU-FONT I 0 LIST-OF-VAR-RANGE-DEFAULT) N
Pg0@°hdO²MO g@ O°)d_ A
lØ_¿Oµ Oh_O&_¿µØO
Ú€B½NµMh_<0E>M&¾µ™O
Y0¿d`O²/0 O°dOh_¿Oµ Oh_O&_¿µâOŽoOhhhºdJ¿dk¿dA¿di ¿do¿dg ¿dg¿jdnÿdh»dK
¿dÉ
IO ¼kLók€LÛ¿½NµMh_<0E>M&¾µ‚±ÿ@O(296 LENGTH 126 APPLY 97 APPLY 62 STRINGWIDTH 56 MKSTRING 33 LENGTH)
(282 MENU 256 DEFAULTMENUHELDFN 247 CLRPROMPT 144 MENUTYPE# 38 MAX 7 MAX)
( 238 (LAMBDA (ITEM MEN KEY) (PROG (NEW-VAL REG WIND) (SETQ WIND (WFROMMENU MEN)) (if (LISTP (CADR ITEM)) then (DSPFILL (SETQ REG (MENUITEMREGION ITEM MEN)) WHITESHADE (QUOTE REPLACE) WIND) (DSPFONT (fetch MENUFONT of MEN) WIND) (MOVETO (IPLUS 2 (fetch LEFT of REG)) (IPLUS 2 (fetch BOTTOM of REG)) WIND) (SETQ NEW-VAL (MKATOM (PROMPTFORWORD NIL NIL NIL WIND NIL (QUOTE TTY)))) (SET (CAADR ITEM) NEW-VAL) (RPLACA ITEM NEW-VAL) else (for I in (fetch ITEMS of MEN) do (SHADEITEM I MEN WHITESHADE)) (SET (CADR ITEM) (CAR ITEM)) (SHADEITEM ITEM MEN BLACKSHADE))))
201 " ")
VB.UPDATE-ALL-MENUS D8
(P 1 ONE-MENU P 0 VAR-NAME I 0 W) A@g
°-dIdÉXdX ´H
µÔ@(56 VB.UPDATE-MENU 51 EVAL 43 BOUNDP 13 GETWINDOWUSERPROP)
(27 MENU 8 MENU)
()
VB.UPDATE-MENU D8
(P 3 ITEM P 2 REG P 1 ITEMS P 0 WINDOW I 1 VALUE I 0 MENU) £0@ÉY@ XI k
²JId²v@
ZjgH ¿@ÉH
¿lJØlJØH ¿AH
¿°9I°3dK@j ¿K ²K KôšK@nÿÿ ¿µÎh(153 SHADEITEM 139 EVAL 129 BOUNDP 120 SHADEITEM 101 PRIN1 93 MOVETO 75 DSPFONT 60 DSPFILL 47 MENUITEMREGION 30 EQP 24 LENGTH 17 WFROMMENU)
(67 MENU 54 REPLACE 8 MENU)
()
(PRETTYCOMPRINT VARBROWSERCOMS)
(RPAQQ VARBROWSERCOMS ((FNS VARBROWSER VB.CREATE-ICON-WINDOW VB.CREATE-LIST-OF-EQ-WIDTH-MENUS
VB.UPDATE-ALL-MENUS VB.UPDATE-MENU) (VARS VB.ICON VB.MASK)))
(RPAQ VB.ICON (READBITMAP))
(75 75 "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "L@@@@@@@@@@@@@@@@@F@" "L@@@@@@@@@@@@@@@@@F@"
"LOOOOOOOOOOOOOOOONF@" "LOFJLKOOOOOOOOOOONF@" "LOBMCKOOOOOOOOOOONF@" "LOOOOOOOOOOOOOOOONF@"
"LH@@@@@@@@@@@@@@@BF@" "LH@@@@@@COOOOOOOOJF@" "LH@@@@@@B@B@DA@D@JF@" "LH@@@@@@B@B@DA@D@JF@"
"LH@@@@@@COOOOOOOOJF@" "LH@@@@@@COOL@@D@@JF@" "LJKKCD@@COOL@@D@@JF@" "LKBJHDAEGOOOOOOOOJF@"
"LH@@@@@@B@@@AOOOOJF@" "LJKK@@@@B@@@AOOOOJF@" "LKJJAEEEGOOOOOOOOJF@" "LH@@@@@@BAOAAAAA@JF@"
"LJKKDN@@BAOAAAAA@JF@" "LKJJFHEEGOOOOOOOOJF@" "LH@@@@@@B@@@@@@@@JF@" "LJ@JAH@@B@@@@@@@@JF@"
"LKKKMAEEGOOOOOOOOJF@" "LH@@@@@@B@@@@@@@@JF@" "LJCKL@@@B@@@@@@@@JF@" "LKJJEEEEGOOOOOOOOJF@"
"LH@@@@@@B@DAOHDB@JF@" "LHJFI@@@B@DAOHDB@JF@" "LKKDMEEEGOOOOOOOOJF@" "LH@@@@@@B@@COOL@@JF@"
"LJKJ@@@@B@@COOL@@JF@" "LIJJEEEEGOOOOOOOOJF@" "LH@@@@@@COHA@B@D@JF@" "LKIIL@@@COHA@B@D@JF@"
"LJBEBEEEGOOOOOOOOJF@" "LH@@@@@@B@@@@@@@@JF@" "LKJF@@@@B@@@@@@@@JF@" "LJCBEEEEGOOOOOOOOJF@"
"LH@@@@@@B@@@@OOOOJF@" "LJCJH@@@B@@@@OOOOJF@" "LKJBNEEEGOOOOOOOOJF@" "LH@@@@@@@@@@@@@@@BF@"
"LOOOOOOOOOOOOOOOONF@" "L@@@@@@@@@@@@@@@@@F@" "L@@@@@@@@@@@@@@@@@F@" "L@@@@@@@@@@@@@@@@@F@"
"L@@@@@@@@@@@@@@@@@F@" "L@@@@@@@@@@@@@@@@@F@" "L@@@@@@@@@@@@@@@@@F@" "L@@@@@@@@@@@@@@@@@F@"
"L@@@@@@@@@@@@@@@@@F@" "L@@@@@@@@@@@@@@@@@F@" "L@@@@@@@@@@@@@@@@@F@" "L@@@@@@@@@@@@@@@@@F@"
"L@@@@@@@@@@@@@@@@@F@" "L@@@@@@@@@@@@@@@@@F@" "L@@@@@@@@@@@@@@@@@F@" "L@@@@@@@@@@@@@@@@@F@"
"L@@@@@@@@@@@@@@@@@F@" "L@@@@@@@@@@@@@@@@@F@" "L@@@@@@@@@@@@@@@@@F@" "L@@@@@@@@@@@@@@@@@F@"
"L@@@@@@@@@@@@@@@@@F@" "L@@@@@@@@@@@@@@@@@F@" "L@@@@@@@@@@@@@@@@@F@" "L@@@@@@@@@@@@@@@@@F@"
"L@@@@@@@@@@@@@@@@@F@" "L@@@@@@@@@@@@@@@@@F@" "L@@@@@@@@@@@@@@@@@F@" "L@@@@@@@@@@@@@@@@@F@"
"L@@@@@@@@@@@@@@@@@F@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@")
(RPAQ VB.MASK (READBITMAP))
(75 75 "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@"
"OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@"
"OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@"
"OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@"
"OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@"
"OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@"
"OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@"
"OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@"
"OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@"
"OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@"
"OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@"
"OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@"
"OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@"
"OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@"
"OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@"
"OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@"
"OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@"
"OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@"
"OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@")
(PUTPROPS VARBROWSER COPYRIGHT ("Xerox Corporation" 1985))
NIL