github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-05-11 17:47:29 +00:00
Code Issues Projects Releases Wiki Activity
Files
bbf9f73cda151bec030352f8e71b237b46cb09c2
Interlisp.medley/library/tedit/TEDIT-BUTTONS.LCOM
rmkaplan f38e216446 Removed the (AND NIL...)
2026-05-08 12:17:56 -07:00

544 lines
34 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.
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
(FILECREATED " 8-May-2026 12:17:16" ("compiled on " {MEDLEY}<library>TEDIT>TEDIT-BUTTONS.;234)
" 5-May-2026 11:14:53" brecompiled exprs%: MB.NWAY.SIZEFN in "FULL 5-May-2026 ..." dated
" 5-May-2026 11:15:02")
(FILECREATED " 8-May-2026 12:17:16" {MEDLEY}<library>TEDIT>TEDIT-BUTTONS.;234 123908 :EDIT-BY rmk
:CHANGES-TO (FNS MB.NWAY.SIZEFN) :PREVIOUS-DATE "29-Apr-2026 17:57:09"
{MEDLEY}<library>TEDIT>TEDIT-BUTTONS.;233)
MB.ADDA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 7 OBJ P 6 SPEC P 5 TYPE P 4 DESC P 3 CH# P 2 TAB P 1 EOL I 0 SI::*CLEANUP-FORMS* F 8 MENUTSTREAM F 9 WHERE F 10 INCREMENTALUPDATES F 11 MENUDESC) ƒW§W ¿Wo o WµWÉÉkØŠ3 µ W DHµhdWh ¿Wâ±W± d£d‘h\½L¾Mgð’±áMgð’±ÖMgð’±ËMd¢±Ädgð²¿WIKo ¿KkÔ[±¤dgð²¿WJKo ¿KkÔ[±„gð²N WKo ¿KkÔ[±aMdgð²¿N WKo ¿KkÔ[±;gð²N WKo ¿KkÔ[±Mdgð² ¿N _WKo ¿KkÔ[±ðgð²JWgNKgN²gdNo„o ¿KgN Ô[± Mdgð<>¿NWK [±‰gð²)o ¿N WKo ¿KkÔ[°YM ²WMKo ¿KM Ô[°7Md3 ²¿WMl
Ko ¿KMÔ[°™KM Ô[…L ¿HX±ýèWÉÉjÏK(597 \ILLEGAL.ARG 588 EVAL 572 TEDIT.INSERT 561 ALLOCSTRING 540 NCHARS 532 TEDIT.INSERT 516 STRINGP 503 TEDIT.INSERT.OBJECT 490 MB.CREATE.FULLMENU 481 \TEDIT.THELP 459 MB.FIELD.CREATE 435 NCHARS 419 TEDIT.INSERT 352 TEDIT.INSERT.OBJECT 337 MB.NWAY.CREATE 312 TEDIT.INSERT.OBJECT 299 MB.TOGGLE.CREATE 277 TEDIT.INSERT.OBJECT 264 MB.3STATE.CREATE 239 TEDIT.INSERT.OBJECT 226 MB.CREATE 204 TEDIT.INSERT 172 TEDIT.INSERT 78 \TEDIT.SHOWSEL 61 \ILLEGAL.ARG 32 CONCATCODES 22 CONCATCODES 9 TEDIT.DEFER.UPDATES)
(635 SELECTION 630 SELECTION 623 TEXTOBJ 618 TEXTOBJ 611 STREAM 468 MENU 447 FIELD 426 STRING 396 FONT 385 FONT 375 STRING 365 TEXT 327 NWAY 290 TOGGLE 254 3STATE 217 ACTION 186 TAB 154 EOL 137 ;; 126 ; 115 * 86 TEXTOBJ 43 STREAM)
( 567 (PROTECTED ON) 527 (PROTECTED ON) 498 (PROTECTED OFF) 476 "NOT IMPLEMENTED" 414 (PROTECTED ON) 406
(PROTECTED ON) 347 (PROTECTED OFF) 307 (PROTECTED OFF) 272 (PROTECTED OFF) 234 (PROTECTED OFF) 199 (PROTECTED ON)
167 (PROTECTED ON) 27 (9) 17 (13))
MB.ADD :D8
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 4 MAINTSTREAM I 3 INCREMENTALUPDATES I 2 WHERE I 1 MENUTSTREAM I 0 MENUDESC F 3 LISPXHIST) &A bS!g ¿$(31 SI::RESETUNWIND 26 \MVLIST 21 MB.ADDA0001 5 TEXTSTREAM)
(16 SI::RESETUNWIND)
()
MB.DELETE :D8
(P 2 CHNOS P 1 ID I 1 MENUSTREAM I 0 IDENTIFIERS) 6@!Hd d¢¹hƒ¹H¸IAo Z²äAJJkØJÙ ¿°Ñ(49 TEDIT.DELETE 30 MB.GET)
NIL
( 25 (STARTCHNO ENDCHNO))
MB.GET :D8
(P 14 R P 9 A P 8 ATAIL P 6 IDOBJ P 5 ID P 4 PC P 2 REMAINING P 1 RESULT P 0 MENUTEXTOBJ I 4 BEFORE I 3 START I 2 RETURNS I 1 MENUSTREAM I 0 IDENTIFIERS) [@´‚±oCóCìC3 ¨C–C ¿A bd CòCÉH
b¿„C3 µ D²~@d£d‘h ACµcH °]H
b¿°Ù¼J²KLÊlð´LÉôLÉ^d²g
J
]²KMJ
ºLA
»LÉ
µ°K°q@d£d‘h ACµXH °R¼J²KLÊlð´LÉôLÉ^d²g
J
]²KMJ
ºLA
»Lɵ°KYBgð³#Bµ gbµBd‘hb¿I! O_µ @¢±çI_¿OBAOµB’±ÂO±¾_gð£Oµ O±‡gð”O°zOdgð—¿O°hgð—O°YOdgð<>¿OH
°Agð²mÿOÉØOH
Ø°Odgð˜¿O‰o
_¿OµOh__¿O_±ÿCO&_¿°òO¿O±ÿI(553 ERROR 521 \TEDIT.PCTOCH 488 \TEDIT.PCTOCH 312 \NCONC2 307 MB.GET.MBARG 299 DREMOVE 287 MEMB 281 IMAGEOBJPROP 234 \TEDIT.FIRSTPIECE 222 COPY 199 \NCONC2 194 MB.GET.MBARG 186 DREMOVE 174 MEMB 168 IMAGEOBJPROP 118 \TEDIT.CHTOPC 110 \TEDIT.LASTPIECE 98 COPY 73 \TEDIT.CHTOPC 48 TEXTOBJ 40 TEXTSTREAM 33 \ILLEGAL.ARG)
(532 IDPC 495 ENDCHNO 474 STARTCHNO 456 ENDPC 441 STARTPC 426 STATE 408 OBJECT 338 OBJECT 327 ALL 276 IDENTIFIER 262 IMAGEOBJ 241 PIECE 163 IDENTIFIER 149 IMAGEOBJ 128 PIECE 65 SELECTION 57 SELECTION 20 SELECTION 12 PIECE)
( 548 " is not a button return")
MB.GET.MBARG :D8
(P 4 P P 3 STATE P 2 STATEFN P 1 ENDPC P 0 IDOBJ I 1 MENUSTREAM I 0 IDPC) Å@Êlð´@Éô@É1Hg
gð²^Hg
³Q@€LÉd®µEo °9\Êlð²àLÊlð´LÉôLÉg
²¾LµÀi°½@¹Hg
Z˜@HAlJ¿Hg
Hg
H@I@hh(181 IMAGEOBJPROP 170 IMAGEOBJPROP 148 IMAGEOBJPROP 127 IMAGEOBJPROP 79 \TEDIT.THELP 54 IMAGEOBJPROP 35 IMAGEOBJPROP)
(176 STATE 165 IDENTIFIER 143 STATEFN 122 FIELDSUFFIX 112 IMAGEOBJ 86 PIECE 49 FIELDSUFFIX 40 FieldPrefixButton 30 IMAGECLASSNAME 16 IMAGEOBJ)
( 74 "Missing field suffix:")
TEDIT.BACKTOMAIN :D8
(P 0 MAINW I 0 MENUSTREAM) @ Hd– É.i
(24 TTY.PROCESS 16 \INSUREWINDOW 5 \TEDIT.MAINW)
NIL
()
MB.BUTTONEVENTINFN :D8
(I 7 BUTTON I 6 HOSTSTREAM I 5 SELWINDOW I 4 RELY I 3 RELX I 2 SEL I 1 MENUSTREAM I 0 OBJ) PGgð³?g ³3g ³'@g
jCñµjDñµ
CHñµDHñ•gi(44 IMAGEOBJPROP 31 SHIFTDOWNP 19 SHIFTDOWNP)
(75 DON'T 39 BOUNDBOX 26 SHIFT 14 CTRL 6 RIGHT)
()
MB.DISPLAYFN :D8
(P 3 Y P 2 X P 1 OBJBOX P 0 BITMAP I 1 IMAGESTREAM I 0 OBJ) ¢A gð²a@ @g
hA
hA
KIÙ[HjdAJK
@g
gð´nÿÿAJKIIg
@g
gA A
@g
A
¿ (159 DSPFONT 153 PRIN1 147 IMAGEOBJPROP 136 DSPFONT 130 FONTCOPY 119 IMAGEOBJPROP 107 BLTSHADE 77 IMAGEOBJPROP 66 BKBITBLT 44 DSPYPOSITION 37 DSPXPOSITION 30 IMAGEOBJPROP 19 MB.SETIMAGE 5 IMAGESTREAMTYPE)
(142 LABEL 124 DEVICE 114 FONT 101 INVERT 82 ON 72 STATE 25 BOUNDBOX 10 DISPLAY)
()
MB.SETIMAGE :D8
(P 3 DS P 2 BITMAP P 1 BOX P 0 FONT I 0 OBJ) w@g
µj@g
@ "II
Z@gJ J [jK
jK
HK
jH È K @g
K
J(115 PRIN1 109 IMAGEOBJPROP 98 MOVETO 90 FONTCREATE 83 DSPFONT 76 DSPYOFFSET 69 DSPXOFFSET 61 DSPCREATE 55 IMAGEOBJPROP 42 BITMAPCREATE 29 MB.SIZEFN 23 IMAGEOBJPROP 10 IMAGEOBJPROP)
(104 LABEL 49 BITCACHE 18 FONT 5 BITCACHE)
()
MB.SIZEFN :D8
(P 1 BOX P 0 FONT I 1 STREAM I 0 OBJ) }@g
µp@g
A—A ²HgA ¸@g
²@g
H
€jH È
H È jhY@gI I(121 IMAGEOBJPROP 100 FONTCREATE 92 FONTCREATE 84 STRINGWIDTH 78 IMAGEOBJPROP 65 IMAGEOBJPROP 53 FONTCOPY 48 IMAGESTREAMTYPE 34 DISPLAYSTREAMP 23 IMAGEOBJPROP 10 IMAGEOBJPROP)
(115 BOUNDBOX 73 LABEL 60 LABEL 42 DEVICE 18 FONT 5 BOUNDBOX)
()
MB.WHENOPERATEDONFN :D8
(P 0 SELECTFN I 4 MENUSTREAM I 3 MENUSEL I 2 OPERATION I 1 MENUWINDOW I 0 OBJ) GBdgð²¿@iA @A
@hA gð´@g
H´ @CADlH(53 IMAGEOBJPROP 33 MB.SHOWSELFN 25 MB.TRACK.UNTIL 18 MB.SHOWSELFN)
(48 SELECTFN 39 SELECTED 6 HIGHLIGHTED)
()
MB.COPYFN :D8
(I 0 OBJ) G`@É HdI¿@É HdI¿@ÉHdI¿(41 COPY 18 COPY)
(57 IMAGEOBJ 34 IMAGEOBJ 11 IMAGEOBJ 4 |IMAGEOBJTYPE#|)
()
MB.GETFN :D8
(P 5 ATTR P 2 FONT P 1 MBFN P 0 TEXT I 1 FILE I 0 OBJ) Žo @g
@g
@g
#AH
AI
AJg
AJg
¼[Lã
¿KLlÿå
¿Jg
<00>dAM
µñh(133 \ATMOUT 120 FONTPROP 108 \BOUT 97 \BOUT 88 FONTPROP 76 \ATMOUT 71 FONTPROP 59 \ATMOUT 52 \STRINGOUT 42 IMAGEOBJPROP 31 IMAGEOBJPROP 20 IMAGEOBJPROP 9 \TEDIT.THELP)
(115 FACE 83 SIZE 66 FAMILY 37 FONT 26 MBFN 15 LABEL)
( 4 "HELP FROM JDS--NOT USED?")
MB.PUTFN :D8
(P 5 ATTR P 2 FONT P 1 MBFN P 0 TEXT I 1 FILE I 0 OBJ) Ž@g
@g
@g
#o AH
AI
AJg
AJg
¼[Lã
¿KLlÿå
¿Jg
<00>dAM
µñh(133 \ATMOUT 120 FONTPROP 108 \BOUT 97 \BOUT 88 FONTPROP 76 \ATMOUT 71 FONTPROP 59 \ATMOUT 52 \STRINGOUT 45 \TEDIT.THELP 32 IMAGEOBJPROP 21 IMAGEOBJPROP 10 IMAGEOBJPROP)
(115 FACE 83 SIZE 66 FAMILY 27 FONT 16 MBFN 5 LABEL)
( 40 "HELP FROM JDS -- NOT USED?")
MB.SHOWSELFN :D8
(P 1 OBJBOX P 0 BITMAP I 2 PANE I 1 ON I 0 OBJ) X@ @g
HjdBjdIIgg
Ad²"gð³nÿÿBjdIIg
h(83 BLTSHADE 49 BKBITBLT 19 IMAGEOBJPROP 5 MB.SETIMAGE)
(77 INVERT 58 OFF 43 REPLACE 38 INPUT 14 BOUNDBOX)
()
MB.CREATE :D8
(P 6 LABEL P 5 IDENTIFIER P 4 VAL P 3 PROP P 2 S P 1 OBJ I 1 IMAGEFNS I 0 SPEC F 7 MB.IMAGEFNS) A@hAµg@µW
RHµSIg
³!Igohddg
 ¿Mµ‚±˜N¢±<00>oN
]±šZ »J¼Kdgð³=dgð²¿Lhddg
 ¼°dgð²¿L \¾IKL ¿HX±ÿVgð²ëL]°ïo@
°"d3@ð³M³M —M ]…L ¿IgM ¿Ig
²IgIg
¿I I(317 MB.SETIMAGE 310 IMAGEOBJPROP 305 IMAGEOBJPROP 286 IMAGEOBJPROP 274 IMAGEOBJPROP 261 \ILLEGAL.ARG 253 MKATOM 246 STRINGP 227 ERROR 222 ERROR 192 IMAGEOBJPROP 182 MKSTRING 163 FONTCREATE 158 FONTCREATE 118 MKATOM 106 U-CASE 101 MKATOM 96 CL:STRING-TRIM 72 IMAGEOBJPROP 67 FONTCREATE 40 IMAGEOBJPROP 22 IMAGEOBJCREATE)
(300 INITSTATE 294 STATE 281 INITSTATE 268 IDENTIFIER 204 IDENTIFIER 172 LABEL 152 DISPLAY 139 FONT 130 IMAGEFNS 61 DISPLAY 48 FONT 35 FONT 9 IMAGEFNS)
( 216 "Missing both IDENTIFIER and LABEL" 90 (#\Space #\Tab #\Newline #\:) 53 (HELVETICA 8 BOLD))
MB.CHANGENAME :D8
(P 2 DS P 1 BITMAP P 0 BOX I 2 NEWNAME I 1 OBJ I 0 TEXTOBJ) 0AgB A @A
h(27 TEDIT.OBJECT.CHANGED 20 MB.SETIMAGE 14 IMAGEOBJPROP)
(8 LABEL)
()
MB.INIT :D8
NIL Kgggggggddggggg
(67 IMAGEFNSCREATE)
(72 MB.IMAGEFNS 61 TEditMenuButton 56 NILL 51 MB.WHENOPERATEDONFN 46 NILL 41 MB.DON'T 34 NILL 29 MB.BUTTONEVENTINFN 24 MB.COPYFN 19 MB.GETFN 14 MB.PUTFN 9 MB.SIZEFN 4 MB.DISPLAYFN)
()
MB.TRACK.UNTIL :D8
(I 1 PANE I 0 OBJ) P¿¿@AhA A A
gð•g`låHjðµ
H´H ²µh(73 \FZEROP 33 MB.BUTTONEVENTINFN 26 LASTMOUSEY 20 LASTMOUSEX 10 GETMOUSESTATE 4 BLOCK)
(51 LASTMOUSEBUTTONS 45 DON'T 38 DON'T)
()
MB.DON'T :D8
(I 0 OBJ) @g
¥gh(10 IMAGEOBJPROP)
(16 DON'T 5 DELETABLE)
()
MB.SPEC.REMAINDER :D8
(P 4 S I 2 OBJ I 1 IGNORE I 0 SPEC) 9@AHµI\A
¬BµL»Jµ KhZ¹HX°áK&º°øLL ¿°á(52 IMAGEOBJPROP 18 MEMB)
NIL
()
MB.3STATE.CREATE :D8
(I 0 SPEC F 0 MB.3STATE.IMAGEFNS) 5g@³ggh@b¿ggh@bdP
(50 MB.CREATE)
(36 MB.3STATE.SETSTATEFN 31 SETSTATEFN 18 NEUTRAL 13 INITSTATE 4 INITSTATE)
()
MB.3STATE.DISPLAYFN :D8
(I 1 IMAGESTREAM I 0 OBJ) #@A@g
hA
hA
(32 MB.3STATE.SHOWSELFN 26 DSPYPOSITION 19 DSPXPOSITION 12 IMAGEOBJPROP)
(7 STATE)
()
MB.3STATE.SHOWSELFN :D8
(P 3 YSIZE P 2 XSIZE P 1 OBJBOX P 0 BITMAP I 4 Y I 3 X I 2 SHOWSTATE I 1 IMAGESTREAM I 0 OBJ) ‡@ @A
!IºI»C£jb¿Dµ<jbHjdACDJKgg
Bdgð²¿nÿÿACDJKg
IÙ°Âgð´CDCJØkÙDKØkÙkgA
(132 DRAWLINE 91 BLTSHADE 61 BKBITBLT 15 MB.SIZEFN 5 MB.SETIMAGE)
(125 PAINT 104 OFF 85 INVERT 68 ON 55 REPLACE 50 INPUT)
()
MB.3STATE.INIT :D8
NIL Ggggggggddgghgg
(63 IMAGEFNSCREATE)
(68 MB.3STATE.IMAGEFNS 57 3StateMenuButton 52 NILL 46 NILL 41 MB.DON'T 34 NILL 29 MB.3STATE.BUTTONEVENTINFN 24 MB.COPYFN 19 MB.GETFN 14 MB.PUTFN 9 MB.SIZEFN 4 MB.3STATE.DISPLAYFN)
()
MB.3STATE.SETSTATEFN :D8
(I 2 TSTREAM I 1 NEWVALUE I 0 PC) 5@ÉgA™Adgð—¿g°gð•g„g @(49 IMAGEOBJPROP)
(44 ON 38 NEUTRAL 31 NEUTRAL 24 OFF 16 OFF 7 STATE)
()
MB.3STATE.BUTTONEVENTINFNA0001 :D8
(NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 OBJ F 1 MENUDS F 2 NEXTSTATE F 3 SI::*RESETFORMS* F 4 STATECHANGEFN) <00>ggggPQgPohhhhdScPQR PQ
gð²PQPg
PgR Pg
c´PRQg
lT(136 GETWINDOWPROP 119 IMAGEOBJPROP 108 IMAGEOBJPROP 95 MB.3STATE.SHOWSELFN 90 IMAGEOBJPROP 69 MB.TRACK.UNTIL 62 MB.3STATE.SHOWSELFN)
(131 TEXTSTREAM 114 STATECHANGEFN 102 STATE 85 STATE 74 DON'T 26 IMAGEOBJPROP 19 MB.3STATE.SHOWSELFN 14 RESETSTATE 9 CL:WHEN 4 PROGN)
( 32 ((QUOTE STATE)))
MB.3STATE.BUTTONEVENTINFN :D8
(P 3 RESETSTATE P 2 SI::*RESETFORMS* P 1 LISPXHIST P 0 NEXTSTATE I 7 BUTTON I 6 MENUTSTREAM I 5 MENUWINDOW I 4 RELY I 3 RELX I 2 SEL I 1 MENUDS I 0 OBJ F 4 LISPXHIST) ’@ABCDEFG
gð³v@g
dgð—¿g°5dgð—¿g°%gð–g°o@g
T!g ¿$F g(138 TEDIT.BACKTOMAIN 127 SI::RESETUNWIND 122 \MVLIST 117 MB.3STATE.BUTTONEVENTINFNA0001 100 \TEDIT.THELP 95 IMAGEOBJPROP 33 IMAGEOBJPROP 14 MB.BUTTONEVENTINFN)
(143 DON'T 112 SI::RESETUNWIND 90 STATE 77 ON 70 NEUTRAL 63 NEUTRAL 55 OFF 47 OFF 39 ON 28 STATE 19 DON'T)
( 84 "ILLEGAL 3STATE")
MB.NWAY.CREATEA0001 :D8
(I 1 B I 0 A) @g
Ag
ýñhð(22 IMAGEOBJPROP 10 IMAGEOBJPROP)
(17 BOUNDBOX 5 BOUNDBOX)
()
MB.NWAY.CREATE :D8
(P 26 SOBJ P 24 I P 21 SOBJ P 18 SOBJ P 16 BUTTON P 12 SUBOBJECTS P 11 HEIGHT P 10 SPACING P 9 OBJ P 8 DONTAPPLY P 7 MAXITEMS/LINE P 6 INITSTATE P 5 STATEFN P 4 STATECHANGEFN P 3 FONT P 2 SORTBUTTONS P 1 BUTTONS P 0 IDENTIFIER I 2 CH# I 1 MENUTSTREAM I 0 SPEC F 27 MB.NWAY.IMAGEFNS) g@g@g@g@µo g@g@g@µgg@µlg@hW6
: Hd–d3@ð³H —H X…H ¿oK
_lK È
Ø_I«oI
¿@I°7d_ ¿gO hgKhh _¿Oµ Oh_‚O&_¿µÊO_Ngð³dO"µ‚±UoN
OgN OgO OgOAO&µ‚±pO(g
 OgO OgOI Ú J²Ogi ¿Og
_¿OgOOkjO.µ‚±-O2OOkÙÚØ OgO OgO OgO OgK OgH OgL OgM OgO Ogg g@œOgi O_$¿NO$g
³NO$g
²%O$gg ¿OgO$ ±þmO"_"±þS_*g
_.¿O,•O.O,ó™O._,¿O*_(¿O&_&±þc_4¿O0O,ó’±þÌO2O4g
Ô_2¿O._.¿O0kÔ_0¿±þ (771 IMAGEOBJPROP 713 IMAGEOBJPROP 689 IMAGEOBJPROP 674 IMAGEOBJPROP 655 STRING.EQUAL 650 IMAGEOBJPROP 635 STRING.EQUAL 630 IMAGEOBJPROP 610 IMAGEOBJPROP 587 IMAGEOBJPROP 570 IMAGEOBJPROP 556 IMAGEOBJPROP 543 IMAGEOBJPROP 530 IMAGEOBJPROP 517 IMAGEOBJPROP 504 IMAGEOBJPROP 490 IMAGEOBJPROP 476 IMAGEOBJPROP 462 IMAGEOBJPROP 418 SORT 405 IMAGEOBJPROP 389 IMAGEOBJPROP 383 LENGTH 368 IMAGEOBJPROP 354 IMAGEOBJPROP 348 IMAGEOBJPROP 314 IMAGEOBJPROP 300 IMAGEOBJPROP 286 ERROR 224 MB.TOGGLE.CREATE 185 ERROR 166 FONTCREATE 156 STRINGWIDTH 144 \ILLEGAL.ARG 136 MKATOM 129 STRINGP 111 IMAGEOBJCREATE 47 FONTCREATE)
(766 BOUNDBOX 708 BOUNDBOX 682 SELECTED 669 ON 664 STATE 645 IDENTIFIER 625 LABEL 604 IGNORE 592 IGNORE 582 MB.NWAY.SETSTATEFN 577 SETSTATEFN 563 DONTAPPLY 550 STATEFN 537 STATECHANGEFN 524 IDENTIFIER 511 FONT 497 BUTTONHEIGHT 483 ITEMSPACE 469 SUBOBJECTS 428 MAXWIDTH 413 MB.NWAY.CREATEA0001 399 SORTBUTTONS 375 MAXHEIGHT 361 MINHEIGHT 343 BOUNDBOX 321 MINWIDTH 307 MAXITEMS/LINE 294 STATE 259 OFF 212 FONT 202 LABEL 99 DONTAPPLY 86 MAXITEMS/LINE 81 OFF 70 INITSTATE 61 STATEFN 52 STATECHANGEFN 31 FONT 22 SORTBUTTONS 13 BUTTONS 4 IDENTIFIER)
( 280 "INITSTATE must be a button" 179 "BAD BUTTONS" 150 " " 42 (HELVETICA 8 BOLD))
MB.NWAY.DISPLAYFN :D8
(P 3 SOBJ P 2 Y P 1 X I 1 STREAM I 0 OBJ) f@g
hA
hA
#Hµh»IKg
ØA
¿JKg
ØA
¿Kg
¼KAlL¿HX°º(86 IMAGEOBJPROP 74 DSPYPOSITION 67 IMAGEOBJPROP 54 DSPXPOSITION 47 IMAGEOBJPROP 24 DSPYPOSITION 17 DSPXPOSITION 10 IMAGEOBJPROP)
(81 DISPLAYFN 62 Y 42 X 5 SUBOBJECTS)
()
MB.NWAY.SIZEFN :D8
(P 26 LINE P 25 Y P 22 LASTSO P 21 LINE P 19 SO P 18 Y P 16 SO P 15 X P 12 LINES P 11 YSIZE P 10 BOX P 9 YSIZE P 8 XSIZE P 7 SLACK P 6 SPACING P 5 BUTTONHEIGHT P 4 MINHEIGHT P 3 MAXWIDTH P 2 MAXITEMS/LINE P 1 SUBOBJECTS P 0 OLDBOX I 3 RIGHTMARGIN I 2 CURX I 1 STREAM I 0 OBJ) )@g
µ‚±@g
@g
@g
@g
@g
@g
@g
CBÙjdJ
KOñ³\JI ð²RK_¿L_¿IjOµ±ì_ gO ¿OO g
ÔNÔ_¿O gj ¿O_°ÁO@g
ñ³nMI Ú_¿N_¿IOO"µ±„_&¿O$jMÙÔ_$¿OO&g
_¿dOñ¢¿O_¿O&gO$ ¿O&gj ¿O"_"°­OINJ _AO(µ=O._¿MO Ú_¿OOO0µZH¢±†OdHÙjð²}¿OHÙjð²pH_* _,g
O,g
Ø_0¿O.•O0O.ó”O0_.¿O(_(°‰_4¿O2jMÙÔ_2¿O4°dO gO2 µêO0_0±ÿwOOIg
jh_@gO O(548 IMAGEOBJPROP 524 IMAGEOBJPROP 495 IMAGEOBJPROP 433 IMAGEOBJPROP 421 IMAGEOBJPROP 408 LAST 355 LENGTH 331 MB.NWAY.ARRANGEBUTTONS 313 IMAGEOBJPROP 299 IMAGEOBJPROP 270 IMAGEOBJPROP 220 LENGTH 210 IMAGEOBJPROP 189 IMAGEOBJPROP 169 IMAGEOBJPROP 154 IMAGEOBJPROP 114 LENGTH 93 IMAGEOBJPROP 82 IMAGEOBJPROP 71 IMAGEOBJPROP 60 IMAGEOBJPROP 49 IMAGEOBJPROP 38 IMAGEOBJPROP 27 IMAGEOBJPROP 10 IMAGEOBJPROP)
(541 BOUNDBOX 519 BOUNDBOX 488 Y 428 BOUNDBOX 416 X 307 X 292 Y 265 BOUNDBOX 205 MINWIDTH 183 Y 164 BOUNDBOX 147 X 88 ITEMSPACE 77 BUTTONHEIGHT 66 MINHEIGHT 55 MAXWIDTH 44 MAXITEMS/LINE 33 SUBOBJECTS 22 BOUNDBOX 5 BOUNDBOX)
()
MB.NWAY.SELECT :D8
(P 0 OLDSELECTED I 3 SEL I 2 MENUWINDOW I 1 SELECTED I 0 OBJ) >@g
Aµ‚±
H²nA´‚± Hgg ¿B²9Hg
jdBHg
Hg
hdgg
¿@gh ¿@gh ¿Ad¢±µið’±®Agg B²9Ag
jdBAg
Ag
hdgg
¿@gA @gAg
@g
´@g
¹@ACBlIið’±þóAd3@ð¢±þêA@
b¿±þÝh(308 MB.NWAY.FINDSUBOBJ 275 IMAGEOBJPROP 262 IMAGEOBJPROP 251 IMAGEOBJPROP 246 IMAGEOBJPROP 229 IMAGEOBJPROP 216 BKBITBLT 198 IMAGEOBJPROP 187 IMAGEOBJPROP 173 IMAGEOBJPROP 159 IMAGEOBJPROP 130 IMAGEOBJPROP 117 IMAGEOBJPROP 104 BKBITBLT 86 IMAGEOBJPROP 75 IMAGEOBJPROP 61 IMAGEOBJPROP 46 IMAGEOBJPROP 10 IMAGEOBJPROP)
(270 STATECHANGEFN 257 STATECHANGEFN 241 IDENTIFIER 235 STATE 223 SELECTED 210 REPLACE 205 INVERT 193 Y 182 X 168 BITCACHE 154 ON 149 STATE 124 SELECTED 111 STATE 98 REPLACE 93 INPUT 81 Y 70 X 56 BITCACHE 41 OFF 36 STATE 5 SELECTED)
()
MB.NWAY.BUTTONEVENTINFN :D8
(P 1 SOBJ I 7 BUTTON I 6 MENUTSTREAM I 5 SELWINDOW I 4 RELY I 3 RELX I 2 SEL I 1 MENUDS I 0 OBJ) šGo
³@ABCDEFG
gð–g° @dg
HµhAB ¿iF ¿Yg
Ig
Ig
Ig
hCD •Iµ°i°­HX°¤(140 INSIDE? 126 IMAGEOBJPROP 114 IMAGEOBJPROP 103 IMAGEOBJPROP 92 IMAGEOBJPROP 78 TEDIT.BACKTOMAIN 70 MB.NWAY.SELECT 54 IMAGEOBJPROP 28 MB.BUTTONEVENTINFN 11 MEMB)
(121 BOUNDBOX 109 BOUNDBOX 98 Y 87 X 49 SUBOBJECTS 40 DON'T 33 DON'T)
( 6 (MIDDLE RIGHT))
MB.NWAY.NEWMENUBUTTON :D8
(P 1 BUTTON P 0 ARBITRATOR I 3 NEWBUTTON I 2 OLDBUTTON I 1 CH# I 0 TEXTOBJ) CBg
IgH I@A @oAkØ @oAkØl I(63 TEDIT.LOOKS 47 TEDIT.INSERT 33 TEDIT.INSERT.OBJECT 25 IMAGEOBJPROP 10 IMAGEOBJPROP)
(19 ARBITRATOR 5 ARBITRATOR)
( 53 (PROTECTED ON) 39 " ")
MB.NWAY.COPYFN :D8
(P 6 SCOPY P 5 SUBOBJ P 4 SOTAIL P 1 SELECTED P 0 NEWOBJ I 0 OBJ) V@ @g
Hg
1K\µH]g
ºMkJ¾MIðœHgN ¿LN¿L°Ð(75 IMAGEOBJPROP 52 IMAGEOBJPROP 30 IMAGEOBJPROP 16 IMAGEOBJPROP 5 MB.COPYFN)
(69 SELECTED 47 COPYFN 25 SUBOBJECTS 11 SELECTED)
()
MB.NWAY.INIT :D8
(I 2 INITSTATE I 1 FONT I 0 BUTTONS) Cgggggggddggddg
(59 IMAGEFNSCREATE)
(64 MB.NWAY.IMAGEFNS 53 NWayButton 46 NILL 41 MB.DON'T 34 NILL 29 MB.NWAY.BUTTONEVENTINFN 24 MB.NWAY.COPYFN 19 MB.GETFN 14 MB.PUTFN 9 MB.NWAY.SIZEFN 4 MB.NWAY.DISPLAYFN)
()
MB.NWAY.ARRANGEBUTTONS :D8
(P 6 LINEOBJECTS P 5 LINES P 4 XSIZE P 3 SO P 2 X P 1 NLINEOBJECTS I 3 MAXITEMS/LINE I 2 SPACING I 1 SUBOBJECTS I 0 WIDTH) mAjdCHµNµ M  M]°ò[g
¼@JLØýñ³)Cµ"KN¾KgJ ¿JLÔBÔºIkÔ¹HX°²Iñ³ÞN M½jºh¾j¹°Í(96 DREVERSE 70 IMAGEOBJPROP 41 IMAGEOBJPROP 24 DREVERSE 18 DREVERSE)
(64 X 36 BOUNDBOX)
()
MB.NWAY.ADDITEMA0001 :D8
(I 1 S2 I 0 S1) @g
Ag
(26 ALPHORDER 21 IMAGEOBJPROP 10 IMAGEOBJPROP)
(16 LABEL 5 LABEL)
()
MB.NWAY.ADDITEMA0004 :D8
(I 1 B I 0 A) @g
Ag
ýñhð(22 IMAGEOBJPROP 10 IMAGEOBJPROP)
(17 BOUNDBOX 5 BOUNDBOX)
()
MB.NWAY.ADDITEM :D8
(P 8 SOBJ P 6 I P 3 MAXITEMS/LINE P 2 SUBOBJECTS P 0 NEWSOBJ I 1 NEWBUTTON I 0 OBJ) > A´‚±gAhgAhg@g
hh @g
Hh
@g
@g
›Jg
º@gJ @g@g
Hg
¹dIñ¡¿I J Kýñ²;@gKJ g
kjMµFO@g
KkÙÚØ ¿@g@g
J Ú @gh H_¿NLó³µOOg
Ô_¿M½NkÔ¾°•(302 IMAGEOBJPROP 277 IMAGEOBJPROP 265 IMAGEOBJPROP 259 LENGTH 253 IMAGEOBJPROP 235 IMAGEOBJPROP 224 IMAGEOBJPROP 202 SORT 192 COPY 174 LENGTH 168 IMAGEOBJPROP 155 IMAGEOBJPROP 144 IMAGEOBJPROP 127 IMAGEOBJPROP 114 SORT 102 IMAGEOBJPROP 88 IMAGEOBJPROP 74 \APPEND2 66 IMAGEOBJPROP 52 MB.TOGGLE.CREATE 40 IMAGEOBJPROP)
(297 BOUNDBOX 271 BOUNDBOX 248 BUTTONHEIGHT 242 MAXHEIGHT 219 ITEMSPACE 197 MB.NWAY.ADDITEMA0004 185 MAXWIDTH 150 BOUNDBOX 139 MINWIDTH 133 MINWIDTH 121 SUBOBJECTS 109 MB.NWAY.ADDITEMA0001 97 SORTBUTTONS 83 MAXITEMS/LINE 61 SUBOBJECTS 35 FONT 29 FONT 20 LABEL 11 IDENTIFIER)
()
MB.NWAY.FINDSUBOBJ :D8
(P 1 SOBJ I 1 OBJ I 0 TEXT) 3Ag
Hµh¹@Ig
”IµiHX°ß(38 STRING.EQUAL 33 IMAGEOBJPROP 10 IMAGEOBJPROP)
(28 LABEL 5 SUBOBJECTS)
()
MB.NWAY.SETSTATEFN :D8
(P 0 OBJ I 2 MENUSTREAM I 1 NEWVALUE I 0 PC) J@ò@ÉB
b€@ÉAgð¯AH
§HA
¿HA
¿BH@ @(70 TEDIT.OBJECT.CHANGED 61 MB.NWAY.SELECT 53 MB.NWAY.ADDITEM 45 MB.NWAY.FINDSUBOBJ 21 \TEDIT.CHTOPC 16 TEXTOBJ)
(36 OFF 5 SELECTION)
()
MB.TOGGLE.CREATE :D8
(I 0 SPEC F 0 MB.TOGGLE.IMAGEFNS) Ag@³ggh@b¿g@³ggh@b€@P
(62 MB.CREATE)
(47 MB.TOGGLE.SETSTATEFN 42 SETSTATEFN 31 SETSTATEFN 18 OFF 13 INITSTATE 4 INITSTATE)
()
MB.TOGGLE.DISPLAYFN :D8
(P 5 YSIZE P 4 XSIZE P 3 Y P 2 X P 1 OBJBOX P 0 BITMAP I 2 MODE I 1 STREAM I 0 OBJ) k@ @ hA
hA
$KIÙ[I\I]HjdAJKLMgg
@g
gð´nÿÿAJKLMg
(104 BLTSHADE 77 IMAGEOBJPROP 66 BKBITBLT 25 DSPYPOSITION 18 DSPXPOSITION 11 MB.SIZEFN 5 MB.SETIMAGE)
(98 INVERT 82 ON 72 STATE 60 REPLACE 55 INPUT)
()
MB.TOGGLE.INIT :D8
NIL Kgggggggddggggg
(67 IMAGEFNSCREATE)
(72 MB.TOGGLE.IMAGEFNS 61 ToggleButton 56 NILL 51 MB.TOGGLE.WHENOPERATEDONFN 46 NILL 41 MB.DON'T 34 NILL 29 MB.TOGGLE.BUTTONEVENTINFN 24 MB.COPYFN 19 MB.GETFN 14 MB.PUTFN 9 MB.SIZEFN 4 MB.TOGGLE.DISPLAYFN)
()
MB.SET.TOGGLE :D8
(P 0 OBJ I 2 MENUSTREAM I 1 VALUE I 0 IDENTIFIER) ,@B
µ
@o
HgA B A(40 \TEDIT.FILL.PANES 34 IMAGEOBJPROP 19 ERROR 6 MB.GET)
(28 STATE)
( 14 " was not found as a button.")
MB.TOGGLE.SETSTATEFN :D8
(I 2 MENUSTREAM I 1 NEWVALUE I 0 PC) \@ò@ÉBÉ
b€@Êlð´@Éô@ÉgA B@Êlð´@Éô@É@ @(88 TEDIT.OBJECT.CHANGED 59 IMAGEOBJPROP 23 \TEDIT.CHTOPC)
(77 IMAGEOBJ 53 STATE 43 IMAGEOBJ 16 STREAM 5 SELECTION)
()
MB.TOGGLE.BUTTONEVENTINFNA0001 :D8
(NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 OBJ F 1 MENUDS F 2 NEXTSTATE F 3 SI::*RESETFORMS* F 4 STATECHANGEFN F 5 MENUSEL) ¦ggggPgPoQhhhhdScPRQ PQ
gð²Pdg
Q hPg
cd²PRQg
UlTgð³ÃPgR Pg
(163 IMAGEOBJPROP 152 IMAGEOBJPROP 126 GETWINDOWPROP 108 IMAGEOBJPROP 95 MB.SHOWSELFN 89 IMAGEOBJPROP 69 MB.TRACK.UNTIL 62 MB.SHOWSELFN)
(158 SELECTFN 146 STATE 137 DON'T 121 TEXTSTREAM 103 STATECHANGEFN 84 STATE 74 DON'T 25 IMAGEOBJPROP 19 MB.SHOWSELFN 14 RESETSTATE 9 CL:WHEN 4 PROGN)
( 31 ((QUOTE STATE)))
MB.TOGGLE.BUTTONEVENTINFN :D8
(P 4 RESETSTATE P 3 SI::*RESETFORMS* P 2 LISPXHIST P 1 STATECHANGEFN P 0 NEXTSTATE I 7 BUTTON I 6 MENUTSTREAM I 5 MENUWINDOW I 4 RELY I 3 RELX I 2 MENUSEL I 1 MENUDS I 0 OBJ F 5 LISPXHIST) „@ABCDEFG
gð•g@g
dgð£dið—¿g°*dgð¡d§¿g°¿o@g
U!g ¿$(125 SI::RESETUNWIND 120 \MVLIST 115 MB.TOGGLE.BUTTONEVENTINFNA0001 98 \TEDIT.THELP 93 IMAGEOBJPROP 38 IMAGEOBJPROP 14 MB.BUTTONEVENTINFN)
(110 SI::RESETUNWIND 88 STATE 74 ON 64 OFF 56 OFF 44 ON 33 STATE 26 DON'T 19 DON'T)
( 82 "ILLEGAL TOGGLE")
MB.TOGGLE.WHENOPERATEDONFN :D8
(I 4 MENUSTREAM I 3 MENUSEL I 2 OPERATION I 1 MENUDS I 0 OBJ) SBdgð²/¿@g
²@g
@ACDlHD gð³Bgð¨Bgð´h(53 TEDIT.BACKTOMAIN 34 IMAGEOBJPROP 21 IMAGEOBJPROP)
(76 UNHIGHLIGHTED 68 HIGHLIGHTED 59 DESELECTED 29 SELECTFN 16 SELECTFN 6 SELECTED)
()
MB.FIELD.CREATE :D8
(P 12 S P 11 REMAINDER P 10 SUFFIXOBJ P 9 PREFIXOBJ P 8 FIELDLOOKS P 7 POST P 6 PRE P 5 FIELDFONT P 4 LABELFONT P 3 IDENTIFIER P 2 POSTLABEL P 1 PRELABEL P 0 INITSTATE I 2 CH# I 1 MENUTSTREAM I 0 SPEC) ¼
g@g@g@g@g@µo g@µo f Kµ/I²oI
[°4o@
°"d3@ð³K³K —K […K ¿gKh@bMoh^I—LIhN¾J™LJhh_¿MohO_M _@NO _@OO _OgO @o
_d°d OOO µêO°d OOO µêOABM BkÔbHµOABM BkÔgð³ìBg@gð²HABgMh ¿k°AHBgMh ¿H Ôb¿°§(436 NCHARS 429 TEDIT.INSERT 408 TEDIT.INSERT.OBJECT 361 TEDIT.INSERT.OBJECT 343 TEDIT.INSERT.OBJECT 328 IMAGEOBJPROP 300 IMAGEOBJPROP 276 MB.SPEC.REMAINDER 265 IMAGEOBJPROP 249 MB.FIELD.SUFFIXCREATE 237 MB.FIELD.PREFIXCREATE 226 \TEDIT.CHARLOOKS.FROM.FONT 160 \ILLEGAL.ARG 152 MKATOM 145 STRINGP 126 ERROR 121 ERROR 107 U-CASE 102 MKATOM 97 CL:STRING-TRIM 77 FONTCREATE 56 FONTCREATE)
(420 FONT 399 FONT 388 IMAGEOBJ 379 FIELDTYPE 370 **EMPTY** 258 SUFFIXOBJ 166 IDENTIFIER 61 FIELDFONT 40 LABELFONT 31 IDENTIFIER 22 POSTLABEL 13 PRELABEL 4 INITSTATE)
( 271 (INITSTATE PRELABEL POSTLABEL IDENTIFIER LABELFONT FIELDFONT) 212 "} " 180 (" {") 115 "Missing both IDENTIFIER and PRELABEL"
91 (#\Space #\Tab #\Newline #\:) 72 (HELVETICA 8) 51 (HELVETICA 8))
MB.FIELD.DISPLAYFN :D8
(P 1 I P 0 X I 1 IMAGESTREAM I 0 OBJ) J@g
°9dH µHhddA
A
¿HŒdIA
µñhµÈh(59 PRIN3 44 DSPFONT 38 FONTCREATE 24 FONTP 10 IMAGEOBJPROP)
(5 OBJECTDATUM)
()
MB.FIELD.IMAGEBOXFN :D8
(P 10 I P 5 FONT P 4 X P 3 DESCENT P 2 ASCENT P 1 XSIZE I 3 RIGHTMARGIN I 2 CURRENTX I 1 IMAGESTREAM I 0 OBJ) ’ Ag
b@g
jddDHµIJKØKjh\hddA
½KM È ¾dNñ¡¿N»JM È_¿dOñ¢¿OºILj
Oµ OÔ¹HX°©_¿OOM
Ô_¿O_°Ü(133 STRINGWIDTH 83 FONTCREATE 66 FONTCREATE 58 FONTCREATE 23 IMAGEOBJPROP 10 GETSTREAM)
(18 OBJECTDATUM 5 OUTPUT)
()
MB.FIELD.PREFIXCREATE :D8
(P 5 S P 3 OBJ P 2 FIELDTYPE P 1 EMPTYVALUE P 0 INITSTATE I 2 FIELDLOOKS I 1 PRE I 0 SPEC F 6 MB.FIELD.IMAGEFNS) »g@³ggh@b¿g@g@"I²gIhI@
b¿g@Z³ggZh@b¿AV
[dgg g@³K@gg ¿KgB @LµI²2HdIð²+¿gX°"]o
«KMM ¿L\°ËH¢±¶Hg𒱫Jdgð˜¿H3hð±„gð˜Hd3@ðhð°sJdgðœ¿Hd3²e¿kHñ°]gð›Hd3²R¿jHñ°JJgð©Jdgðš¿H hð°.gð™H hð°Jgð²H²H3³H hð€i–H ¿KgH ¿Kgd@ Kgi K(439 IMAGEOBJPROP 427 IMAGEOBJPROP 410 IMAGEOBJPROP 397 \ILLEGAL.ARG 386 STRINGP 359 IMAGEOBJP 342 STRINGP 221 IMAGEOBJPROP 209 MEMB 167 IMAGEOBJPROP 154 IMAGEOBJPROP 126 IMAGEOBJPROP 109 IMAGEOBJCREATE 67 REMOVE)
(433 FIELDPREFIX 417 IDENTIFIER 404 INITSTATE 369 SELECTION 351 IMAGEOBJ 333 STRING 324 TEXT 304 CARDINAL 284 POSITIVENUMBER 266 SYMBOL 250 NUMBER 238 **EMPTY** 193 **EMPTY** 161 FIELDLOOKS 149 MB.FIELD.SETSTATEFN 144 SETSTATEFN 131 SETSTATEFN 121 MB.FIELD.GETSTATEFN 116 STATEFN 93 STRING 88 FIELDTYPE 76 FIELDTYPE 55 EMPTYVALUE 42 EMPTYVALUE 33 INITSTATE 20 MB.FIELD.SETSTATEFN 15 SETSTATEFN 4 SETSTATEFN)
( 204 (PRELABEL POSTLABEL LABELFONT IDENTIFIER FIELDFONT))
MB.FIELD.SUFFIXCREATE :D8
(P 0 OBJ I 2 FIELDLOOKS I 1 POST I 0 SPEC F 1 MB.FIELD.IMAGEFNS) @AQ
Xdgi HgB Hgd@o
H(60 IMAGEOBJPROP 55 PACK* 34 IMAGEOBJPROP 22 IMAGEOBJPROP 9 IMAGEOBJCREATE)
(40 IDENTIFIER 28 FIELDLOOKS 16 FIELDSUFFIX)
( 50 ".SUFFIX")
MB.FIELD.INIT :D8
NIL Kgggggggddggggg
(67 IMAGEFNSCREATE)
(72 MB.FIELD.IMAGEFNS 61 FieldPrefixButton 56 NILL 51 MB.FIELD.WHENOPERATEDONFN 46 NILL 41 MB.DON'T 34 NILL 29 MB.FIELD.BUTTONEVENTINFN 24 MB.COPYFN 19 MB.GETFN 14 MB.PUTFN 9 MB.FIELD.IMAGEBOXFN 4 MB.FIELD.DISPLAYFN)
()
MB.FIELD.WHENOPERATEDONFN :D8
(I 4 TSTREAM I 3 SEL I 2 OPERATION I 1 PANE I 0 OBJ) ^Bdgð²)¿@g
–Cg…Cg¿ChCj jgð˜DÉBgð³Bgð¨Bgð´h(21 IMAGEOBJPROP)
(87 UNHIGHLIGHTED 79 HIGHLIGHTED 70 DESELECTED 61 STREAM 53 \TEDIT.FIXSEL 35 LEFT 28 RIGHT 16 FIELDPREFIX 6 SELECTED)
()
MB.FIELD.GETSTATEFN :D8
(P 10 PC P 8 VAL P 7 FIELDTYPE P 6 FSEL P 5 FIELDLENGTH P 4 ENDPC P 3 FIELDSTART P 0 TEXTOBJ I 2 TSTREAM I 1 PREFIXOBJ I 0 PREFIXPC) Ÿ B !@H
kØQ@¼j
@‰OÉÔ_¿Oɵ~O]`dkÏ¿dkÏ¿dk¿dnÿÿ¿dg¿hd¹dI¿hdºdJ¿dj¿^dKMg Ag
_ddg𢱅¿Mdkð²R¿NÉ ±Š_¿OOÊlð¢±ÿcOÊlð´OÉôOÉg
¢±ÿ<O¼¿±ÿCjðµABAg
i
o
id ¿h°gð‘NŽOBN
B _dgð²@Ag
œAg
°$OgðªOdg𖿇gð“h_¿AgO AgK AgM L(411 IMAGEOBJPROP 399 IMAGEOBJPROP 387 IMAGEOBJPROP 362 CONCAT 335 IMAGEOBJPROP 323 IMAGEOBJPROP 301 MB.FIELD.INSURETYPE 295 TEDIT.SEL.AS.STRING 273 TEDIT.PROMPTPRINT 266 CONCAT 256 L-CASE 250 IMAGEOBJPROP 223 IMAGEOBJPROP 163 IMAGEOBJP 133 IMAGEOBJPROP 122 \TEDIT.UPDATE.SEL 15 \TEDIT.PCTOCH 5 TEXTOBJ)
(405 FIELDLENGTH 393 FIELDSTART 380 STATE 368 SYMBOL 354 TEXT 344 STRING 330 EMPTYVALUE 318 EMPTYVALUE 309 **EMPTY** 282 SELECTION 245 IDENTIFIER 218 FIELDSUFFIX 207 IMAGEOBJ 171 PIECE 142 IMAGEOBJ 128 FIELDTYPE 117 RIGHT 82 LEFT 51 |SELECTIONTYPE#|)
( 261 " field does not contain an image object")
MB.FIELD.SETSTATEFN :D8
(P 11 PC P 10 PC P 8 FSEL P 7 FIELDLENGTH P 6 EMPTYVALUE P 5 FIELDTYPE P 4 FIELDSTART P 1 PREFIXOBJ P 0 TEXTOBJ I 2 TSTREAM I 1 NEWVALUE I 0 PREFIXPC)  BÉ1@ɹ@H
kØIg
Ig
!NœANð—gb¿Mdgð²7¿A²LA ³DoIg
i
o id hgð–A ‰MAB b¿j
@°A_Êlð²&OÊlð´OÉôOÉg
¯OOÉÔ_¿Oɵ¿O_¿`dkÏ¿dkÏ¿dk¿dnÿÿ¿dg¿hdºdJ¿hd»dK¿dj¿_LOg ¿Ojð¬BO
¿j_¿Agð’j°1MgðœABO ¿k°A bOBid
¿A _¿OLOg ¿OÉ jð³BIg
O ¿IgO ¿IgA ¿ @<40>OÉd²;_Êlð²ìOÊlð´OÉôOÉg
²ÇOµi(532 IMAGEOBJPROP 469 IMAGEOBJPROP 456 IMAGEOBJPROP 442 \TEDIT.CHANGE.CHARLOOKS 435 IMAGEOBJPROP 409 \TEDIT.UPDATE.SEL 391 NCHARS 384 \TEDIT.INSERT 371 MKSTRING 361 TEDIT.INSERT.OBJECT 328 \TEDIT.DELETE 314 \TEDIT.UPDATE.SEL 214 IMAGEOBJPROP 154 MB.FIELD.INSURETYPE 145 \ILLEGAL.ARG 130 TEDIT.PROMPTPRINT 123 CONCAT 113 L-CASE 107 IMAGEOBJPROP 89 IMAGEOBJP 51 IMAGEOBJPROP 37 IMAGEOBJPROP 21 \TEDIT.PCTOCH)
(527 FIELDSUFFIX 516 IMAGEOBJ 487 PIECE 463 STATE 449 FIELDLENGTH 430 FIELDLOOKS 417 SELECTION 404 LEFT 350 IMAGEOBJ 339 **EMPTY** 309 LEFT 273 LEFT 242 |SELECTIONTYPE#| 209 FIELDSUFFIX 198 IMAGEOBJ 169 PIECE 137 SELECTION 102 IDENTIFIER 76 IMAGEOBJ 66 **EMPTY** 46 EMPTYVALUE 32 FIELDTYPE 5 STREAM)
( 118 " field" 96 "Invalid value for ")
MB.FIELD.BUTTONEVENTINFN :D8
(P 2 ISPREFIX P 1 CUSTOMFN P 0 OBJBOX I 7 BUTTON I 6 TEXTSTREAM I 5 SELWINDOW I 4 RELY I 3 RELX I 2 SEL I 1 STREAM I 0 OBJ) ”@g
@g
@g
Ggð²2jCñ³-jDñ³(CHñ³"DHñ³I²@ABCDEFGJl Igð•gBJ•g„gBhBj FÉ@g
4i(142 IMAGEOBJPROP 32 IMAGEOBJPROP 21 IMAGEOBJPROP 10 IMAGEOBJPROP)
(137 FIELDLOOKS 129 STREAM 113 LEFT 107 RIGHT 98 DON'T 91 DON'T 42 LEFT 27 FIELDPREFIX 16 CUSTOMBUTTONEVENTFN 5 BOUNDBOX)
()
MB.FIELD.SIZEFN :D8
(L (1 STREAM 0 OBJ)) jdddhNIL
NIL
()
MB.FIELD.INSURETYPE :D8
(P 1 VAL P 0 TRIMMED I 2 TSTREAM I 1 STR I 0 FIELDTYPE) §Ag
³.A ›oA
€A@gð©@dgð™¿Aµggð²oH
’±QH@gð³)@gð³ @gð³@gð¬@dgð¢±õ¿H X jð¡A§gY°H3µ$BAo
id ¿I’±è¿±ß¹@dgð²¿Ijó³pBAo
id ¿h°Wgð²Hk
o
Ih°7@dgð²¿jIñ²)BAo
id °gðšl IÖ Y¿lI ñ’±ÿiImÿ
l0ð¢±ÿZImþ
l.ð¢±ÿKIjØY±ÿEgð²H jð’±þ¯A¢±þªH o@
I(419 \TEDIT.THELP 407 MKATOM 390 NCHARS 362 NTHCHARCODE 347 NTHCHARCODE 334 NCHARS 324 FIXR 306 TEDIT.PROMPTPRINT 299 CONCAT 264 MEMB 254 NTHCHAR 235 TEDIT.PROMPTPRINT 228 CONCAT 195 ERROR! 184 TEDIT.PROMPTPRINT 177 CONCAT 147 NCHARS 141 MKATOM 81 STREQUAL 30 CL:STRING-TRIM 18 STRINGP 10 STRING.EQUAL)
(381 SYMBOL 313 PICAS 278 NATURALNUMBER 244 SIGNEDNUMBER 207 POSITIVENUMBER 157 **EMPTY** 129 CARDINAL 120 SIGNEDNUMBER 111 POSITIVENUMBER 102 PICAS 93 NUMBER 67 TRIMMEDSTRING 61 **EMPTY** 50 STRING 41 TEXT 5 **EMPTY**)
( 413 "UNRECOGNIZED FIELD TYPE" 294 " is not a natural number" 259 (+ -) 223 " is not a positive number"
172 " is not a number" 75 "" 24 (#\Space #\Newline))
(PRETTYCOMPRINT TEDIT-BUTTONSCOMS)
(RPAQQ TEDIT-BUTTONSCOMS ((* ;;
"Implementation of the various kinds of menu buttons: Action, toggle, 3state, N-way, field") (COMS (*
; "Generic functions for the various types of buttons.") (RECORDS MBARG) (FNS MB.ADD MB.DELETE MB.GET
MB.GET.MBARG TEDIT.BACKTOMAIN)) (COMS (* ; "Simple Menu Button support") (FNS MB.BUTTONEVENTINFN
MB.DISPLAYFN MB.SETIMAGE MB.SIZEFN MB.WHENOPERATEDONFN MB.COPYFN MB.GETFN MB.PUTFN MB.SHOWSELFN
MB.CREATE MB.CHANGENAME MB.INIT MB.TRACK.UNTIL MB.DON'T MB.SPEC.REMAINDER) (DECLARE%: DONTEVAL@LOAD
DOCOPY (P (MB.INIT)))) (COMS (* ; "3STATE") (* ;;
"ON-OFF-NEUTRAL menu buttons, for, e.g., character properties like BOLD") (FNS MB.3STATE.CREATE
MB.3STATE.DISPLAYFN MB.3STATE.SHOWSELFN MB.3STATE.INIT MB.3STATE.SETSTATEFN MB.3STATE.BUTTONEVENTINFN)
(DECLARE%: DONTEVAL@LOAD DOCOPY (P (MB.3STATE.INIT)))) (COMS (* ; "NWAY") (* ;;
"Mutually exclusive togggles with a single enclosing object") (FNS MB.NWAY.CREATE MB.NWAY.DISPLAYFN
MB.NWAY.SIZEFN MB.NWAY.SELECT MB.NWAY.BUTTONEVENTINFN MB.NWAY.NEWMENUBUTTON MB.NWAY.COPYFN
MB.NWAY.INIT MB.NWAY.ARRANGEBUTTONS MB.NWAY.ADDITEM MB.NWAY.FINDSUBOBJ MB.NWAY.SETSTATEFN) (DECLARE%:
DONTEVAL@LOAD DOCOPY (P (MB.NWAY.INIT)))) (COMS (* ; "TOGGLE") (FNS MB.TOGGLE.CREATE
MB.TOGGLE.DISPLAYFN MB.TOGGLE.INIT MB.SET.TOGGLE MB.TOGGLE.SETSTATEFN MB.TOGGLE.BUTTONEVENTINFN
MB.TOGGLE.WHENOPERATEDONFN) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (MB.TOGGLE.INIT)))) (COMS (* ; "FIELDS"
) (FNS MB.FIELD.CREATE MB.FIELD.DISPLAYFN MB.FIELD.IMAGEBOXFN MB.FIELD.PREFIXCREATE
MB.FIELD.SUFFIXCREATE MB.FIELD.INIT MB.FIELD.WHENOPERATEDONFN MB.FIELD.GETSTATEFN MB.FIELD.SETSTATEFN
MB.FIELD.BUTTONEVENTINFN MB.FIELD.SIZEFN MB.FIELD.INSURETYPE) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (
MB.FIELD.INIT))))))
(RECORD MBARG (ARGSTATE ARGOBJ ARGSTARTPC ARGENDPC ARGIDPC))
(MB.INIT)
(MB.3STATE.INIT)
(MB.NWAY.INIT)
(MB.TOGGLE.INIT)
(MB.FIELD.INIT)
NIL
Reference in New Issue View Git Blame Copy Permalink