/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / prim / toolbar.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 34 3a 32 32 3a 35 | 35 20 31 39 39 35 0a 3b | 14:22:5|5 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 78 65 |;; from |file /xe|
|00000060| 6d 61 63 73 2f 78 65 6d | 61 63 73 2d 31 39 2e 31 |macs/xem|acs-19.1|
|00000070| 33 2d 72 65 6c 65 61 73 | 65 2f 65 64 69 74 6f 72 |3-releas|e/editor|
|00000080| 2f 6c 69 73 70 2f 70 72 | 69 6d 2f 74 6f 6f 6c 62 |/lisp/pr|im/toolb|
|00000090| 61 72 2e 65 6c 0a 3b 3b | 3b 20 65 6d 61 63 73 20 |ar.el.;;|; emacs |
|000000a0| 76 65 72 73 69 6f 6e 20 | 31 39 2e 31 33 20 58 45 |version |19.13 XE|
|000000b0| 6d 61 63 73 20 4c 75 63 | 69 64 2e 0a 3b 3b 3b 20 |macs Luc|id..;;; |
|000000c0| 62 79 74 65 63 6f 6d 70 | 20 76 65 72 73 69 6f 6e |bytecomp| version|
|000000d0| 20 32 2e 32 35 3b 20 31 | 2d 53 65 70 2d 39 34 2e | 2.25; 1|-Sep-94.|
|000000e0| 0a 3b 3b 3b 20 6f 70 74 | 69 6d 69 7a 61 74 69 6f |.;;; opt|imizatio|
|000000f0| 6e 20 69 73 20 6f 6e 2e | 0a 3b 3b 3b 20 74 68 69 |n is on.|.;;; thi|
|00000100| 73 20 66 69 6c 65 20 75 | 73 65 73 20 6f 70 63 6f |s file u|ses opco|
|00000110| 64 65 73 20 77 68 69 63 | 68 20 64 6f 20 6e 6f 74 |des whic|h do not|
|00000120| 20 65 78 69 73 74 20 69 | 6e 20 45 6d 61 63 73 20 | exist i|n Emacs |
|00000130| 31 38 2e 0a 0a 28 69 66 | 20 28 61 6e 64 20 28 62 |18...(if| (and (b|
|00000140| 6f 75 6e 64 70 20 27 65 | 6d 61 63 73 2d 76 65 72 |oundp 'e|macs-ver|
|00000150| 73 69 6f 6e 29 0a 09 20 | 28 6f 72 20 28 61 6e 64 |sion).. |(or (and|
|00000160| 20 28 62 6f 75 6e 64 70 | 20 27 65 70 6f 63 68 3a | (boundp| 'epoch:|
|00000170| 3a 76 65 72 73 69 6f 6e | 29 20 65 70 6f 63 68 3a |:version|) epoch:|
|00000180| 3a 76 65 72 73 69 6f 6e | 29 0a 09 20 20 20 20 20 |:version|)..     |
|00000190| 28 73 74 72 69 6e 67 2d | 6c 65 73 73 70 20 65 6d |(string-|lessp em|
|000001a0| 61 63 73 2d 76 65 72 73 | 69 6f 6e 20 22 31 39 22 |acs-vers|ion "19"|
|000001b0| 29 29 29 0a 20 20 20 20 | 28 65 72 72 6f 72 20 22 |))).    |(error "|
|000001c0| 54 68 69 73 20 66 69 6c | 65 20 77 61 73 20 63 6f |This fil|e was co|
|000001d0| 6d 70 69 6c 65 64 20 66 | 6f 72 20 45 6d 61 63 73 |mpiled f|or Emacs|
|000001e0| 20 31 39 2e 22 29 29 0a | 0a 28 64 65 66 76 61 72 | 19.")).|.(defvar|
|000001f0| 20 74 6f 6f 6c 62 61 72 | 2d 68 65 6c 70 2d 65 6e | toolbar|-help-en|
|00000200| 61 62 6c 65 64 20 74 20 | 22 5c 0a 49 66 20 6e 6f |abled t |"\.If no|
|00000210| 6e 2d 6e 69 6c 20 68 65 | 6c 70 20 69 73 20 65 63 |n-nil he|lp is ec|
|00000220| 68 6f 65 64 20 66 6f 72 | 20 74 6f 6f 6c 62 61 72 |hoed for| toolbar|
|00000230| 20 62 75 74 74 6f 6e 73 | 2e 22 29 0a 28 64 65 66 | buttons|.").(def|
|00000240| 76 61 72 20 74 6f 6f 6c | 62 61 72 2d 69 63 6f 6e |var tool|bar-icon|
|00000250| 2d 64 69 72 65 63 74 6f | 72 79 20 6e 69 6c 20 22 |-directo|ry nil "|
|00000260| 5c 0a 4c 6f 63 61 74 69 | 6f 6e 20 6f 66 20 73 74 |\.Locati|on of st|
|00000270| 61 6e 64 61 72 64 20 74 | 6f 6f 6c 62 61 72 20 69 |andard t|oolbar i|
|00000280| 63 6f 6e 20 62 69 74 6d | 61 70 73 2e 22 29 0a 28 |con bitm|aps.").(|
|00000290| 66 73 65 74 20 27 74 6f | 6f 6c 62 61 72 2d 6d 61 |fset 'to|olbar-ma|
|000002a0| 6b 65 2d 62 75 74 74 6f | 6e 2d 6c 69 73 74 20 23 |ke-butto|n-list #|
|000002b0| 5b 28 75 70 20 26 6f 70 | 74 69 6f 6e 61 6c 20 64 |[(up &op|tional d|
|000002c0| 6f 77 6e 20 64 69 73 61 | 62 6c 65 64 20 63 61 70 |own disa|bled cap|
|000002d0| 2d 75 70 20 63 61 70 2d | 64 6f 77 6e 20 63 61 70 |-up cap-|down cap|
|000002e0| 2d 64 69 73 61 62 6c 65 | 64 29 20 22 c0 c1 21 85 |-disable|d) "..!.|
|000002f0| 8b 00 c2 0b 21 0c ad 83 | c2 0c 21 0d ad 83 c2 0d |....!...|..!.....|
|00000300| 21 0e 06 ad 84 c2 0e 06 | 21 0e 07 ad 84 c2 0e 07 |!.......|!.......|
|00000310| 21 0e 08 ad 84 c2 0e 08 | 21 1e 09 1e 5c 6e 1e 0b |!.......|!...\n..|
|00000320| 1e 0c 1e 0d 1e 0e 0e 08 | ab 90 0e 0e 0e 0d 0e 0c |........|........|
|00000330| 0e 0b 0e 5c 6e 0e 09 af | 06 aa bc 0e 07 ab 8e 0e |...\n...|........|
|00000340| 0e 0e 0d 0e 0c 0e 0b 0e | 5c 6e af 05 aa aa 0e 06 |........|\n......|
|00000350| ab 8b 0e 0e 0e 0d 0e 0c | 0e 0b 46 aa 9b 0e 0c ab |........|..F.....|
|00000360| 89 0e 0e 0e 0d 0e 0c 45 | aa 8e 0e 0d ab 87 0e 0e |.......E|........|
|00000370| 0e 0d 44 aa 83 0e 0e 43 | 2e 06 87 22 20 5b 66 65 |..D....C|..." [fe|
|00000380| 61 74 75 72 65 70 20 78 | 20 6d 61 6b 65 2d 67 6c |aturep x| make-gl|
|00000390| 79 70 68 20 75 70 20 64 | 6f 77 6e 20 64 69 73 61 |yph up d|own disa|
|000003a0| 62 6c 65 64 20 63 61 70 | 2d 75 70 20 63 61 70 2d |bled cap|-up cap-|
|000003b0| 64 6f 77 6e 20 63 61 70 | 2d 64 69 73 61 62 6c 65 |down cap|-disable|
|000003c0| 64 20 63 61 70 2d 64 69 | 73 61 62 6c 65 64 2d 67 |d cap-di|sabled-g|
|000003d0| 6c 79 70 68 20 63 61 70 | 2d 64 6f 77 6e 2d 67 6c |lyph cap|-down-gl|
|000003e0| 79 70 68 20 63 61 70 2d | 75 70 2d 67 6c 79 70 68 |yph cap-|up-glyph|
|000003f0| 20 64 69 73 61 62 6c 65 | 64 2d 67 6c 79 70 68 20 | disable|d-glyph |
|00000400| 64 6f 77 6e 2d 67 6c 79 | 70 68 20 75 70 2d 67 6c |down-gly|ph up-gl|
|00000410| 79 70 68 5d 20 37 20 22 | 5c 0a 43 61 6c 6c 73 20 |yph] 7 "|\.Calls |
|00000420| 6d 61 6b 65 2d 67 6c 79 | 70 68 20 6f 6e 20 65 61 |make-gly|ph on ea|
|00000430| 63 68 20 61 72 67 20 61 | 6e 64 20 72 65 74 75 72 |ch arg a|nd retur|
|00000440| 6e 73 20 61 20 6c 69 73 | 74 20 6f 66 20 74 68 65 |ns a lis|t of the|
|00000450| 20 72 65 73 75 6c 74 73 | 2e 22 5d 29 0a 28 62 79 | results|."]).(by|
|00000460| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 4d 88 c2 c3 4d |te-code |"..M...M|
|00000470| 88 c4 c5 21 ab 84 c6 c7 | 21 88 c0 87 22 20 5b 69 |...!....|!..." [i|
|00000480| 6e 69 74 2d 74 6f 6f 6c | 62 61 72 2d 6c 6f 63 61 |nit-tool|bar-loca|
|00000490| 74 69 6f 6e 20 23 5b 6e | 69 6c 20 22 08 3f ad 88 |tion #[n|il ".?..|
|000004a0| c1 c2 c3 0c 5c 22 21 89 | 10 87 22 20 5b 74 6f 6f |....\"!.|.." [too|
|000004b0| 6c 62 61 72 2d 69 63 6f | 6e 2d 64 69 72 65 63 74 |lbar-ico|n-direct|
|000004c0| 6f 72 79 20 66 69 6c 65 | 2d 6e 61 6d 65 2d 61 73 |ory file|-name-as|
|000004d0| 2d 64 69 72 65 63 74 6f | 72 79 20 65 78 70 61 6e |-directo|ry expan|
|000004e0| 64 2d 66 69 6c 65 2d 6e | 61 6d 65 20 22 74 6f 6f |d-file-n|ame "too|
|000004f0| 6c 62 61 72 22 20 64 61 | 74 61 2d 64 69 72 65 63 |lbar" da|ta-direc|
|00000500| 74 6f 72 79 5d 20 34 5d | 20 69 6e 69 74 2d 74 6f |tory] 4]| init-to|
|00000510| 6f 6c 62 61 72 2d 66 72 | 6f 6d 2d 72 65 73 6f 75 |olbar-fr|om-resou|
|00000520| 72 63 65 73 20 23 5b 28 | 6c 6f 63 61 6c 65 29 20 |rces #[(|locale) |
|00000530| 22 c0 c1 21 ab 90 5c 6e | c3 3d ac 87 c4 5c 6e 21 |"..!..\n|.=...\n!|
|00000540| c1 3d ab 84 c5 5c 6e 21 | 88 c6 87 22 20 5b 66 65 |.=...\n!|..." [fe|
|00000550| 61 74 75 72 65 70 20 78 | 20 6c 6f 63 61 6c 65 20 |aturep x| locale |
|00000560| 67 6c 6f 62 61 6c 20 64 | 65 76 69 63 65 2d 6f 72 |global d|evice-or|
|00000570| 2d 66 72 61 6d 65 2d 74 | 79 70 65 20 78 2d 69 6e |-frame-t|ype x-in|
|00000580| 69 74 2d 74 6f 6f 6c 62 | 61 72 2d 66 72 6f 6d 2d |it-toolb|ar-from-|
|00000590| 72 65 73 6f 75 72 63 65 | 73 20 6e 69 6c 5d 20 32 |resource|s nil] 2|
|000005a0| 5d 20 66 65 61 74 75 72 | 65 70 20 78 20 70 72 6f |] featur|ep x pro|
|000005b0| 76 69 64 65 20 74 6f 6f | 6c 62 61 72 5d 20 32 29 |vide too|lbar] 2)|
|000005c0| 0a                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+