ofs | hex dump | ascii |
---|
0000 | 3b 45 4c 43 1c 00 00 00 0a 3b 3b 3b 20 43 6f 6d 70 69 6c 65 64 0a 3b 3b 3b 20 69 6e 20 45 6d 61 | ;ELC.....;;;.Compiled.;;;.in.Ema |
0020 | 63 73 20 76 65 72 73 69 6f 6e 20 32 38 2e 31 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f 70 74 | cs.version.28.1.;;;.with.all.opt |
0040 | 69 6d 69 7a 61 74 69 6f 6e 73 2e 0a 0a 0a 0a 23 40 35 34 20 4c 69 73 74 20 6f 66 20 64 69 72 65 | imizations.....#@54.List.of.dire |
0060 | 63 74 6f 72 69 65 73 20 77 68 65 72 65 20 74 6f 6f 6c 62 61 72 78 20 66 69 6e 64 73 20 69 74 73 | ctories.where.toolbarx.finds.its |
0080 | 20 69 6d 61 67 65 73 2e 1f 0a 28 64 65 66 76 61 72 20 74 6f 6f 6c 62 61 72 78 2d 69 6d 61 67 65 | .images...(defvar.toolbarx-image |
00a0 | 2d 70 61 74 68 20 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 | -path.(byte-code."\302\303\304\3 |
00c0 | 30 35 08 5c 22 5c 22 09 43 5c 32 34 34 5c 32 30 37 22 20 5b 6c 6f 61 64 2d 70 61 74 68 20 64 61 | 05.\"\".C\244\207".[load-path.da |
00e0 | 74 61 2d 64 69 72 65 63 74 6f 72 79 20 64 65 6c 71 20 6e 69 6c 20 6d 61 70 63 61 72 20 23 5b 32 | ta-directory.delq.nil.mapcar.#[2 |
0100 | 35 37 20 22 5c 32 31 31 5c 32 30 35 0f 00 5c 33 30 30 5c 33 30 31 02 21 21 5c 33 30 32 5c 32 33 | 57."\211\205..\300\301.!!\302\23 |
0120 | 35 5c 32 30 35 0f 00 5c 32 31 31 5c 32 30 37 22 20 5b 66 69 6c 65 2d 6e 61 6d 65 2d 6e 6f 6e 64 | 5\205..\211\207".[file-name-nond |
0140 | 69 72 65 63 74 6f 72 79 20 64 69 72 65 63 74 6f 72 79 2d 66 69 6c 65 2d 6e 61 6d 65 20 28 22 74 | irectory.directory-file-name.("t |
0160 | 6f 6f 6c 62 61 72 22 20 22 69 6d 61 67 65 73 22 29 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 | oolbar"."images")].4."\n\n(fn.X) |
0180 | 22 5d 5d 20 35 29 20 28 23 24 20 2e 20 38 34 29 29 0a 23 40 31 30 33 20 52 65 74 75 72 6e 20 61 | "]].5).(#$...84)).#@103.Return.a |
01a0 | 20 73 74 72 69 6e 67 20 66 72 6f 6d 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 61 20 53 59 4d 42 4f | .string.from.the.name.of.a.SYMBO |
01c0 | 4c 2e 0a 55 70 63 61 73 65 20 69 6e 69 74 69 61 6c 73 20 61 6e 64 20 72 65 70 6c 61 63 65 20 64 | L..Upcase.initials.and.replace.d |
01e0 | 61 73 68 65 73 20 62 79 20 73 70 61 63 65 73 2e 0a 0a 28 66 6e 20 53 59 4d 42 4f 4c 29 1f 0a 28 | ashes.by.spaces...(fn.SYMBOL)..( |
0200 | 64 65 66 61 6c 69 61 73 20 27 74 6f 6f 6c 62 61 72 78 2d 6d 61 6b 65 2d 73 74 72 69 6e 67 2d 66 | defalias.'toolbarx-make-string-f |
0220 | 72 6f 6d 2d 73 79 6d 62 6f 6c 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 21 21 5c 33 30 | rom-symbol.#[257."\300\301.!!\30 |
0240 | 32 5c 33 30 33 02 5c 33 30 32 5c 22 5c 32 31 31 5c 32 30 33 2a 00 5c 32 31 31 40 5c 32 31 31 5c | 2\303.\302\"\211\203*.\211@\211\ |
0260 | 33 30 34 3d 5c 32 30 33 1e 00 5c 33 30 35 03 42 5c 32 36 32 03 5c 32 30 32 23 00 5c 32 31 31 03 | 304=\203..\305.B\262.\202#.\211. |
0280 | 42 5c 32 36 32 03 01 41 5c 32 36 36 5c 32 30 32 5c 32 30 32 5c 6e 00 5c 32 31 30 5c 32 31 31 5c | B\262..A\266\202\202\n.\210\211\ |
02a0 | 32 33 37 5c 32 36 30 01 5c 32 30 37 22 20 5b 75 70 63 61 73 65 2d 69 6e 69 74 69 61 6c 73 20 73 | 237\260.\207".[upcase-initials.s |
02c0 | 79 6d 62 6f 6c 2d 6e 61 6d 65 20 6e 69 6c 20 61 70 70 65 6e 64 20 34 35 20 33 32 5d 20 37 20 28 | ymbol-name.nil.append.45.32].7.( |
02e0 | 23 24 20 2e 20 34 30 38 29 5d 29 0a 23 40 39 38 20 52 65 74 75 72 6e 20 61 20 28 69 6e 74 65 72 | #$...408)]).#@98.Return.a.(inter |
0300 | 6e 29 20 73 79 6d 62 6f 6c 20 66 72 6f 6d 20 53 54 52 49 4e 47 2e 0a 44 6f 77 6e 63 61 73 65 20 | n).symbol.from.STRING..Downcase. |
0320 | 73 74 72 69 6e 67 20 61 6e 64 20 72 65 70 6c 61 63 65 20 73 70 61 63 65 73 20 62 79 20 64 61 73 | string.and.replace.spaces.by.das |
0340 | 68 65 73 2e 0a 0a 28 66 6e 20 53 54 52 49 4e 47 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 74 6f | hes...(fn.STRING)..(defalias.'to |
0360 | 6f 6c 62 61 72 78 2d 6d 61 6b 65 2d 73 79 6d 62 6f 6c 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 23 | olbarx-make-symbol-from-string.# |
0380 | 5b 32 35 37 20 22 5c 33 30 30 01 5c 32 32 37 5c 33 30 31 5c 22 5c 33 30 31 01 5c 32 31 31 5c 32 | [257."\300.\227\301\"\301.\211\2 |
03a0 | 30 33 27 00 5c 32 31 31 40 5c 32 31 31 5c 33 30 32 3d 5c 32 30 33 1b 00 5c 33 30 33 03 42 5c 32 | 03'.\211@\211\302=\203..\303.B\2 |
03c0 | 36 32 03 5c 32 30 32 20 00 5c 32 31 31 03 42 5c 32 36 32 03 01 41 5c 32 36 36 5c 32 30 32 5c 32 | 62.\202..\211.B\262..A\266\202\2 |
03e0 | 30 32 07 00 5c 32 31 30 5c 33 30 34 01 5c 32 33 37 5c 32 36 30 01 21 5c 32 30 37 22 20 5b 61 70 | 02..\210\304.\237\260.!\207".[ap |
0400 | 70 65 6e 64 20 6e 69 6c 20 33 32 20 34 35 20 69 6e 74 65 72 6e 5d 20 37 20 28 23 24 20 2e 20 37 | pend.nil.32.45.intern].7.(#$...7 |
0420 | 35 33 29 5d 29 0a 23 40 32 31 36 20 4e 6f 6e 2d 6e 69 6c 20 6d 65 61 6e 73 20 74 68 65 20 4f 50 | 53)]).#@216.Non-nil.means.the.OP |
0440 | 54 49 4f 4e 2d 4c 49 53 54 20 69 73 20 6f 66 20 66 6f 72 6d 20 28 4f 50 54 20 46 4f 52 4d 20 2e | TION-LIST.is.of.form.(OPT.FORM.. |
0460 | 2e 2e 20 4f 50 54 20 46 4f 52 4d 29 2e 0a 45 61 63 68 20 4f 50 54 20 69 73 20 6d 65 6d 62 65 72 | ...OPT.FORM)..Each.OPT.is.member |
0480 | 20 6f 66 20 56 41 4c 49 44 2d 4f 50 54 49 4f 4e 53 20 61 6e 64 20 4f 50 54 20 61 72 65 20 70 61 | .of.VALID-OPTIONS.and.OPT.are.pa |
04a0 | 69 72 77 69 73 65 0a 64 69 66 66 65 72 65 6e 74 2e 20 20 4f 50 54 49 4f 4e 2d 4c 49 53 54 20 65 | irwise.different...OPTION-LIST.e |
04c0 | 71 75 61 6c 20 74 6f 20 6e 69 6c 20 69 73 20 61 20 67 6f 6f 64 20 6f 70 74 69 6f 6e 20 6c 69 73 | qual.to.nil.is.a.good.option.lis |
04e0 | 74 2e 0a 0a 28 66 6e 20 4f 50 54 49 4f 4e 2d 4c 49 53 54 20 56 41 4c 49 44 2d 4f 50 54 49 4f 4e | t...(fn.OPTION-LIST.VALID-OPTION |
0500 | 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 74 6f 6f 6c 62 61 72 78 2d 67 6f 6f 64 2d 6f 70 74 | S)..(defalias.'toolbarx-good-opt |
0520 | 69 6f 6e 2d 6c 69 73 74 2d 70 20 23 5b 35 31 34 20 22 5c 33 30 30 02 5c 33 30 31 04 47 5c 33 30 | ion-list-p.#[514."\300.\301.G\30 |
0540 | 32 5c 32 34 35 5c 33 30 33 5c 32 31 31 02 57 5c 32 30 33 3e 00 5c 32 31 31 5c 33 30 33 56 5c 32 | 2\245\303\211.W\203>.\211\303V\2 |
0560 | 30 33 19 00 03 41 41 5c 32 36 32 04 03 40 5c 32 31 31 04 5c 32 33 35 5c 32 30 33 25 00 03 5c 32 | 03...AA\262..@\211.\235\203%..\2 |
0580 | 30 32 28 00 5c 32 31 31 04 42 5c 32 36 32 01 5c 32 36 32 03 04 5c 32 30 35 35 00 03 40 06 06 3e | 02(.\211.B\262.\262..\2055..@..> |
05a0 | 5c 32 36 32 05 5c 32 31 31 54 5c 32 36 32 01 5c 32 30 32 08 00 5c 32 31 30 03 5c 32 30 35 50 00 | \262.\211T\262.\202..\210.\205P. |
05c0 | 01 47 01 3d 5c 32 30 35 50 00 05 47 5c 33 30 32 5c 32 34 36 5c 33 30 33 3d 5c 32 30 37 22 20 5b | .G.=\205P..G\302\246\303=\207".[ |
05e0 | 74 20 6e 69 6c 20 32 20 30 5d 20 31 30 20 28 23 24 20 2e 20 31 30 36 38 29 5d 29 0a 23 40 35 31 | t.nil.2.0].10.(#$...1068)]).#@51 |
0600 | 38 20 52 65 74 75 72 6e 20 61 20 63 6f 6e 73 20 63 65 6c 6c 20 77 69 74 68 20 6e 6f 6e 2d 6f 70 | 8.Return.a.cons.cell.with.non-op |
0620 | 74 69 6f 6e 73 20 61 6e 64 20 6f 70 74 69 6f 6e 73 20 6f 66 20 47 52 4f 55 50 2d 4c 49 53 54 2e | tions.and.options.of.GROUP-LIST. |
0640 | 0a 54 68 65 20 6f 70 74 69 6f 6e 73 2d 70 61 72 74 20 69 73 20 74 68 65 20 6c 61 72 67 65 73 74 | .The.options-part.is.the.largest |
0660 | 20 74 61 69 6c 20 6f 66 20 74 68 65 20 6c 69 73 74 20 47 52 4f 55 50 2d 4c 49 53 54 20 74 68 61 | .tail.of.the.list.GROUP-LIST.tha |
0680 | 74 0a 68 61 73 20 61 6e 20 65 6c 65 6d 65 6e 74 20 6f 66 20 56 41 4c 49 44 2d 4f 50 54 49 4f 4e | t.has.an.element.of.VALID-OPTION |
06a0 | 53 20 28 74 68 65 20 63 6f 6d 70 61 72 61 74 69 6f 6e 20 69 73 20 6d 61 64 65 20 77 69 74 68 0a | S.(the.comparation.is.made.with. |
06c0 | 60 6d 65 6d 71 27 2e 29 20 20 54 68 65 20 6e 6f 6e 2d 6f 70 74 69 6f 6e 73 2d 70 61 72 74 20 69 | `memq'.)..The.non-options-part.i |
06e0 | 73 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 47 52 4f 55 50 2d 4c 49 53 54 0a 6c 65 | s.the.beginning.of.GROUP-LIST.le |
0700 | 73 73 20 69 74 73 20 74 61 69 6c 2e 20 20 52 65 74 75 72 6e 20 61 20 63 6f 6e 73 20 63 65 6c 6c | ss.its.tail...Return.a.cons.cell |
0720 | 20 77 68 69 63 68 20 60 63 61 72 27 20 69 73 20 74 68 65 0a 6e 6f 6e 2d 6f 70 74 69 6f 6e 73 2d | .which.`car'.is.the.non-options- |
0740 | 70 61 72 74 20 61 6e 64 20 74 68 65 20 60 63 64 72 27 20 69 73 20 74 68 65 20 6f 70 74 69 6f 6e | part.and.the.`cdr'.is.the.option |
0760 | 73 2d 70 61 72 74 2e 0a 0a 49 66 20 43 48 45 43 4b 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 | s-part...If.CHECK.is.non-nil,.th |
0780 | 65 20 74 61 69 6c 20 69 73 20 74 68 65 20 6c 61 72 67 65 73 74 20 74 68 61 74 20 79 69 65 6c 64 | e.tail.is.the.largest.that.yield |
07a0 | 20 6e 6f 6e 2d 6e 69 6c 0a 77 68 65 6e 20 61 70 70 6c 69 65 64 20 74 6f 20 60 74 6f 6f 6c 62 61 | .non-nil.when.applied.to.`toolba |
07c0 | 72 78 2d 67 6f 6f 64 2d 6f 70 74 69 6f 6e 2d 6c 69 73 74 2d 70 27 2e 0a 0a 28 66 6e 20 47 52 4f | rx-good-option-list-p'...(fn.GRO |
07e0 | 55 50 2d 4c 49 53 54 20 56 41 4c 49 44 2d 4f 50 54 49 4f 4e 53 20 26 6f 70 74 69 6f 6e 61 6c 20 | UP-LIST.VALID-OPTIONS.&optional. |
0800 | 43 48 45 43 4b 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 74 6f 6f 6c 62 61 72 78 2d 73 65 70 61 | CHECK)..(defalias.'toolbarx-sepa |
0820 | 72 61 74 65 2d 6f 70 74 69 6f 6e 73 20 23 5b 37 37 30 20 22 5c 33 30 30 5c 32 31 31 03 5c 32 31 | rate-options.#[770."\300\211.\21 |
0840 | 31 5c 32 30 33 34 00 5c 32 31 31 40 5c 32 31 31 06 07 3e 5c 32 36 32 03 02 47 04 47 56 5c 32 30 | 1\2034.\211@\211..>\262..G.GV\20 |
0860 | 33 2d 00 04 5c 32 30 33 23 00 5c 33 30 31 03 06 07 5c 22 5c 32 30 32 24 00 5c 33 30 32 5c 32 30 | 3-..\203#.\301...\"\202$.\302\20 |
0880 | 33 2d 00 5c 32 31 31 06 07 3e 5c 32 36 32 04 01 41 5c 32 36 36 5c 32 30 32 5c 32 30 32 03 00 5c | 3-.\211..>\262..A\266\202\202..\ |
08a0 | 32 31 30 5c 33 30 33 05 03 47 5c 22 02 42 5c 32 30 37 22 20 5b 6e 69 6c 20 74 6f 6f 6c 62 61 72 | 210\303..G\".B\207".[nil.toolbar |
08c0 | 78 2d 67 6f 6f 64 2d 6f 70 74 69 6f 6e 2d 6c 69 73 74 2d 70 20 74 20 62 75 74 6c 61 73 74 5d 20 | x-good-option-list-p.t.butlast]. |
08e0 | 31 30 20 28 23 24 20 2e 20 31 35 33 38 29 5d 29 0a 23 40 35 38 37 20 4d 65 72 67 65 20 70 72 6f | 10.(#$...1538)]).#@587.Merge.pro |
0900 | 70 65 72 74 79 20 6c 69 73 74 73 20 49 4e 4e 45 52 2d 50 52 4f 50 53 20 61 6e 64 20 4f 55 54 45 | perty.lists.INNER-PROPS.and.OUTE |
0920 | 52 2d 50 52 4f 50 53 2e 0a 49 4e 4e 45 52 2d 50 52 4f 50 53 20 61 6e 64 20 4f 55 54 45 52 2d 50 | R-PROPS..INNER-PROPS.and.OUTER-P |
0940 | 52 4f 50 53 20 61 72 65 20 74 77 6f 20 6c 69 73 74 73 20 69 6e 20 74 68 65 20 66 6f 72 6d 61 74 | ROPS.are.two.lists.in.the.format |
0960 | 0a 20 28 50 52 4f 50 20 56 41 4c 20 50 52 4f 50 20 56 41 4c 20 2e 2e 2e 20 50 52 4f 50 20 56 41 | ..(PROP.VAL.PROP.VAL.....PROP.VA |
0980 | 4c 29 2e 0a 52 65 74 75 72 6e 73 20 61 20 6c 69 73 74 20 77 69 74 68 20 70 72 6f 70 65 72 74 69 | L)..Returns.a.list.with.properti |
09a0 | 65 73 20 61 6e 64 20 76 61 6c 75 65 73 20 6d 65 72 67 65 64 2e 0a 0a 4f 56 45 52 52 49 44 45 20 | es.and.values.merged...OVERRIDE. |
09c0 | 61 6e 64 20 41 44 44 20 61 72 65 20 73 75 70 70 6f 73 65 64 20 74 6f 20 62 65 20 6c 69 73 74 73 | and.ADD.are.supposed.to.be.lists |
09e0 | 20 6f 66 20 73 79 6d 62 6f 6c 73 2e 20 20 54 68 65 20 76 61 6c 75 65 0a 6f 66 20 61 20 70 72 6f | .of.symbols...The.value.of.a.pro |
0a00 | 70 65 72 74 79 20 69 6e 20 4f 56 45 52 52 49 44 45 20 69 73 20 74 68 65 20 6f 6e 65 20 6f 6e 20 | perty.in.OVERRIDE.is.the.one.on. |
0a20 | 4f 55 54 45 52 2d 50 52 4f 50 53 20 6f 72 0a 49 4e 4e 45 52 2d 50 52 4f 50 53 2c 20 62 75 74 20 | OUTER-PROPS.or.INNER-PROPS,.but. |
0a40 | 69 66 20 74 68 65 20 70 72 6f 70 65 72 74 79 20 69 73 20 69 6e 20 62 6f 74 68 2c 20 74 68 65 20 | if.the.property.is.in.both,.the. |
0a60 | 76 61 6c 75 65 20 69 6e 0a 49 4e 4e 45 52 2d 50 52 4f 50 53 20 69 73 20 75 73 65 64 2e 20 20 54 | value.in.INNER-PROPS.is.used...T |
0a80 | 68 65 20 76 61 6c 75 65 20 6f 66 20 61 20 70 72 6f 70 65 72 74 79 20 69 6e 20 41 44 44 20 77 69 | he.value.of.a.property.in.ADD.wi |
0aa0 | 6c 6c 20 62 65 20 61 0a 6c 69 73 74 20 77 69 74 68 20 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 20 | ll.be.a.list.with.first.element. |
0ac0 | 74 68 65 20 73 79 6d 62 6f 6c 20 60 3a 61 64 64 2d 76 61 6c 75 65 2d 6c 69 73 74 27 20 61 6e 64 | the.symbol.`:add-value-list'.and |
0ae0 | 20 74 68 65 20 72 65 73 74 0a 61 72 65 20 74 68 65 20 70 72 6f 70 65 72 74 69 65 73 2c 20 69 6e | .the.rest.are.the.properties,.in |
0b00 | 6e 65 72 20 70 72 6f 70 65 72 74 69 65 73 20 66 69 72 73 74 2e 0a 0a 28 66 6e 20 49 4e 4e 45 52 | ner.properties.first...(fn.INNER |
0b20 | 2d 50 52 4f 50 53 20 4f 55 54 45 52 2d 50 52 4f 50 53 20 4f 56 45 52 52 49 44 45 20 41 44 44 29 | -PROPS.OUTER-PROPS.OVERRIDE.ADD) |
0b40 | 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 74 6f 6f 6c 62 61 72 78 2d 6d 65 72 67 65 2d 70 72 6f 70 | ..(defalias.'toolbarx-merge-prop |
0b60 | 73 20 23 5b 31 30 32 38 20 22 5c 33 30 30 5c 32 31 31 5c 32 31 31 04 5c 32 31 31 5c 32 30 33 3c | s.#[1028."\300\211\211.\211\203< |
0b80 | 00 5c 32 31 31 40 5c 32 31 31 06 09 3e 5c 32 30 33 21 00 5c 33 30 31 05 02 5c 32 31 31 06 5c 66 | .\211@\211..>\203!.\301..\211.\f |
0ba0 | 3e 41 40 44 5c 22 5c 32 36 32 05 5c 32 30 32 35 00 5c 32 31 31 06 08 3e 5c 32 30 33 35 00 5c 33 | >A@D\"\262.\2025.\211..>\2035.\3 |
0bc0 | 30 31 05 02 5c 32 31 31 06 0b 3e 41 40 44 5c 22 5c 32 36 32 05 01 41 5c 32 36 36 5c 32 30 32 5c | 01..\211..>A@D\"\262..A\266\202\ |
0be0 | 32 30 32 04 00 5c 32 31 30 03 5c 32 31 31 5c 32 30 33 5c 32 36 33 00 5c 32 31 31 40 5c 32 31 31 | 202..\210.\211\203\263.\211@\211 |
0c00 | 06 09 3e 5c 32 36 32 04 03 5c 32 30 33 6d 00 03 41 40 3c 5c 32 30 33 67 00 03 41 40 40 5c 33 30 | ..>\262..\203m..A@<\203g..A@@\30 |
0c20 | 32 3d 5c 32 30 33 67 00 03 41 40 41 5c 32 36 32 04 5c 32 30 32 6d 00 03 41 40 43 5c 32 36 32 04 | 2=\203g..A@A\262.\202m..A@C\262. |
0c40 | 5c 32 31 31 06 08 3e 5c 32 36 32 03 02 5c 32 30 33 5c 32 32 36 00 02 41 40 3c 5c 32 30 33 5c 32 | \211..>\262..\203\226..A@<\203\2 |
0c60 | 32 30 00 02 41 40 40 5c 33 30 32 3d 5c 32 30 33 5c 32 32 30 00 02 41 40 41 5c 32 36 32 03 5c 32 | 20..A@@\302=\203\220..A@A\262.\2 |
0c80 | 30 32 5c 32 32 36 00 02 41 40 43 5c 32 36 32 03 5c 33 30 31 04 04 5c 22 5c 32 30 33 5c 32 35 34 | 02\226..A@C\262.\301..\"\203\254 |
0ca0 | 00 5c 33 30 31 05 02 5c 33 30 32 5c 33 30 31 06 08 06 08 5c 22 42 44 5c 22 5c 32 36 32 05 01 41 | .\301..\302\301....\"BD\"\262..A |
0cc0 | 5c 32 36 36 5c 32 30 32 5c 32 30 32 3e 00 03 5c 32 30 37 22 20 5b 6e 69 6c 20 61 70 70 65 6e 64 | \266\202\202>..\207".[nil.append |
0ce0 | 20 3a 61 64 64 2d 76 61 6c 75 65 2d 6c 69 73 74 5d 20 31 36 20 28 23 24 20 2e 20 32 32 39 35 29 | .:add-value-list].16.(#$...2295) |
0d00 | 5d 29 0a 23 40 32 38 39 20 52 65 74 75 72 6e 20 61 20 63 6f 6d 6d 61 6e 64 20 6d 61 64 65 20 66 | ]).#@289.Return.a.command.made.f |
0d20 | 72 6f 6d 20 43 4f 4d 4d 2c 20 50 52 45 50 20 61 6e 64 20 41 50 50 2e 0a 43 4f 4d 4d 20 69 73 20 | rom.COMM,.PREP.and.APP..COMM.is. |
0d40 | 61 20 63 6f 6d 6d 61 6e 64 20 6f 72 20 61 20 66 6f 72 6d 2e 20 20 50 52 45 50 20 61 6e 64 20 41 | a.command.or.a.form...PREP.and.A |
0d60 | 50 50 20 61 72 65 20 66 6f 72 6d 73 2e 20 20 49 66 20 50 52 45 50 20 6f 72 0a 41 50 50 20 61 72 | PP.are.forms...If.PREP.or.APP.ar |
0d80 | 65 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 65 79 20 61 72 65 20 61 64 64 65 64 20 74 6f 20 74 68 65 | e.non-nil,.they.are.added.to.the |
0da0 | 20 72 65 73 75 6c 74 69 6e 67 20 63 6f 6d 6d 61 6e 64 20 61 74 20 74 68 65 0a 62 65 67 69 6e 6e | .resulting.command.at.the.beginn |
0dc0 | 69 6e 67 20 61 6e 64 20 65 6e 64 2c 20 72 65 73 70 65 63 74 69 76 65 6c 79 2e 20 20 49 66 20 62 | ing.and.end,.respectively...If.b |
0de0 | 6f 74 68 20 61 72 65 20 6e 69 6c 20 61 6e 64 20 43 4f 4d 4d 20 69 73 20 61 0a 63 6f 6d 6d 61 6e | oth.are.nil.and.COMM.is.a.comman |
0e00 | 64 2c 20 43 4f 4d 4d 20 69 73 20 72 65 74 75 72 6e 65 64 2e 0a 0a 28 66 6e 20 43 4f 4d 4d 20 50 | d,.COMM.is.returned...(fn.COMM.P |
0e20 | 52 45 50 20 41 50 50 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 74 6f 6f 6c 62 61 72 78 2d 6d 61 | REP.APP)..(defalias.'toolbarx-ma |
0e40 | 6b 65 2d 63 6f 6d 6d 61 6e 64 20 23 5b 37 37 31 20 22 5c 33 30 30 03 21 02 5c 32 30 34 11 00 01 | ke-command.#[771."\300.!.\204... |
0e60 | 5c 32 30 34 11 00 5c 32 31 31 5c 32 30 33 11 00 03 5c 32 30 37 5c 33 30 31 5c 33 30 32 05 05 05 | \204..\211\203...\207\301\302... |
0e80 | 05 25 5c 32 30 37 22 20 5b 63 6f 6d 6d 61 6e 64 70 20 6d 61 6b 65 2d 63 6c 6f 73 75 72 65 20 23 | .%\207".[commandp.make-closure.# |
0ea0 | 5b 30 20 22 5c 33 30 34 5c 33 30 31 5c 32 30 33 0b 00 5c 33 30 35 5c 33 30 31 5c 33 30 36 5c 22 | [0."\304\301\203..\305\301\306\" |
0ec0 | 5c 32 36 32 01 5c 33 30 30 5c 32 30 33 1f 00 5c 33 30 33 5c 32 30 33 19 00 5c 33 30 37 5c 33 30 | \262.\300\203..\303\203..\307\30 |
0ee0 | 30 21 5c 32 30 32 1d 00 5c 33 30 35 5c 33 30 30 5c 33 30 36 5c 22 5c 32 36 32 01 5c 33 30 32 5c | 0!\202..\305\300\306\"\262.\302\ |
0f00 | 32 30 33 29 00 5c 33 30 35 5c 33 30 32 5c 33 30 36 5c 22 5c 32 36 32 01 5c 32 30 37 22 20 5b 56 | 203).\305\302\306\"\262.\207".[V |
0f20 | 30 20 56 31 20 56 32 20 56 33 20 6e 69 6c 20 65 76 61 6c 20 74 20 63 61 6c 6c 2d 69 6e 74 65 72 | 0.V1.V2.V3.nil.eval.t.call-inter |
0f40 | 61 63 74 69 76 65 6c 79 5d 20 34 20 6e 69 6c 20 6e 69 6c 5d 5d 20 31 30 20 28 23 24 20 2e 20 33 | actively].4.nil.nil]].10.(#$...3 |
0f60 | 33 33 37 29 5d 29 0a 23 40 32 33 33 20 52 65 74 75 72 6e 20 61 6e 20 69 6e 74 65 72 61 63 74 69 | 337)]).#@233.Return.an.interacti |
0f80 | 76 65 20 60 6c 61 6d 62 64 61 27 2d 65 78 70 72 65 73 73 69 6f 6e 20 74 68 61 74 20 73 68 6f 77 | ve.`lambda'-expression.that.show |
0fa0 | 73 20 61 20 70 6f 70 75 70 20 6d 65 6e 75 2e 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 | s.a.popup.menu..This.function.is |
0fc0 | 20 74 68 65 20 61 63 74 69 6f 6e 20 6f 66 20 60 74 6f 6f 6c 62 61 72 78 2d 6d 6f 75 6e 74 2d 70 | .the.action.of.`toolbarx-mount-p |
0fe0 | 6f 70 75 70 2d 6d 65 6e 75 27 20 69 66 0a 69 6e 73 69 64 65 20 45 6d 61 63 73 2e 20 53 65 65 20 | opup-menu'.if.inside.Emacs..See. |
1000 | 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 61 74 20 66 75 6e 63 74 69 6f 6e 20 66 | documentation.of.that.function.f |
1020 | 6f 72 20 6d 6f 72 65 2e 0a 0a 28 66 6e 20 53 54 52 49 4e 47 53 20 56 41 52 20 54 59 50 45 20 26 | or.more...(fn.STRINGS.VAR.TYPE.& |
1040 | 6f 70 74 69 6f 6e 61 6c 20 54 49 54 4c 45 20 53 41 56 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 | optional.TITLE.SAVE)..(defalias. |
1060 | 27 74 6f 6f 6c 62 61 72 78 2d 65 6d 61 63 73 2d 6d 6f 75 6e 74 2d 70 6f 70 75 70 2d 6d 65 6e 75 | 'toolbarx-emacs-mount-popup-menu |
1080 | 20 23 5b 31 32 38 33 20 22 5c 33 30 30 02 21 5c 33 30 31 5c 33 30 32 5c 33 30 33 06 06 5c 33 30 | .#[1283."\300.!\301\302\303..\30 |
10a0 | 34 3e 5c 32 30 33 12 00 06 06 5c 32 30 32 1c 00 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 | 4>\203....\202..\305\306\307\310 |
10c0 | 06 5c 6e 5c 22 5c 22 5c 32 31 30 5c 33 31 31 05 5c 33 31 32 3e 5c 32 30 33 26 00 05 5c 32 30 32 | .\n\"\"\210\311.\312>\203&..\202 |
10e0 | 30 00 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 33 06 09 5c 22 5c 22 5c 32 31 30 5c 33 30 33 | 0.\305\306\307\313..\"\"\210\303 |
1100 | 06 5c 6e 5c 32 31 31 5c 32 30 33 5c 32 34 30 00 5c 32 31 31 40 5c 33 31 34 5c 33 31 35 02 21 5c | .\n\211\203\240.\211@\314\315.!\ |
1120 | 32 31 31 5c 32 36 32 07 06 06 06 08 3e 5c 32 30 33 57 00 01 54 5c 32 36 32 02 5c 33 31 36 5c 33 | 211\262.....>\203W..T\262.\316\3 |
1140 | 30 37 5c 33 31 37 03 05 23 21 5c 32 36 32 07 5c 32 30 32 3f 00 06 06 06 08 42 5c 32 36 32 08 5c | 07\317..#!\262.\202?.....B\262.\ |
1160 | 32 36 36 02 5c 33 32 30 06 08 5c 33 32 31 06 07 21 5c 33 32 32 04 06 0b 5c 33 32 33 5c 33 32 34 | 266.\320..\321..!\322...\323\324 |
1180 | 06 13 06 5c 66 06 5c 66 05 25 5c 32 36 32 01 5c 33 32 35 06 5c 6e 5c 33 31 31 3d 5c 32 30 33 5c | ...\f.\f.%\262.\325.\n\311=\203\ |
11a0 | 32 31 31 00 5c 33 32 36 5c 33 32 37 06 14 06 10 46 5c 32 30 32 5c 32 32 30 00 5c 33 33 30 5c 33 | 211.\326\327....F\202\220.\330\3 |
11c0 | 33 31 06 0f 06 15 46 5c 32 35 37 05 23 5c 32 31 30 06 06 54 5c 32 36 32 07 01 41 5c 32 36 36 5c | 31....F\257.#\210..T\262..A\266\ |
11e0 | 32 30 32 5c 32 30 32 32 00 5c 32 31 30 5c 32 31 31 5c 33 33 32 3d 5c 32 30 33 5c 33 34 35 00 5c | 202\2022.\210\211\332=\203\345.\ |
1200 | 33 32 30 06 06 5c 33 33 33 5c 33 33 34 23 5c 32 31 30 5c 33 31 34 5c 33 33 35 5c 32 36 32 04 03 | 320..\333\334#\210\314\335\262.. |
1220 | 05 3e 5c 32 30 33 5c 33 31 30 00 5c 32 31 31 54 5c 32 36 32 01 5c 33 31 36 5c 33 30 37 5c 33 31 | .>\203\310.\211T\262.\316\307\31 |
1240 | 37 5c 33 33 35 04 23 21 5c 32 36 32 04 5c 32 30 32 5c 32 36 32 00 03 05 42 5c 32 36 32 05 5c 32 | 7\335.#!\262.\202\262...B\262.\2 |
1260 | 31 30 5c 33 32 30 06 06 5c 33 32 31 05 21 5c 33 32 32 5c 33 33 36 5c 33 33 37 5c 33 30 33 5c 33 | 10\320..\321.!\322\336\337\303\3 |
1280 | 34 30 5c 33 34 31 5c 33 34 32 06 13 44 06 13 45 46 45 23 5c 32 31 30 5c 33 32 33 5c 33 34 33 06 | 40\341\342..D..EFE#\210\323\343. |
12a0 | 07 5c 22 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 20 31 20 28 | .\"\207".[make-sparse-keymap.1.( |
12c0 | 6e 69 6c 29 20 6e 69 6c 20 28 72 61 64 69 6f 20 74 6f 67 67 6c 65 29 20 64 69 73 70 6c 61 79 2d | nil).nil.(radio.toggle).display- |
12e0 | 77 61 72 6e 69 6e 67 20 74 6f 6f 6c 62 61 72 78 20 66 6f 72 6d 61 74 20 22 54 59 50 45 20 73 68 | warning.toolbarx.format."TYPE.sh |
1300 | 6f 75 6c 64 20 62 65 20 73 79 6d 62 6f 6c 73 20 60 72 61 64 69 6f 27 20 6f 72 20 60 74 6f 67 67 | ould.be.symbols.`radio'.or.`togg |
1320 | 6c 65 27 2c 20 62 75 74 20 25 73 20 66 6f 75 6e 64 3b 20 75 73 69 6e 67 20 60 72 61 64 69 6f 27 | le',.but.%s.found;.using.`radio' |
1340 | 22 20 72 61 64 69 6f 20 28 61 6c 77 61 79 73 20 6f 66 66 65 72 20 6e 69 6c 29 20 22 53 41 56 45 | ".radio.(always.offer.nil)."SAVE |
1360 | 20 73 68 6f 75 6c 64 20 62 65 20 73 79 6d 62 6f 6c 73 20 60 6e 69 6c 27 2c 20 60 6f 66 66 65 72 | .should.be.symbols.`nil',.`offer |
1380 | 27 20 6f 72 20 60 61 6c 77 61 79 73 27 2c 20 62 75 74 20 25 73 20 66 6f 75 6e 64 3b 20 75 73 69 | '.or.`always',.but.%s.found;.usi |
13a0 | 6e 67 20 60 6e 69 6c 27 22 20 30 20 74 6f 6f 6c 62 61 72 78 2d 6d 61 6b 65 2d 73 79 6d 62 6f 6c | ng.`nil'".0.toolbarx-make-symbol |
13c0 | 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 69 6e 74 65 72 6e 20 22 25 73 2d 25 64 22 20 64 65 66 69 | -from-string.intern."%s-%d".defi |
13e0 | 6e 65 2d 6b 65 79 2d 61 66 74 65 72 20 76 65 63 74 6f 72 20 6d 65 6e 75 2d 69 74 65 6d 20 6d 61 | ne-key-after.vector.menu-item.ma |
1400 | 6b 65 2d 63 6c 6f 73 75 72 65 20 23 5b 30 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 34 3d 5c 32 30 | ke-closure.#[0."\300\301\304=\20 |
1420 | 33 0b 00 5c 33 30 33 5c 32 30 32 21 00 5c 33 30 33 5c 33 30 30 4a 3e 5c 32 30 33 1a 00 5c 33 30 | 3..\303\202!.\303\300J>\203..\30 |
1440 | 35 5c 33 30 33 5c 33 30 30 4a 5c 22 5c 32 30 32 21 00 5c 33 30 36 5c 33 30 33 5c 33 30 30 4a 42 | 5\303\300J\"\202!.\306\303\300JB |
1460 | 5c 33 30 37 5c 22 4c 5c 32 31 30 5c 33 31 30 20 5c 32 31 30 5c 33 30 32 5c 33 31 31 3d 5c 32 30 | \307\"L\210\310.\210\302\311=\20 |
1480 | 33 32 00 5c 33 31 32 5c 33 30 30 5c 32 31 31 4a 5c 22 5c 32 31 30 5c 33 30 30 4a 5c 32 30 37 22 | 32.\312\300\211J\"\210\300J\207" |
14a0 | 20 5b 56 30 20 56 31 20 56 32 20 56 33 20 72 61 64 69 6f 20 64 65 6c 65 74 65 20 73 6f 72 74 20 | .[V0.V1.V2.V3.radio.delete.sort. |
14c0 | 3c 20 74 6f 6f 6c 62 61 72 78 2d 72 65 66 72 65 73 68 20 61 6c 77 61 79 73 20 63 75 73 74 6f 6d | <.toolbarx-refresh.always.custom |
14e0 | 69 7a 65 2d 73 61 76 65 2d 76 61 72 69 61 62 6c 65 5d 20 34 20 6e 69 6c 20 6e 69 6c 5d 20 3a 62 | ize-save-variable].4.nil.nil].:b |
1500 | 75 74 74 6f 6e 20 3a 72 61 64 69 6f 20 65 71 20 3a 74 6f 67 67 6c 65 20 6d 65 6d 71 20 6f 66 66 | utton.:radio.eq.:toggle.memq.off |
1520 | 65 72 20 5b 73 65 70 5d 20 28 6d 65 6e 75 2d 69 74 65 6d 20 22 2d 2d 73 68 61 64 6f 77 2d 65 74 | er.[sep].(menu-item."--shadow-et |
1540 | 63 68 65 64 2d 69 6e 2d 64 61 73 68 22 29 20 63 75 73 74 6f 6d 2d 73 61 76 65 20 22 53 61 76 65 | ched-in-dash").custom-save."Save |
1560 | 20 73 74 61 74 65 20 6f 66 20 74 68 69 73 20 6d 65 6e 75 22 20 6c 61 6d 62 64 61 20 28 69 6e 74 | .state.of.this.menu".lambda.(int |
1580 | 65 72 61 63 74 69 76 65 29 20 63 75 73 74 6f 6d 69 7a 65 2d 73 61 76 65 2d 76 61 72 69 61 62 6c | eractive).customize-save-variabl |
15a0 | 65 20 71 75 6f 74 65 20 23 5b 30 20 22 5c 33 30 31 5c 33 30 30 21 5c 32 30 37 22 20 5b 56 30 20 | e.quote.#[0."\301\300!\207".[V0. |
15c0 | 70 6f 70 75 70 2d 6d 65 6e 75 5d 20 32 20 6e 69 6c 20 6e 69 6c 5d 5d 20 32 35 20 28 23 24 20 2e | popup-menu].2.nil.nil]].25.(#$.. |
15e0 | 20 33 39 34 39 29 5d 29 0a 23 40 39 35 37 20 52 65 74 75 72 6e 20 61 20 63 6f 6d 6d 61 6e 64 20 | .3949)]).#@957.Return.a.command. |
1600 | 74 68 61 74 20 73 68 6f 77 20 61 20 70 6f 70 75 70 20 6d 65 6e 75 2e 0a 54 68 65 20 72 65 74 75 | that.show.a.popup.menu..The.retu |
1620 | 72 6e 20 69 73 20 61 20 60 6c 61 6d 62 64 61 27 2d 65 78 70 72 65 73 73 69 6f 6e 20 77 69 74 68 | rn.is.a.`lambda'-expression.with |
1640 | 20 61 20 69 6e 74 65 72 61 63 74 69 76 65 20 64 65 63 6c 61 72 61 74 69 6f 6e 2e 0a 0a 53 54 52 | .a.interactive.declaration...STR |
1660 | 49 4e 47 53 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 73 74 72 69 6e 67 73 20 77 68 69 63 68 20 | INGS.is.a.list.of.strings.which. |
1680 | 77 69 6c 6c 20 62 65 20 74 68 65 20 69 74 65 6e 73 20 6f 66 20 74 68 65 20 6d 65 6e 75 2e 0a 0a | will.be.the.itens.of.the.menu... |
16a0 | 56 41 52 20 69 73 20 61 20 73 79 6d 62 6f 6c 20 74 68 61 74 20 69 73 20 73 65 74 20 77 68 65 6e | VAR.is.a.symbol.that.is.set.when |
16c0 | 20 61 6e 20 69 74 65 6d 20 69 73 20 63 6c 69 63 6b 65 64 2e 20 20 54 59 50 45 20 73 68 6f 75 6c | .an.item.is.clicked...TYPE.shoul |
16e0 | 64 0a 62 65 20 6f 6e 65 20 6f 66 20 74 68 65 20 73 79 6d 62 6f 6c 73 20 60 72 61 64 69 6f 27 20 | d.be.one.of.the.symbols.`radio'. |
1700 | 6f 72 20 60 74 6f 67 67 6c 65 27 3a 20 60 72 61 64 69 6f 27 20 6d 65 61 6e 73 20 74 68 61 74 20 | or.`toggle':.`radio'.means.that. |
1720 | 74 68 65 0a 6e 74 68 20 69 74 65 6d 20 69 73 20 73 65 6c 65 63 74 65 64 20 69 66 20 56 41 52 20 | the.nth.item.is.selected.if.VAR. |
1740 | 69 73 20 60 6e 27 20 61 6e 64 20 74 68 69 73 20 69 74 65 6d 20 73 65 74 73 20 56 41 52 20 74 6f | is.`n'.and.this.item.sets.VAR.to |
1760 | 20 60 6e 27 3b 0a 60 74 6f 67 67 6c 65 27 20 6d 65 61 6e 73 20 74 68 61 74 20 56 41 52 20 73 68 | .`n';.`toggle'.means.that.VAR.sh |
1780 | 6f 75 6c 64 20 62 65 20 61 20 6c 69 73 74 20 6f 66 20 69 6e 74 65 67 65 72 73 20 61 6e 64 20 74 | ould.be.a.list.of.integers.and.t |
17a0 | 68 65 20 6e 74 68 0a 69 74 65 6d 20 69 73 20 73 65 6c 65 63 74 65 64 20 69 66 20 60 6e 27 20 62 | he.nth.item.is.selected.if.`n'.b |
17c0 | 65 6c 6f 6e 67 73 20 74 6f 20 56 41 52 2e 20 20 54 68 65 20 69 74 65 6d 20 69 6e 73 65 72 74 73 | elongs.to.VAR...The.item.inserts |
17e0 | 20 6f 72 0a 64 65 6c 65 74 65 73 20 60 6e 27 20 66 72 6f 6d 20 56 41 52 2e 0a 0a 54 49 54 4c 45 | .or.deletes.`n'.from.VAR...TITLE |
1800 | 20 69 73 20 61 20 73 74 72 69 6e 67 20 28 74 68 65 20 74 69 74 6c 65 20 6f 66 20 74 68 65 20 70 | .is.a.string.(the.title.of.the.p |
1820 | 6f 70 75 70 20 6d 65 6e 75 29 20 6f 72 20 6e 69 6c 20 66 6f 72 20 6e 6f 0a 74 69 74 6c 65 2e 0a | opup.menu).or.nil.for.no.title.. |
1840 | 0a 53 41 56 45 20 69 73 20 6f 6e 65 20 6f 66 20 74 68 65 20 73 79 6d 62 6f 6c 73 20 6e 69 6c 2c | .SAVE.is.one.of.the.symbols.nil, |
1860 | 20 60 6f 66 66 65 72 27 20 6f 72 20 60 61 6c 77 61 79 73 27 2e 20 20 49 66 20 76 61 6c 75 65 0a | .`offer'.or.`always'...If.value. |
1880 | 69 73 20 6e 69 6c 2c 20 64 6f 20 6e 6f 74 20 74 72 79 20 74 6f 20 73 61 76 65 20 61 6e 79 74 68 | is.nil,.do.not.try.to.save.anyth |
18a0 | 69 6e 67 2e 20 20 49 66 20 69 74 20 69 73 20 60 6f 66 66 65 72 27 2c 20 61 20 6d 65 6e 75 0a 69 | ing...If.it.is.`offer',.a.menu.i |
18c0 | 74 65 6d 20 69 73 20 61 64 64 65 64 20 6f 66 66 65 72 69 6e 67 20 74 68 65 20 75 73 65 72 20 74 | tem.is.added.offering.the.user.t |
18e0 | 68 65 20 70 6f 73 73 69 62 69 69 74 79 20 74 6f 20 73 61 76 65 20 73 74 61 74 65 20 6f 66 0a 74 | he.possibiity.to.save.state.of.t |
1900 | 68 61 74 20 64 72 6f 70 64 6f 77 6e 20 6d 65 6e 75 20 66 6f 72 20 66 75 74 75 72 65 20 73 65 73 | hat.dropdown.menu.for.future.ses |
1920 | 73 65 69 6f 6e 73 20 28 75 73 69 6e 67 20 60 63 75 73 74 6f 6d 27 29 2e 20 20 49 66 20 69 74 0a | seions.(using.`custom')...If.it. |
1940 | 69 73 20 60 61 6c 77 61 79 73 27 2c 20 73 74 61 74 65 20 69 73 20 73 61 76 65 64 20 65 76 65 72 | is.`always',.state.is.saved.ever |
1960 | 79 20 74 69 6d 65 20 74 68 61 74 20 61 20 69 74 65 6d 20 69 73 20 63 6c 69 63 6b 65 64 2e 0a 0a | y.time.that.a.item.is.clicked... |
1980 | 28 66 6e 20 53 54 52 49 4e 47 53 20 56 41 52 20 54 59 50 45 20 26 6f 70 74 69 6f 6e 61 6c 20 54 | (fn.STRINGS.VAR.TYPE.&optional.T |
19a0 | 49 54 4c 45 20 53 41 56 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 74 6f 6f 6c 62 61 72 78 2d | ITLE.SAVE)..(defalias.'toolbarx- |
19c0 | 6d 6f 75 6e 74 2d 70 6f 70 75 70 2d 6d 65 6e 75 20 23 5b 31 32 38 33 20 22 5c 33 30 30 05 05 05 | mount-popup-menu.#[1283."\300... |
19e0 | 05 05 25 5c 32 30 37 22 20 5b 74 6f 6f 6c 62 61 72 78 2d 65 6d 61 63 73 2d 6d 6f 75 6e 74 2d 70 | ..%\207".[toolbarx-emacs-mount-p |
1a00 | 6f 70 75 70 2d 6d 65 6e 75 5d 20 31 31 20 28 23 24 20 2e 20 35 36 31 35 29 5d 29 0a 23 40 31 35 | opup-menu].11.(#$...5615)]).#@15 |
1a20 | 37 20 49 66 20 4f 50 54 20 69 73 20 61 20 76 65 63 74 6f 72 2c 20 72 65 74 75 72 6e 20 66 69 72 | 7.If.OPT.is.a.vector,.return.fir |
1a40 | 73 74 20 65 6c 65 6d 65 6e 74 2c 20 6f 74 68 65 72 77 69 73 65 2c 20 72 65 74 75 72 6e 20 4f 50 | st.element,.otherwise,.return.OP |
1a60 | 54 2e 0a 49 66 20 4f 50 54 20 69 73 20 76 65 63 74 6f 72 20 61 6e 64 20 6c 65 6e 67 74 68 20 69 | T..If.OPT.is.vector.and.length.i |
1a80 | 73 20 73 6d 61 6c 6c 65 72 20 74 68 61 6e 20 74 68 65 20 6e 65 63 65 73 73 61 72 79 2c 20 74 68 | s.smaller.than.the.necessary,.th |
1aa0 | 65 6e 0a 6e 69 6c 20 69 73 20 72 65 74 75 72 6e 65 64 2e 0a 0a 28 66 6e 20 4f 50 54 29 1f 0a 28 | en.nil.is.returned...(fn.OPT)..( |
1ac0 | 64 65 66 61 6c 69 61 73 20 27 74 6f 6f 6c 62 61 72 78 2d 6f 70 74 69 6f 6e 2d 76 61 6c 75 65 20 | defalias.'toolbarx-option-value. |
1ae0 | 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 30 33 11 00 5c 32 31 31 47 5c 33 30 31 56 5c 32 30 | #[257."\300.!\203..\211G\301V\20 |
1b00 | 35 12 00 5c 32 31 31 5c 33 30 31 48 5c 32 30 37 5c 32 31 31 5c 32 30 37 22 20 5b 76 65 63 74 6f | 5..\211\301H\207\211\207".[vecto |
1b20 | 72 70 20 30 5d 20 33 20 28 23 24 20 2e 20 36 36 39 30 29 5d 29 0a 23 40 35 38 34 20 52 65 74 75 | rp.0].3.(#$...6690)]).#@584.Retu |
1b40 | 72 6e 20 61 20 63 6f 6e 73 20 63 65 6c 6c 20 28 47 4f 4f 44 2d 4f 42 4a 20 2e 20 56 41 4c 29 2e | rn.a.cons.cell.(GOOD-OBJ...VAL). |
1b60 | 0a 47 4f 4f 44 2d 4f 42 4a 20 6e 6f 6e 2d 6e 69 6c 20 6d 65 61 6e 73 20 74 68 61 74 20 56 41 4c | .GOOD-OBJ.non-nil.means.that.VAL |
1b80 | 20 69 73 20 61 20 76 61 6c 69 64 20 76 61 6c 75 65 2c 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 0a | .is.a.valid.value,.according.to. |
1ba0 | 74 68 65 20 63 61 72 20 6f 66 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 54 59 50 45 2d 54 45 | the.car.of.the.result.of.TYPE-TE |
1bc0 | 53 54 2d 46 55 4e 43 54 49 4f 4e 2c 20 74 68 61 74 20 73 68 6f 75 6c 64 20 72 65 74 75 72 6e 20 | ST-FUNCTION,.that.should.return. |
1be0 | 61 0a 63 6f 6e 73 20 63 65 6c 6c 20 69 6e 20 74 68 65 20 73 61 6d 65 20 66 6f 72 6d 61 74 20 61 | a.cons.cell.in.the.same.format.a |
1c00 | 73 20 74 68 65 20 72 65 74 75 72 6e 20 6f 66 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 2e 0a 0a | s.the.return.of.this.function... |
1c20 | 49 66 20 4f 42 4a 45 43 54 20 61 70 70 6c 69 65 64 20 74 6f 20 54 59 50 45 2d 54 45 53 54 2d 46 | If.OBJECT.applied.to.TYPE-TEST-F |
1c40 | 55 4e 43 20 72 65 74 75 72 6e 20 28 47 4f 4f 44 2d 4f 42 4a 20 2e 20 56 41 4c 29 2c 20 61 6e 64 | UNC.return.(GOOD-OBJ...VAL),.and |
1c60 | 0a 47 4f 4f 44 2d 4f 42 4a 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 72 65 74 75 72 6e 20 74 68 61 | .GOOD-OBJ.is.non-nil,.return.tha |
1c80 | 74 2e 20 20 45 6c 73 65 2c 20 63 68 65 63 6b 20 69 66 20 4f 42 4a 45 43 54 20 69 73 20 61 0a 66 | t...Else,.check.if.OBJECT.is.a.f |
1ca0 | 75 6e 63 74 69 6f 6e 2e 20 20 49 66 20 73 6f 2c 20 65 76 61 6c 75 61 74 65 20 61 6e 64 20 74 65 | unction...If.so,.evaluate.and.te |
1cc0 | 73 74 20 61 67 61 69 6e 20 77 69 74 68 20 54 59 50 45 2d 54 45 53 54 2d 46 55 4e 43 2e 20 20 49 | st.again.with.TYPE-TEST-FUNC...I |
1ce0 | 66 0a 6e 6f 74 20 61 20 66 75 6e 63 74 69 6f 6e 20 6f 72 20 69 66 20 47 4f 4f 44 2d 4f 42 4a 20 | f.not.a.function.or.if.GOOD-OBJ. |
1d00 | 69 73 20 61 67 61 69 6e 20 6e 69 6c 2c 20 74 65 73 74 20 69 66 20 4f 42 4a 45 43 54 20 69 73 20 | is.again.nil,.test.if.OBJECT.is. |
1d20 | 61 0a 62 6f 75 6e 64 20 73 79 6d 62 6f 6c 2c 20 65 76 61 6c 75 61 74 65 20 74 68 61 74 20 61 6e | a.bound.symbol,.evaluate.that.an |
1d40 | 64 20 72 65 74 75 72 6e 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 0a 54 59 50 45 2d 54 45 53 54 | d.return.the.result.of.TYPE-TEST |
1d60 | 2d 46 55 4e 43 2e 0a 0a 28 66 6e 20 4f 42 4a 45 43 54 20 54 59 50 45 2d 54 45 53 54 2d 46 55 4e | -FUNC...(fn.OBJECT.TYPE-TEST-FUN |
1d80 | 43 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 74 6f 6f 6c 62 61 72 78 2d 65 76 61 6c 2d 66 75 6e | C)..(defalias.'toolbarx-eval-fun |
1da0 | 63 74 69 6f 6e 2d 6f 72 2d 73 79 6d 62 6f 6c 20 23 5b 35 31 34 20 22 5c 32 31 31 02 21 5c 32 31 | ction-or-symbol.#[514."\211.!\21 |
1dc0 | 31 40 5c 32 30 34 3a 00 5c 33 30 30 03 21 5c 32 30 33 29 00 01 03 20 21 5c 32 36 32 01 5c 32 31 | 1@\204:.\300.!\203)....!\262.\21 |
1de0 | 31 40 5c 32 30 34 3a 00 02 39 5c 32 30 33 3a 00 5c 33 30 31 03 21 5c 32 30 33 3a 00 01 03 4a 21 | 1@\204:..9\203:.\301.!\203:...J! |
1e00 | 5c 32 30 37 02 39 5c 32 30 33 3a 00 5c 33 30 31 03 21 5c 32 30 33 3a 00 01 03 4a 21 5c 32 36 32 | \207.9\203:.\301.!\203:...J!\262 |
1e20 | 01 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 70 20 62 6f 75 6e 64 70 5d 20 35 20 28 23 24 20 | .\207".[functionp.boundp].5.(#$. |
1e40 | 2e 20 36 39 37 32 29 5d 29 0a 23 40 31 36 36 20 52 65 74 75 72 6e 20 61 20 63 6f 6e 73 20 63 65 | ..6972)]).#@166.Return.a.cons.ce |
1e60 | 6c 6c 20 28 47 4f 4f 44 2d 4f 42 4a 20 2e 20 56 41 4c 29 2e 0a 47 4f 4f 44 2d 4f 42 4a 20 69 73 | ll.(GOOD-OBJ...VAL)..GOOD-OBJ.is |
1e80 | 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 4f 42 4a 20 79 69 65 6c 64 73 20 61 20 76 61 6c 69 64 20 69 | .non-nil.if.OBJ.yields.a.valid.i |
1ea0 | 6d 61 67 65 20 6f 62 6a 65 63 74 20 56 41 4c 20 28 73 65 65 0a 64 6f 63 75 6d 65 6e 74 61 74 69 | mage.object.VAL.(see.documentati |
1ec0 | 6f 6e 20 6f 66 20 66 75 6e 63 74 69 6f 6e 20 60 74 6f 6f 6c 62 61 72 78 2d 70 72 6f 63 65 73 73 | on.of.function.`toolbarx-process |
1ee0 | 2d 73 79 6d 62 6f 6c 27 29 2e 0a 0a 28 66 6e 20 4f 42 4a 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 | -symbol')...(fn.OBJ)..(defalias. |
1f00 | 27 74 6f 6f 6c 62 61 72 78 2d 74 65 73 74 2d 69 6d 61 67 65 2d 74 79 70 65 20 23 5b 32 35 37 20 | 'toolbarx-test-image-type.#[257. |
1f20 | 22 5c 33 30 30 5c 33 30 31 02 02 5c 22 5c 32 30 37 22 20 5b 23 5b 32 35 37 20 22 5c 33 30 30 01 | "\300\301..\"\207".[#[257."\300. |
1f40 | 21 5c 33 30 31 01 3b 5c 32 30 36 55 00 01 5c 32 34 32 5c 33 30 32 3d 5c 32 30 36 55 00 01 39 5c | !\301.;\206U..\242\302=\206U..9\ |
1f60 | 32 30 33 29 00 5c 33 30 33 02 21 5c 32 30 33 29 00 01 4a 3a 5c 32 30 33 29 00 01 4a 40 5c 33 30 | 203).\303.!\203)..J:\203)..J@\30 |
1f80 | 32 3d 5c 32 30 36 55 00 01 3c 5c 32 30 35 55 00 01 47 5c 33 30 34 55 5c 32 30 35 55 00 01 5c 32 | 2=\206U..<\205U..G\304U\205U..\2 |
1fa0 | 31 31 5c 32 30 33 52 00 5c 32 31 31 40 02 5c 32 30 35 49 00 5c 32 31 31 3b 5c 32 30 36 49 00 5c | 11\203R.\211@.\205I.\211;\206I.\ |
1fc0 | 32 31 31 5c 32 34 32 5c 33 30 32 3d 5c 32 36 32 03 01 41 5c 32 36 36 5c 32 30 32 5c 32 30 32 36 | 211\242\302=\262..A\266\202\2026 |
1fe0 | 00 01 5c 32 36 32 01 5c 32 31 31 03 42 5c 32 30 37 22 20 5b 74 6f 6f 6c 62 61 72 78 2d 6f 70 74 | ..\262.\211.B\207".[toolbarx-opt |
2000 | 69 6f 6e 2d 76 61 6c 75 65 20 74 20 69 6d 61 67 65 20 62 6f 75 6e 64 70 20 34 5d 20 37 20 22 5c | ion-value.t.image.boundp.4].7."\ |
2020 | 6e 5c 6e 28 66 6e 20 49 4d 47 29 22 5d 20 74 6f 6f 6c 62 61 72 78 2d 65 76 61 6c 2d 66 75 6e 63 | n\n(fn.IMG)"].toolbarx-eval-func |
2040 | 74 69 6f 6e 2d 6f 72 2d 73 79 6d 62 6f 6c 5d 20 35 20 28 23 24 20 2e 20 37 37 36 30 29 5d 29 0a | tion-or-symbol].5.(#$...7760)]). |
2060 | 23 40 31 36 37 20 52 65 74 75 72 6e 20 61 20 63 6f 6e 73 20 63 65 6c 6c 20 28 47 4f 4f 44 2d 4f | #@167.Return.a.cons.cell.(GOOD-O |
2080 | 42 4a 20 2e 20 56 41 4c 29 2e 0a 47 4f 4f 44 2d 4f 42 4a 20 69 73 20 6e 6f 6e 2d 6e 69 6c 20 69 | BJ...VAL)..GOOD-OBJ.is.non-nil.i |
20a0 | 66 20 4f 42 4a 20 79 69 65 6c 64 73 20 61 20 76 61 6c 69 64 20 62 75 74 74 6f 6e 20 6f 62 6a 65 | f.OBJ.yields.a.valid.button.obje |
20c0 | 63 74 20 56 41 4c 20 28 73 65 65 0a 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 66 75 6e | ct.VAL.(see.documentation.of.fun |
20e0 | 63 74 69 6f 6e 20 60 74 6f 6f 6c 62 61 72 78 2d 70 72 6f 63 65 73 73 2d 73 79 6d 62 6f 6c 27 29 | ction.`toolbarx-process-symbol') |
2100 | 2e 0a 0a 28 66 6e 20 4f 42 4a 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 74 6f 6f 6c 62 61 72 78 | ...(fn.OBJ)..(defalias.'toolbarx |
2120 | 2d 74 65 73 74 2d 62 75 74 74 6f 6e 2d 74 79 70 65 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 | -test-button-type.#[257."\300\30 |
2140 | 31 02 02 5c 22 5c 32 30 37 22 20 5b 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 31 31 3a 5c 32 | 1..\"\207".[#[257."\300.!\211:\2 |
2160 | 30 35 5c 66 00 5c 32 31 31 40 5c 33 30 31 3e 5c 32 31 31 02 42 5c 32 30 37 22 20 5b 74 6f 6f 6c | 05\f.\211@\301>\211.B\207".[tool |
2180 | 62 61 72 78 2d 6f 70 74 69 6f 6e 2d 76 61 6c 75 65 20 28 3a 74 6f 67 67 6c 65 20 3a 72 61 64 69 | barx-option-value.(:toggle.:radi |
21a0 | 6f 29 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 42 55 54 29 22 5d 20 74 6f 6f 6c 62 61 72 78 2d 65 | o)].5."\n\n(fn.BUT)"].toolbarx-e |
21c0 | 76 61 6c 2d 66 75 6e 63 74 69 6f 6e 2d 6f 72 2d 73 79 6d 62 6f 6c 5d 20 35 20 28 23 24 20 2e 20 | val-function-or-symbol].5.(#$... |
21e0 | 38 32 39 34 29 5d 29 0a 23 40 31 33 39 20 52 65 74 75 72 6e 20 61 20 63 6f 6e 73 20 63 65 6c 6c | 8294)]).#@139.Return.a.cons.cell |
2200 | 20 28 74 20 2e 20 56 41 4c 29 2e 0a 49 66 20 4f 42 4a 20 69 73 20 76 65 63 74 6f 72 2c 20 72 65 | .(t...VAL)..If.OBJ.is.vector,.re |
2220 | 74 75 72 6e 20 56 41 4c 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 65 64 69 74 6f 72 2e 20 20 45 | turn.VAL.according.to.editor...E |
2240 | 6c 73 65 2c 20 72 65 74 75 72 6e 0a 4f 42 4a 2c 20 62 65 63 61 75 73 65 20 69 74 20 69 73 20 61 | lse,.return.OBJ,.because.it.is.a |
2260 | 20 66 6f 72 6d 20 61 6e 79 77 61 79 2e 0a 0a 28 66 6e 20 4f 42 4a 29 1f 0a 28 64 65 66 61 6c 69 | .form.anyway...(fn.OBJ)..(defali |
2280 | 61 73 20 27 74 6f 6f 6c 62 61 72 78 2d 74 65 73 74 2d 61 6e 79 2d 74 79 70 65 20 23 5b 32 35 37 | as.'toolbarx-test-any-type.#[257 |
22a0 | 20 22 5c 33 30 30 5c 33 30 31 02 21 42 5c 32 30 37 22 20 5b 74 20 74 6f 6f 6c 62 61 72 78 2d 6f | ."\300\301.!B\207".[t.toolbarx-o |
22c0 | 70 74 69 6f 6e 2d 76 61 6c 75 65 5d 20 34 20 28 23 24 20 2e 20 38 36 38 36 29 5d 29 0a 23 40 31 | ption-value].4.(#$...8686)]).#@1 |
22e0 | 36 35 20 52 65 74 75 72 6e 20 61 20 63 6f 6e 73 20 63 65 6c 6c 20 28 47 4f 4f 44 2d 4f 42 4a 20 | 65.Return.a.cons.cell.(GOOD-OBJ. |
2300 | 2e 20 56 41 4c 29 2e 0a 47 4f 4f 44 2d 4f 42 4a 20 69 73 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 4f | ..VAL)..GOOD-OBJ.is.non-nil.if.O |
2320 | 42 4a 20 79 69 65 6c 64 73 20 61 20 76 61 6c 69 64 20 68 65 6c 70 20 6f 62 6a 65 63 74 20 56 41 | BJ.yields.a.valid.help.object.VA |
2340 | 4c 20 28 73 65 65 0a 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 66 75 6e 63 74 69 6f 6e | L.(see.documentation.of.function |
2360 | 20 60 74 6f 6f 6c 62 61 72 78 2d 70 72 6f 63 65 73 73 2d 73 79 6d 62 6f 6c 27 29 2e 0a 0a 28 66 | .`toolbarx-process-symbol')...(f |
2380 | 6e 20 4f 42 4a 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 74 6f 6f 6c 62 61 72 78 2d 74 65 73 74 | n.OBJ)..(defalias.'toolbarx-test |
23a0 | 2d 73 74 72 69 6e 67 2d 6f 72 2d 6e 69 6c 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 02 | -string-or-nil.#[257."\300\301.. |
23c0 | 5c 22 5c 32 30 37 22 20 5b 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 31 31 3b 5c 32 30 36 5c | \"\207".[#[257."\300.!\211;\206\ |
23e0 | 6e 00 5c 32 31 31 3f 5c 32 31 31 02 42 5c 32 30 37 22 20 5b 74 6f 6f 6c 62 61 72 78 2d 6f 70 74 | n.\211?\211.B\207".[toolbarx-opt |
2400 | 69 6f 6e 2d 76 61 6c 75 65 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 4f 42 4a 29 22 5d 20 74 6f 6f | ion-value].5."\n\n(fn.OBJ)"].too |
2420 | 6c 62 61 72 78 2d 65 76 61 6c 2d 66 75 6e 63 74 69 6f 6e 2d 6f 72 2d 73 79 6d 62 6f 6c 5d 20 35 | lbarx-eval-function-or-symbol].5 |
2440 | 20 28 23 24 20 2e 20 38 39 33 31 29 5d 29 0a 23 40 31 37 37 20 52 65 74 75 72 6e 20 61 20 63 6f | .(#$...8931)]).#@177.Return.a.co |
2460 | 6e 73 20 63 65 6c 6c 20 28 47 4f 4f 44 2d 4f 42 4a 20 2e 20 56 41 4c 29 2e 0a 47 4f 4f 44 2d 4f | ns.cell.(GOOD-OBJ...VAL)..GOOD-O |
2480 | 42 4a 20 69 73 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 4f 42 4a 20 79 69 65 6c 64 73 20 61 20 76 61 | BJ.is.non-nil.if.OBJ.yields.a.va |
24a0 | 6c 69 64 20 74 6f 6f 6c 62 61 72 20 70 72 6f 70 65 72 74 79 20 6f 62 6a 65 63 74 0a 56 41 4c 20 | lid.toolbar.property.object.VAL. |
24c0 | 28 73 65 65 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 66 75 6e 63 74 69 6f 6e 20 60 | (see.documentation.of.function.` |
24e0 | 74 6f 6f 6c 62 61 72 78 2d 70 72 6f 63 65 73 73 2d 73 79 6d 62 6f 6c 27 29 2e 0a 0a 28 66 6e 20 | toolbarx-process-symbol')...(fn. |
2500 | 4f 42 4a 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 74 6f 6f 6c 62 61 72 78 2d 74 65 73 74 2d 74 | OBJ)..(defalias.'toolbarx-test-t |
2520 | 6f 6f 6c 62 61 72 2d 74 79 70 65 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 02 5c 22 5c | oolbar-type.#[257."\300\301..\"\ |
2540 | 32 30 37 22 20 5b 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 33 30 31 01 42 5c 32 30 37 22 20 5b | 207".[#[257."\300.!\301.B\207".[ |
2560 | 74 6f 6f 6c 62 61 72 78 2d 6f 70 74 69 6f 6e 2d 76 61 6c 75 65 20 74 5d 20 34 20 22 5c 6e 5c 6e | toolbarx-option-value.t].4."\n\n |
2580 | 28 66 6e 20 4f 42 4a 29 22 5d 20 74 6f 6f 6c 62 61 72 78 2d 65 76 61 6c 2d 66 75 6e 63 74 69 6f | (fn.OBJ)"].toolbarx-eval-functio |
25a0 | 6e 2d 6f 72 2d 73 79 6d 62 6f 6c 5d 20 35 20 28 23 24 20 2e 20 39 33 30 31 29 5d 29 0a 23 40 32 | n-or-symbol].5.(#$...9301)]).#@2 |
25c0 | 30 34 20 52 65 74 75 72 6e 20 61 20 63 6f 6e 73 20 63 65 6c 6c 20 28 47 4f 4f 44 2d 4f 42 4a 20 | 04.Return.a.cons.cell.(GOOD-OBJ. |
25e0 | 2e 20 56 41 4c 29 2e 0a 47 4f 4f 44 2d 4f 42 4a 20 69 73 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 4f | ..VAL)..GOOD-OBJ.is.non-nil.if.O |
2600 | 42 4a 20 79 69 65 6c 64 73 20 61 20 76 61 6c 69 64 20 60 3a 74 79 70 65 27 20 70 72 6f 70 65 72 | BJ.yields.a.valid.`:type'.proper |
2620 | 74 79 20 6f 62 6a 65 63 74 0a 56 41 4c 20 6f 66 20 61 20 64 72 6f 70 64 6f 77 6e 20 67 72 6f 75 | ty.object.VAL.of.a.dropdown.grou |
2640 | 70 20 28 73 65 65 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 66 75 6e 63 74 69 6f 6e | p.(see.documentation.of.function |
2660 | 0a 60 74 6f 6f 6c 62 61 72 78 2d 70 72 6f 63 65 73 73 2d 64 72 6f 70 64 6f 77 6e 2d 67 72 6f 75 | .`toolbarx-process-dropdown-grou |
2680 | 70 27 2e 0a 0a 28 66 6e 20 4f 42 4a 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 74 6f 6f 6c 62 61 | p'...(fn.OBJ)..(defalias.'toolba |
26a0 | 72 78 2d 74 65 73 74 2d 64 72 6f 70 64 6f 77 6e 2d 74 79 70 65 20 23 5b 32 35 37 20 22 5c 33 30 | rx-test-dropdown-type.#[257."\30 |
26c0 | 30 5c 33 30 31 02 02 5c 22 5c 32 30 37 22 20 5b 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 31 | 0\301..\"\207".[#[257."\300.!\21 |
26e0 | 31 5c 33 30 31 3e 5c 32 31 31 02 42 5c 32 30 37 22 20 5b 74 6f 6f 6c 62 61 72 78 2d 6f 70 74 69 | 1\301>\211.B\207".[toolbarx-opti |
2700 | 6f 6e 2d 76 61 6c 75 65 20 28 72 61 64 69 6f 20 74 6f 67 67 6c 65 29 5d 20 35 20 22 5c 6e 5c 6e | on-value.(radio.toggle)].5."\n\n |
2720 | 28 66 6e 20 4f 42 4a 29 22 5d 20 74 6f 6f 6c 62 61 72 78 2d 65 76 61 6c 2d 66 75 6e 63 74 69 6f | (fn.OBJ)"].toolbarx-eval-functio |
2740 | 6e 2d 6f 72 2d 73 79 6d 62 6f 6c 5d 20 35 20 28 23 24 20 2e 20 39 36 36 37 29 5d 29 0a 23 40 32 | n-or-symbol].5.(#$...9667)]).#@2 |
2760 | 30 38 20 52 65 74 75 72 6e 20 61 20 63 6f 6e 73 20 63 65 6c 6c 20 28 47 4f 4f 44 2d 4f 42 4a 20 | 08.Return.a.cons.cell.(GOOD-OBJ. |
2780 | 2e 20 56 41 4c 29 2e 0a 47 4f 4f 44 2d 4f 42 4a 20 69 73 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 4f | ..VAL)..GOOD-OBJ.is.non-nil.if.O |
27a0 | 42 4a 20 79 69 65 6c 64 73 20 61 20 76 61 6c 69 64 20 60 3a 76 61 72 69 61 62 6c 65 27 20 70 72 | BJ.yields.a.valid.`:variable'.pr |
27c0 | 6f 70 65 72 74 79 0a 6f 62 6a 65 63 74 20 56 41 4c 20 6f 66 20 61 20 64 72 6f 70 64 6f 77 6e 20 | operty.object.VAL.of.a.dropdown. |
27e0 | 67 72 6f 75 70 20 28 73 65 65 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 66 75 6e 63 | group.(see.documentation.of.func |
2800 | 74 69 6f 6e 0a 60 74 6f 6f 6c 62 61 72 78 2d 70 72 6f 63 65 73 73 2d 64 72 6f 70 64 6f 77 6e 2d | tion.`toolbarx-process-dropdown- |
2820 | 67 72 6f 75 70 27 2e 0a 0a 28 66 6e 20 4f 42 4a 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 74 6f | group'...(fn.OBJ)..(defalias.'to |
2840 | 6f 6c 62 61 72 78 2d 74 65 73 74 2d 73 79 6d 62 6f 6c 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 | olbarx-test-symbol.#[257."\300\3 |
2860 | 30 31 02 02 5c 22 5c 32 30 37 22 20 5b 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 31 31 39 5c | 01..\"\207".[#[257."\300.!\2119\ |
2880 | 32 31 31 02 42 5c 32 30 37 22 20 5b 74 6f 6f 6c 62 61 72 78 2d 6f 70 74 69 6f 6e 2d 76 61 6c 75 | 211.B\207".[toolbarx-option-valu |
28a0 | 65 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 4f 42 4a 29 22 5d 20 74 6f 6f 6c 62 61 72 78 2d 65 76 | e].5."\n\n(fn.OBJ)"].toolbarx-ev |
28c0 | 61 6c 2d 66 75 6e 63 74 69 6f 6e 2d 6f 72 2d 73 79 6d 62 6f 6c 5d 20 35 20 28 23 24 20 2e 20 31 | al-function-or-symbol].5.(#$...1 |
28e0 | 30 30 38 33 29 5d 29 0a 23 40 32 30 37 20 52 65 74 75 72 6e 20 61 20 63 6f 6e 73 20 63 65 6c 6c | 0083)]).#@207.Return.a.cons.cell |
2900 | 20 28 47 4f 4f 44 2d 4f 42 4a 20 2e 20 56 41 4c 29 2e 0a 47 4f 4f 44 2d 4f 42 4a 20 69 73 20 6e | .(GOOD-OBJ...VAL)..GOOD-OBJ.is.n |
2920 | 6f 6e 2d 6e 69 6c 20 69 66 20 4f 42 4a 20 79 69 65 6c 64 73 20 61 20 76 61 6c 69 64 20 60 3a 64 | on-nil.if.OBJ.yields.a.valid.`:d |
2940 | 65 66 61 75 6c 74 27 20 70 72 6f 70 65 72 74 79 0a 6f 62 6a 65 63 74 20 56 41 4c 20 6f 66 20 61 | efault'.property.object.VAL.of.a |
2960 | 20 64 72 6f 70 64 6f 77 6e 20 67 72 6f 75 70 20 28 73 65 65 20 64 6f 63 75 6d 65 6e 74 61 74 69 | .dropdown.group.(see.documentati |
2980 | 6f 6e 20 6f 66 20 66 75 6e 63 74 69 6f 6e 0a 60 74 6f 6f 6c 62 61 72 78 2d 70 72 6f 63 65 73 73 | on.of.function.`toolbarx-process |
29a0 | 2d 64 72 6f 70 64 6f 77 6e 2d 67 72 6f 75 70 27 2e 0a 0a 28 66 6e 20 4f 42 4a 29 1f 0a 28 64 65 | -dropdown-group'...(fn.OBJ)..(de |
29c0 | 66 61 6c 69 61 73 20 27 74 6f 6f 6c 62 61 72 78 2d 74 65 73 74 2d 64 72 6f 70 64 6f 77 6e 2d 64 | falias.'toolbarx-test-dropdown-d |
29e0 | 65 66 61 75 6c 74 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 02 5c 22 5c 32 30 37 22 20 | efault.#[257."\300\301..\"\207". |
2a00 | 5b 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 31 31 5c 32 35 30 5c 32 30 36 29 00 5c 32 31 31 | [#[257."\300.!\211\250\206).\211 |
2a20 | 3c 5c 32 30 35 29 00 5c 33 30 31 01 5c 32 31 31 5c 32 30 33 24 00 5c 32 31 31 40 02 5c 32 30 35 | <\205).\301.\211\203$.\211@.\205 |
2a40 | 1b 00 5c 32 31 31 5c 32 35 30 5c 32 36 32 03 01 41 5c 32 36 36 5c 32 30 32 5c 32 30 32 0f 00 01 | ..\211\250\262..A\266\202\202... |
2a60 | 5c 32 36 32 01 5c 32 36 32 01 5c 32 31 31 02 42 5c 32 30 37 22 20 5b 74 6f 6f 6c 62 61 72 78 2d | \262.\262.\211.B\207".[toolbarx- |
2a80 | 6f 70 74 69 6f 6e 2d 76 61 6c 75 65 20 74 5d 20 36 20 22 5c 6e 5c 6e 28 66 6e 20 4f 42 4a 29 22 | option-value.t].6."\n\n(fn.OBJ)" |
2aa0 | 5d 20 74 6f 6f 6c 62 61 72 78 2d 65 76 61 6c 2d 66 75 6e 63 74 69 6f 6e 2d 6f 72 2d 73 79 6d 62 | ].toolbarx-eval-function-or-symb |
2ac0 | 6f 6c 5d 20 35 20 28 23 24 20 2e 20 31 30 34 37 38 29 5d 29 0a 23 40 32 30 34 20 52 65 74 75 72 | ol].5.(#$...10478)]).#@204.Retur |
2ae0 | 6e 20 61 20 63 6f 6e 73 20 63 65 6c 6c 20 28 47 4f 4f 44 2d 4f 42 4a 20 2e 20 56 41 4c 29 2e 0a | n.a.cons.cell.(GOOD-OBJ...VAL).. |
2b00 | 47 4f 4f 44 2d 4f 42 4a 20 69 73 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 4f 42 4a 20 79 69 65 6c 64 | GOOD-OBJ.is.non-nil.if.OBJ.yield |
2b20 | 73 20 61 20 76 61 6c 69 64 20 60 3a 73 61 76 65 27 20 70 72 6f 70 65 72 74 79 0a 6f 62 6a 65 63 | s.a.valid.`:save'.property.objec |
2b40 | 74 20 56 41 4c 20 6f 66 20 61 20 64 72 6f 70 64 6f 77 6e 20 67 72 6f 75 70 20 28 73 65 65 20 64 | t.VAL.of.a.dropdown.group.(see.d |
2b60 | 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 66 75 6e 63 74 69 6f 6e 0a 60 74 6f 6f 6c 62 61 | ocumentation.of.function.`toolba |
2b80 | 72 78 2d 70 72 6f 63 65 73 73 2d 64 72 6f 70 64 6f 77 6e 2d 67 72 6f 75 70 27 2e 0a 0a 28 66 6e | rx-process-dropdown-group'...(fn |
2ba0 | 20 4f 42 4a 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 74 6f 6f 6c 62 61 72 78 2d 74 65 73 74 2d | .OBJ)..(defalias.'toolbarx-test- |
2bc0 | 64 72 6f 70 64 6f 77 6e 2d 73 61 76 65 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 02 02 5c | dropdown-save.#[257."\300\301..\ |
2be0 | 22 5c 32 30 37 22 20 5b 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 31 31 5c 33 30 31 3e 5c 32 | "\207".[#[257."\300.!\211\301>\2 |
2c00 | 31 31 02 42 5c 32 30 37 22 20 5b 74 6f 6f 6c 62 61 72 78 2d 6f 70 74 69 6f 6e 2d 76 61 6c 75 65 | 11.B\207".[toolbarx-option-value |
2c20 | 20 28 6e 69 6c 20 6f 66 66 65 72 20 61 6c 77 61 79 73 29 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 | .(nil.offer.always)].5."\n\n(fn. |
2c40 | 4f 42 4a 29 22 5d 20 74 6f 6f 6c 62 61 72 78 2d 65 76 61 6c 2d 66 75 6e 63 74 69 6f 6e 2d 6f 72 | OBJ)"].toolbarx-eval-function-or |
2c60 | 2d 73 79 6d 62 6f 6c 5d 20 35 20 28 23 24 20 2e 20 31 30 39 37 31 29 5d 29 0a 23 40 33 30 37 20 | -symbol].5.(#$...10971)]).#@307. |
2c80 | 4c 69 73 74 20 79 69 65 6c 64 69 6e 67 20 61 6c 6c 20 65 6e 63 61 72 6e 61 74 69 6f 6e 73 20 6f | List.yielding.all.encarnations.o |
2ca0 | 66 20 70 72 6f 70 65 72 74 69 65 73 20 6f 66 20 61 20 62 75 74 74 6f 6e 2e 0a 46 69 72 73 74 20 | f.properties.of.a.button..First. |
2cc0 | 65 6c 65 6d 65 6e 74 3a 20 61 6c 69 73 74 2c 20 77 68 65 72 65 20 65 61 63 68 20 65 6c 65 6d 65 | element:.alist,.where.each.eleme |
2ce0 | 6e 74 20 69 73 20 6f 66 20 66 6f 72 6d 0a 20 28 50 52 4f 50 20 2e 20 28 54 59 50 45 2d 54 45 53 | nt.is.of.form..(PROP...(TYPE-TES |
2d00 | 54 2d 46 55 4e 43 54 49 4f 4e 20 2e 20 41 44 44 2d 4f 52 2d 4e 49 4c 29 29 0a 53 65 63 6f 6e 64 | T-FUNCTION...ADD-OR-NIL)).Second |
2d20 | 20 69 73 20 61 20 6c 69 73 74 20 77 69 74 68 20 61 6c 6c 20 70 72 6f 70 65 72 74 69 65 73 2e 0a | .is.a.list.with.all.properties.. |
2d40 | 54 68 69 72 64 2c 20 61 20 6c 69 73 74 20 77 69 74 68 20 70 72 6f 70 65 72 74 69 65 73 20 74 68 | Third,.a.list.with.properties.th |
2d60 | 61 74 20 6f 76 65 72 72 69 64 65 20 77 68 65 6e 20 6d 65 72 67 69 6e 67 2e 0a 46 6f 75 72 74 68 | at.override.when.merging..Fourth |
2d80 | 2c 20 61 20 6c 69 73 74 20 6f 66 20 6c 69 73 74 73 2c 20 65 61 63 68 20 69 6e 20 74 68 65 20 66 | ,.a.list.of.lists,.each.in.the.f |
2da0 | 6f 72 6d 61 74 20 28 50 52 4f 50 20 41 44 44 29 2e 1f 0a 28 64 65 66 63 6f 6e 73 74 20 74 6f 6f | ormat.(PROP.ADD)...(defconst.too |
2dc0 | 6c 62 61 72 78 2d 62 75 74 74 6f 6e 2d 70 72 6f 70 73 20 28 62 79 74 65 2d 63 6f 64 65 20 22 5c | lbarx-button-props.(byte-code."\ |
2de0 | 33 30 30 5c 33 30 31 01 5c 32 31 31 5c 32 30 33 16 00 5c 32 31 31 40 5c 32 31 31 40 03 42 5c 32 | 300\301.\211\203..\211@\211@.B\2 |
2e00 | 36 32 03 01 41 5c 32 36 36 5c 32 30 32 5c 32 30 32 03 00 01 5c 32 36 32 01 5c 32 36 32 01 5c 32 | 62..A\266\202\202...\262.\262.\2 |
2e20 | 33 37 5c 33 30 31 02 5c 32 31 31 5c 32 30 33 37 00 5c 32 31 31 40 5c 32 31 31 41 41 5c 32 30 34 | 37\301.\211\2037.\211@\211AA\204 |
2e40 | 30 00 5c 32 31 31 40 03 42 5c 32 36 32 03 01 41 5c 32 36 36 5c 32 30 32 5c 32 30 32 1e 00 01 5c | 0.\211@.B\262..A\266\202\202...\ |
2e60 | 32 36 32 01 5c 32 36 32 01 5c 32 33 37 5c 33 30 31 03 5c 32 31 31 5c 32 30 33 58 00 5c 32 31 31 | 262.\262.\237\301.\211\203X.\211 |
2e80 | 40 5c 32 31 31 41 41 5c 32 30 33 51 00 5c 32 31 31 40 03 42 5c 32 36 32 03 01 41 5c 32 36 36 5c | @\211AA\203Q.\211@.B\262..A\266\ |
2ea0 | 32 30 32 5c 32 30 32 3f 00 01 5c 32 36 32 01 5c 32 36 32 01 5c 32 33 37 03 03 03 03 46 5c 32 30 | 202\202?..\262.\262.\237....F\20 |
2ec0 | 37 22 20 5b 28 28 3a 69 6d 61 67 65 20 74 6f 6f 6c 62 61 72 78 2d 74 65 73 74 2d 69 6d 61 67 65 | 7".[((:image.toolbarx-test-image |
2ee0 | 2d 74 79 70 65 29 20 28 3a 63 6f 6d 6d 61 6e 64 20 74 6f 6f 6c 62 61 72 78 2d 74 65 73 74 2d 61 | -type).(:command.toolbarx-test-a |
2f00 | 6e 79 2d 74 79 70 65 29 20 28 3a 65 6e 61 62 6c 65 20 74 6f 6f 6c 62 61 72 78 2d 74 65 73 74 2d | ny-type).(:enable.toolbarx-test- |
2f20 | 61 6e 79 2d 74 79 70 65 29 20 28 3a 76 69 73 69 62 6c 65 20 74 6f 6f 6c 62 61 72 78 2d 74 65 73 | any-type).(:visible.toolbarx-tes |
2f40 | 74 2d 61 6e 79 2d 74 79 70 65 29 20 28 3a 68 65 6c 70 20 74 6f 6f 6c 62 61 72 78 2d 74 65 73 74 | t-any-type).(:help.toolbarx-test |
2f60 | 2d 73 74 72 69 6e 67 2d 6f 72 2d 6e 69 6c 29 20 28 3a 69 6e 73 65 72 74 20 74 6f 6f 6c 62 61 72 | -string-or-nil).(:insert.toolbar |
2f80 | 78 2d 74 65 73 74 2d 61 6e 79 2d 74 79 70 65 20 2e 20 61 6e 64 29 20 28 3a 62 75 74 74 6f 6e 20 | x-test-any-type...and).(:button. |
2fa0 | 74 6f 6f 6c 62 61 72 78 2d 74 65 73 74 2d 62 75 74 74 6f 6e 2d 74 79 70 65 29 20 28 3a 61 70 70 | toolbarx-test-button-type).(:app |
2fc0 | 65 6e 64 2d 63 6f 6d 6d 61 6e 64 20 74 6f 6f 6c 62 61 72 78 2d 74 65 73 74 2d 61 6e 79 2d 74 79 | end-command.toolbarx-test-any-ty |
2fe0 | 70 65 20 2e 20 70 72 6f 67 6e 29 20 28 3a 70 72 65 70 65 6e 64 2d 63 6f 6d 6d 61 6e 64 20 74 6f | pe...progn).(:prepend-command.to |
3000 | 6f 6c 62 61 72 78 2d 74 65 73 74 2d 61 6e 79 2d 74 79 70 65 20 2e 20 70 72 6f 67 6e 29 29 20 6e | olbarx-test-any-type...progn)).n |
3020 | 69 6c 5d 20 38 29 20 28 23 24 20 2e 20 31 31 33 39 32 29 29 0a 23 40 34 38 39 20 4c 69 73 74 20 | il].8).(#$...11392)).#@489.List. |
3040 | 79 69 65 6c 64 69 6e 67 20 61 6c 6c 20 65 6e 63 61 72 6e 61 74 69 6f 6e 73 20 6f 66 20 70 72 6f | yielding.all.encarnations.of.pro |
3060 | 70 65 72 74 69 65 73 20 6f 66 20 61 20 64 72 6f 70 64 6f 77 6e 20 67 72 6f 75 70 2e 0a 46 69 72 | perties.of.a.dropdown.group..Fir |
3080 | 73 74 20 65 6c 65 6d 65 6e 74 3a 20 61 6c 69 73 74 2c 20 77 68 65 72 65 20 65 61 63 68 20 65 6c | st.element:.alist,.where.each.el |
30a0 | 65 6d 65 6e 74 20 69 73 20 6f 66 20 66 6f 72 6d 0a 20 28 50 52 4f 50 20 2e 20 28 54 59 50 45 2d | ement.is.of.form..(PROP...(TYPE- |
30c0 | 54 45 53 54 2d 46 55 4e 43 54 49 4f 4e 20 2e 20 41 44 44 2d 4f 52 2d 4e 49 4c 29 29 0a 53 65 63 | TEST-FUNCTION...ADD-OR-NIL)).Sec |
30e0 | 6f 6e 64 20 69 73 20 61 20 6c 69 73 74 20 77 69 74 68 20 61 6c 6c 20 70 72 6f 70 65 72 74 69 65 | ond.is.a.list.with.all.propertie |
3100 | 73 2e 0a 54 68 69 72 64 2c 20 61 20 6c 69 73 74 20 77 69 74 68 20 70 72 6f 70 65 72 74 69 65 73 | s..Third,.a.list.with.properties |
3120 | 20 74 68 61 74 20 6f 76 65 72 72 69 64 65 20 77 68 65 6e 20 6d 65 72 67 69 6e 67 2e 0a 46 6f 75 | .that.override.when.merging..Fou |
3140 | 72 74 68 2c 20 61 20 6c 69 73 74 20 6f 66 20 6c 69 73 74 73 2c 20 65 61 63 68 20 69 6e 20 74 68 | rth,.a.list.of.lists,.each.in.th |
3160 | 65 20 66 6f 72 6d 61 74 20 28 50 52 4f 50 20 41 44 44 29 2e 0a 0a 43 6f 6e 76 65 6e 74 69 6f 6e | e.format.(PROP.ADD)...Convention |
3180 | 3a 20 70 72 6f 70 65 72 74 69 65 73 20 66 6f 72 20 74 68 65 20 64 72 6f 70 64 6f 77 6e 20 62 75 | :.properties.for.the.dropdown.bu |
31a0 | 74 74 6f 6e 20 73 68 6f 75 6c 64 20 62 65 20 66 6f 72 6d 65 64 0a 77 69 74 68 20 74 68 65 20 73 | tton.should.be.formed.with.the.s |
31c0 | 74 72 69 6e 67 73 20 22 3a 64 72 6f 70 64 6f 77 6e 2d 22 20 77 69 74 68 20 74 68 65 20 62 75 74 | trings.":dropdown-".with.the.but |
31e0 | 74 6f 6e 20 70 72 6f 70 65 72 74 79 20 6e 61 6d 65 0a 77 69 74 68 6f 75 74 20 60 3a 27 2e 20 54 | ton.property.name.without.`:'..T |
3200 | 68 69 73 20 69 73 20 75 73 65 64 20 6f 6e 20 74 68 65 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f | his.is.used.on.the.implementatio |
3220 | 6e 2e 1f 0a 28 64 65 66 63 6f 6e 73 74 20 74 6f 6f 6c 62 61 72 78 2d 64 72 6f 70 64 6f 77 6e 2d | n...(defconst.toolbarx-dropdown- |
3240 | 70 72 6f 70 73 20 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 01 5c 32 31 31 5c | props.(byte-code."\300\301.\211\ |
3260 | 32 30 33 16 00 5c 32 31 31 40 5c 32 31 31 40 03 42 5c 32 36 32 03 01 41 5c 32 36 36 5c 32 30 32 | 203..\211@\211@.B\262..A\266\202 |
3280 | 5c 32 30 32 03 00 01 5c 32 36 32 01 5c 32 36 32 01 5c 32 33 37 5c 33 30 31 02 5c 32 31 31 5c 32 | \202...\262.\262.\237\301.\211\2 |
32a0 | 30 33 37 00 5c 32 31 31 40 5c 32 31 31 41 41 5c 32 30 34 30 00 5c 32 31 31 40 03 42 5c 32 36 32 | 037.\211@\211AA\2040.\211@.B\262 |
32c0 | 03 01 41 5c 32 36 36 5c 32 30 32 5c 32 30 32 1e 00 01 5c 32 36 32 01 5c 32 36 32 01 5c 32 33 37 | ..A\266\202\202...\262.\262.\237 |
32e0 | 5c 33 30 31 03 5c 32 31 31 5c 32 30 33 58 00 5c 32 31 31 40 5c 32 31 31 41 41 5c 32 30 33 51 00 | \301.\211\203X.\211@\211AA\203Q. |
3300 | 5c 32 31 31 40 03 42 5c 32 36 32 03 01 41 5c 32 36 36 5c 32 30 32 5c 32 30 32 3f 00 01 5c 32 36 | \211@.B\262..A\266\202\202?..\26 |
3320 | 32 01 5c 32 36 32 01 5c 32 33 37 03 03 03 03 46 5c 32 30 37 22 20 5b 28 28 3a 74 79 70 65 20 74 | 2.\262.\237....F\207".[((:type.t |
3340 | 6f 6f 6c 62 61 72 78 2d 74 65 73 74 2d 64 72 6f 70 64 6f 77 6e 2d 74 79 70 65 29 20 28 3a 76 61 | oolbarx-test-dropdown-type).(:va |
3360 | 72 69 61 62 6c 65 20 74 6f 6f 6c 62 61 72 78 2d 74 65 73 74 2d 73 79 6d 62 6f 6c 29 20 28 3a 64 | riable.toolbarx-test-symbol).(:d |
3380 | 65 66 61 75 6c 74 20 74 6f 6f 6c 62 61 72 78 2d 74 65 73 74 2d 64 72 6f 70 64 6f 77 6e 2d 64 65 | efault.toolbarx-test-dropdown-de |
33a0 | 66 61 75 6c 74 29 20 28 3a 73 61 76 65 20 74 6f 6f 6c 62 61 72 78 2d 74 65 73 74 2d 64 72 6f 70 | fault).(:save.toolbarx-test-drop |
33c0 | 64 6f 77 6e 2d 73 61 76 65 29 20 28 3a 74 69 74 6c 65 20 74 6f 6f 6c 62 61 72 78 2d 74 65 73 74 | down-save).(:title.toolbarx-test |
33e0 | 2d 73 74 72 69 6e 67 2d 6f 72 2d 6e 69 6c 29 20 28 3a 64 72 6f 70 64 6f 77 6e 2d 69 6d 61 67 65 | -string-or-nil).(:dropdown-image |
3400 | 20 74 6f 6f 6c 62 61 72 78 2d 74 65 73 74 2d 69 6d 61 67 65 2d 74 79 70 65 29 20 28 3a 64 72 6f | .toolbarx-test-image-type).(:dro |
3420 | 70 64 6f 77 6e 2d 65 6e 61 62 6c 65 20 74 6f 6f 6c 62 61 72 78 2d 74 65 73 74 2d 61 6e 79 2d 74 | pdown-enable.toolbarx-test-any-t |
3440 | 79 70 65 29 20 28 3a 64 72 6f 70 64 6f 77 6e 2d 76 69 73 69 62 6c 65 20 74 6f 6f 6c 62 61 72 78 | ype).(:dropdown-visible.toolbarx |
3460 | 2d 74 65 73 74 2d 61 6e 79 2d 74 79 70 65 29 20 28 3a 64 72 6f 70 64 6f 77 6e 2d 69 6e 73 65 72 | -test-any-type).(:dropdown-inser |
3480 | 74 20 74 6f 6f 6c 62 61 72 78 2d 74 65 73 74 2d 61 6e 79 2d 74 79 70 65 20 2e 20 61 6e 64 29 20 | t.toolbarx-test-any-type...and). |
34a0 | 28 3a 64 72 6f 70 64 6f 77 6e 2d 68 65 6c 70 20 74 6f 6f 6c 62 61 72 78 2d 74 65 73 74 2d 73 74 | (:dropdown-help.toolbarx-test-st |
34c0 | 72 69 6e 67 2d 6f 72 2d 6e 69 6c 29 20 28 3a 64 72 6f 70 64 6f 77 6e 2d 61 70 70 65 6e 64 2d 63 | ring-or-nil).(:dropdown-append-c |
34e0 | 6f 6d 6d 61 6e 64 20 74 6f 6f 6c 62 61 72 78 2d 74 65 73 74 2d 61 6e 79 2d 74 79 70 65 20 2e 20 | ommand.toolbarx-test-any-type... |
3500 | 70 72 6f 67 6e 29 20 28 3a 64 72 6f 70 64 6f 77 6e 2d 70 72 65 70 65 6e 64 2d 63 6f 6d 6d 61 6e | progn).(:dropdown-prepend-comman |
3520 | 64 20 74 6f 6f 6c 62 61 72 78 2d 74 65 73 74 2d 61 6e 79 2d 74 79 70 65 20 2e 20 70 72 6f 67 6e | d.toolbarx-test-any-type...progn |
3540 | 29 29 20 6e 69 6c 5d 20 38 29 20 28 23 24 20 2e 20 31 32 33 34 37 29 29 0a 23 40 32 32 35 20 52 | )).nil].8).(#$...12347)).#@225.R |
3560 | 65 74 75 72 6e 20 61 6e 20 75 70 64 61 74 65 64 20 76 65 72 73 69 6f 6e 20 6f 66 20 53 57 49 54 | eturn.an.updated.version.of.SWIT |
3580 | 43 48 45 53 2e 0a 47 52 4f 55 50 2d 57 49 54 48 4f 55 54 2d 50 52 4f 50 53 20 61 6e 64 20 4d 45 | CHES..GROUP-WITHOUT-PROPS.and.ME |
35a0 | 52 47 45 44 2d 50 52 4f 50 53 2d 57 49 54 48 4f 55 54 2d 49 4e 53 45 52 54 20 61 72 65 0a 70 72 | RGED-PROPS-WITHOUT-INSERT.are.pr |
35c0 | 65 70 72 6f 63 65 73 73 65 64 20 76 61 72 69 61 62 6c 65 73 20 69 6e 20 60 74 6f 6f 6c 62 61 72 | eprocessed.variables.in.`toolbar |
35e0 | 78 2d 70 72 6f 63 65 73 73 2d 67 72 6f 75 70 27 2e 0a 0a 28 66 6e 20 47 52 4f 55 50 2d 57 49 54 | x-process-group'...(fn.GROUP-WIT |
3600 | 48 4f 55 54 2d 50 52 4f 50 53 20 4d 45 52 47 45 44 2d 50 52 4f 50 53 2d 57 49 54 48 4f 55 54 2d | HOUT-PROPS.MERGED-PROPS-WITHOUT- |
3620 | 49 4e 53 45 52 54 20 4d 45 41 4e 49 4e 47 2d 41 4c 49 53 54 20 53 57 49 54 43 48 45 53 29 1f 0a | INSERT.MEANING-ALIST.SWITCHES).. |
3640 | 28 64 65 66 61 6c 69 61 73 20 27 74 6f 6f 6c 62 61 72 78 2d 70 72 6f 63 65 73 73 2d 67 72 6f 75 | (defalias.'toolbarx-process-grou |
3660 | 70 2d 77 69 74 68 6f 75 74 2d 69 6e 73 65 72 74 20 23 5b 31 30 32 38 20 22 5c 32 31 31 04 5c 32 | p-without-insert.#[1028."\211.\2 |
3680 | 31 31 5c 32 30 33 37 00 5c 32 31 31 40 5c 33 30 30 01 21 5c 32 36 32 01 5c 32 31 31 39 5c 32 30 | 11\2037.\211@\300.!\262.\2119\20 |
36a0 | 33 20 00 5c 33 30 31 01 06 06 06 08 06 06 24 5c 32 36 32 03 5c 32 30 32 30 00 5c 32 31 31 3c 5c | 3..\301.......$\262.\2020.\211<\ |
36c0 | 32 30 33 30 00 5c 33 30 32 01 06 06 06 08 06 06 24 5c 32 36 32 03 01 41 5c 32 36 36 5c 32 30 32 | 2030.\302.......$\262..A\266\202 |
36e0 | 5c 32 30 32 02 00 01 5c 32 30 37 22 20 5b 74 6f 6f 6c 62 61 72 78 2d 6f 70 74 69 6f 6e 2d 76 61 | \202...\207".[toolbarx-option-va |
3700 | 6c 75 65 20 74 6f 6f 6c 62 61 72 78 2d 70 72 6f 63 65 73 73 2d 73 79 6d 62 6f 6c 20 74 6f 6f 6c | lue.toolbarx-process-symbol.tool |
3720 | 62 61 72 78 2d 70 72 6f 63 65 73 73 2d 67 72 6f 75 70 5d 20 31 32 20 28 23 24 20 2e 20 31 33 36 | barx-process-group].12.(#$...136 |
3740 | 36 33 29 5d 29 0a 23 40 35 31 36 20 52 65 74 75 72 6e 20 61 6e 20 75 70 64 61 74 65 64 20 76 65 | 63)]).#@516.Return.an.updated.ve |
3760 | 72 73 69 6f 6e 20 6f 66 20 53 57 49 54 43 48 45 53 2e 0a 41 70 70 65 6e 64 20 74 6f 20 61 6c 72 | rsion.of.SWITCHES..Append.to.alr |
3780 | 65 61 64 79 20 70 72 6f 63 65 73 73 65 64 20 62 75 74 74 6f 6e 73 20 28 73 74 6f 72 65 64 20 69 | eady.processed.buttons.(stored.i |
37a0 | 6e 20 53 57 49 54 43 48 45 53 29 20 61 0a 70 72 6f 63 65 73 73 65 64 20 76 65 72 73 69 6f 6e 20 | n.SWITCHES).a.processed.version. |
37c0 | 6f 66 20 47 52 4f 55 50 2e 20 20 47 72 6f 75 70 73 20 61 72 65 20 75 73 65 66 75 6c 20 74 6f 20 | of.GROUP...Groups.are.useful.to. |
37e0 | 64 69 73 74 72 69 62 75 74 65 0a 70 72 6f 70 65 72 74 69 65 73 2e 20 20 45 78 74 65 72 6e 61 6c | distribute.properties...External |
3800 | 20 70 72 6f 70 65 72 74 69 65 73 20 61 72 65 20 67 69 76 65 6e 20 69 6e 20 50 52 4f 50 53 2c 20 | .properties.are.given.in.PROPS,. |
3820 | 61 6e 64 20 6d 65 72 67 65 64 0a 77 69 74 68 20 74 68 65 20 69 6e 74 65 72 6e 61 6c 20 70 72 6f | and.merged.with.the.internal.pro |
3840 | 70 65 72 74 69 65 73 20 74 68 61 74 20 61 72 65 20 69 6e 20 74 68 65 20 65 6e 64 20 6f 66 20 47 | perties.that.are.in.the.end.of.G |
3860 | 52 4f 55 50 2e 20 20 49 66 0a 70 72 6f 70 65 72 74 69 65 73 20 28 61 66 74 65 72 20 6d 65 72 67 | ROUP...If.properties.(after.merg |
3880 | 65 29 20 63 6f 6e 74 61 69 6e 20 61 20 60 3a 69 6e 73 65 72 74 27 20 70 72 6f 70 65 72 74 79 2c | e).contain.a.`:insert'.property, |
38a0 | 20 72 65 74 75 72 6e 20 61 0a 6c 69 73 74 20 77 68 65 72 65 20 74 68 65 20 66 69 72 73 74 20 61 | .return.a.list.where.the.first.a |
38c0 | 6e 64 20 73 65 63 6f 6e 64 20 65 6c 65 6d 65 6e 74 73 20 61 72 65 20 60 3a 69 6e 73 65 72 74 27 | nd.second.elements.are.`:insert' |
38e0 | 20 61 6e 64 20 69 74 73 0a 76 61 6c 75 65 2c 20 61 6e 64 20 61 66 74 65 72 20 74 68 61 74 20 61 | .and.its.value,.and.after.that.a |
3900 | 20 6c 69 73 74 20 69 6e 20 74 68 65 20 73 61 6d 65 20 66 6f 72 6d 61 74 20 61 73 20 53 57 49 54 | .list.in.the.same.format.as.SWIT |
3920 | 43 48 45 53 2e 0a 0a 28 66 6e 20 47 52 4f 55 50 20 4d 45 41 4e 49 4e 47 2d 41 4c 49 53 54 20 50 | CHES...(fn.GROUP.MEANING-ALIST.P |
3940 | 52 4f 50 53 20 53 57 49 54 43 48 45 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 74 6f 6f 6c 62 | ROPS.SWITCHES)..(defalias.'toolb |
3960 | 61 72 78 2d 70 72 6f 63 65 73 73 2d 67 72 6f 75 70 20 23 5b 31 30 32 38 20 22 03 40 5c 33 30 32 | arx-process-group.#[1028.".@\302 |
3980 | 3d 5c 32 30 33 0e 00 5c 33 30 33 04 04 04 04 24 5c 32 30 37 03 40 5c 33 30 34 3d 5c 32 30 33 41 | =\203..\303....$\207.@\304=\203A |
39a0 | 00 5c 32 31 31 04 41 5c 32 31 31 5c 32 30 33 3f 00 5c 32 31 31 40 5c 33 30 35 01 5c 33 30 36 5c | .\211.A\211\203?.\211@\305.\306\ |
39c0 | 22 5c 33 30 37 01 3c 5c 32 30 33 2c 00 01 5c 32 30 32 2e 00 01 43 06 08 06 08 06 07 24 5c 32 36 | "\307.<\203,..\202...C......$\26 |
39e0 | 32 04 5c 32 31 30 01 41 5c 32 36 36 5c 32 30 32 5c 32 30 32 18 00 01 5c 32 30 37 5c 33 31 30 04 | 2.\210.A\266\202\202...\207\310. |
3a00 | 5c 33 31 31 08 41 40 09 41 40 5c 22 5c 22 5c 32 31 31 41 01 40 5c 33 31 32 02 06 06 5c 33 31 31 | \311.A@.A@\"\"\211A.@\312...\311 |
3a20 | 5c 33 31 33 08 38 5c 33 31 33 09 38 5c 22 5c 33 31 31 5c 33 31 34 08 38 5c 33 31 34 09 38 5c 22 | \313.8\313.8\"\311\314.8\314.8\" |
3a40 | 24 5c 33 31 35 01 3e 5c 32 30 33 5c 33 34 34 00 5c 33 31 35 01 3e 5c 32 31 31 41 40 3c 5c 32 30 | $\315.>\203\344.\315.>\211A@<\20 |
3a60 | 33 5c 33 30 34 00 5c 32 31 31 41 40 40 5c 33 31 36 3d 5c 32 30 33 5c 33 30 34 00 5c 33 31 35 08 | 3\304.\211A@@\316=\203\304.\315. |
3a80 | 40 5c 32 33 36 5c 32 31 31 41 41 43 5c 33 31 37 03 41 40 41 5c 32 31 31 5c 32 30 33 5c 32 35 32 | @\236\211AAC\317.A@A\211\203\252 |
3aa0 | 00 5c 32 31 31 40 04 41 40 01 21 5c 32 36 32 03 02 40 5c 32 30 33 5c 32 34 33 00 02 41 04 42 5c | .\211@.A@.!\262..@\203\243..A.B\ |
3ac0 | 32 36 32 04 01 41 5c 32 36 36 5c 32 30 32 5c 32 30 32 5c 32 31 33 00 5c 32 31 30 01 5c 32 33 37 | 262..A\266\202\202\213.\210.\237 |
3ae0 | 5c 32 36 32 02 01 47 5c 33 31 33 3d 5c 32 30 33 5c 32 37 36 00 01 41 40 5c 32 36 36 5c 32 30 33 | \262..G\313=\203\276..A@\266\203 |
3b00 | 5c 32 30 32 5c 33 30 37 00 01 5c 32 36 36 5c 32 30 33 5c 32 30 32 5c 33 30 37 00 5c 32 31 31 41 | \202\307..\266\203\202\307.\211A |
3b20 | 40 5c 33 31 31 5c 33 32 30 04 04 47 5c 22 03 41 41 5c 22 5c 33 32 31 05 02 06 5c 66 5c 33 31 37 | @\311\320..G\".AA\"\321...\f\317 |
3b40 | 24 5c 33 31 31 5c 33 31 35 04 44 02 5c 22 06 09 5c 32 33 37 42 5c 32 33 37 5c 32 30 37 5c 33 32 | $\311\315.D.\"..\237B\237\207\32 |
3b60 | 31 02 02 06 09 06 08 24 5c 32 30 37 22 20 5b 74 6f 6f 6c 62 61 72 78 2d 62 75 74 74 6f 6e 2d 70 | 1......$\207".[toolbarx-button-p |
3b80 | 72 6f 70 73 20 74 6f 6f 6c 62 61 72 78 2d 64 72 6f 70 64 6f 77 6e 2d 70 72 6f 70 73 20 3a 64 72 | rops.toolbarx-dropdown-props.:dr |
3ba0 | 6f 70 64 6f 77 6e 2d 67 72 6f 75 70 20 74 6f 6f 6c 62 61 72 78 2d 70 72 6f 63 65 73 73 2d 64 72 | opdown-group.toolbarx-process-dr |
3bc0 | 6f 70 64 6f 77 6e 2d 67 72 6f 75 70 20 3a 65 76 61 6c 2d 67 72 6f 75 70 20 65 76 61 6c 20 74 20 | opdown-group.:eval-group.eval.t. |
3be0 | 74 6f 6f 6c 62 61 72 78 2d 70 72 6f 63 65 73 73 2d 67 72 6f 75 70 20 74 6f 6f 6c 62 61 72 78 2d | toolbarx-process-group.toolbarx- |
3c00 | 73 65 70 61 72 61 74 65 2d 6f 70 74 69 6f 6e 73 20 61 70 70 65 6e 64 20 74 6f 6f 6c 62 61 72 78 | separate-options.append.toolbarx |
3c20 | 2d 6d 65 72 67 65 2d 70 72 6f 70 73 20 32 20 33 20 3a 69 6e 73 65 72 74 20 3a 61 64 64 2d 76 61 | -merge-props.2.3.:insert.:add-va |
3c40 | 6c 75 65 2d 6c 69 73 74 20 6e 69 6c 20 62 75 74 6c 61 73 74 20 74 6f 6f 6c 62 61 72 78 2d 70 72 | lue-list.nil.butlast.toolbarx-pr |
3c60 | 6f 63 65 73 73 2d 67 72 6f 75 70 2d 77 69 74 68 6f 75 74 2d 69 6e 73 65 72 74 5d 20 31 36 20 28 | ocess-group-without-insert].16.( |
3c80 | 23 24 20 2e 20 31 34 31 35 36 29 5d 29 0a 23 40 35 32 30 20 50 72 6f 63 65 73 73 20 61 20 62 75 | #$...14156)]).#@520.Process.a.bu |
3ca0 | 74 74 6f 6e 20 67 69 76 65 6e 20 62 79 20 53 59 4d 42 4f 4c 20 69 6e 20 4d 45 41 4e 49 4e 47 2d | tton.given.by.SYMBOL.in.MEANING- |
3cc0 | 41 4c 49 53 54 2e 0a 54 68 65 20 70 72 6f 63 65 73 73 65 64 20 62 75 74 74 6f 6e 20 69 73 20 61 | ALIST..The.processed.button.is.a |
3ce0 | 70 70 65 6e 64 65 64 20 69 6e 20 53 57 49 54 43 48 45 53 2c 20 77 68 69 63 68 20 69 73 20 72 65 | ppended.in.SWITCHES,.which.is.re |
3d00 | 74 75 72 6e 65 64 2e 0a 4c 6f 6f 6b 20 66 6f 72 20 61 20 61 73 73 6f 63 69 61 74 69 6f 6e 20 6f | turned..Look.for.a.association.o |
3d20 | 66 20 53 59 4d 42 4f 4c 20 69 6e 20 4d 45 41 4e 49 4e 47 2d 41 4c 49 53 54 20 66 6f 72 20 63 6f | f.SYMBOL.in.MEANING-ALIST.for.co |
3d40 | 6c 6c 65 63 74 69 6e 67 0a 70 72 6f 70 65 72 74 69 65 73 2e 20 20 53 75 63 68 20 61 73 73 6f 63 | llecting.properties...Such.assoc |
3d60 | 69 61 74 69 6f 6e 20 69 73 20 61 20 6c 69 73 74 20 74 68 61 74 20 72 65 70 72 65 73 65 6e 74 73 | iation.is.a.list.that.represents |
3d80 | 20 65 69 74 68 65 72 20 61 0a 6e 6f 72 6d 61 6c 20 62 75 74 74 6f 6e 20 28 61 20 64 65 73 63 72 | .either.a.normal.button.(a.descr |
3da0 | 69 70 74 69 6f 6e 20 6f 66 20 74 68 65 20 62 75 74 74 6f 6e 29 20 6f 72 20 61 6e 20 61 6c 69 61 | iption.of.the.button).or.an.alia |
3dc0 | 73 0a 67 72 6f 75 70 20 28 74 68 65 20 73 79 6d 62 6f 6c 20 69 73 20 61 6e 20 61 6c 69 61 73 20 | s.group.(the.symbol.is.an.alias. |
3de0 | 66 6f 72 20 61 20 67 72 6f 75 70 20 6f 66 20 62 75 74 74 6f 6e 73 29 2e 20 20 50 52 4f 50 53 20 | for.a.group.of.buttons)...PROPS. |
3e00 | 69 73 0a 61 20 65 78 74 65 72 6e 65 6c 20 6c 69 73 74 20 6f 66 20 70 72 6f 70 65 72 74 69 65 73 | is.a.externel.list.of.properties |
3e20 | 20 74 68 61 74 20 61 72 65 20 6d 65 72 67 65 64 20 61 6e 64 20 74 68 65 6e 20 61 70 70 6c 69 65 | .that.are.merged.and.then.applie |
3e40 | 64 20 74 6f 0a 74 68 65 20 62 75 74 74 6f 6e 2e 20 20 53 63 6f 70 65 20 69 73 20 67 69 76 65 6e | d.to.the.button...Scope.is.given |
3e60 | 20 62 79 20 47 4c 4f 42 41 4c 2d 46 4c 41 47 2e 0a 0a 28 66 6e 20 53 59 4d 42 4f 4c 20 4d 45 41 | .by.GLOBAL-FLAG...(fn.SYMBOL.MEA |
3e80 | 4e 49 4e 47 2d 41 4c 49 53 54 20 50 52 4f 50 53 20 53 57 49 54 43 48 45 53 29 1f 0a 28 64 65 66 | NING-ALIST.PROPS.SWITCHES)..(def |
3ea0 | 61 6c 69 61 73 20 27 74 6f 6f 6c 62 61 72 78 2d 70 72 6f 63 65 73 73 2d 73 79 6d 62 6f 6c 20 23 | alias.'toolbarx-process-symbol.# |
3ec0 | 5b 31 30 32 38 20 22 03 03 5c 32 33 36 41 5c 32 31 31 40 5c 33 30 32 3d 5c 32 30 33 13 00 5c 33 | [1028."..\236A\211@\302=\203..\3 |
3ee0 | 30 33 01 41 05 05 05 24 5c 32 30 37 5c 33 30 34 08 38 5c 33 30 35 08 38 5c 33 30 36 03 5c 33 30 | 03.A...$\207\304.8\305.8\306.\30 |
3f00 | 37 08 41 40 09 41 40 5c 22 5c 22 5c 32 31 31 40 01 41 5c 33 31 30 01 3e 3f 5c 32 30 35 3a 00 01 | 7.A@.A@\"\"\211@.A\310.>?\205:.. |
3f20 | 47 5c 33 31 31 56 5c 32 30 35 3a 00 5c 33 31 30 02 40 44 5c 33 31 32 02 3e 3f 5c 32 30 35 4d 00 | G\311V\205:.\310.@D\312.>?\205M. |
3f40 | 02 47 5c 33 31 33 56 5c 32 30 35 4d 00 5c 33 31 32 03 41 40 44 5c 33 30 37 03 03 03 23 5c 33 31 | .G\313V\205M.\312.A@D\307...#\31 |
3f60 | 34 01 06 5c 66 06 5c 6e 06 5c 6e 24 06 0d 01 42 06 0b 5c 32 33 37 42 5c 32 33 37 5c 32 30 37 22 | 4..\f.\n.\n$...B..\237B\237\207" |
3f80 | 20 5b 74 6f 6f 6c 62 61 72 78 2d 62 75 74 74 6f 6e 2d 70 72 6f 70 73 20 74 6f 6f 6c 62 61 72 78 | .[toolbarx-button-props.toolbarx |
3fa0 | 2d 64 72 6f 70 64 6f 77 6e 2d 70 72 6f 70 73 20 3a 61 6c 69 61 73 20 74 6f 6f 6c 62 61 72 78 2d | -dropdown-props.:alias.toolbarx- |
3fc0 | 70 72 6f 63 65 73 73 2d 67 72 6f 75 70 20 32 20 33 20 74 6f 6f 6c 62 61 72 78 2d 73 65 70 61 72 | process-group.2.3.toolbarx-separ |
3fe0 | 61 74 65 2d 6f 70 74 69 6f 6e 73 20 61 70 70 65 6e 64 20 3a 69 6d 61 67 65 20 30 20 3a 63 6f 6d | ate-options.append.:image.0.:com |
4000 | 6d 61 6e 64 20 31 20 74 6f 6f 6c 62 61 72 78 2d 6d 65 72 67 65 2d 70 72 6f 70 73 5d 20 31 38 20 | mand.1.toolbarx-merge-props].18. |
4020 | 28 23 24 20 2e 20 31 35 35 30 38 29 5d 29 0a 23 40 33 38 35 20 50 72 6f 63 65 73 73 20 62 75 74 | (#$...15508)]).#@385.Process.but |
4040 | 74 6f 6e 73 20 74 68 61 74 20 61 70 70 65 61 72 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 64 72 | tons.that.appear.according.to.dr |
4060 | 6f 70 64 6f 77 6e 20 6d 65 6e 75 2e 0a 50 72 6f 63 65 73 73 20 61 20 64 72 6f 70 64 6f 77 6e 20 | opdown.menu..Process.a.dropdown. |
4080 | 67 72 6f 75 70 20 44 52 4f 50 44 4f 57 4e 20 77 69 74 68 20 6d 65 61 6e 69 6e 67 20 61 6c 69 73 | group.DROPDOWN.with.meaning.alis |
40a0 | 74 0a 4d 45 41 4e 49 4e 47 2d 41 4c 49 53 54 2c 20 65 78 74 65 72 6e 61 6c 20 70 72 6f 70 65 72 | t.MEANING-ALIST,.external.proper |
40c0 | 74 79 20 6c 69 73 74 20 50 52 4f 50 20 61 6e 64 20 47 4c 4f 42 41 4c 2d 46 4c 41 47 0a 73 70 65 | ty.list.PROP.and.GLOBAL-FLAG.spe |
40e0 | 63 69 66 79 69 6e 67 20 73 63 6f 70 65 2e 20 46 6f 72 20 61 20 63 6f 6d 70 6c 65 74 65 20 64 65 | cifying.scope..For.a.complete.de |
4100 | 73 63 72 69 70 74 69 6f 6e 2c 20 73 65 65 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 0a 6f 66 20 | scription,.see.documentation.of. |
4120 | 60 74 6f 6f 6c 62 61 72 78 2d 69 6e 73 74 61 6c 6c 2d 74 6f 6f 6c 62 61 72 27 2e 20 20 54 68 65 | `toolbarx-install-toolbar'...The |
4140 | 20 70 72 6f 63 65 73 73 65 64 20 62 75 74 74 6f 6e 73 20 61 72 65 20 73 74 6f 72 65 64 0a 69 6e | .processed.buttons.are.stored.in |
4160 | 20 74 68 65 20 65 6e 64 20 6f 66 20 53 57 49 54 43 48 45 53 2c 20 77 68 69 63 68 20 69 73 20 72 | .the.end.of.SWITCHES,.which.is.r |
4180 | 65 74 75 72 6e 65 64 2e 0a 0a 28 66 6e 20 44 52 4f 50 44 4f 57 4e 20 4d 45 41 4e 49 4e 47 2d 41 | eturned...(fn.DROPDOWN.MEANING-A |
41a0 | 4c 49 53 54 20 50 52 4f 50 53 20 53 57 49 54 43 48 45 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 | LIST.PROPS.SWITCHES)..(defalias. |
41c0 | 27 74 6f 6f 6c 62 61 72 78 2d 70 72 6f 63 65 73 73 2d 64 72 6f 70 64 6f 77 6e 2d 67 72 6f 75 70 | 'toolbarx-process-dropdown-group |
41e0 | 20 23 5b 31 30 32 38 20 22 03 40 5c 33 30 32 3d 5c 32 30 33 5c 66 00 03 41 5c 32 30 32 0d 00 03 | .#[1028.".@\302=\203\f..A\202... |
4200 | 5c 33 30 33 01 5c 33 30 34 08 41 40 09 41 40 5c 22 5c 22 5c 32 31 31 40 01 41 5c 33 30 35 01 06 | \303.\304.A@.A@\"\"\211@.A\305.. |
4220 | 07 5c 33 30 34 5c 33 30 36 08 38 5c 33 30 36 09 38 5c 22 5c 33 30 34 5c 33 30 37 08 38 5c 33 30 | .\304\306.8\306.8\"\304\307.8\30 |
4240 | 37 09 38 5c 22 24 5c 33 31 30 5c 32 31 31 08 41 40 5c 32 31 31 5c 32 30 33 56 00 5c 32 31 31 40 | 7.8\"$\310\211.A@\211\203V.\211@ |
4260 | 5c 32 31 31 05 3e 5c 32 36 32 03 02 5c 32 30 33 4f 00 5c 33 30 34 01 04 41 40 44 05 5c 22 5c 32 | \211.>\262..\203O.\304..A@D.\"\2 |
4280 | 36 32 04 01 41 5c 32 36 36 5c 32 30 32 5c 32 30 32 36 00 02 5c 32 36 32 01 5c 32 36 36 5c 32 30 | 62..A\266\202\2026..\262.\266\20 |
42a0 | 32 5c 33 31 30 5c 32 31 31 09 41 40 5c 32 31 31 5c 32 30 33 5c 32 30 31 00 5c 32 31 31 40 5c 32 | 2\310\211.A@\211\203\201.\211@\2 |
42c0 | 31 31 06 06 3e 5c 32 36 32 03 02 5c 32 30 33 7a 00 5c 33 30 34 01 04 41 40 44 05 5c 22 5c 32 36 | 11..>\262..\203z.\304..A@D.\"\26 |
42e0 | 32 04 01 41 5c 32 36 36 5c 32 30 32 5c 32 30 32 60 00 02 5c 32 36 32 01 5c 32 36 36 5c 32 30 32 | 2..A\266\202\202`..\262.\266\202 |
4300 | 5c 33 31 30 5c 32 31 31 5c 32 31 31 5c 33 31 31 20 5c 33 31 32 5c 33 31 33 02 5c 22 5c 32 31 36 | \310\211\211\311.\312\313.\"\216 |
4320 | 09 40 5c 32 31 31 5c 32 30 33 5c 33 33 32 00 5c 32 31 31 40 5c 33 31 34 5c 33 31 35 5c 33 31 36 | .@\211\203\332.\211@\314\315\316 |
4340 | 03 40 21 5c 22 5c 32 30 34 5c 33 32 33 00 5c 32 31 31 40 06 07 3e 5c 32 36 32 04 03 5c 32 30 33 | .@!\"\204\323.\211@..>\262..\203 |
4360 | 5c 33 32 33 00 5c 32 31 31 41 40 04 41 40 21 5c 32 36 32 05 04 40 5c 32 30 33 5c 33 31 32 00 5c | \323.\211A@.A@!\262..@\203\312.\ |
4380 | 33 30 34 06 06 02 40 06 07 41 44 5c 22 5c 32 36 32 06 5c 32 30 32 5c 33 32 33 00 5c 33 31 37 5c | 304...@..AD\"\262.\202\323.\317\ |
43a0 | 33 32 30 5c 33 32 31 5c 33 32 32 04 40 5c 22 5c 22 5c 32 31 30 01 41 5c 32 36 36 5c 32 30 32 5c | 320\321\322.@\"\"\210.A\266\202\ |
43c0 | 32 30 32 5c 32 32 32 00 04 5c 32 36 32 01 29 5c 32 36 32 01 5c 32 36 36 5c 32 30 33 5c 33 31 30 | 202\222..\262.)\262.\266\203\310 |
43e0 | 5c 33 31 31 20 5c 33 31 32 5c 33 32 33 02 5c 22 5c 32 31 36 09 41 40 5c 32 31 31 5c 32 30 33 27 | \311.\312\323.\"\216.A@\211\203' |
4400 | 01 5c 32 31 31 40 5c 32 31 31 06 06 3e 5c 32 30 33 20 01 5c 33 31 34 5c 33 32 34 5c 33 31 36 03 | .\211@\211..>\203..\314\324\316. |
4420 | 21 5c 22 5c 32 30 33 20 01 5c 33 32 35 5c 33 32 36 5c 33 31 36 03 21 5c 33 32 37 5c 32 32 34 5c | !\"\203..\325\326\316.!\327\224\ |
4440 | 33 32 37 5c 32 32 35 4f 50 21 01 06 07 3e 41 40 5c 33 30 34 02 02 44 06 07 5c 22 5c 32 36 32 06 | 327\225OP!...>A@\304..D..\"\262. |
4460 | 5c 32 36 36 02 01 41 5c 32 36 36 5c 32 30 32 5c 32 30 32 5c 33 35 35 00 5c 32 31 30 29 5c 32 31 | \266..A\266\202\202\355.\210)\21 |
4480 | 30 5c 33 33 30 01 3e 5c 32 30 34 38 01 5c 33 30 34 5c 33 33 30 5c 33 33 31 44 02 5c 22 5c 32 36 | 0\330.>\2048.\304\330\331D.\"\26 |
44a0 | 32 01 5c 32 31 31 5c 32 36 32 01 5c 33 33 32 01 42 5c 33 33 33 03 3e 5c 32 30 33 4c 01 5c 33 33 | 2.\211\262.\332.B\333.>\203L.\33 |
44c0 | 33 03 3e 41 40 5c 32 30 32 4d 01 5c 33 33 34 5c 33 33 35 04 3e 5c 32 31 31 41 40 01 5c 32 30 33 | 3.>A@\202M.\334\335.>\211A@.\203 |
44e0 | 5d 01 5c 32 31 31 5c 32 36 36 5c 32 30 32 5c 32 30 32 6d 01 02 5c 33 33 34 3d 5c 32 30 33 69 01 | ].\211\266\202\202m..\334=\203i. |
4500 | 5c 32 36 36 02 5c 33 32 37 5c 32 30 32 6d 01 5c 33 32 37 43 5c 32 36 36 5c 32 30 32 5c 33 33 36 | \266.\327\202m.\327C\266\202\336 |
4520 | 05 3e 5c 32 30 35 78 01 5c 33 33 36 05 3e 41 40 5c 32 31 31 5c 32 30 33 5c 32 31 34 01 5c 33 33 | .>\205x.\336.>A@\211\203\214.\33 |
4540 | 37 06 06 3e 5c 32 30 34 5c 32 31 34 01 5c 33 31 37 5c 33 32 30 5c 33 34 30 5c 22 5c 32 31 30 5c | 7..>\204\214.\317\320\340\"\210\ |
4560 | 33 31 30 5c 32 30 32 5c 32 31 35 01 5c 32 31 31 5c 32 36 32 01 5c 33 34 31 06 06 3e 5c 32 30 35 | 310\202\215.\211\262.\341..>\205 |
4580 | 5c 32 33 34 01 5c 33 34 31 06 06 3e 41 40 5c 33 33 37 06 07 3e 5c 32 30 33 5c 32 35 34 01 5c 33 | \234.\341..>A@\337..>\203\254.\3 |
45a0 | 33 37 06 07 3e 41 40 5c 32 30 32 5c 33 31 32 01 5c 33 34 32 5c 33 32 35 5c 33 32 31 5c 33 34 33 | 37..>A@\202\312.\342\325\321\343 |
45c0 | 5c 33 34 32 5c 22 21 5c 33 34 34 01 21 5c 32 30 33 5c 33 31 30 01 01 54 5c 32 36 32 02 5c 33 32 | \342\"!\344.!\203\310..T\262.\32 |
45e0 | 35 5c 33 32 31 5c 33 34 33 04 5c 22 21 5c 32 36 32 01 5c 32 30 32 5c 32 36 33 01 5c 32 36 32 01 | 5\321\343.\"!\262.\202\263.\262. |
4600 | 5c 33 31 30 5c 32 31 31 04 5c 32 30 33 5c 33 33 32 01 5c 33 34 35 03 06 07 5c 33 34 36 23 5c 32 | \310\211.\203\332.\345...\346#\2 |
4620 | 31 30 5c 32 30 32 5c 33 34 35 01 5c 33 34 34 03 21 5c 32 30 34 5c 33 34 35 01 02 06 06 4c 5c 32 | 10\202\345.\344.!\204\345....L\2 |
4640 | 31 30 02 5c 32 31 31 4a 06 08 5c 33 34 37 3d 5c 32 30 33 07 02 5c 32 31 31 3c 5c 32 30 33 5c 33 | 10.\211J..\347=\203..\211<\203\3 |
4660 | 37 30 01 5c 32 31 31 5c 32 30 32 25 02 5c 32 31 31 5c 32 35 30 5c 32 30 33 02 02 5c 32 31 31 43 | 70.\211\202%.\211\250\203..\211C |
4680 | 5c 32 30 32 25 02 5c 33 32 37 43 5c 32 30 32 25 02 5c 32 31 31 5c 32 35 30 5c 32 30 33 10 02 5c | \202%.\327C\202%.\211\250\203..\ |
46a0 | 32 31 31 5c 32 30 32 25 02 5c 32 31 31 5c 32 30 33 24 02 5c 32 31 31 3c 5c 32 30 33 24 02 5c 32 | 211\202%.\211\203$.\211<\203$.\2 |
46c0 | 31 31 40 5c 32 35 30 5c 32 30 33 24 02 5c 32 31 31 40 5c 32 30 32 25 02 5c 33 32 37 5c 32 36 32 | 11@\250\203$.\211@\202%.\327\262 |
46e0 | 01 4c 5c 32 31 30 5c 33 35 30 06 0f 5c 32 31 31 5c 32 30 33 41 02 5c 32 31 31 40 02 5c 32 30 35 | .L\210\350..\211\203A.\211@.\205 |
4700 | 38 02 5c 32 31 31 39 5c 32 36 32 03 01 41 5c 32 36 36 5c 32 30 32 5c 32 30 32 2c 02 01 5c 32 36 | 8.\2119\262..A\266\202\202,..\26 |
4720 | 32 01 5c 32 36 32 01 5c 32 30 33 5c 32 30 34 02 5c 33 34 32 06 0f 5c 32 31 31 5c 32 30 33 7f 02 | 2.\262.\203\204.\342..\211\203.. |
4740 | 5c 32 31 31 40 5c 33 35 31 01 21 05 42 5c 32 36 32 05 02 54 5c 32 36 32 03 5c 32 31 31 5c 33 35 | \211@\351.!.B\262..T\262.\211\35 |
4760 | 32 06 0b 5c 33 33 34 3d 5c 32 30 33 6e 02 5c 33 35 33 05 06 09 45 5c 32 30 32 73 02 5c 33 35 34 | 2..\334=\203n.\353...E\202s.\354 |
4780 | 05 06 09 45 45 04 42 5c 32 36 32 04 01 41 5c 32 36 36 5c 32 30 32 5c 32 30 32 4c 02 5c 32 36 36 | ...EE.B\262..A\266\202\202L.\266 |
47a0 | 02 5c 32 30 32 5c 6e 03 06 0e 40 3b 5c 32 30 34 5c 32 32 32 02 5c 33 35 35 5c 33 35 36 5c 33 35 | .\202\n...@;\204\222.\355\356\35 |
47c0 | 37 5c 33 36 30 5c 33 36 31 24 5c 32 31 30 5c 33 34 32 5c 33 31 30 5c 32 31 31 06 11 5c 32 30 33 | 7\360\361$\210\342\310\211..\203 |
47e0 | 5c 33 34 34 02 06 11 40 5c 32 36 32 02 06 11 41 5c 32 36 32 12 01 3b 5c 32 30 33 5c 33 33 34 02 | \344...@\262...A\262..;\203\334. |
4800 | 01 05 42 5c 32 36 32 05 5c 32 31 31 5c 32 30 33 5c 33 32 32 02 5c 33 30 34 01 5c 32 33 37 5c 33 | ..B\262.\211\203\322.\304.\237\3 |
4820 | 35 32 06 5c 66 5c 33 33 34 3d 5c 32 30 33 5c 33 30 36 02 5c 33 35 33 06 06 06 5c 6e 45 5c 32 30 | 52.\f\334=\203\306.\353...\nE\20 |
4840 | 32 5c 33 31 34 02 5c 33 35 34 06 06 06 5c 6e 45 44 5c 22 04 42 5c 32 36 32 04 5c 33 31 30 5c 32 | 2\314.\354...\nED\".B\262.\310\2 |
4860 | 36 32 01 02 54 5c 32 36 32 03 5c 32 30 32 5c 32 32 35 02 01 01 42 5c 32 36 32 01 5c 32 30 32 5c | 62..T\262.\202\225...B\262.\202\ |
4880 | 32 32 35 02 5c 32 31 31 5c 32 30 33 08 03 5c 33 30 34 01 5c 32 33 37 5c 33 35 32 06 5c 66 5c 33 | 225.\211\203..\304.\237\352.\f\3 |
48a0 | 33 34 3d 5c 32 30 33 5c 33 37 34 02 5c 33 35 33 06 06 06 5c 6e 45 5c 32 30 32 02 03 5c 33 35 34 | 34=\203\374.\353...\nE\202..\354 |
48c0 | 06 06 06 5c 6e 45 44 5c 22 04 42 5c 32 36 32 04 5c 32 36 36 03 01 5c 32 33 37 5c 32 36 32 02 5c | ...\nED\".B\262.\266..\237\262.\ |
48e0 | 32 31 31 5c 32 33 37 5c 32 36 32 01 06 11 5c 33 36 32 02 06 16 06 10 06 16 24 5c 32 36 32 01 5c | 211\237\262...\362.......$\262.\ |
4900 | 33 36 32 5c 33 30 34 06 5c 6e 5c 33 36 33 5c 33 36 34 06 07 06 09 06 0e 06 5c 66 06 0e 25 44 5c | 362\304.\n\363\364.......\f..%D\ |
4920 | 22 06 16 06 0f 06 16 24 5c 32 30 37 22 20 5b 74 6f 6f 6c 62 61 72 78 2d 62 75 74 74 6f 6e 2d 70 | "......$\207".[toolbarx-button-p |
4940 | 72 6f 70 73 20 74 6f 6f 6c 62 61 72 78 2d 64 72 6f 70 64 6f 77 6e 2d 70 72 6f 70 73 20 3a 64 72 | rops.toolbarx-dropdown-props.:dr |
4960 | 6f 70 64 6f 77 6e 2d 67 72 6f 75 70 20 74 6f 6f 6c 62 61 72 78 2d 73 65 70 61 72 61 74 65 2d 6f | opdown-group.toolbarx-separate-o |
4980 | 70 74 69 6f 6e 73 20 61 70 70 65 6e 64 20 74 6f 6f 6c 62 61 72 78 2d 6d 65 72 67 65 2d 70 72 6f | ptions.append.toolbarx-merge-pro |
49a0 | 70 73 20 32 20 33 20 6e 69 6c 20 6d 61 74 63 68 2d 64 61 74 61 20 6d 61 6b 65 2d 63 6c 6f 73 75 | ps.2.3.nil.match-data.make-closu |
49c0 | 72 65 20 23 5b 30 20 22 5c 33 30 31 5c 33 30 30 5c 33 30 32 5c 22 5c 32 30 37 22 20 5b 56 30 20 | re.#[0."\301\300\302\"\207".[V0. |
49e0 | 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 65 76 61 70 6f 72 61 74 65 5d 20 33 5d 20 73 74 72 | set-match-data.evaporate].3].str |
4a00 | 69 6e 67 2d 6d 61 74 63 68 20 22 5e 3a 64 72 6f 70 64 6f 77 6e 2d 2e 2a 24 22 20 73 79 6d 62 6f | ing-match."^:dropdown-.*$".symbo |
4a20 | 6c 2d 6e 61 6d 65 20 64 69 73 70 6c 61 79 2d 77 61 72 6e 69 6e 67 20 74 6f 6f 6c 62 61 72 78 20 | l-name.display-warning.toolbarx. |
4a40 | 66 6f 72 6d 61 74 20 22 57 72 6f 6e 67 20 74 79 70 65 20 66 6f 72 20 76 61 6c 75 65 20 69 6e 20 | format."Wrong.type.for.value.in. |
4a60 | 70 72 6f 70 65 72 74 79 20 60 25 73 27 20 69 6e 20 64 72 6f 70 64 6f 77 6e 20 67 72 6f 75 70 22 | property.`%s'.in.dropdown.group" |
4a80 | 20 23 5b 30 20 22 5c 33 30 31 5c 33 30 30 5c 33 30 32 5c 22 5c 32 30 37 22 20 5b 56 30 20 73 65 | .#[0."\301\300\302\"\207".[V0.se |
4aa0 | 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 65 76 61 70 6f 72 61 74 65 5d 20 33 5d 20 22 5e 3a 64 72 | t-match-data.evaporate].3]."^:dr |
4ac0 | 6f 70 64 6f 77 6e 2d 5c 5c 28 2e 2a 5c 5c 29 24 22 20 69 6e 74 65 72 6e 20 22 3a 22 20 31 20 3a | opdown-\\(.*\\)$".intern.":".1.: |
4ae0 | 69 6d 61 67 65 20 22 64 72 6f 70 64 6f 77 6e 22 20 64 72 6f 70 64 6f 77 6e 20 3a 74 79 70 65 20 | image."dropdown".dropdown.:type. |
4b00 | 72 61 64 69 6f 20 3a 64 65 66 61 75 6c 74 20 3a 73 61 76 65 20 3a 76 61 72 69 61 62 6c 65 20 22 | radio.:default.:save.:variable." |
4b20 | 60 3a 73 61 76 65 27 20 70 72 6f 70 65 72 74 79 20 77 69 74 68 20 6e 6f 6e 2d 6e 69 6c 20 76 61 | `:save'.property.with.non-nil.va |
4b40 | 6c 75 65 20 73 68 6f 75 6c 64 20 62 65 20 75 73 65 64 20 6f 6e 6c 79 20 77 69 74 68 20 74 68 65 | lue.should.be.used.only.with.the |
4b60 | 20 60 3a 76 61 72 69 61 62 6c 65 27 20 70 72 6f 70 65 72 74 79 3b 20 75 73 69 6e 67 20 76 61 6c | .`:variable'.property;.using.val |
4b80 | 75 65 20 6e 69 6c 20 66 6f 72 20 60 3a 73 61 76 65 27 2e 22 20 3a 74 69 74 6c 65 20 30 20 22 74 | ue.nil.for.`:save'.".:title.0."t |
4ba0 | 6f 6f 6c 62 61 72 78 2d 69 6e 74 65 72 6e 61 6c 2d 6d 65 6e 75 2d 76 61 72 2d 25 64 22 20 62 6f | oolbarx-internal-menu-var-%d".bo |
4bc0 | 75 6e 64 70 20 63 75 73 74 6f 6d 2d 64 65 63 6c 61 72 65 2d 76 61 72 69 61 62 6c 65 20 22 55 73 | undp.custom-declare-variable."Us |
4be0 | 65 64 20 61 73 20 76 61 72 69 61 62 6c 65 20 6f 66 20 64 72 6f 70 64 6f 77 6e 20 6d 65 6e 75 20 | ed.as.variable.of.dropdown.menu. |
4c00 | 64 65 66 69 6e 65 64 20 77 69 74 68 20 60 74 6f 6f 6c 62 61 72 78 27 2e 22 20 74 6f 67 67 6c 65 | defined.with.`toolbarx'.".toggle |
4c20 | 20 74 20 74 6f 6f 6c 62 61 72 78 2d 6d 61 6b 65 2d 73 74 72 69 6e 67 2d 66 72 6f 6d 2d 73 79 6d | .t.toolbarx-make-string-from-sym |
4c40 | 62 6f 6c 20 3a 69 6e 73 65 72 74 20 65 71 20 6d 65 6d 71 20 65 72 72 6f 72 20 22 25 73 20 25 73 | bol.:insert.eq.memq.error."%s.%s |
4c60 | 20 25 73 22 20 22 49 66 20 6e 6f 74 20 61 6c 6c 20 69 74 65 6d 73 20 6f 6e 20 64 72 6f 70 64 6f | .%s"."If.not.all.items.on.dropdo |
4c80 | 77 6e 20 61 72 65 20 73 79 6d 62 6f 6c 73 2c 20 74 68 65 6e 20 61 20 73 74 72 69 6e 67 22 20 22 | wn.are.symbols,.then.a.string"." |
4ca0 | 6d 75 73 74 20 63 6f 6d 65 20 62 65 66 6f 72 65 20 65 61 63 68 20 73 65 74 20 6f 66 20 62 75 74 | must.come.before.each.set.of.but |
4cc0 | 74 6f 6e 73 3b 20 6e 6f 20 73 74 72 69 6e 67 20 66 6f 75 6e 64 22 20 22 69 6e 20 66 69 72 73 74 | tons;.no.string.found"."in.first |
4ce0 | 20 70 6f 73 69 74 69 6f 6e 22 20 74 6f 6f 6c 62 61 72 78 2d 70 72 6f 63 65 73 73 2d 67 72 6f 75 | .position".toolbarx-process-grou |
4d00 | 70 20 3a 63 6f 6d 6d 61 6e 64 20 74 6f 6f 6c 62 61 72 78 2d 6d 6f 75 6e 74 2d 70 6f 70 75 70 2d | p.:command.toolbarx-mount-popup- |
4d20 | 6d 65 6e 75 5d 20 33 32 20 28 23 24 20 2e 20 31 36 34 33 37 29 5d 29 0a 23 40 32 36 36 20 52 65 | menu].32.(#$...16437)]).#@266.Re |
4d40 | 74 75 72 6e 20 69 6d 61 67 65 20 64 65 73 63 72 69 70 74 6f 72 20 6f 72 20 67 6c 79 70 68 20 66 | turn.image.descriptor.or.glyph.f |
4d60 | 6f 72 20 49 4d 41 47 45 2e 0a 0a 49 4d 41 47 45 20 69 73 20 73 74 72 69 6e 67 2e 20 20 55 73 75 | or.IMAGE...IMAGE.is.string...Usu |
4d80 | 61 6c 6c 79 20 49 4d 41 47 45 20 6e 65 69 74 68 65 72 20 63 6f 6e 74 61 69 6e 73 20 61 20 64 69 | ally.IMAGE.neither.contains.a.di |
4da0 | 72 65 63 74 6f 72 79 20 6e 6f 72 0a 61 6e 20 65 78 74 65 6e 73 69 6f 6e 2e 20 20 49 66 20 74 68 | rectory.nor.an.extension...If.th |
4dc0 | 65 20 65 78 74 65 6e 73 69 6f 6e 20 69 73 20 6f 6d 69 74 74 65 64 2c 20 60 78 70 6d 27 2c 20 60 | e.extension.is.omitted,.`xpm',.` |
4de0 | 78 62 6d 27 20 61 6e 64 0a 60 70 62 6d 27 20 61 72 65 20 74 72 69 65 64 2e 20 20 49 66 20 74 68 | xbm'.and.`pbm'.are.tried...If.th |
4e00 | 65 20 64 69 72 65 63 74 6f 72 79 20 69 73 20 6f 6d 69 74 74 65 64 2c 0a 60 74 6f 6f 6c 62 61 72 | e.directory.is.omitted,.`toolbar |
4e20 | 78 2d 69 6d 61 67 65 2d 70 61 74 68 27 20 69 73 20 73 65 61 72 63 68 65 64 2e 0a 0a 28 66 6e 20 | x-image-path'.is.searched...(fn. |
4e40 | 49 4d 41 47 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 74 6f 6f 6c 62 61 72 78 2d 66 69 6e 64 | IMAGE)..(defalias.'toolbarx-find |
4e60 | 2d 69 6d 61 67 65 20 23 5b 32 35 37 20 22 5c 33 30 31 5c 33 30 32 5c 32 31 31 5c 32 30 33 1c 00 | -image.#[257."\301\302\211\203.. |
4e80 | 5c 32 31 31 40 02 5c 32 30 34 15 00 5c 33 30 33 04 02 50 5c 33 30 34 08 23 5c 32 36 32 03 01 41 | \211@.\204..\303..P\304.#\262..A |
4ea0 | 5c 32 36 36 5c 32 30 32 5c 32 30 32 02 00 5c 32 31 30 5c 32 31 31 5c 32 30 33 25 00 5c 33 30 35 | \266\202\202..\210\211\203%.\305 |
4ec0 | 01 21 5c 32 30 37 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 33 31 31 05 5c 33 31 32 50 46 5c 33 30 | .!\207\306\307\310\311.\312PF\30 |
4ee0 | 37 5c 33 31 33 5c 33 31 31 06 06 5c 33 31 34 50 46 5c 33 30 37 5c 33 31 35 5c 33 31 31 06 07 5c | 7\313\311..\314PF\307\315\311..\ |
4f00 | 33 31 36 50 46 45 21 5c 32 30 37 22 20 5b 74 6f 6f 6c 62 61 72 78 2d 69 6d 61 67 65 2d 70 61 74 | 316PFE!\207".[toolbarx-image-pat |
4f20 | 68 20 6e 69 6c 20 28 22 22 20 22 2e 78 70 6d 22 20 22 2e 78 62 6d 22 20 22 2e 70 62 6d 22 29 20 | h.nil.("".".xpm".".xbm".".pbm"). |
4f40 | 6c 6f 63 61 74 65 2d 6c 69 62 72 61 72 79 20 74 20 63 72 65 61 74 65 2d 69 6d 61 67 65 20 66 69 | locate-library.t.create-image.fi |
4f60 | 6e 64 2d 69 6d 61 67 65 20 3a 74 79 70 65 20 78 70 6d 20 3a 66 69 6c 65 20 22 2e 78 70 6d 22 20 | nd-image.:type.xpm.:file.".xpm". |
4f80 | 78 62 6d 20 22 2e 78 62 6d 22 20 70 62 6d 20 22 2e 70 62 6d 22 5d 20 31 30 20 28 23 24 20 2e 20 | xbm.".xbm".pbm.".pbm"].10.(#$... |
4fa0 | 31 39 37 37 34 29 5d 29 0a 23 40 31 33 34 20 53 74 6f 72 65 20 74 68 65 20 6c 69 73 74 20 6f 66 | 19774)]).#@134.Store.the.list.of |
4fc0 | 20 70 72 6f 63 65 73 73 65 64 20 62 75 74 74 6f 6e 73 2c 20 75 73 65 64 20 62 79 20 60 74 6f 6f | .processed.buttons,.used.by.`too |
4fe0 | 6c 62 61 72 78 2d 72 65 66 72 65 73 68 27 2e 0a 54 68 69 73 20 76 61 72 69 61 62 6c 65 20 63 61 | lbarx-refresh'..This.variable.ca |
5000 | 6e 20 73 74 6f 72 65 20 64 69 66 66 65 72 65 6e 74 20 76 61 6c 75 65 73 20 66 6f 72 20 74 68 65 | n.store.different.values.for.the |
5020 | 20 64 69 66 66 65 72 65 6e 74 20 62 75 66 66 65 72 73 2e 1f 0a 28 64 65 66 76 61 72 20 74 6f 6f | .different.buffers...(defvar.too |
5040 | 6c 62 61 72 78 2d 69 6e 74 65 72 6e 61 6c 2d 62 75 74 74 6f 6e 2d 73 77 69 74 63 68 65 73 20 6e | lbarx-internal-button-switches.n |
5060 | 69 6c 20 28 23 24 20 2e 20 32 30 33 39 39 29 29 0a 23 40 38 31 34 20 49 6e 73 65 72 74 20 61 20 | il.(#$...20399)).#@814.Insert.a. |
5080 | 62 75 74 74 6f 6e 20 77 68 65 72 65 20 42 55 54 54 4f 4e 20 69 73 20 69 74 73 20 64 65 73 63 72 | button.where.BUTTON.is.its.descr |
50a0 | 69 70 74 69 6f 6e 2e 0a 55 53 45 44 2d 4b 45 59 53 20 73 68 6f 75 6c 64 20 62 65 20 61 20 6c 69 | iption..USED-KEYS.should.be.a.li |
50c0 | 73 74 20 6f 66 20 73 79 6d 62 6f 6c 73 2c 20 77 68 65 72 65 20 74 68 65 20 66 69 72 73 74 20 65 | st.of.symbols,.where.the.first.e |
50e0 | 6c 65 6d 65 6e 74 20 69 73 0a 60 3a 75 73 65 64 2d 73 79 6d 62 6f 6c 73 27 2e 20 20 54 68 69 73 | lement.is.`:used-symbols'...This |
5100 | 20 6c 69 73 74 20 73 68 6f 75 6c 64 20 73 74 6f 72 65 20 74 68 65 20 73 79 6d 62 6f 6c 73 20 6f | .list.should.store.the.symbols.o |
5120 | 66 20 74 68 65 0a 62 75 74 74 6f 6e 73 20 61 6c 72 65 61 64 79 20 69 6e 73 65 72 74 65 64 2e 20 | f.the.buttons.already.inserted.. |
5140 | 20 54 68 69 73 20 6c 69 73 74 20 69 73 20 63 68 61 6e 67 65 64 20 62 79 20 73 69 64 65 20 65 66 | .This.list.is.changed.by.side.ef |
5160 | 66 65 63 74 2e 0a 4b 45 59 4d 41 50 20 69 73 20 74 68 65 20 6b 65 79 6d 61 70 20 77 68 65 72 65 | fect..KEYMAP.is.the.keymap.where |
5180 | 20 74 68 65 20 6d 65 6e 75 2d 69 74 65 6d 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 74 6f 20 | .the.menu-item.corresponding.to. |
51a0 | 74 68 65 0a 74 6f 6f 6c 2d 62 61 6c 20 62 75 74 74 6f 6e 20 69 73 20 67 6f 69 6e 67 20 74 6f 20 | the.tool-bal.button.is.going.to. |
51c0 | 62 65 20 69 6e 73 65 72 74 65 64 2e 20 20 49 6e 73 65 72 74 69 6f 6e 20 69 73 20 6d 61 64 65 20 | be.inserted...Insertion.is.made. |
51e0 | 69 6e 0a 74 68 65 20 65 6e 64 20 6f 66 20 4b 45 59 4d 41 50 2e 0a 0a 42 55 54 54 4f 4e 20 73 68 | in.the.end.of.KEYMAP...BUTTON.sh |
5200 | 6f 75 6c 64 20 62 65 20 61 20 6c 69 73 74 20 6f 66 20 66 6f 72 6d 20 28 53 59 4d 42 4f 4c 20 2e | ould.be.a.list.of.form.(SYMBOL.. |
5220 | 20 50 52 4f 50 2d 4c 49 53 54 29 2e 20 20 53 59 4d 42 4f 4c 20 69 73 0a 61 20 73 79 6d 62 6f 6c | .PROP-LIST)...SYMBOL.is.a.symbol |
5240 | 20 74 68 61 74 20 22 6e 61 6d 65 73 22 20 74 68 69 73 20 62 75 74 74 6f 6e 2e 20 20 50 52 4f 50 | .that."names".this.button...PROP |
5260 | 2d 4c 49 53 54 20 69 73 20 61 20 6c 69 73 74 20 69 6e 20 74 68 65 0a 66 6f 72 6d 61 74 20 28 50 | -LIST.is.a.list.in.the.format.(P |
5280 | 52 4f 50 20 56 41 4c 20 2e 2e 2e 20 50 52 4f 50 20 56 41 4c 29 2e 20 20 54 68 65 20 73 75 70 70 | ROP.VAL.....PROP.VAL)...The.supp |
52a0 | 6f 72 74 65 64 20 70 72 6f 70 65 72 74 69 65 73 20 61 72 65 0a 60 3a 69 6d 61 67 65 27 2c 20 60 | orted.properties.are.`:image',.` |
52c0 | 3a 63 6f 6d 6d 61 6e 64 27 2c 20 60 3a 61 70 70 65 6e 64 2d 63 6f 6d 6d 61 6e 64 27 2c 20 60 3a | :command',.`:append-command',.`: |
52e0 | 70 72 65 70 65 6e 64 2d 63 6f 6d 6d 61 6e 64 27 2c 0a 60 3a 68 65 6c 70 27 2c 20 60 3a 65 6e 61 | prepend-command',.`:help',.`:ena |
5300 | 62 6c 65 27 2c 20 60 3a 76 69 73 69 62 6c 65 27 2c 20 60 3a 62 75 74 74 6f 6e 27 2c 20 61 6e 64 | ble',.`:visible',.`:button',.and |
5320 | 20 60 3a 69 6e 73 65 72 74 27 2e 0a 46 6f 72 20 61 20 64 65 73 63 72 69 70 74 69 6f 6e 20 6f 66 | .`:insert'..For.a.description.of |
5340 | 20 70 72 6f 70 65 72 74 69 65 73 2c 20 73 65 65 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 6f | .properties,.see.documentation.o |
5360 | 66 0a 66 75 6e 63 74 69 6f 6e 20 60 74 6f 6f 6c 62 61 72 2d 69 6e 73 74 61 6c 6c 2d 74 6f 6f 6c | f.function.`toolbar-install-tool |
5380 | 62 61 72 27 2e 0a 0a 28 66 6e 20 42 55 54 54 4f 4e 20 55 53 45 44 2d 4b 45 59 53 20 4b 45 59 4d | bar'...(fn.BUTTON.USED-KEYS.KEYM |
53a0 | 41 50 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 74 6f 6f 6c 62 61 72 78 2d 65 6d 61 63 73 2d 61 | AP)..(defalias.'toolbarx-emacs-a |
53c0 | 64 64 2d 62 75 74 74 6f 6e 20 23 5b 37 37 31 20 22 02 40 02 5c 32 30 35 08 00 02 41 5c 33 30 31 | dd-button.#[771.".@.\205...A\301 |
53e0 | 5c 32 31 31 5c 32 31 31 08 40 5c 32 31 31 5c 32 30 33 5c 32 32 35 00 5c 32 31 31 40 5c 32 31 31 | \211\211.@\211\203\225.\211@\211 |
5400 | 40 06 5c 6e 3e 5c 32 36 32 03 02 5c 32 30 33 5c 32 31 36 00 5c 32 31 31 41 41 5c 32 30 33 75 00 | @.\n>\262..\203\216.\211AA\203u. |
5420 | 02 41 40 40 5c 33 30 32 3d 5c 32 30 33 75 00 5c 32 31 31 41 41 43 03 41 40 41 5c 32 31 31 5c 32 | .A@@\302=\203u.\211AAC.A@A\211\2 |
5440 | 30 33 56 00 5c 32 31 31 40 03 41 40 01 21 5c 32 36 32 07 06 06 40 5c 32 30 33 4f 00 06 06 41 03 | 03V.\211@.A@.!\262...@\203O...A. |
5460 | 42 5c 32 36 32 03 01 41 5c 32 36 36 5c 32 30 32 5c 32 30 32 35 00 5c 32 31 30 5c 32 31 31 5c 32 | B\262..A\266\202\2025.\210\211\2 |
5480 | 33 37 5c 32 36 32 01 5c 32 31 31 47 5c 33 30 33 3d 5c 32 30 33 67 00 5c 32 31 31 41 40 5c 32 36 | 37\262.\211G\303=\203g.\211A@\26 |
54a0 | 32 01 5c 33 30 34 02 40 02 44 06 07 5c 22 5c 32 36 32 06 5c 32 31 30 5c 32 30 32 5c 32 31 36 00 | 2.\304.@.D..\"\262.\210\202\216. |
54c0 | 5c 32 31 31 41 40 03 41 40 21 5c 32 36 32 04 03 40 5c 32 30 33 5c 32 31 36 00 5c 33 30 34 01 40 | \211A@.A@!\262..@\203\216.\304.@ |
54e0 | 05 41 44 06 06 5c 22 5c 32 36 32 05 01 41 5c 32 36 36 5c 32 30 32 5c 32 30 32 0d 00 03 5c 32 36 | .AD..\"\262..A\266\202\202...\26 |
5500 | 32 01 5c 32 36 36 5c 32 30 33 5c 33 30 35 01 3e 3f 5c 32 30 36 5c 32 35 31 00 5c 33 30 36 5c 33 | 2.\266\203\305.>?\206\251.\306\3 |
5520 | 30 35 02 3e 41 40 5c 33 30 37 5c 22 5c 32 31 31 5c 32 30 33 5c 33 30 31 01 5c 33 31 30 02 3e 41 | 05.>A@\307\"\211\203\301.\310.>A |
5540 | 40 5c 33 31 30 03 3e 5c 32 30 35 5c 33 37 30 00 5c 32 31 31 3b 5c 32 30 33 5c 33 30 33 00 5c 33 | @\310.>\205\370.\211;\203\303.\3 |
5560 | 31 31 01 21 5c 32 30 32 5c 33 37 30 00 5c 32 31 31 3a 5c 32 30 33 5c 33 32 33 00 5c 32 31 31 40 | 11.!\202\370.\211:\203\323.\211@ |
5580 | 5c 33 31 32 3d 5c 32 30 33 5c 33 32 33 00 5c 32 31 31 5c 32 30 32 5c 33 37 30 00 5c 32 31 31 39 | \312=\203\323.\211\202\370.\2119 |
55a0 | 5c 32 30 33 5c 33 36 31 00 5c 33 31 33 01 21 5c 32 30 33 5c 33 36 31 00 5c 32 31 31 4a 3a 5c 32 | \203\361.\313.!\203\361.\211J:\2 |
55c0 | 30 33 5c 33 36 31 00 5c 32 31 31 4a 40 5c 33 31 32 3d 5c 32 30 33 5c 33 36 31 00 5c 32 31 31 4a | 03\361.\211J@\312=\203\361.\211J |
55e0 | 5c 32 30 32 5c 33 37 30 00 5c 33 31 34 5c 33 31 35 5c 33 31 36 5c 33 31 37 04 5c 22 5c 22 5c 33 | \202\370.\314\315\316\317.\"\"\3 |
5600 | 32 30 04 3e 41 40 5c 33 32 31 05 3e 41 40 5c 33 32 32 06 06 3e 41 40 02 5c 32 30 34 14 01 01 5c | 20.>A@\321.>A@\322..>A@.\204...\ |
5620 | 32 30 34 14 01 5c 32 31 31 5c 32 30 35 19 01 5c 33 32 33 03 02 04 23 5c 32 36 36 5c 32 30 33 5c | 204..\211\205..\323...#\266\203\ |
5640 | 33 32 34 05 3e 5c 33 32 34 06 06 3e 41 40 42 5c 33 32 35 06 06 3e 5c 33 32 35 06 07 3e 41 40 42 | 324.>\324..>A@B\325..>\325..>A@B |
5660 | 5c 33 32 36 06 07 3e 5c 33 32 36 06 08 3e 41 40 42 5c 33 32 37 06 08 3e 5c 33 32 37 06 09 3e 41 | \326..>\326..>A@B\327..>\327..>A |
5680 | 40 42 06 5c 6e 5c 33 33 30 3d 5c 32 30 33 51 01 5c 33 33 31 5c 32 30 32 5c 32 31 31 01 5c 33 30 | @B.\n\330=\203Q.\331\202\211.\30 |
56a0 | 34 5c 33 33 32 5c 33 33 33 06 0d 21 06 07 5c 33 31 30 06 5c 6e 5c 32 35 37 05 05 40 5c 32 30 35 | 4\332\333..!..\310.\n\257..@\205 |
56c0 | 68 01 5c 33 32 34 06 06 41 44 05 40 5c 32 30 35 72 01 5c 33 32 35 06 06 41 44 05 40 5c 32 30 35 | h.\324..AD.@\205r.\325..AD.@\205 |
56e0 | 7c 01 5c 33 32 36 06 06 41 44 05 40 5c 32 30 35 5c 32 30 36 01 5c 33 32 37 06 06 41 44 5c 33 33 | |.\326..AD.@\205\206.\327..AD\33 |
5700 | 34 26 06 5c 33 33 35 06 5c 66 5c 32 31 31 06 0d 3e 5c 32 30 33 5c 32 34 34 01 01 54 5c 32 36 32 | 4&.\335.\f\211..>\203\244..T\262 |
5720 | 02 5c 33 33 36 5c 33 33 37 5c 33 34 30 06 10 05 23 21 5c 32 36 32 01 5c 32 30 32 5c 32 31 34 01 | .\336\337\340...#!\262.\202\214. |
5740 | 5c 32 36 32 01 06 07 5c 32 30 33 5c 32 37 37 01 06 06 5c 32 30 33 5c 32 37 37 01 5c 32 31 31 06 | \262...\203\277...\203\277.\211. |
5760 | 5c 66 42 5c 32 36 32 5c 66 5c 33 34 31 06 0e 5c 33 31 35 03 21 04 23 5c 32 31 30 5c 32 36 36 09 | \fB\262\f\341..\315.!.#\210\266. |
5780 | 05 5c 32 30 35 5c 33 31 30 01 05 03 5c 32 34 31 5c 32 30 37 22 20 5b 74 6f 6f 6c 62 61 72 78 2d | .\205\310...\241\207".[toolbarx- |
57a0 | 62 75 74 74 6f 6e 2d 70 72 6f 70 73 20 6e 69 6c 20 3a 61 64 64 2d 76 61 6c 75 65 2d 6c 69 73 74 | button-props.nil.:add-value-list |
57c0 | 20 32 20 61 70 70 65 6e 64 20 3a 69 6e 73 65 72 74 20 65 76 61 6c 20 74 20 3a 69 6d 61 67 65 20 | .2.append.:insert.eval.t.:image. |
57e0 | 74 6f 6f 6c 62 61 72 78 2d 66 69 6e 64 2d 69 6d 61 67 65 20 69 6d 61 67 65 20 62 6f 75 6e 64 70 | toolbarx-find-image.image.boundp |
5800 | 20 61 70 70 6c 79 20 76 65 63 74 6f 72 20 6d 61 70 63 61 72 20 23 5b 32 35 37 20 22 5c 32 31 31 | .apply.vector.mapcar.#[257."\211 |
5820 | 3b 5c 32 30 33 09 00 5c 33 30 30 01 21 5c 32 30 37 5c 32 30 37 22 20 5b 74 6f 6f 6c 62 61 72 78 | ;\203..\300.!\207\207".[toolbarx |
5840 | 2d 66 69 6e 64 2d 69 6d 61 67 65 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 49 4d 47 29 22 5d 20 3a | -find-image].3."\n\n(fn.IMG)"].: |
5860 | 63 6f 6d 6d 61 6e 64 20 3a 61 70 70 65 6e 64 2d 63 6f 6d 6d 61 6e 64 20 3a 70 72 65 70 65 6e 64 | command.:append-command.:prepend |
5880 | 2d 63 6f 6d 6d 61 6e 64 20 74 6f 6f 6c 62 61 72 78 2d 6d 61 6b 65 2d 63 6f 6d 6d 61 6e 64 20 3a | -command.toolbarx-make-command.: |
58a0 | 68 65 6c 70 20 3a 65 6e 61 62 6c 65 20 3a 76 69 73 69 62 6c 65 20 3a 62 75 74 74 6f 6e 20 73 65 | help.:enable.:visible.:button.se |
58c0 | 70 61 72 61 74 6f 72 20 28 6d 65 6e 75 2d 69 74 65 6d 20 22 2d 2d 22 29 20 6d 65 6e 75 2d 69 74 | parator.(menu-item."--").menu-it |
58e0 | 65 6d 20 74 6f 6f 6c 62 61 72 78 2d 6d 61 6b 65 2d 73 74 72 69 6e 67 2d 66 72 6f 6d 2d 73 79 6d | em.toolbarx-make-string-from-sym |
5900 | 62 6f 6c 20 28 3a 76 65 72 74 2d 6f 6e 6c 79 20 74 29 20 30 20 69 6e 74 65 72 6e 20 66 6f 72 6d | bol.(:vert-only.t).0.intern.form |
5920 | 61 74 20 22 25 73 2d 25 64 22 20 64 65 66 69 6e 65 2d 6b 65 79 2d 61 66 74 65 72 5d 20 32 32 20 | at."%s-%d".define-key-after].22. |
5940 | 28 23 24 20 2e 20 32 30 35 39 39 29 5d 29 0a 23 40 33 39 36 20 50 72 6f 63 65 73 73 20 53 57 49 | (#$...20599)]).#@396.Process.SWI |
5960 | 54 43 48 45 53 2c 20 69 6e 73 65 72 74 69 6e 67 20 62 75 74 74 6f 6e 73 20 69 6e 20 60 74 6f 6f | TCHES,.inserting.buttons.in.`too |
5980 | 6c 2d 62 61 72 2d 6d 61 70 27 2e 0a 49 66 20 61 20 62 75 74 74 6f 6e 20 69 73 20 61 63 74 75 61 | l-bar-map'..If.a.button.is.actua |
59a0 | 6c 6c 79 20 61 20 60 3a 69 6e 73 65 72 74 27 20 63 6c 61 75 73 65 20 67 72 6f 75 70 20 28 69 66 | lly.a.`:insert'.clause.group.(if |
59c0 | 20 60 63 61 72 27 20 69 73 0a 60 3a 69 6e 73 65 72 74 27 29 20 61 6e 64 20 65 76 61 6c 75 61 74 | .`car'.is.`:insert').and.evaluat |
59e0 | 69 6f 6e 20 6f 66 20 60 63 64 72 27 20 79 69 65 6c 64 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 70 72 6f | ion.of.`cdr'.yields.non-nil,.pro |
5a00 | 63 65 73 73 20 60 63 64 64 72 27 0a 72 65 63 75 72 73 69 76 65 6c 79 20 61 73 20 53 57 49 54 43 | cess.`cddr'.recursively.as.SWITC |
5a20 | 48 45 53 2e 20 20 55 53 45 44 2d 4b 45 59 53 20 69 73 20 61 20 6c 69 73 74 20 77 68 69 63 68 20 | HES...USED-KEYS.is.a.list.which. |
5a40 | 60 63 61 72 27 20 69 73 0a 60 3a 75 73 65 64 2d 73 79 6d 62 6f 6c 73 27 20 61 6e 64 20 77 68 69 | `car'.is.`:used-symbols'.and.whi |
5a60 | 63 68 20 60 63 64 72 27 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 73 79 6d 62 6f 6c 73 20 74 68 | ch.`cdr'.is.a.list.of.symbols.th |
5a80 | 61 74 20 68 61 76 65 20 61 6c 72 65 61 64 79 0a 62 65 65 6e 20 75 73 65 64 20 61 73 20 6b 65 79 | at.have.already.been.used.as.key |
5aa0 | 73 20 69 6e 20 74 68 65 20 6b 65 79 6d 61 70 20 60 74 6f 6f 6c 2d 62 61 72 2d 6d 61 70 27 2e 0a | s.in.the.keymap.`tool-bar-map'.. |
5ac0 | 0a 28 66 6e 20 53 57 49 54 43 48 45 53 20 55 53 45 44 2d 4b 45 59 53 20 4b 45 59 4d 41 50 29 1f | .(fn.SWITCHES.USED-KEYS.KEYMAP). |
5ae0 | 0a 28 64 65 66 61 6c 69 61 73 20 27 74 6f 6f 6c 62 61 72 78 2d 65 6d 61 63 73 2d 72 65 66 72 65 | .(defalias.'toolbarx-emacs-refre |
5b00 | 73 68 2d 70 72 6f 63 65 73 73 2d 62 75 74 74 6f 6e 2d 6f 72 2d 69 6e 73 65 72 74 2d 6c 69 73 74 | sh-process-button-or-insert-list |
5b20 | 20 23 5b 37 37 31 20 22 02 5c 32 31 31 5c 32 30 35 2f 00 5c 32 31 31 40 5c 32 31 31 40 5c 33 30 | .#[771.".\211\205/.\211@\211@\30 |
5b40 | 30 3d 5c 32 30 33 5c 22 00 5c 33 30 31 01 41 40 5c 33 30 32 5c 22 5c 32 30 33 28 00 5c 33 30 33 | 0=\203\".\301.A@\302\"\203(.\303 |
5b60 | 01 41 41 05 05 23 5c 32 31 30 5c 32 30 32 28 00 5c 33 30 34 01 05 05 23 5c 32 31 30 01 41 5c 32 | .AA..#\210\202(.\304...#\210.A\2 |
5b80 | 36 36 5c 32 30 32 5c 32 30 32 01 00 5c 32 30 37 22 20 5b 3a 69 6e 73 65 72 74 20 65 76 61 6c 20 | 66\202\202..\207".[:insert.eval. |
5ba0 | 74 20 74 6f 6f 6c 62 61 72 78 2d 65 6d 61 63 73 2d 72 65 66 72 65 73 68 2d 70 72 6f 63 65 73 73 | t.toolbarx-emacs-refresh-process |
5bc0 | 2d 62 75 74 74 6f 6e 2d 6f 72 2d 69 6e 73 65 72 74 2d 6c 69 73 74 20 74 6f 6f 6c 62 61 72 78 2d | -button-or-insert-list.toolbarx- |
5be0 | 65 6d 61 63 73 2d 61 64 64 2d 62 75 74 74 6f 6e 5d 20 39 20 28 23 24 20 2e 20 32 32 38 36 39 29 | emacs-add-button].9.(#$...22869) |
5c00 | 5d 29 0a 23 40 31 39 35 20 52 65 66 72 65 73 68 20 61 6e 64 20 72 65 64 72 61 77 20 74 68 65 20 | ]).#@195.Refresh.and.redraw.the. |
5c20 | 74 6f 6f 6c 62 61 72 20 69 6e 20 45 6d 61 63 73 2e 0a 49 66 20 47 4c 4f 42 41 4c 2d 46 4c 41 47 | toolbar.in.Emacs..If.GLOBAL-FLAG |
5c40 | 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 65 20 64 65 66 61 75 6c 74 20 76 61 6c 75 65 20 6f | .is.non-nil,.the.default.value.o |
5c60 | 66 20 74 6f 6f 6c 62 61 72 20 73 77 69 74 63 68 65 73 0a 69 73 20 75 73 65 64 20 61 6e 64 20 74 | f.toolbar.switches.is.used.and.t |
5c80 | 68 65 20 64 65 66 61 75 6c 74 20 76 61 6c 75 65 20 6f 66 20 60 74 6f 6f 6c 62 61 72 78 2d 6d 61 | he.default.value.of.`toolbarx-ma |
5ca0 | 70 27 20 69 73 20 63 68 61 6e 67 65 64 2e 0a 0a 28 66 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 47 4c | p'.is.changed...(fn.&optional.GL |
5cc0 | 4f 42 41 4c 2d 46 4c 41 47 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 74 6f 6f 6c 62 61 72 78 2d | OBAL-FLAG)..(defalias.'toolbarx- |
5ce0 | 65 6d 61 63 73 2d 72 65 66 72 65 73 68 20 23 5b 32 35 36 20 22 5c 32 31 31 5c 32 30 33 14 00 5c | emacs-refresh.#[256."\211\203..\ |
5d00 | 33 30 32 5c 33 30 30 21 5c 32 30 33 10 00 5c 33 30 33 5c 33 30 30 21 5c 32 30 32 15 00 08 5c 32 | 302\300!\203..\303\300!\202...\2 |
5d20 | 30 32 15 00 08 5c 33 30 34 5c 33 30 35 44 5c 33 30 36 20 5c 33 30 37 03 03 03 23 5c 32 31 30 03 | 02...\304\305D\306.\307...#\210. |
5d40 | 5c 32 30 33 29 00 5c 33 31 30 5c 33 30 31 02 5c 22 5c 32 30 37 5c 32 31 31 5c 32 31 31 11 5c 32 | \203).\310\301.\"\207\211\211.\2 |
5d60 | 30 37 22 20 5b 74 6f 6f 6c 62 61 72 78 2d 69 6e 74 65 72 6e 61 6c 2d 62 75 74 74 6f 6e 2d 73 77 | 07".[toolbarx-internal-button-sw |
5d80 | 69 74 63 68 65 73 20 74 6f 6f 6c 2d 62 61 72 2d 6d 61 70 20 64 65 66 61 75 6c 74 2d 62 6f 75 6e | itches.tool-bar-map.default-boun |
5da0 | 64 70 20 64 65 66 61 75 6c 74 2d 76 61 6c 75 65 20 3a 75 73 65 64 2d 73 79 6d 62 6f 6c 73 20 6e | dp.default-value.:used-symbols.n |
5dc0 | 69 6c 20 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 20 74 6f 6f 6c 62 61 72 78 2d 65 | il.make-sparse-keymap.toolbarx-e |
5de0 | 6d 61 63 73 2d 72 65 66 72 65 73 68 2d 70 72 6f 63 65 73 73 2d 62 75 74 74 6f 6e 2d 6f 72 2d 69 | macs-refresh-process-button-or-i |
5e00 | 6e 73 65 72 74 2d 6c 69 73 74 20 73 65 74 2d 64 65 66 61 75 6c 74 5d 20 38 20 28 23 24 20 2e 20 | nsert-list.set-default].8.(#$... |
5e20 | 32 33 35 36 31 29 5d 29 0a 23 40 31 33 34 20 52 65 64 72 61 77 20 74 68 65 20 74 6f 6f 6c 62 61 | 23561)]).#@134.Redraw.the.toolba |
5e40 | 72 2c 20 70 65 76 69 6f 75 73 6c 79 20 69 6e 73 74 61 6c 6c 65 64 20 77 69 74 68 20 60 74 6f 6f | r,.peviously.installed.with.`too |
5e60 | 6c 62 61 72 78 27 2e 0a 46 6f 72 63 65 20 67 6c 6f 62 61 6c 20 72 65 66 72 65 73 68 20 69 66 20 | lbarx'..Force.global.refresh.if. |
5e80 | 47 4c 4f 42 41 4c 2d 46 4c 41 47 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a 0a 28 66 6e 20 26 6f 70 | GLOBAL-FLAG.is.non-nil...(fn.&op |
5ea0 | 74 69 6f 6e 61 6c 20 47 4c 4f 42 41 4c 2d 46 4c 41 47 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 | tional.GLOBAL-FLAG)..(defalias.' |
5ec0 | 74 6f 6f 6c 62 61 72 78 2d 72 65 66 72 65 73 68 20 23 5b 32 35 36 20 22 5c 33 30 30 01 21 5c 32 | toolbarx-refresh.#[256."\300.!\2 |
5ee0 | 30 37 22 20 5b 74 6f 6f 6c 62 61 72 78 2d 65 6d 61 63 73 2d 72 65 66 72 65 73 68 5d 20 33 20 28 | 07".[toolbarx-emacs-refresh].3.( |
5f00 | 23 24 20 2e 20 32 34 31 31 31 29 20 22 50 22 5d 29 0a 23 40 39 33 32 31 20 49 6e 73 74 61 6c 6c | #$...24111)."P"]).#@9321.Install |
5f20 | 20 74 6f 6f 6c 62 61 72 20 62 75 74 74 6f 6e 73 20 67 69 76 65 6e 20 69 6e 20 42 55 54 54 4f 4e | .toolbar.buttons.given.in.BUTTON |
5f40 | 53 2e 0a 42 75 74 74 6f 6e 20 70 72 6f 70 65 72 74 69 65 73 20 61 72 65 20 6f 70 74 69 6f 6e 61 | S..Button.properties.are.optiona |
5f60 | 6c 6c 79 20 67 69 76 65 6e 20 69 6e 20 4d 45 41 4e 49 4e 47 2d 41 4c 49 53 54 2e 20 20 49 66 0a | lly.given.in.MEANING-ALIST...If. |
5f80 | 47 4c 4f 42 41 4c 2d 46 4c 41 47 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 6f 6f 6c 62 61 72 20 | GLOBAL-FLAG.is.non-nil,.toolbar. |
5fa0 | 69 73 20 69 6e 73 74 61 6c 6c 65 64 20 67 6c 6f 62 61 6c 6c 79 20 28 6f 6e 20 65 76 65 72 79 0a | is.installed.globally.(on.every. |
5fc0 | 62 75 66 66 65 72 20 74 68 61 74 20 64 6f 65 73 20 6e 6f 74 20 68 61 76 65 20 61 20 74 6f 6f 6c | buffer.that.does.not.have.a.tool |
5fe0 | 62 61 72 20 73 65 74 20 6c 6f 63 61 6c 6c 79 29 2e 20 20 42 55 54 54 4f 4e 53 20 69 73 20 61 0a | bar.set.locally)...BUTTONS.is.a. |
6000 | 6c 69 73 74 20 6f 66 20 66 6f 72 6d 61 74 0a 20 20 28 45 4c 45 4d 20 2e 2e 2e 20 45 4c 45 4d 20 | list.of.format...(ELEM.....ELEM. |
6020 | 2e 20 50 52 4f 50 53 29 2c 0a 77 68 65 72 65 20 65 61 63 68 20 45 4c 45 4d 20 69 73 20 65 69 74 | ..PROPS),.where.each.ELEM.is.eit |
6040 | 68 65 72 0a 0a 20 2d 20 61 20 6c 69 73 74 20 69 6e 20 74 68 65 20 73 61 6d 65 20 66 6f 72 6d 61 | her...-.a.list.in.the.same.forma |
6060 | 74 20 6f 64 20 42 55 54 54 4f 4e 53 2c 20 77 68 69 63 68 20 69 73 20 67 6f 69 6e 67 20 74 6f 20 | t.od.BUTTONS,.which.is.going.to. |
6080 | 62 65 0a 20 20 20 72 65 66 65 72 65 64 20 61 73 20 61 20 2a 67 72 6f 75 70 2a 3b 20 67 72 6f 75 | be....refered.as.a.*group*;.grou |
60a0 | 70 73 20 61 72 65 20 75 73 65 64 20 74 6f 20 64 69 73 74 72 69 62 75 74 65 20 70 72 6f 70 65 72 | ps.are.used.to.distribute.proper |
60c0 | 74 69 65 73 0a 20 20 20 72 65 63 75 72 73 69 76 65 6c 79 20 74 6f 20 69 74 73 20 65 6c 65 6d 65 | ties....recursively.to.its.eleme |
60e0 | 6e 74 73 3b 20 74 68 65 72 65 20 61 72 65 20 67 72 6f 75 70 73 20 77 69 74 68 20 73 70 65 63 69 | nts;.there.are.groups.with.speci |
6100 | 61 6c 0a 20 20 20 66 6f 72 6d 61 74 20 66 6f 72 20 73 70 65 63 69 61 6c 20 70 75 72 70 6f 73 65 | al....format.for.special.purpose |
6120 | 3a 20 2a 64 72 6f 70 64 6f 77 6e 20 67 72 6f 75 70 73 2a 20 61 6e 64 20 61 6c 73 6f 20 2a 65 76 | :.*dropdown.groups*.and.also.*ev |
6140 | 61 6c 0a 20 20 20 67 72 6f 75 70 73 2a 2e 0a 0a 20 2d 20 61 20 73 79 6d 62 6f 6c 2c 20 77 68 69 | al....groups*....-.a.symbol,.whi |
6160 | 63 68 20 63 6f 75 6c 64 20 62 65 20 61 73 73 6f 63 69 61 74 65 64 20 69 6e 20 4d 45 41 4e 49 4e | ch.could.be.associated.in.MEANIN |
6180 | 47 2d 41 4c 49 53 54 20 77 69 74 68 20 61 0a 20 20 20 6c 69 73 74 20 6f 66 20 62 75 74 74 6f 6e | G-ALIST.with.a....list.of.button |
61a0 | 20 70 72 6f 70 65 72 74 69 65 73 20 28 73 79 6d 62 6f 6c 20 2b 20 70 72 6f 70 65 72 74 69 65 73 | .properties.(symbol.+.properties |
61c0 | 20 3d 20 61 20 2a 62 75 74 74 6f 6e 2a 29 0a 20 20 20 6f 72 20 61 73 73 6f 63 69 61 74 65 64 20 | .=.a.*button*)....or.associated. |
61e0 | 74 6f 20 61 20 73 70 65 63 69 61 6c 20 6b 69 6e 64 20 6f 66 20 67 72 6f 75 70 20 28 61 6e 20 2a | to.a.special.kind.of.group.(an.* |
6200 | 61 6c 69 61 73 20 67 72 6f 75 70 2a 29 2e 0a 0a 4d 65 61 6e 69 6e 67 20 61 6c 69 73 74 0a 3d 3d | alias.group*)...Meaning.alist.== |
6220 | 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 4d 45 41 4e 49 4e 47 2d 41 4c 49 53 54 20 69 73 20 61 20 | ===========..MEANING-ALIST.is.a. |
6240 | 6c 69 73 74 20 77 68 65 72 65 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 69 73 20 69 6e 20 6f 6e | list.where.each.element.is.in.on |
6260 | 65 20 6f 66 20 74 68 65 0a 66 6f 72 6d 61 74 73 20 28 53 59 4d 42 20 2e 20 42 55 54 54 4f 4e 2d | e.of.the.formats.(SYMB...BUTTON- |
6280 | 50 52 4f 50 53 2d 4c 49 53 54 29 20 6f 72 20 28 53 59 4d 42 20 2e 20 20 41 4c 49 41 53 2d 47 52 | PROPS-LIST).or.(SYMB....ALIAS-GR |
62a0 | 4f 55 50 29 2e 0a 42 55 54 54 4f 4e 2d 50 52 4f 50 53 2d 4c 49 53 54 20 69 73 20 61 20 6c 69 73 | OUP)..BUTTON-PROPS-LIST.is.a.lis |
62c0 | 74 20 69 6e 20 6f 6e 65 20 6f 66 20 74 68 65 20 66 6f 72 6d 61 74 73 0a 20 20 28 49 4d 41 47 45 | t.in.one.of.the.formats...(IMAGE |
62e0 | 20 43 4f 4d 4d 41 4e 44 20 50 52 4f 50 20 56 41 4c 20 50 52 4f 50 20 56 41 4c 20 2e 2e 2e 20 50 | .COMMAND.PROP.VAL.PROP.VAL.....P |
6300 | 52 4f 50 20 56 41 4c 29 20 20 6f 72 0a 20 20 28 50 52 4f 50 20 56 41 4c 20 50 52 4f 50 20 56 41 | ROP.VAL)..or...(PROP.VAL.PROP.VA |
6320 | 4c 20 2e 2e 2e 20 50 52 4f 50 20 56 41 4c 29 2e 0a 54 68 65 20 49 4d 41 47 45 20 69 73 20 67 6f | L.....PROP.VAL)..The.IMAGE.is.go |
6340 | 69 6e 67 20 74 6f 20 62 65 20 75 73 65 64 20 61 73 20 74 68 65 20 60 3a 69 6d 61 67 65 27 20 70 | ing.to.be.used.as.the.`:image'.p |
6360 | 72 6f 70 65 72 74 79 20 6f 66 20 74 68 65 0a 62 75 74 74 6f 6e 20 28 73 65 65 20 62 75 74 74 6f | roperty.of.the.button.(see.butto |
6380 | 6e 20 70 72 6f 70 65 72 74 69 65 73 20 62 65 6c 6c 6f 77 29 2c 20 61 6e 64 20 43 4f 4d 4d 41 4e | n.properties.bellow),.and.COMMAN |
63a0 | 44 20 73 68 61 6c 6c 20 62 65 20 75 73 65 64 0a 61 73 20 74 68 65 20 60 3a 63 6f 6d 6d 61 6e 64 | D.shall.be.used.as.the.`:command |
63c0 | 27 20 70 72 6f 70 65 72 74 79 20 6f 66 20 74 68 65 20 62 75 74 74 6f 6e 2e 20 20 45 61 63 68 20 | '.property.of.the.button...Each. |
63e0 | 50 52 4f 50 20 69 73 20 6f 6e 65 20 6f 66 0a 74 68 65 20 62 75 74 74 6f 6e 20 70 72 6f 70 65 72 | PROP.is.one.of.the.button.proper |
6400 | 74 69 65 73 2c 20 61 6e 64 20 56 41 4c 20 69 73 20 69 74 73 20 72 65 73 70 65 63 74 69 76 65 20 | ties,.and.VAL.is.its.respective. |
6420 | 76 61 6c 75 65 2e 0a 41 4c 49 41 53 2d 47 52 4f 55 50 20 69 73 20 61 20 6c 69 73 74 20 77 68 69 | value..ALIAS-GROUP.is.a.list.whi |
6440 | 63 68 20 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 20 69 73 20 74 68 65 20 73 79 6d 62 6f 6c 20 60 | ch.first.element.is.the.symbol.` |
6460 | 3a 61 6c 69 61 73 27 0a 61 6e 64 20 74 68 65 20 63 64 72 20 73 68 61 6c 6c 20 62 65 20 70 72 6f | :alias'.and.the.cdr.shall.be.pro |
6480 | 63 65 73 73 65 64 20 61 73 20 61 20 67 72 6f 75 70 2e 0a 0a 48 6f 77 65 76 65 72 2c 20 61 20 73 | cessed.as.a.group...However,.a.s |
64a0 | 79 6d 62 6f 6c 20 69 73 20 6e 6f 74 20 72 65 71 75 69 72 65 64 20 74 6f 20 68 61 76 65 20 61 6e | ymbol.is.not.required.to.have.an |
64c0 | 20 61 73 73 6f 63 69 61 74 69 6f 6e 20 69 6e 0a 4d 45 41 4e 49 4e 47 2d 41 4c 49 53 54 2c 20 77 | .association.in.MEANING-ALIST,.w |
64e0 | 68 69 63 68 20 69 73 20 6f 6e 6c 79 20 61 20 77 61 79 20 74 6f 20 73 70 65 63 69 66 79 20 70 72 | hich.is.only.a.way.to.specify.pr |
6500 | 6f 70 65 72 74 69 65 73 20 74 6f 20 61 0a 62 75 74 74 6f 6e 2e 20 20 4f 6e 65 20 63 61 6e 20 75 | operties.to.a.button...One.can.u |
6520 | 73 65 20 67 72 6f 75 70 73 20 74 6f 20 73 70 65 63 69 66 79 20 70 72 6f 70 65 72 74 69 65 73 2e | se.groups.to.specify.properties. |
6540 | 20 20 4e 69 6c 20 69 73 20 61 20 67 6f 6f 64 0a 4d 45 41 4e 49 4e 47 2d 41 4c 49 53 54 2e 0a 0a | ..Nil.is.a.good.MEANING-ALIST... |
6560 | 42 75 74 74 6f 6e 73 0a 3d 3d 3d 3d 3d 3d 3d 0a 0a 41 20 74 6f 6f 6c 62 61 72 20 62 75 74 74 6f | Buttons.=======..A.toolbar.butto |
6580 | 6e 20 69 6e 20 60 74 6f 6f 6c 62 61 72 78 27 20 69 73 20 74 68 65 20 73 65 74 20 77 69 74 68 20 | n.in.`toolbarx'.is.the.set.with. |
65a0 | 61 20 73 79 6d 62 6f 6c 20 61 6e 64 0a 70 72 6f 70 65 72 74 69 65 73 20 75 73 65 64 20 74 6f 20 | a.symbol.and.properties.used.to. |
65c0 | 64 69 73 70 6c 61 79 20 74 68 65 20 62 75 74 74 6f 6e 2c 20 6c 69 6b 65 20 61 20 69 6d 61 67 65 | display.the.button,.like.a.image |
65e0 | 20 61 6e 64 20 61 20 63 6f 6d 6d 61 6e 64 0a 74 6f 20 63 61 6c 6c 20 77 68 65 6e 20 74 68 65 20 | .and.a.command.to.call.when.the. |
6600 | 62 75 74 74 6f 6e 20 69 73 20 70 72 65 73 73 65 64 20 28 77 68 69 63 68 20 61 72 65 20 74 68 65 | button.is.pressed.(which.are.the |
6620 | 20 6d 69 6e 69 6d 61 6c 0a 65 6c 65 6d 65 6e 74 73 20 74 68 61 74 20 61 20 62 75 74 74 6f 6e 20 | .minimal.elements.that.a.button. |
6640 | 73 68 6f 75 6c 64 20 68 61 76 65 2e 29 20 20 54 68 65 20 73 75 70 70 6f 72 74 65 64 20 70 72 6f | should.have.)..The.supported.pro |
6660 | 70 65 72 74 69 65 73 0a 66 6f 72 20 62 75 74 74 6f 6e 73 20 61 6e 64 20 74 68 65 69 72 20 60 62 | perties.for.buttons.and.their.`b |
6680 | 61 73 69 63 20 74 79 70 65 73 27 20 28 73 65 65 20 6e 6f 74 65 20 6f 6e 20 68 6f 77 20 76 61 6c | asic.types'.(see.note.on.how.val |
66a0 | 75 65 73 20 6f 66 0a 70 72 6f 70 65 72 74 69 65 73 20 61 72 65 20 6f 62 74 61 69 6e 65 64 21 29 | ues.of.properties.are.obtained!) |
66c0 | 20 61 72 65 3a 0a 0a 20 3a 69 6d 61 67 65 20 2d 2d 20 65 69 74 68 65 72 20 61 20 73 74 72 69 6e | .are:...:image.--.either.a.strin |
66e0 | 67 20 6f 72 20 69 6d 61 67 65 20 64 65 73 63 72 69 70 74 6f 72 20 28 73 65 65 0a 20 20 20 69 6e | g.or.image.descriptor.(see....in |
6700 | 66 6f 20 66 6f 72 20 61 20 64 65 66 69 6e 69 74 69 6f 6e 29 2c 20 6f 72 20 61 20 76 61 72 69 61 | fo.for.a.definition),.or.a.varia |
6720 | 62 6c 65 20 62 6f 75 6e 64 20 74 6f 20 61 20 69 6d 61 67 65 0a 20 20 20 64 65 73 63 72 69 70 74 | ble.bound.to.a.image....descript |
6740 | 6f 72 20 28 6c 69 6b 65 20 74 68 6f 73 65 20 64 65 66 69 6e 65 64 20 77 69 74 68 20 60 64 65 66 | or.(like.those.defined.with.`def |
6760 | 69 6d 61 67 65 27 29 20 6f 72 20 61 20 6c 69 73 74 20 6f 66 20 34 0a 20 20 20 73 74 72 69 6e 67 | image').or.a.list.of.4....string |
6780 | 73 20 6f 72 20 69 6d 61 67 65 20 64 65 73 63 72 69 70 74 6f 72 73 3b 0a 20 20 20 64 65 66 69 6e | s.or.image.descriptors;....defin |
67a0 | 65 73 20 74 68 65 20 69 6d 61 67 65 20 66 69 6c 65 20 64 69 73 70 6c 61 79 65 64 20 62 79 20 74 | es.the.image.file.displayed.by.t |
67c0 | 68 65 20 62 75 74 74 6f 6e 2e 20 20 49 66 0a 20 20 20 69 74 20 69 73 20 61 20 73 74 72 69 6e 67 | he.button...If....it.is.a.string |
67e0 | 2c 20 74 68 65 20 69 6d 61 67 65 20 66 69 6c 65 20 66 6f 75 6e 64 20 77 69 74 68 20 74 68 61 74 | ,.the.image.file.found.with.that |
6800 | 20 6e 61 6d 65 20 28 61 6c 77 61 79 73 0a 20 20 20 75 73 69 6e 67 20 74 68 65 20 66 75 6e 63 74 | .name.(always....using.the.funct |
6820 | 69 6f 6e 20 60 74 6f 6f 6c 62 61 72 78 2d 66 69 6e 64 2d 69 6d 61 67 65 27 20 74 6f 20 6d 61 6b | ion.`toolbarx-find-image'.to.mak |
6840 | 65 20 74 68 65 0a 20 20 20 60 69 6e 74 65 72 6e 61 6c 27 20 69 6d 61 67 65 20 64 65 73 63 72 69 | e.the....`internal'.image.descri |
6860 | 70 74 6f 72 29 20 69 73 20 75 73 65 64 20 61 73 20 62 75 74 74 6f 6e 20 69 6d 61 67 65 2e 20 20 | ptor).is.used.as.button.image... |
6880 | 46 6f 72 0a 20 20 20 74 68 65 20 6f 74 68 65 72 20 66 6f 72 6d 61 74 73 2c 20 74 68 65 20 62 75 | For....the.other.formats,.the.bu |
68a0 | 74 74 6f 6e 20 69 6d 61 67 65 20 69 73 20 68 61 6e 64 6c 65 64 20 69 6e 20 74 68 65 20 73 61 6d | tton.image.is.handled.in.the.sam |
68c0 | 65 20 77 61 79 0a 20 20 20 61 73 20 69 74 20 69 73 20 74 72 65 61 74 65 64 20 62 79 20 74 68 65 | e.way....as.it.is.treated.by.the |
68e0 | 20 65 64 69 74 6f 72 73 3b 20 73 65 65 20 69 6e 66 6f 20 6e 6f 64 65 73 20 62 65 6c 6c 6f 77 20 | .editors;.see.info.nodes.bellow. |
6900 | 66 6f 72 20 61 0a 20 20 20 64 65 73 63 72 69 70 74 69 6f 6e 20 6f 66 20 74 68 65 20 63 61 70 61 | for.a....description.of.the.capa |
6920 | 62 69 6c 69 74 69 65 73 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 66 6f 20 66 69 6c 65 | bilities:..............info.file |
6940 | 20 22 65 6c 69 73 70 22 2c 20 6e 6f 64 65 20 22 54 6f 6f 6c 20 42 61 72 22 20 28 73 65 65 20 60 | ."elisp",.node."Tool.Bar".(see.` |
6960 | 3a 69 6d 61 67 65 27 20 70 72 6f 70 65 72 74 79 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | :image'.property);.............. |
6980 | 50 53 3a 20 61 20 2a 76 65 63 74 6f 72 2a 20 6f 66 20 66 6f 75 72 20 73 74 72 69 6e 67 73 20 69 | PS:.a.*vector*.of.four.strings.i |
69a0 | 73 20 75 73 65 64 20 69 6e 20 74 68 65 20 45 6d 61 63 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 | s.used.in.the.Emacs............. |
69c0 | 20 4c 69 73 70 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 61 73 20 74 68 65 20 60 6d 6f 72 65 | .Lisp.documentation.as.the.`more |
69e0 | 20 65 6c 6c 61 62 6f 72 61 74 65 64 27 20 69 6d 61 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .ellaborated'.image............. |
6a00 | 20 70 72 6f 70 65 72 74 79 20 66 6f 72 6d 61 74 2c 20 62 75 74 20 68 65 72 65 20 77 65 20 72 65 | .property.format,.but.here.we.re |
6a20 | 73 65 72 76 65 20 76 65 63 74 6f 72 73 20 74 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 | serve.vectors.to..............pr |
6a40 | 6f 76 69 64 65 20 65 64 69 74 6f 72 2d 64 65 70 65 6e 64 65 6e 74 20 76 61 6c 75 65 73 3b 20 74 | ovide.editor-dependent.values;.t |
6a60 | 68 69 73 20 6d 6f 74 69 76 61 74 65 73 20 6f 75 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 63 | his.motivates.our..............c |
6a80 | 68 6f 69 63 65 20 66 6f 72 20 61 20 6c 69 73 74 20 69 6e 73 74 65 61 64 20 6f 66 20 76 65 63 74 | hoice.for.a.list.instead.of.vect |
6aa0 | 6f 72 20 28 68 6f 77 65 76 65 72 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 74 65 72 6e | or.(however,..............intern |
6ac0 | 61 6c 6c 79 20 74 68 65 20 6c 69 73 74 20 62 65 63 6f 6d 65 73 20 61 20 76 65 63 74 6f 72 20 77 | ally.the.list.becomes.a.vector.w |
6ae0 | 68 65 6e 20 64 69 73 70 6c 61 79 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 65 20 | hen.displaying..............the. |
6b00 | 62 75 74 74 6f 6e 29 2e 0a 0a 20 3a 63 6f 6d 6d 61 6e 64 20 2d 2d 20 61 20 66 6f 72 6d 3b 20 69 | button)....:command.--.a.form;.i |
6b20 | 66 20 74 68 65 20 66 6f 72 6d 20 68 61 70 70 65 6e 73 20 74 6f 20 62 65 20 61 20 63 6f 6d 6d 61 | f.the.form.happens.to.be.a.comma |
6b40 | 6e 64 2c 20 69 74 20 77 69 6c 6c 0a 20 20 20 62 65 20 63 61 6c 6c 65 64 20 77 69 74 68 20 60 63 | nd,.it.will....be.called.with.`c |
6b60 | 61 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 27 2e 0a 0a 20 3a 61 70 70 65 6e 64 2d 63 6f | all-interactively'....:append-co |
6b80 | 6d 6d 61 6e 64 20 2d 2d 20 61 20 66 6f 72 6d 20 61 64 64 65 64 20 74 6f 20 74 68 65 20 65 6e 64 | mmand.--.a.form.added.to.the.end |
6ba0 | 20 6f 66 20 74 68 65 20 76 61 6c 75 65 20 6f 66 0a 20 20 20 60 3a 63 6f 6d 6d 61 6e 64 27 2e 0a | .of.the.value.of....`:command'.. |
6bc0 | 0a 20 3a 70 72 65 70 65 6e 64 2d 63 6f 6d 6d 61 6e 64 20 2d 2d 20 61 20 66 6f 72 6d 20 61 64 64 | ..:prepend-command.--.a.form.add |
6be0 | 65 64 20 61 74 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 74 68 65 20 76 61 6c 75 65 | ed.at.the.beginning.of.the.value |
6c00 | 0a 20 20 20 6f 66 20 60 3a 63 6f 6d 6d 61 6e 64 27 2e 0a 0a 20 3a 68 65 6c 70 20 2d 2d 20 65 69 | ....of.`:command'....:help.--.ei |
6c20 | 74 68 65 72 20 61 20 73 74 72 69 6e 67 20 6f 72 20 6e 69 6c 3b 20 64 65 66 69 6e 65 64 20 74 68 | ther.a.string.or.nil;.defined.th |
6c40 | 65 20 68 65 6c 70 20 73 74 72 69 6e 67 20 6f 66 20 74 68 65 0a 20 20 20 62 75 74 74 6f 6e 3b 0a | e.help.string.of.the....button;. |
6c60 | 0a 20 3a 65 6e 61 62 6c 65 20 2d 2d 20 61 20 66 6f 72 6d 2c 20 65 76 61 6c 75 61 74 65 64 20 63 | ..:enable.--.a.form,.evaluated.c |
6c80 | 6f 6e 73 74 61 6e 74 6c 79 20 62 79 20 62 6f 74 68 20 65 64 69 74 6f 72 73 20 74 6f 0a 20 20 20 | onstantly.by.both.editors.to.... |
6ca0 | 64 65 74 65 72 6d 69 6e 65 20 69 66 20 61 20 62 75 74 74 6f 6e 20 69 73 20 61 63 74 69 76 65 20 | determine.if.a.button.is.active. |
6cc0 | 28 65 6e 61 62 6c 65 64 29 20 6f 72 20 6e 6f 74 2e 0a 0a 20 3a 76 69 73 69 62 6c 65 20 2d 2d 20 | (enabled).or.not....:visible.--. |
6ce0 | 61 20 66 6f 72 6d 20 74 68 61 74 20 69 73 20 65 76 61 6c 75 61 74 65 64 20 63 6f 6e 73 74 61 6e | a.form.that.is.evaluated.constan |
6d00 | 74 6c 79 20 74 6f 0a 20 20 20 64 65 74 65 72 6d 69 6e 65 20 69 66 20 61 20 62 75 74 74 6f 6e 20 | tly.to....determine.if.a.button. |
6d20 | 69 73 20 76 69 73 69 62 6c 65 2e 0a 0a 20 3a 62 75 74 74 6f 6e 20 2d 2d 20 61 20 63 6f 6e 73 20 | is.visible....:button.--.a.cons. |
6d40 | 63 65 6c 6c 20 28 54 59 50 45 20 2e 20 20 53 45 4c 45 43 54 45 44 29 20 77 68 65 72 65 20 74 68 | cell.(TYPE....SELECTED).where.th |
6d60 | 65 0a 20 20 20 54 59 50 45 20 73 68 6f 75 6c 64 20 62 65 20 60 3a 74 6f 67 67 6c 65 27 20 6f 72 | e....TYPE.should.be.`:toggle'.or |
6d80 | 20 60 3a 72 61 64 69 6f 27 20 61 6e 64 20 74 68 65 20 63 64 72 20 73 68 6f 75 6c 64 20 62 65 20 | .`:radio'.and.the.cdr.should.be. |
6da0 | 61 0a 20 20 20 66 6f 72 6d 2e 20 20 53 45 4c 45 43 54 45 44 20 69 73 20 65 76 61 6c 75 61 74 65 | a....form...SELECTED.is.evaluate |
6dc0 | 64 20 74 6f 20 64 65 74 65 72 6d 69 6e 65 20 77 68 65 6e 20 74 68 65 20 62 75 74 74 6f 6e 20 69 | d.to.determine.when.the.button.i |
6de0 | 73 0a 20 20 20 73 65 6c 65 63 74 65 64 2e 0a 0a 20 3a 69 6e 73 65 72 74 20 2d 2d 20 61 20 66 6f | s....selected....:insert.--.a.fo |
6e00 | 72 6d 20 74 68 61 74 20 69 73 20 65 76 61 6c 75 61 74 65 64 20 65 76 65 72 79 20 74 69 6d 65 20 | rm.that.is.evaluated.every.time. |
6e20 | 74 68 61 74 20 74 68 65 20 74 6f 6f 6c 62 61 72 0a 20 20 20 69 73 20 72 65 66 72 65 73 68 20 28 | that.the.toolbar....is.refresh.( |
6e40 | 61 20 63 61 6c 6c 20 6f 66 20 60 74 6f 6f 6c 62 61 72 78 2d 72 65 66 72 65 73 68 27 29 20 74 6f | a.call.of.`toolbarx-refresh').to |
6e60 | 20 64 65 74 65 72 6d 69 6e 65 20 69 66 20 74 68 65 0a 20 20 20 62 75 74 74 6f 6e 20 69 73 20 69 | .determine.if.the....button.is.i |
6e80 | 6e 73 65 72 74 65 64 20 6f 72 20 6a 75 73 74 20 69 67 6e 6f 72 65 64 20 28 75 6e 74 69 6c 20 6e | nserted.or.just.ignored.(until.n |
6ea0 | 65 78 74 20 72 65 66 72 65 73 68 29 2e 0a 0a 48 6f 77 20 74 6f 20 73 70 65 63 69 66 79 20 61 20 | ext.refresh)...How.to.specify.a. |
6ec0 | 62 75 74 74 6f 6e 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a | button.=======================.. |
6ee0 | 4f 6e 65 20 63 61 6e 20 73 70 65 63 69 66 79 20 61 20 62 75 74 74 6f 6e 20 62 79 20 69 74 73 20 | One.can.specify.a.button.by.its. |
6f00 | 73 79 6d 62 6f 6c 20 6f 72 20 62 79 20 61 20 67 72 6f 75 70 20 74 6f 20 73 70 65 63 69 66 79 0a | symbol.or.by.a.group.to.specify. |
6f20 | 70 72 6f 70 65 72 74 69 65 73 2e 20 20 46 6f 72 20 65 78 61 6d 70 6c 65 2c 0a 20 20 42 55 54 54 | properties...For.example,...BUTT |
6f40 | 4f 4e 20 3d 0a 20 20 20 20 28 20 66 6f 6f 0a 20 20 20 20 20 20 28 62 61 72 20 3a 69 6d 61 67 65 | ON.=.....(.foo.......(bar.:image |
6f60 | 20 22 62 61 72 22 0a 20 20 20 20 20 20 20 20 20 20 20 3a 63 6f 6d 6d 61 6e 64 20 62 61 72 2d 66 | ."bar"............:command.bar-f |
6f80 | 75 6e 63 74 69 6f 6e 20 3a 68 65 6c 70 20 22 42 61 72 20 68 65 6c 70 20 73 74 72 69 6e 67 22 29 | unction.:help."Bar.help.string") |
6fa0 | 0a 20 20 20 20 20 20 3a 69 6e 73 65 72 74 20 66 6f 6f 2d 62 61 72 20 29 0a 20 20 4d 45 41 4e 49 | .......:insert.foo-bar.)...MEANI |
6fc0 | 4e 47 2d 41 4c 49 53 54 20 3d 20 28 20 28 66 6f 6f 20 3a 69 6d 61 67 65 20 22 66 6f 6f 22 20 3a | NG-ALIST.=.(.(foo.:image."foo".: |
6fe0 | 63 6f 6d 6d 61 6e 64 20 66 6f 6f 2d 66 75 6e 63 74 69 6f 6e 29 20 29 0a 73 70 65 63 69 66 69 79 | command.foo-function).).specifiy |
7000 | 20 74 77 6f 20 62 75 74 74 6f 6e 73 20 60 66 6f 6f 27 20 61 6e 64 20 60 62 61 72 27 2c 20 65 61 | .two.buttons.`foo'.and.`bar',.ea |
7020 | 63 68 20 6f 6e 65 20 77 69 74 68 20 69 74 73 20 6e 65 63 65 73 73 61 72 79 0a 3a 69 6d 61 67 65 | ch.one.with.its.necessary.:image |
7040 | 20 61 6e 64 20 3a 63 6f 6d 6d 61 6e 64 20 70 72 6f 70 65 72 74 69 65 73 2c 20 61 6e 64 20 62 6f | .and.:command.properties,.and.bo |
7060 | 74 68 20 75 73 65 20 74 68 65 20 3a 69 6e 73 65 72 74 20 70 72 6f 70 65 72 74 79 0a 73 70 65 63 | th.use.the.:insert.property.spec |
7080 | 69 66 69 65 64 20 61 74 65 20 74 68 65 20 65 6e 64 20 6f 66 20 42 55 54 54 4f 4e 53 20 28 62 65 | ified.ate.the.end.of.BUTTONS.(be |
70a0 | 63 61 75 73 65 20 67 72 6f 75 70 73 20 64 69 73 74 72 69 62 75 74 65 0a 70 72 6f 70 65 72 74 69 | cause.groups.distribute.properti |
70c0 | 65 73 20 74 6f 20 61 6c 6c 20 69 74 73 20 65 6c 65 6d 65 6e 74 73 29 2e 20 20 60 66 6f 6f 27 20 | es.to.all.its.elements)...`foo'. |
70e0 | 61 6e 64 20 60 62 61 72 27 20 77 69 6c 6c 20 62 65 0a 69 6e 73 65 72 74 65 64 20 6f 6e 6c 79 20 | and.`bar'.will.be.inserted.only. |
7100 | 69 66 20 60 66 6f 6f 2d 62 61 72 27 20 65 76 61 6c 75 61 74 69 6f 6e 20 79 69 65 6c 64 73 20 6e | if.`foo-bar'.evaluation.yields.n |
7120 | 6f 6e 2d 6e 69 6c 2e 0a 0a 4e 6f 74 65 20 6f 6e 20 68 6f 77 20 76 61 6c 75 65 73 20 6f 66 20 70 | on-nil...Note.on.how.values.of.p |
7140 | 72 6f 70 65 72 74 69 65 73 20 61 72 65 20 6f 62 74 61 69 6e 65 64 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d | roperties.are.obtained.========= |
7160 | 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d | ================================ |
7180 | 3d 3d 3d 3d 0a 0a 46 6f 72 20 65 61 63 68 20 70 72 6f 70 65 72 74 79 20 50 52 4f 50 2c 20 69 74 | ====..For.each.property.PROP,.it |
71a0 | 73 20 76 61 6c 75 65 20 73 68 6f 75 6c 64 20 62 65 20 65 69 74 68 65 72 3a 0a 20 20 20 69 29 20 | s.value.should.be.either:....i). |
71c0 | 61 20 76 65 63 74 6f 72 20 6f 66 20 32 20 65 6c 65 6d 65 6e 74 73 3b 20 74 68 65 6e 20 65 61 63 | a.vector.of.2.elements;.then.eac |
71e0 | 68 20 65 6c 65 6d 65 6e 74 20 73 68 6f 75 6c 64 20 62 65 20 6f 66 20 74 68 65 0a 20 20 20 20 20 | h.element.should.be.of.the...... |
7200 | 20 62 61 73 69 63 20 74 79 70 65 20 6f 66 20 50 52 4f 50 2e 0a 20 20 69 69 29 20 61 6e 20 65 6c | .basic.type.of.PROP....ii).an.el |
7220 | 65 6d 65 6e 74 20 6f 6e 20 74 68 65 20 62 61 73 69 63 20 74 79 70 65 20 6f 66 20 50 52 4f 50 2e | ement.on.the.basic.type.of.PROP. |
7240 | 0a 20 69 69 69 29 20 61 20 66 75 6e 63 74 69 6f 6e 20 28 74 68 61 74 20 64 6f 65 73 20 6e 6f 74 | ..iii).a.function.(that.does.not |
7260 | 20 6e 65 65 64 20 61 72 67 75 6d 65 6e 74 73 29 3b 20 69 74 20 69 73 20 65 76 61 6c 75 61 74 65 | .need.arguments);.it.is.evaluate |
7280 | 64 0a 20 20 20 20 20 20 61 6e 64 20 74 68 65 20 72 65 74 75 72 6e 20 73 68 6f 75 6c 64 20 62 65 | d.......and.the.return.should.be |
72a0 | 20 6f 74 20 74 79 70 65 20 69 29 20 6f 72 20 69 69 29 20 61 62 6f 76 65 0a 20 20 69 76 29 20 61 | .ot.type.i).or.ii).above...iv).a |
72c0 | 20 73 79 6d 62 6f 6c 20 62 6f 75 6e 64 20 74 6f 20 61 20 65 6c 65 6d 65 6e 74 20 6f 66 20 74 79 | .symbol.bound.to.a.element.of.ty |
72e0 | 70 65 20 69 29 20 6f 72 20 69 69 29 2e 0a 0a 54 68 65 20 74 79 70 65 20 69 73 20 63 68 65 63 68 | pe.i).or.ii)...The.type.is.chech |
7300 | 65 64 20 69 6e 20 74 68 65 20 6f 72 64 65 72 20 69 29 2c 20 69 69 29 20 69 69 69 29 20 61 6e 64 | ed.in.the.order.i),.ii).iii).and |
7320 | 20 69 76 29 2e 20 20 54 68 69 73 0a 65 76 61 6c 75 61 74 69 6f 6e 73 20 61 72 65 20 64 6f 6e 65 | .iv)...This.evaluations.are.done |
7340 | 20 65 76 65 72 79 20 74 69 6d 65 20 74 68 61 74 20 74 68 65 20 6f 6f 6c 62 61 72 20 69 73 20 72 | .every.time.that.the.oolbar.is.r |
7360 | 65 66 72 65 73 68 2e 0a 0a 50 73 2e 3a 20 69 6e 20 6f 72 64 65 72 20 74 6f 20 73 70 65 63 69 66 | efresh...Ps.:.in.order.to.specif |
7380 | 79 20 61 20 76 65 63 74 6f 72 20 61 73 20 76 61 6c 75 65 20 6f 66 20 61 20 70 72 6f 70 65 72 74 | y.a.vector.as.value.of.a.propert |
73a0 | 79 20 28 6c 69 6b 65 0a 74 68 65 20 3a 69 6d 61 67 65 20 69 6e 20 45 6d 61 63 73 29 2c 20 69 74 | y.(like.the.:image.in.Emacs),.it |
73c0 | 20 69 73 20 6e 65 63 65 73 73 61 72 79 20 74 6f 20 70 72 6f 76 69 64 65 20 74 68 65 20 76 65 63 | .is.necessary.to.provide.the.vec |
73e0 | 74 6f 72 20 61 73 0a 65 6c 65 6d 65 6e 74 20 6f 66 20 61 6e 6f 74 68 65 72 20 76 65 63 74 6f 72 | tor.as.element.of.another.vector |
7400 | 2e 0a 0a 53 70 65 63 69 61 6c 20 67 72 6f 75 70 73 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d | ...Special.groups.============== |
7420 | 0a 0a 45 76 61 6c 20 67 72 6f 75 70 73 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 49 66 20 74 68 | ..Eval.groups.-----------..If.th |
7440 | 65 20 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 20 6f 66 20 61 20 67 72 6f 75 70 20 69 73 20 74 68 | e.first.element.of.a.group.is.th |
7460 | 65 20 73 79 6d 62 6f 6c 20 60 3a 65 76 61 6c 2d 67 72 6f 75 70 27 2c 20 65 61 63 68 0a 65 6c 65 | e.symbol.`:eval-group',.each.ele |
7480 | 6d 65 6e 74 20 69 73 20 65 76 61 6c 75 61 74 65 64 20 28 77 69 74 68 20 60 65 76 61 6c 27 29 2c | ment.is.evaluated.(with.`eval'), |
74a0 | 20 70 75 74 20 69 6e 73 69 64 65 20 61 20 6c 69 73 74 20 61 6e 64 0a 70 72 6f 63 65 73 73 65 64 | .put.inside.a.list.and.processed |
74c0 | 20 6c 69 6b 65 20 61 20 67 72 6f 75 70 2e 20 20 45 76 61 6c 20 67 72 6f 75 70 73 20 61 72 65 20 | .like.a.group...Eval.groups.are. |
74e0 | 75 73 65 66 75 6c 20 74 6f 20 73 74 6f 72 65 0a 64 65 66 69 6e 69 74 69 6f 6e 20 6f 66 20 62 75 | useful.to.store.definition.of.bu |
7500 | 74 74 6f 6e 73 20 69 6e 20 61 20 76 61 72 69 61 62 6c 65 2e 0a 0a 44 72 6f 70 64 6f 77 6e 20 67 | ttons.in.a.variable...Dropdown.g |
7520 | 72 6f 75 70 73 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 54 68 65 20 69 64 65 61 20 | roups.---------------..The.idea. |
7540 | 69 73 20 74 6f 20 73 70 65 63 69 66 79 20 61 20 73 65 74 20 6f 66 20 62 75 74 74 6f 6e 73 20 74 | is.to.specify.a.set.of.buttons.t |
7560 | 68 61 74 20 61 70 70 65 61 72 20 77 68 65 6e 20 61 0a 64 65 74 65 72 6d 69 6e 65 64 20 6d 65 6e | hat.appear.when.a.determined.men |
7580 | 75 20 69 74 65 6d 20 6f 66 20 61 20 64 72 6f 70 64 6f 77 6e 20 6d 65 6e 75 20 69 73 20 61 63 74 | u.item.of.a.dropdown.menu.is.act |
75a0 | 69 76 65 2e 20 20 54 68 65 20 64 72 6f 70 64 6f 77 6e 0a 6d 65 6e 75 20 61 70 70 65 61 72 73 20 | ive...The.dropdown.menu.appears. |
75c0 | 77 68 65 6e 20 61 20 62 75 74 74 6f 6e 20 28 62 79 20 64 65 66 61 75 6c 74 20 77 69 74 68 20 61 | when.a.button.(by.default.with.a |
75e0 | 20 74 72 69 61 6e 67 6c 65 20 70 6f 69 6e 74 69 6e 67 0a 64 6f 77 6e 29 20 69 73 20 63 6c 69 63 | .triangle.pointing.down).is.clic |
7600 | 6b 65 64 2e 20 20 54 68 69 73 20 62 75 74 74 6f 6e 20 69 73 20 63 61 6c 6c 65 64 20 60 64 72 6f | ked...This.button.is.called.`dro |
7620 | 70 64 6f 77 6e 20 62 75 74 74 6f 6e 27 2e 20 20 54 68 65 0a 64 72 6f 70 64 6f 77 6e 20 62 75 74 | pdown.button'...The.dropdown.but |
7640 | 74 6f 6e 20 61 70 70 65 61 72 73 20 6f 6e 20 74 68 65 20 6c 65 66 74 20 6f 66 20 74 68 65 20 63 | ton.appears.on.the.left.of.the.c |
7660 | 75 72 72 65 6e 74 6c 79 20 76 69 73 69 62 6c 65 0a 62 75 74 74 6f 6e 73 20 6f 66 20 74 68 65 20 | urrently.visible.buttons.of.the. |
7680 | 64 72 6f 70 64 6f 77 6e 20 67 72 6f 75 70 2e 0a 0a 41 20 64 72 6f 70 64 6f 77 6e 20 67 72 6f 75 | dropdown.group...A.dropdown.grou |
76a0 | 70 20 69 73 20 61 20 6c 69 73 74 20 77 68 69 63 68 20 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 20 | p.is.a.list.which.first.element. |
76c0 | 69 73 20 74 68 65 20 73 79 6d 62 6f 6c 0a 60 3a 64 72 6f 70 64 6f 77 6e 2d 67 72 6f 75 70 27 20 | is.the.symbol.`:dropdown-group'. |
76e0 | 61 6e 64 20 69 6e 20 6f 6e 65 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 66 6f 72 6d | and.in.one.of.the.following.form |
7700 | 61 74 73 0a 20 20 28 3a 64 72 6f 70 64 6f 77 6e 2d 67 72 6f 75 70 20 53 59 4d 42 4f 4c 2d 31 20 | ats...(:dropdown-group.SYMBOL-1. |
7720 | 2e 2e 2e 20 53 59 4d 42 4f 4c 2d 6e 20 20 50 52 4f 50 2d 31 20 56 41 4c 2d 31 20 2e 2e 2e 20 50 | ....SYMBOL-n..PROP-1.VAL-1.....P |
7740 | 52 4f 50 2d 6b 20 56 41 4c 2d 6b 29 0a 6f 72 0a 20 20 28 3a 64 72 6f 70 64 6f 77 6e 2d 67 72 6f | ROP-k.VAL-k).or...(:dropdown-gro |
7760 | 75 70 0a 20 20 20 20 20 53 54 52 49 4e 47 2d 31 20 49 54 45 4d 2d 31 31 20 2e 2e 2e 20 49 54 45 | up......STRING-1.ITEM-11.....ITE |
7780 | 4d 2d 31 6e 0a 20 20 20 20 20 53 54 52 49 4e 47 2d 32 20 49 54 45 4d 2d 32 31 20 2e 2e 2e 20 49 | M-1n......STRING-2.ITEM-21.....I |
77a0 | 54 45 4d 2d 32 6d 0a 20 20 20 20 20 20 20 20 20 20 20 2e 20 2e 20 2e 0a 20 20 20 20 20 53 54 52 | TEM-2m.......................STR |
77c0 | 49 4e 47 2d 6e 20 49 54 45 4d 2d 6e 31 20 2e 2e 2e 20 49 54 45 4d 2d 6e 70 0a 20 20 20 20 20 20 | ING-n.ITEM-n1.....ITEM-np....... |
77e0 | 20 50 52 4f 50 2d 31 20 56 41 4c 2d 31 20 2e 2e 2e 20 50 52 4f 50 2d 6a 20 56 41 4c 2d 6a 29 0a | .PROP-1.VAL-1.....PROP-j.VAL-j). |
7800 | 77 68 65 72 65 0a 20 53 59 4d 42 4f 4c 2d 2a 20 69 73 20 61 20 73 79 6d 62 6f 6c 20 74 68 61 74 | where..SYMBOL-*.is.a.symbol.that |
7820 | 20 64 65 66 69 6e 65 73 20 61 20 62 75 74 74 6f 6e 20 69 6e 20 4d 45 41 4e 49 4e 47 2d 41 4c 49 | .defines.a.button.in.MEANING-ALI |
7840 | 53 54 3b 0a 20 53 54 52 49 4e 47 2d 2a 20 69 73 20 61 20 73 74 72 69 6e 67 20 74 68 61 74 20 77 | ST;..STRING-*.is.a.string.that.w |
7860 | 69 6c 6c 20 61 70 70 65 61 72 20 69 6e 20 74 68 65 20 64 72 6f 70 64 6f 77 6e 20 6d 65 6e 75 3b | ill.appear.in.the.dropdown.menu; |
7880 | 0a 20 49 54 45 4d 2d 2a 20 69 73 20 61 6e 79 20 66 6f 72 6d 61 74 20 74 68 61 74 20 64 65 66 69 | ..ITEM-*.is.any.format.that.defi |
78a0 | 6e 65 20 62 75 74 74 6f 6e 73 20 6f 72 20 67 72 6f 75 70 73 2e 0a 0a 28 61 20 64 72 6f 70 64 6f | ne.buttons.or.groups...(a.dropdo |
78c0 | 77 6e 20 67 72 6f 75 70 20 6f 66 20 66 69 72 73 74 20 66 6f 72 6d 61 74 20 69 73 20 69 6e 74 65 | wn.group.of.first.format.is.inte |
78e0 | 72 6e 61 6c 6c 79 20 63 6f 6e 76 65 72 74 65 64 20 74 6f 20 74 68 65 0a 73 65 63 6f 6e 64 20 62 | rnally.converted.to.the.second.b |
7900 | 79 20 6d 61 6b 69 6e 67 20 73 74 72 69 6e 67 73 20 66 72 6f 6d 20 74 68 65 20 73 79 6d 62 6f 6c | y.making.strings.from.the.symbol |
7920 | 73 20 61 6e 64 20 65 61 63 68 20 73 79 6d 62 6f 6c 20 69 73 20 74 68 65 0a 69 74 65 6d 29 0a 0a | s.and.each.symbol.is.the.item).. |
7940 | 54 68 65 20 73 61 6d 65 20 72 75 6c 65 73 20 66 6f 72 20 6f 62 74 61 69 6e 69 6e 67 20 70 72 6f | The.same.rules.for.obtaining.pro |
7960 | 70 65 72 74 79 20 76 61 6c 75 65 73 2c 20 64 65 73 63 72 69 62 65 64 20 61 62 6f 76 65 2c 0a 61 | perty.values,.described.above,.a |
7980 | 70 70 6c 79 20 68 65 72 65 2e 20 20 50 72 6f 70 65 72 74 69 65 73 20 61 72 65 20 61 6c 73 6f 20 | pply.here...Properties.are.also. |
79a0 | 64 69 73 74 72 69 62 75 74 65 64 20 62 79 20 67 72 6f 75 70 73 2e 20 20 54 68 65 0a 73 75 70 70 | distributed.by.groups...The.supp |
79c0 | 6f 72 74 65 64 20 70 72 6f 70 65 72 74 69 65 73 20 61 6e 64 20 74 68 65 69 72 20 62 61 73 69 63 | orted.properties.and.their.basic |
79e0 | 20 74 79 70 65 20 61 72 65 3a 0a 0a 20 3a 74 79 70 65 20 2d 2d 20 6f 6e 65 20 6f 66 20 74 68 65 | .type.are:...:type.--.one.of.the |
7a00 | 20 73 79 6d 62 6f 6c 73 20 60 72 61 64 69 6f 27 20 28 64 65 66 61 75 6c 74 29 20 6f 72 20 60 74 | .symbols.`radio'.(default).or.`t |
7a20 | 6f 67 67 6c 65 27 3b 20 69 66 0a 20 20 20 74 79 70 65 20 69 73 20 72 61 64 69 6f 2c 20 6f 6e 6c | oggle';.if....type.is.radio,.onl |
7a40 | 79 20 6f 6e 65 20 6f 66 20 74 68 65 20 69 74 65 6e 73 20 6d 61 79 20 62 65 20 61 63 74 69 76 65 | y.one.of.the.itens.may.be.active |
7a60 | 2c 20 61 6e 64 20 69 66 0a 20 20 20 74 79 70 65 20 69 73 20 74 6f 67 67 6c 65 2c 20 61 6e 79 20 | ,.and.if....type.is.toggle,.any. |
7a80 | 69 74 65 6d 20 6e 75 6d 62 65 72 20 6f 66 20 69 74 65 6e 73 20 63 61 6e 20 62 65 20 61 63 74 69 | item.number.of.itens.can.be.acti |
7aa0 | 76 65 2e 0a 0a 20 3a 76 61 72 69 61 62 6c 65 20 2d 2d 20 61 20 73 79 6d 62 6f 6c 3b 20 69 74 20 | ve....:variable.--.a.symbol;.it. |
7ac0 | 69 73 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 74 68 61 74 20 67 6f 76 65 72 6e 20 74 68 65 0a | is.the.variable.that.govern.the. |
7ae0 | 20 20 20 64 72 6f 70 64 6f 77 6e 20 62 75 74 74 6f 6e 3b 20 65 76 65 72 79 20 74 69 6d 65 20 74 | ...dropdown.button;.every.time.t |
7b00 | 68 65 20 76 61 6c 75 65 20 73 68 6f 75 6c 64 20 62 65 20 61 6e 20 69 6e 74 65 67 65 72 0a 20 20 | he.value.should.be.an.integer... |
7b20 | 20 73 74 61 72 74 69 6e 67 20 66 72 6f 6d 20 31 20 28 69 66 20 74 79 70 65 20 69 73 20 72 61 64 | .starting.from.1.(if.type.is.rad |
7b40 | 69 6f 29 20 6f 72 20 61 20 6c 69 73 74 20 6f 66 20 69 6e 74 65 67 65 72 73 20 28 69 66 0a 20 20 | io).or.a.list.of.integers.(if... |
7b60 | 20 74 79 70 65 20 69 73 20 74 6f 67 67 6c 65 29 2e 20 20 54 68 65 20 4e 74 68 20 73 65 74 20 6f | .type.is.toggle)...The.Nth.set.o |
7b80 | 66 20 62 75 74 74 6f 6e 73 20 69 73 20 3a 69 6e 73 65 72 74 27 65 64 2e 0a 0a 20 3a 64 65 66 61 | f.buttons.is.:insert'ed....:defa |
7ba0 | 75 6c 74 20 2d 2d 20 64 65 74 65 72 6d 69 6e 65 73 20 74 68 65 20 64 65 66 61 75 6c 74 20 76 61 | ult.--.determines.the.default.va |
7bc0 | 6c 75 65 20 77 68 65 6e 20 74 68 65 20 6d 65 6e 75 20 69 73 0a 20 20 20 69 6e 73 74 61 6c 6c 65 | lue.when.the.menu.is....installe |
7be0 | 64 3b 20 69 74 20 69 73 20 69 67 6e 6f 72 65 64 20 69 66 20 61 20 76 61 6c 75 65 20 77 61 73 20 | d;.it.is.ignored.if.a.value.was. |
7c00 | 73 61 76 65 64 20 77 69 74 68 20 63 75 73 74 6f 6d 3b 20 69 74 0a 20 20 20 64 65 66 61 75 6c 74 | saved.with.custom;.it....default |
7c20 | 73 20 74 6f 20 31 20 69 66 20 74 79 70 65 20 69 73 20 72 61 64 69 6f 20 6f 72 20 6e 69 6c 20 69 | s.to.1.if.type.is.radio.or.nil.i |
7c40 | 66 20 74 79 70 65 20 69 73 20 74 6f 67 67 6c 65 2e 20 20 49 66 0a 20 20 20 76 61 6c 75 65 20 69 | f.type.is.toggle...If....value.i |
7c60 | 73 20 61 20 69 6e 74 65 67 65 72 20 61 6e 64 20 74 79 70 65 20 69 73 20 60 74 6f 67 67 6c 65 27 | s.a.integer.and.type.is.`toggle' |
7c80 | 2c 20 76 61 6c 75 65 20 75 73 65 64 20 69 73 20 61 20 6c 69 73 74 0a 20 20 20 77 69 74 68 20 74 | ,.value.used.is.a.list....with.t |
7ca0 | 68 61 74 20 69 6e 74 65 67 65 72 2e 0a 0a 20 3a 73 61 76 65 20 2d 2d 20 6f 6e 65 20 6f 66 20 74 | hat.integer....:save.--.one.of.t |
7cc0 | 68 65 20 73 79 6d 62 6f 6c 73 20 6e 69 6c 20 28 64 65 66 61 75 6c 74 29 2c 20 60 6f 66 66 65 72 | he.symbols.nil.(default),.`offer |
7ce0 | 27 20 6f 72 0a 20 20 20 60 61 6c 77 61 79 73 27 3b 20 64 65 74 65 72 6d 69 6e 65 64 20 69 66 20 | '.or....`always';.determined.if. |
7d00 | 69 74 20 69 73 20 70 6f 73 73 69 62 6c 65 20 66 6f 72 20 74 68 65 20 75 73 65 72 20 74 6f 20 73 | it.is.possible.for.the.user.to.s |
7d20 | 61 76 65 0a 20 20 20 74 68 65 20 77 68 69 63 68 20 6d 65 6e 75 20 69 74 65 6e 73 20 61 72 65 20 | ave....the.which.menu.itens.are. |
7d40 | 61 63 74 69 76 65 2c 20 66 6f 72 20 61 20 6e 65 78 74 20 73 65 73 73 69 6f 6e 2e 20 20 49 66 20 | active,.for.a.next.session...If. |
7d60 | 76 61 6c 75 65 0a 20 20 20 69 73 20 60 6f 66 66 65 72 27 2c 20 61 20 69 74 65 6d 20 28 6f 66 66 | value....is.`offer',.a.item.(off |
7d80 | 65 72 69 6e 67 20 74 6f 20 73 61 76 65 29 20 69 73 20 61 64 64 65 64 20 74 6f 20 74 68 65 0a 20 | ering.to.save).is.added.to.the.. |
7da0 | 20 20 70 6f 70 75 70 20 6d 65 6e 75 2e 20 20 49 66 20 74 68 65 20 76 61 6c 75 65 20 69 73 20 60 | ..popup.menu...If.the.value.is.` |
7dc0 | 61 6c 77 61 79 73 27 2c 20 65 76 65 72 79 20 74 69 6d 65 20 74 68 61 74 20 61 20 69 74 65 6d 0a | always',.every.time.that.a.item. |
7de0 | 20 20 20 69 73 20 73 65 6c 65 63 74 65 64 2c 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 69 73 20 | ...is.selected,.the.variable.is. |
7e00 | 73 61 76 65 64 2e 20 20 49 66 20 76 61 6c 75 65 20 69 73 20 6e 69 6c 2c 20 76 61 72 69 61 62 6c | saved...If.value.is.nil,.variabl |
7e20 | 65 0a 20 20 20 73 68 61 6c 6c 20 6e 6f 74 20 62 65 20 73 61 76 65 64 2e 20 20 49 66 20 76 61 6c | e....shall.not.be.saved...If.val |
7e40 | 75 65 20 69 73 20 6e 6f 6e 2d 6e 69 6c 20 74 68 65 6e 20 60 3a 76 61 72 69 61 62 6c 65 27 20 69 | ue.is.non-nil.then.`:variable'.i |
7e60 | 73 0a 20 20 20 6d 61 6e 64 61 74 6f 72 79 2e 0a 0a 20 3a 74 69 74 6c 65 20 2d 2d 20 61 20 73 74 | s....mandatory....:title.--.a.st |
7e80 | 72 69 6e 67 20 6f 72 20 6e 69 6c 3b 20 69 66 20 61 20 73 74 72 69 6e 67 2c 20 74 68 65 20 70 6f | ring.or.nil;.if.a.string,.the.po |
7ea0 | 70 75 70 20 6d 65 6e 75 20 77 69 6c 6c 20 73 68 6f 77 0a 20 20 20 69 73 20 61 73 20 6d 65 6e 75 | pup.menu.will.show....is.as.menu |
7ec0 | 20 74 69 74 6c 65 3b 20 69 66 20 6e 69 6c 2c 20 6e 6f 20 74 69 74 6c 65 20 69 73 20 73 68 6f 77 | .title;.if.nil,.no.title.is.show |
7ee0 | 6e 2e 0a 0a 20 3a 64 72 6f 70 64 6f 77 6e 2d 68 65 6c 70 20 2d 2d 20 61 20 73 74 72 69 6e 67 20 | n....:dropdown-help.--.a.string. |
7f00 | 6f 72 20 6e 69 6c 3b 20 74 68 65 20 68 65 6c 70 20 73 74 72 69 6e 67 20 6f 66 20 74 68 65 0a 20 | or.nil;.the.help.string.of.the.. |
7f20 | 20 20 64 72 6f 70 64 6f 77 6e 20 62 75 74 74 6f 6e 2e 0a 0a 20 3a 64 72 6f 70 64 6f 77 6e 2d 69 | ..dropdown.button....:dropdown-i |
7f40 | 6d 61 67 65 20 2d 2d 20 65 69 74 68 65 72 20 61 20 73 74 72 69 6e 67 20 6f 72 20 61 20 76 65 63 | mage.--.either.a.string.or.a.vec |
7f60 | 74 6f 72 20 6f 66 20 34 20 73 74 72 69 6e 67 73 3b 0a 20 20 20 64 65 66 69 6e 65 73 20 74 68 65 | tor.of.4.strings;....defines.the |
7f80 | 20 69 6d 61 67 65 20 20 20 66 69 6c 65 20 64 69 73 70 6c 61 79 65 64 20 62 79 20 74 68 65 20 64 | .image...file.displayed.by.the.d |
7fa0 | 72 6f 70 64 6f 77 6e 20 62 75 74 74 6f 6e 3b 0a 20 20 20 62 79 20 64 65 66 61 75 6c 74 2c 20 69 | ropdown.button;....by.default,.i |
7fc0 | 74 20 69 73 20 74 68 65 20 73 74 72 69 6e 67 20 22 64 72 6f 70 64 6f 77 6e 22 2e 0a 0a 20 3a 64 | t.is.the.string."dropdown"....:d |
7fe0 | 72 6f 70 64 6f 77 6e 2d 61 70 70 65 6e 64 2d 63 6f 6d 6d 61 6e 64 2c 0a 20 3a 64 72 6f 70 64 6f | ropdown-append-command,..:dropdo |
8000 | 77 6e 70 72 65 70 65 6e 64 2d 63 6f 6d 6d 61 6e 64 20 2d 2d 20 61 20 66 6f 72 6d 3b 20 61 70 70 | wnprepend-command.--.a.form;.app |
8020 | 65 6e 64 20 6f 72 20 70 72 65 70 65 6e 64 20 66 6f 72 6d 73 20 74 6f 0a 20 20 20 74 68 65 20 63 | end.or.prepend.forms.to....the.c |
8040 | 6f 6d 6d 61 6e 64 20 74 68 61 74 20 73 68 6f 77 73 20 74 68 65 20 64 72 6f 70 64 6f 77 6e 20 6d | ommand.that.shows.the.dropdown.m |
8060 | 65 6e 75 2c 20 61 6c 6c 6f 77 69 6e 67 20 65 78 74 72 61 20 63 6f 64 65 0a 20 20 20 74 6f 20 72 | enu,.allowing.extra.code....to.r |
8080 | 75 6e 20 62 65 66 6f 72 65 20 6f 72 20 61 66 74 65 72 20 74 68 65 20 6d 65 6e 75 20 61 70 70 65 | un.before.or.after.the.menu.appe |
80a0 | 61 72 73 20 28 72 65 6d 65 6d 62 65 72 20 74 68 61 74 20 65 76 65 72 79 0a 20 20 20 6d 65 6e 75 | ars.(remember.that.every....menu |
80c0 | 20 69 74 65 6d 20 63 6c 69 63 6b 65 64 20 72 65 66 72 65 73 68 20 74 68 65 20 74 6f 6f 6c 62 61 | .item.clicked.refresh.the.toolba |
80e0 | 72 2e 29 0a 0a 20 3a 64 72 6f 70 64 6f 77 6e 2d 65 6e 61 62 6c 65 20 2d 2d 20 61 20 66 6f 72 6d | r.)...:dropdown-enable.--.a.form |
8100 | 3b 20 65 76 61 6c 75 61 74 65 64 20 63 6f 6e 73 74 61 6e 74 6c 79 20 62 79 20 62 6f 74 68 20 65 | ;.evaluated.constantly.by.both.e |
8120 | 64 69 74 6f 72 73 0a 20 20 20 74 6f 20 64 65 74 65 72 6d 69 6e 65 20 69 66 20 74 68 65 20 64 72 | ditors....to.determine.if.the.dr |
8140 | 6f 70 64 6f 77 6e 20 62 75 74 74 6f 6e 20 69 73 20 61 63 74 69 76 65 20 28 65 6e 61 62 6c 65 64 | opdown.button.is.active.(enabled |
8160 | 29 20 6f 72 0a 20 20 20 6e 6f 74 2e 0a 0a 20 3a 64 72 6f 70 64 6f 77 6e 2d 76 69 73 69 62 6c 65 | ).or....not....:dropdown-visible |
8180 | 20 2d 2d 20 61 20 66 6f 72 6d 3b 20 69 74 20 69 73 20 65 76 61 6c 75 61 74 65 64 0a 20 20 20 63 | .--.a.form;.it.is.evaluated....c |
81a0 | 6f 6e 73 74 61 6e 74 6c 79 20 74 6f 20 64 65 74 65 72 6d 69 6e 65 20 69 66 20 74 68 65 20 64 72 | onstantly.to.determine.if.the.dr |
81c0 | 6f 70 64 6f 77 6e 20 62 75 74 74 6f 6e 20 69 73 20 76 69 73 69 62 6c 65 2e 0a 0a 41 6c 73 6f 2c | opdown.button.is.visible...Also, |
81e0 | 20 69 66 20 74 68 65 20 73 79 6d 62 6f 6c 20 60 64 72 6f 70 64 6f 77 6e 27 20 69 73 20 61 73 73 | .if.the.symbol.`dropdown'.is.ass |
8200 | 6f 63 69 74 65 64 20 69 6e 20 4d 45 41 4e 49 4e 47 2d 41 4c 49 53 54 0a 77 69 74 68 20 73 6f 6d | ocited.in.MEANING-ALIST.with.som |
8220 | 65 20 70 72 6f 70 65 72 74 69 65 73 2c 20 74 68 65 73 65 20 70 72 6f 70 65 72 74 69 65 73 20 6f | e.properties,.these.properties.o |
8240 | 76 65 72 72 69 64 65 20 28 6f 72 20 61 64 64 29 20 77 69 74 68 0a 68 69 67 68 65 72 20 70 72 65 | verride.(or.add).with.higher.pre |
8260 | 63 65 64 65 6e 63 65 2e 0a 0a 53 70 65 63 69 61 6c 20 62 75 74 74 6f 6e 73 0a 3d 3d 3d 3d 3d 3d | cedence...Special.buttons.====== |
8280 | 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 49 66 20 74 68 65 20 73 79 6d 62 6f 6c 20 6f 66 20 61 20 62 75 | =========..If.the.symbol.of.a.bu |
82a0 | 74 74 6f 6e 20 69 73 20 60 3a 6e 65 77 2d 6c 69 6e 65 27 2c 20 69 74 20 69 73 20 69 6e 73 65 72 | tton.is.`:new-line',.it.is.inser |
82c0 | 74 65 64 0a 61 20 28 66 61 6b 65 64 29 20 72 65 74 75 72 6e 2c 20 61 6e 64 20 74 68 65 20 6e 65 | ted.a.(faked).return,.and.the.ne |
82e0 | 78 74 20 62 75 74 74 6f 6e 20 77 69 6c 6c 20 62 65 20 64 69 73 70 6c 61 79 65 64 20 61 20 6e 65 | xt.button.will.be.displayed.a.ne |
8300 | 78 74 0a 6c 69 6e 65 20 6f 66 20 62 75 74 74 6f 6e 73 2e 20 20 54 68 65 20 6f 6e 6c 79 20 70 72 | xt.line.of.buttons...The.only.pr |
8320 | 6f 70 65 72 74 79 20 73 75 70 70 6f 72 74 65 64 20 66 6f 72 20 74 68 69 73 20 62 75 74 74 6f 6e | operty.supported.for.this.button |
8340 | 20 69 73 0a 60 3a 69 6e 73 65 72 74 27 2e 0a 0a 28 66 6e 20 42 55 54 54 4f 4e 53 20 26 6f 70 74 | .is.`:insert'...(fn.BUTTONS.&opt |
8360 | 69 6f 6e 61 6c 20 4d 45 41 4e 49 4e 47 2d 41 4c 49 53 54 20 47 4c 4f 42 41 4c 2d 46 4c 41 47 29 | ional.MEANING-ALIST.GLOBAL-FLAG) |
8380 | 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 74 6f 6f 6c 62 61 72 78 2d 69 6e 73 74 61 6c 6c 2d 74 6f | ..(defalias.'toolbarx-install-to |
83a0 | 6f 6c 62 61 72 20 23 5b 37 36 39 20 22 5c 33 30 31 03 03 5c 33 30 32 5c 32 31 31 24 01 5c 32 30 | olbar.#[769."\301..\302\211$.\20 |
83c0 | 33 13 00 5c 33 30 33 5c 33 30 30 02 5c 22 5c 32 36 36 02 5c 32 30 32 1e 00 5c 33 30 34 5c 33 30 | 3..\303\300.\"\266.\202..\304\30 |
83e0 | 30 21 5c 32 31 30 5c 32 31 31 10 5c 33 30 34 5c 33 30 35 21 5c 32 36 36 02 5c 33 30 36 01 21 5c | 0!\210\211.\304\305!\266.\306.!\ |
8400 | 32 30 37 22 20 5b 74 6f 6f 6c 62 61 72 78 2d 69 6e 74 65 72 6e 61 6c 2d 62 75 74 74 6f 6e 2d 73 | 207".[toolbarx-internal-button-s |
8420 | 77 69 74 63 68 65 73 20 74 6f 6f 6c 62 61 72 78 2d 70 72 6f 63 65 73 73 2d 67 72 6f 75 70 20 6e | witches.toolbarx-process-group.n |
8440 | 69 6c 20 73 65 74 2d 64 65 66 61 75 6c 74 20 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 | il.set-default.make-local-variab |
8460 | 6c 65 20 74 6f 6f 6c 2d 62 61 72 2d 6d 61 70 20 74 6f 6f 6c 62 61 72 78 2d 72 65 66 72 65 73 68 | le.tool-bar-map.toolbarx-refresh |
8480 | 5d 20 38 20 28 23 24 20 2e 20 32 34 33 34 35 29 5d 29 0a 23 40 36 39 34 20 41 20 6d 65 61 6e 69 | ].8.(#$...24345)]).#@694.A.meani |
84a0 | 6e 67 20 61 6c 69 73 74 20 77 69 74 68 20 64 65 66 69 6e 69 74 69 6f 6e 20 6f 66 20 74 68 65 20 | ng.alist.with.definition.of.the. |
84c0 | 64 65 66 61 75 6c 74 20 62 75 74 74 6f 6e 73 2e 0a 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 62 | default.buttons..The.following.b |
84e0 | 75 74 74 6f 6e 73 20 61 72 65 20 61 76 61 69 6c 61 62 6c 65 3a 0a 0a 20 20 60 6f 70 65 6e 2d 66 | uttons.are.available:....`open-f |
8500 | 69 6c 65 27 2c 20 60 64 69 72 65 64 27 2c 20 60 73 61 76 65 2d 62 75 66 66 65 72 27 2c 0a 20 20 | ile',.`dired',.`save-buffer',... |
8520 | 60 75 6e 64 6f 27 2c 20 60 63 75 74 27 2c 20 60 63 6f 70 79 27 2c 20 60 70 61 73 74 65 27 2c 20 | `undo',.`cut',.`copy',.`paste',. |
8540 | 60 73 65 61 72 63 68 2d 72 65 70 6c 61 63 65 27 2c 20 60 70 72 69 6e 74 2d 62 75 66 66 65 72 27 | `search-replace',.`print-buffer' |
8560 | 2c 0a 20 20 60 73 70 65 6c 6c 2d 62 75 66 66 65 72 27 2c 20 60 69 6e 66 6f 27 2e 0a 20 20 60 6e | ,...`spell-buffer',.`info'....`n |
8580 | 65 77 2d 66 69 6c 65 27 2c 20 60 77 72 69 74 65 2d 66 69 6c 65 27 2c 20 60 73 65 61 72 63 68 2d | ew-file',.`write-file',.`search- |
85a0 | 66 6f 72 77 61 72 64 27 2c 0a 20 20 60 63 75 73 74 6f 6d 69 7a 65 27 2c 20 60 68 65 6c 70 27 2c | forward',...`customize',.`help', |
85c0 | 20 60 6b 69 6c 6c 2d 62 75 66 66 65 72 27 2c 20 60 65 78 69 74 2d 65 6d 61 63 73 27 2e 0a 0a 54 | .`kill-buffer',.`exit-emacs'...T |
85e0 | 6f 20 72 65 70 72 6f 64 75 63 65 20 74 68 65 20 64 65 66 61 75 6c 74 20 74 6f 6f 6c 62 61 72 20 | o.reproduce.the.default.toolbar. |
8600 | 77 69 74 68 20 75 73 65 20 61 73 20 42 55 54 54 4f 4e 0a 69 6e 20 60 74 6f 6f 6c 62 61 72 78 2d | with.use.as.BUTTON.in.`toolbarx- |
8620 | 69 6e 73 74 61 6c 6c 2d 74 6f 6f 6c 62 61 72 27 3a 0a 0a 28 74 6f 6f 6c 62 61 72 78 2d 69 6e 73 | install-toolbar':..(toolbarx-ins |
8640 | 74 61 6c 6c 2d 74 6f 6f 6c 62 61 72 0a 20 5c 3d 27 28 28 6f 70 65 6e 2d 66 69 6c 65 20 64 69 72 | tall-toolbar..\='((open-file.dir |
8660 | 65 64 20 6b 69 6c 6c 2d 62 75 66 66 65 72 20 73 61 76 65 2d 62 75 66 66 65 72 20 77 72 69 74 65 | ed.kill-buffer.save-buffer.write |
8680 | 2d 66 69 6c 65 20 75 6e 64 6f 20 63 75 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f | -file.undo.cut................co |
86a0 | 70 79 20 70 61 73 74 65 20 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 70 72 69 6e 74 2d 62 75 | py.paste.search-forward.print-bu |
86c0 | 66 66 65 72 20 63 75 73 74 6f 6d 69 7a 65 20 68 65 6c 70 29 29 0a 20 74 6f 6f 6c 62 61 72 78 2d | ffer.customize.help))..toolbarx- |
86e0 | 64 65 66 61 75 6c 74 2d 74 6f 6f 6c 62 61 72 2d 6d 65 61 6e 69 6e 67 2d 61 6c 69 73 74 29 0a 0a | default-toolbar-meaning-alist).. |
8700 | 50 73 2e 3a 20 74 68 65 72 65 20 61 72 65 20 6d 6f 72 65 20 62 75 74 74 6f 6e 73 20 61 76 61 69 | Ps.:.there.are.more.buttons.avai |
8720 | 6c 61 62 6c 65 20 74 68 61 6e 20 73 75 67 67 65 73 74 65 64 20 69 6e 20 74 68 65 0a 65 78 70 72 | lable.than.suggested.in.the.expr |
8740 | 65 73 73 69 6f 6e 20 61 62 6f 76 65 2e 1f 0a 28 64 65 66 63 6f 6e 73 74 20 74 6f 6f 6c 62 61 72 | ession.above...(defconst.toolbar |
8760 | 78 2d 64 65 66 61 75 6c 74 2d 74 6f 6f 6c 62 61 72 2d 6d 65 61 6e 69 6e 67 2d 61 6c 69 73 74 20 | x-default-toolbar-meaning-alist. |
8780 | 27 28 28 73 65 70 61 72 61 74 6f 72 20 3a 69 6d 61 67 65 20 22 73 65 70 22 20 3a 63 6f 6d 6d 61 | '((separator.:image."sep".:comma |
87a0 | 6e 64 20 74 20 3a 65 6e 61 62 6c 65 20 6e 69 6c 20 3a 68 65 6c 70 20 22 22 29 20 28 6e 65 77 2d | nd.t.:enable.nil.:help."").(new- |
87c0 | 66 69 6c 65 20 3a 69 6d 61 67 65 20 22 6e 65 77 22 20 3a 63 6f 6d 6d 61 6e 64 20 66 69 6e 64 2d | file.:image."new".:command.find- |
87e0 | 66 69 6c 65 20 3a 65 6e 61 62 6c 65 20 28 6e 6f 74 20 28 77 69 6e 64 6f 77 2d 6d 69 6e 69 62 75 | file.:enable.(not.(window-minibu |
8800 | 66 66 65 72 2d 70 20 28 66 72 61 6d 65 2d 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 6d 65 | ffer-p.(frame-selected-window.me |
8820 | 6e 75 2d 75 70 64 61 74 69 6e 67 2d 66 72 61 6d 65 29 29 29 20 3a 68 65 6c 70 20 22 53 70 65 63 | nu-updating-frame))).:help."Spec |
8840 | 69 66 79 20 61 20 6e 65 77 20 66 69 6c 65 27 73 20 6e 61 6d 65 2c 20 74 6f 20 65 64 69 74 20 74 | ify.a.new.file's.name,.to.edit.t |
8860 | 68 65 20 66 69 6c 65 22 29 20 28 6f 70 65 6e 2d 66 69 6c 65 20 3a 69 6d 61 67 65 20 22 6f 70 65 | he.file").(open-file.:image."ope |
8880 | 6e 22 20 3a 63 6f 6d 6d 61 6e 64 20 6d 65 6e 75 2d 66 69 6e 64 2d 66 69 6c 65 2d 65 78 69 73 74 | n".:command.menu-find-file-exist |
88a0 | 69 6e 67 20 3a 65 6e 61 62 6c 65 20 28 6e 6f 74 20 28 77 69 6e 64 6f 77 2d 6d 69 6e 69 62 75 66 | ing.:enable.(not.(window-minibuf |
88c0 | 66 65 72 2d 70 20 28 66 72 61 6d 65 2d 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 6d 65 6e | fer-p.(frame-selected-window.men |
88e0 | 75 2d 75 70 64 61 74 69 6e 67 2d 66 72 61 6d 65 29 29 29 20 3a 68 65 6c 70 20 22 52 65 61 64 20 | u-updating-frame))).:help."Read. |
8900 | 61 20 66 69 6c 65 20 69 6e 74 6f 20 61 6e 20 45 6d 61 63 73 20 62 75 66 66 65 72 22 29 20 28 64 | a.file.into.an.Emacs.buffer").(d |
8920 | 69 72 65 64 20 3a 69 6d 61 67 65 20 22 64 69 72 6f 70 65 6e 22 20 3a 63 6f 6d 6d 61 6e 64 20 64 | ired.:image."diropen".:command.d |
8940 | 69 72 65 64 20 3a 68 65 6c 70 20 22 52 65 61 64 20 61 20 64 69 72 65 63 74 6f 72 79 2c 20 6f 70 | ired.:help."Read.a.directory,.op |
8960 | 65 72 61 74 65 20 6f 6e 20 69 74 73 20 66 69 6c 65 73 22 29 20 28 73 61 76 65 2d 62 75 66 66 65 | erate.on.its.files").(save-buffe |
8980 | 72 20 3a 69 6d 61 67 65 20 22 73 61 76 65 22 20 3a 63 6f 6d 6d 61 6e 64 20 73 61 76 65 2d 62 75 | r.:image."save".:command.save-bu |
89a0 | 66 66 65 72 20 3a 65 6e 61 62 6c 65 20 28 61 6e 64 20 28 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 | ffer.:enable.(and.(buffer-modifi |
89c0 | 65 64 2d 70 29 20 28 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 29 20 28 6e 6f 74 20 28 77 | ed-p).(buffer-file-name).(not.(w |
89e0 | 69 6e 64 6f 77 2d 6d 69 6e 69 62 75 66 66 65 72 2d 70 20 28 66 72 61 6d 65 2d 73 65 6c 65 63 74 | indow-minibuffer-p.(frame-select |
8a00 | 65 64 2d 77 69 6e 64 6f 77 20 6d 65 6e 75 2d 75 70 64 61 74 69 6e 67 2d 66 72 61 6d 65 29 29 29 | ed-window.menu-updating-frame))) |
8a20 | 29 20 3a 68 65 6c 70 20 22 53 61 76 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 74 6f 20 | ).:help."Save.current.buffer.to. |
8a40 | 69 74 73 20 66 69 6c 65 22 20 3a 76 69 73 69 62 6c 65 20 28 6f 72 20 62 75 66 66 65 72 2d 66 69 | its.file".:visible.(or.buffer-fi |
8a60 | 6c 65 2d 6e 61 6d 65 20 28 6e 6f 74 20 28 65 71 20 27 73 70 65 63 69 61 6c 20 28 67 65 74 20 6d | le-name.(not.(eq.'special.(get.m |
8a80 | 61 6a 6f 72 2d 6d 6f 64 65 20 27 6d 6f 64 65 2d 63 6c 61 73 73 29 29 29 29 29 20 28 77 72 69 74 | ajor-mode.'mode-class))))).(writ |
8aa0 | 65 2d 66 69 6c 65 20 3a 69 6d 61 67 65 20 22 73 61 76 65 61 73 22 20 3a 63 6f 6d 6d 61 6e 64 20 | e-file.:image."saveas".:command. |
8ac0 | 77 72 69 74 65 2d 66 69 6c 65 20 3a 65 6e 61 62 6c 65 20 28 6e 6f 74 20 28 77 69 6e 64 6f 77 2d | write-file.:enable.(not.(window- |
8ae0 | 6d 69 6e 69 62 75 66 66 65 72 2d 70 20 28 66 72 61 6d 65 2d 73 65 6c 65 63 74 65 64 2d 77 69 6e | minibuffer-p.(frame-selected-win |
8b00 | 64 6f 77 20 6d 65 6e 75 2d 75 70 64 61 74 69 6e 67 2d 66 72 61 6d 65 29 29 29 20 3a 68 65 6c 70 | dow.menu-updating-frame))).:help |
8b20 | 20 22 57 72 69 74 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 74 6f 20 61 6e 6f 74 68 65 | ."Write.current.buffer.to.anothe |
8b40 | 72 20 66 69 6c 65 22 20 3a 76 69 73 69 62 6c 65 20 28 6f 72 20 62 75 66 66 65 72 2d 66 69 6c 65 | r.file".:visible.(or.buffer-file |
8b60 | 2d 6e 61 6d 65 20 28 6e 6f 74 20 28 65 71 20 27 73 70 65 63 69 61 6c 20 28 67 65 74 20 6d 61 6a | -name.(not.(eq.'special.(get.maj |
8b80 | 6f 72 2d 6d 6f 64 65 20 27 6d 6f 64 65 2d 63 6c 61 73 73 29 29 29 29 29 20 28 75 6e 64 6f 20 3a | or-mode.'mode-class))))).(undo.: |
8ba0 | 69 6d 61 67 65 20 22 75 6e 64 6f 22 20 3a 63 6f 6d 6d 61 6e 64 20 75 6e 64 6f 20 3a 65 6e 61 62 | image."undo".:command.undo.:enab |
8bc0 | 6c 65 20 28 61 6e 64 20 28 6e 6f 74 20 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 29 20 28 | le.(and.(not.buffer-read-only).( |
8be0 | 6e 6f 74 20 28 65 71 20 74 20 62 75 66 66 65 72 2d 75 6e 64 6f 2d 6c 69 73 74 29 29 20 28 69 66 | not.(eq.t.buffer-undo-list)).(if |
8c00 | 20 28 65 71 20 6c 61 73 74 2d 63 6f 6d 6d 61 6e 64 20 23 27 75 6e 64 6f 29 20 70 65 6e 64 69 6e | .(eq.last-command.#'undo).pendin |
8c20 | 67 2d 75 6e 64 6f 2d 6c 69 73 74 20 28 63 6f 6e 73 70 20 62 75 66 66 65 72 2d 75 6e 64 6f 2d 6c | g-undo-list.(consp.buffer-undo-l |
8c40 | 69 73 74 29 29 29 20 3a 68 65 6c 70 20 22 55 6e 64 6f 20 6c 61 73 74 20 6f 70 65 72 61 74 69 6f | ist))).:help."Undo.last.operatio |
8c60 | 6e 22 20 3a 76 69 73 69 62 6c 65 20 28 6e 6f 74 20 28 65 71 20 27 73 70 65 63 69 61 6c 20 28 67 | n".:visible.(not.(eq.'special.(g |
8c80 | 65 74 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 6d 6f 64 65 2d 63 6c 61 73 73 29 29 29 29 20 28 63 | et.major-mode.'mode-class)))).(c |
8ca0 | 75 74 20 3a 69 6d 61 67 65 20 22 63 75 74 22 20 3a 68 65 6c 70 20 22 44 65 6c 65 74 65 20 74 65 | ut.:image."cut".:help."Delete.te |
8cc0 | 78 74 20 69 6e 20 72 65 67 69 6f 6e 20 61 6e 64 20 63 6f 70 79 20 69 74 20 74 6f 20 74 68 65 20 | xt.in.region.and.copy.it.to.the. |
8ce0 | 63 6c 69 70 62 6f 61 72 64 22 20 3a 63 6f 6d 6d 61 6e 64 20 63 6c 69 70 62 6f 61 72 64 2d 6b 69 | clipboard".:command.clipboard-ki |
8d00 | 6c 6c 2d 72 65 67 69 6f 6e 20 3a 76 69 73 69 62 6c 65 20 28 6e 6f 74 20 28 65 71 20 27 73 70 65 | ll-region.:visible.(not.(eq.'spe |
8d20 | 63 69 61 6c 20 28 67 65 74 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 6d 6f 64 65 2d 63 6c 61 73 73 | cial.(get.major-mode.'mode-class |
8d40 | 29 29 29 29 20 28 63 6f 70 79 20 3a 69 6d 61 67 65 20 22 63 6f 70 79 22 20 3a 68 65 6c 70 20 22 | )))).(copy.:image."copy".:help." |
8d60 | 43 6f 70 79 20 74 65 78 74 20 69 6e 20 72 65 67 69 6f 6e 20 74 6f 20 74 68 65 20 63 6c 69 70 62 | Copy.text.in.region.to.the.clipb |
8d80 | 6f 61 72 64 22 20 3a 63 6f 6d 6d 61 6e 64 20 63 6c 69 70 62 6f 61 72 64 2d 6b 69 6c 6c 2d 72 69 | oard".:command.clipboard-kill-ri |
8da0 | 6e 67 2d 73 61 76 65 29 20 28 70 61 73 74 65 20 3a 69 6d 61 67 65 20 22 70 61 73 74 65 22 20 3a | ng-save).(paste.:image."paste".: |
8dc0 | 68 65 6c 70 20 22 50 61 73 74 65 20 74 65 78 74 20 66 72 6f 6d 20 63 6c 69 70 62 6f 61 72 64 22 | help."Paste.text.from.clipboard" |
8de0 | 20 3a 63 6f 6d 6d 61 6e 64 20 63 6c 69 70 62 6f 61 72 64 2d 79 61 6e 6b 20 3a 76 69 73 69 62 6c | .:command.clipboard-yank.:visibl |
8e00 | 65 20 28 6e 6f 74 20 28 65 71 20 27 73 70 65 63 69 61 6c 20 28 67 65 74 20 6d 61 6a 6f 72 2d 6d | e.(not.(eq.'special.(get.major-m |
8e20 | 6f 64 65 20 27 6d 6f 64 65 2d 63 6c 61 73 73 29 29 29 29 20 28 73 65 61 72 63 68 2d 66 6f 72 77 | ode.'mode-class)))).(search-forw |
8e40 | 61 72 64 20 3a 63 6f 6d 6d 61 6e 64 20 6e 6f 6e 69 6e 63 72 65 6d 65 6e 74 61 6c 2d 73 65 61 72 | ard.:command.nonincremental-sear |
8e60 | 63 68 2d 66 6f 72 77 61 72 64 20 3a 68 65 6c 70 20 22 53 65 61 72 63 68 20 66 6f 72 77 61 72 64 | ch-forward.:help."Search.forward |
8e80 | 20 66 6f 72 20 61 20 73 74 72 69 6e 67 22 20 3a 69 6d 61 67 65 20 22 73 65 61 72 63 68 22 29 20 | .for.a.string".:image."search"). |
8ea0 | 28 73 65 61 72 63 68 2d 72 65 70 6c 61 63 65 20 3a 69 6d 61 67 65 20 22 73 65 61 72 63 68 2d 72 | (search-replace.:image."search-r |
8ec0 | 65 70 6c 61 63 65 22 20 3a 63 6f 6d 6d 61 6e 64 20 71 75 65 72 79 2d 72 65 70 6c 61 63 65 20 3a | eplace".:command.query-replace.: |
8ee0 | 68 65 6c 70 20 22 52 65 70 6c 61 63 65 20 73 74 72 69 6e 67 20 69 6e 74 65 72 61 63 74 69 76 65 | help."Replace.string.interactive |
8f00 | 6c 79 2c 20 61 73 6b 20 61 62 6f 75 74 20 65 61 63 68 20 6f 63 63 75 72 72 65 6e 63 65 22 29 20 | ly,.ask.about.each.occurrence"). |
8f20 | 28 70 72 69 6e 74 2d 62 75 66 66 65 72 20 3a 69 6d 61 67 65 20 22 70 72 69 6e 74 22 20 3a 63 6f | (print-buffer.:image."print".:co |
8f40 | 6d 6d 61 6e 64 20 70 72 69 6e 74 2d 62 75 66 66 65 72 20 3a 68 65 6c 70 20 22 50 72 69 6e 74 20 | mmand.print-buffer.:help."Print. |
8f60 | 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 77 69 74 68 20 70 61 67 65 20 68 65 61 64 69 6e 67 | current.buffer.with.page.heading |
8f80 | 73 22 29 20 28 63 75 73 74 6f 6d 69 7a 65 20 3a 69 6d 61 67 65 20 22 70 72 65 66 65 72 65 6e 63 | s").(customize.:image."preferenc |
8fa0 | 65 73 22 20 3a 63 6f 6d 6d 61 6e 64 20 63 75 73 74 6f 6d 69 7a 65 20 3a 68 65 6c 70 20 22 45 64 | es".:command.customize.:help."Ed |
8fc0 | 69 74 20 70 72 65 66 65 72 65 6e 63 65 73 20 28 63 75 73 74 6f 6d 69 7a 65 29 22 29 20 28 68 65 | it.preferences.(customize)").(he |
8fe0 | 6c 70 20 3a 69 6d 61 67 65 20 22 68 65 6c 70 22 20 3a 63 6f 6d 6d 61 6e 64 20 28 6c 61 6d 62 64 | lp.:image."help".:command.(lambd |
9000 | 61 20 6e 69 6c 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 70 6f 70 75 70 2d 6d 65 6e 75 20 | a.nil.(interactive).(popup-menu. |
9020 | 6d 65 6e 75 2d 62 61 72 2d 68 65 6c 70 2d 6d 65 6e 75 29 29 20 3a 68 65 6c 70 20 22 50 6f 70 20 | menu-bar-help-menu)).:help."Pop. |
9040 | 75 70 20 74 68 65 20 48 65 6c 70 20 6d 65 6e 75 22 29 20 28 6b 69 6c 6c 2d 62 75 66 66 65 72 20 | up.the.Help.menu").(kill-buffer. |
9060 | 3a 63 6f 6d 6d 61 6e 64 20 6b 69 6c 6c 2d 74 68 69 73 2d 62 75 66 66 65 72 20 3a 65 6e 61 62 6c | :command.kill-this-buffer.:enabl |
9080 | 65 20 28 6b 69 6c 6c 2d 74 68 69 73 2d 62 75 66 66 65 72 2d 65 6e 61 62 6c 65 64 2d 70 29 20 3a | e.(kill-this-buffer-enabled-p).: |
90a0 | 68 65 6c 70 20 22 44 69 73 63 61 72 64 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 22 20 3a 69 | help."Discard.current.buffer".:i |
90c0 | 6d 61 67 65 20 22 63 6c 6f 73 65 22 29 20 28 65 78 69 74 2d 65 6d 61 63 73 20 3a 69 6d 61 67 65 | mage."close").(exit-emacs.:image |
90e0 | 20 22 65 78 69 74 22 20 3a 63 6f 6d 6d 61 6e 64 20 73 61 76 65 2d 62 75 66 66 65 72 73 2d 6b 69 | ."exit".:command.save-buffers-ki |
9100 | 6c 6c 2d 65 6d 61 63 73 20 3a 68 65 6c 70 20 22 4f 66 66 65 72 20 74 6f 20 73 61 76 65 20 75 6e | ll-emacs.:help."Offer.to.save.un |
9120 | 73 61 76 65 64 20 62 75 66 66 65 72 73 2c 20 74 68 65 6e 20 65 78 69 74 20 45 6d 61 63 73 22 29 | saved.buffers,.then.exit.Emacs") |
9140 | 20 28 73 70 65 6c 6c 2d 62 75 66 66 65 72 20 3a 69 6d 61 67 65 20 22 73 70 65 6c 6c 22 20 3a 63 | .(spell-buffer.:image."spell".:c |
9160 | 6f 6d 6d 61 6e 64 20 69 73 70 65 6c 6c 2d 62 75 66 66 65 72 20 3a 68 65 6c 70 20 22 43 68 65 63 | ommand.ispell-buffer.:help."Chec |
9180 | 6b 20 73 70 65 6c 6c 69 6e 67 20 6f 66 20 73 65 6c 65 63 74 65 64 20 62 75 66 66 65 72 22 29 20 | k.spelling.of.selected.buffer"). |
91a0 | 28 69 6e 66 6f 20 3a 69 6d 61 67 65 20 22 69 6e 66 6f 22 20 3a 63 6f 6d 6d 61 6e 64 20 69 6e 66 | (info.:image."info".:command.inf |
91c0 | 6f 20 3a 68 65 6c 70 20 22 45 6e 74 65 72 20 49 6e 66 6f 2c 20 74 68 65 20 64 6f 63 75 6d 65 6e | o.:help."Enter.Info,.the.documen |
91e0 | 74 61 74 69 6f 6e 20 62 72 6f 77 73 65 72 22 29 29 20 28 23 24 20 2e 20 33 33 39 34 35 29 29 0a | tation.browser")).(#$...33945)). |
9200 | 28 70 72 6f 76 69 64 65 20 27 74 6f 6f 6c 62 61 72 2d 78 29 0a | (provide.'toolbar-x). |