From xemacs-m  Thu Jul 10 22:19:39 1997
Received: from news.smart.net (jmiller@max1p89.smart.net [206.97.127.89])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id WAA17476
	for <xemacs-beta@xemacs.org>; Thu, 10 Jul 1997 22:19:36 -0500 (CDT)
Received: (from jmiller@localhost)
          by news.smart.net (8.8.4/8.8.4)
	  id XAA32432; Thu, 10 Jul 1997 23:22:41 -0400
Date: Thu, 10 Jul 1997 23:22:41 -0400
Message-Id: <199707110322.XAA32432@news.smart.net>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="MF/RvPPmTo"
Content-Transfer-Encoding: 7bit
From: Jeff Miller <jmiller@smart.net>
To: xemacs-beta@xemacs.org
Subject: toolbar stuff
X-Mailer: VM 6.32 under 20.3 "Helsinki" XEmacs  Lucid (beta12)
Reply-to: jmiller@smart.net
X-Face: &vGrMZ?Q&W5~yiCR_#hat=$tgJrK`J=2$se?0Nu9I3G|I<2-\:82zx>kz=l8(yw)G1i&0"D
 <nv_e$^;,ftG6@Hn"did"G5i=X_-Z3Y


--MF/RvPPmTo
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit


 The atteched lisp code has functions for

 adding a toolbar button
 removing a button from a specified postion
 removing a specified button.
 restoring the toolbar from initial-toolbar-spec

 sound useful?

 These are basically hacked out of edit-toolbar.el from Peter D. Pezaris. 
 They seem to work pretty good in my (limited) testing.  

 Once any kinks are worked out, they probably can just be put into
 x11/x-toolbar.el. 
 


--MF/RvPPmTo
Content-Type: application/octet-stream
Content-Disposition: attachment;
	filename="toolbar-func.el"
Content-Transfer-Encoding: base64

Cjs7IEZ1bmN0aW9ucyB0byBlYXNpbHkgYWRkIG9yIHJlbW92ZSB0b29sYmFyIGJ1dHRvbnMv
aXRlbXMgZnJvbSB0aGUgdG9vbGJhcnMuCjs7IAoKOzsgV3JpdHRlbiBieSBKZWZmIE1pbGxl
ciA8am1pbGxlckBzbWFydC5uZXQ+IAo7OyBCYXNlZCBsYXJnZWx5IG9uIGVkaXQtdG9vbGJh
ci5lbCBieSBQZXRlciBELiBQZXphcmlzIDxwZXpAZHd3Yy5jb20+IAoKCihkZWZ1biByZXN0
b3JlLWluaXRpYWwtdG9vbGJhciAoKQogICJSZXN0b3JlcyB0aGUgZGVmYXVsdCB0b29sYmFy
IGRlZmluZWQgYnkgaW5pdGlhbC10b29sYmFyLXNwZWMuIgogIChpbnRlcmFjdGl2ZSkKICAo
c2V0LXNwZWNpZmllciBkZWZhdWx0LXRvb2xiYXIgaW5pdGlhbC10b29sYmFyLXNwZWMpCiAg
KQoKKGRlZnVuIHRvb2xiYXItYWRkLWl0ZW0gKGl0ZW0gJm9wdGlvbmFsIGluZGV4ICZvcHRp
b25hbCB0b29sYmFyLXNwZWMpCiAgIkFkZCBhIHRvb2xiYXIgaXRlbSBJVEVNIGF0IHRoZSBm
aXJzdCBsb2NhdGlvbiBvZiB0aGUgdG9vbGJhciBzcGVjaWZpZXIuIApPcHRpb25hbGx5LCBj
YW4gc3BlY2lmeSBhbiBJTkRFWCBwb3NpdGlvbiB0byBpbnNlcnQgdGhlIElURU0uICBUaGUg
ZGVmYXVsdCBpcwp0byB1c2UgZGVmYXVsdC10b29sYmFyLCBidXQgYSBkaWZmZXJlbnQgc3Bl
Y2lmaWVyIGNhbiBieSBzcGVjaWZpZWQgd2l0aCAKVE9PTEJBUi1TUEVDLiIKICAoaWYgKGVx
ICB0b29sYmFyLXNwZWMgbmlsICkKICAgICAgKHNldHEgdG9vbGJhci1zcGVjIGRlZmF1bHQt
dG9vbGJhcikpCiAgKGxldCogKCh0b29sYmFyIChzcGVjaWZpZXItaW5zdGFuY2UgdG9vbGJh
ci1zcGVjKSkpCiAgICAoaWYob3IgKGVxIGluZGV4IG5pbCkgKGVxIGluZGV4IDApKQoJKHNl
dHEgdG9vbGJhciAoY29ucyBpdGVtIHRvb2xiYXIpKQogICAgICAoc2V0Y2RyIChudGhjZHIg
KC0gaW5kZXggMSkgdG9vbGJhcikKCSAgICAgIChjb25zIGl0ZW0gKG50aGNkciBpbmRleCB0
b29sYmFyKSkpKQogICAgKHNldC1zcGVjaWZpZXIgdG9vbGJhci1zcGVjIHRvb2xiYXIpCiAg
ICApKQoKCihkZWZ1biB0b29sYmFyLWtpbGwtaXRlbS1wb3MgKCBpbmRleCAmb3B0aW9uYWwg
dG9vbGJhci1zcGVjKSAKICAiUmVtb3ZlIGEgdG9vbGJhciBpdGVtIElURU0gYXQgdGhlIGZp
cnN0IGxvY2F0aW9uIG9mIHRoZSB0b29sYmFyIHNwZWNpZmllci4gIApPcHRpb25hbGx5LCBj
YW4gc3BlY2lmeSBhbiBJTkRFWCBwb3NpdGlvbiB3aGVyZSB0byByZW1vdmUgdGhlIElURU0u
ICBUaGUgCmRlZmF1bHQgaXMgdG8gdXNlIGRlZmF1bHQtdG9vbGJhciwgYnV0IGEgZGlmZmVy
ZW50IHNwZWNpZmllciBjYW4gYnkgCnNwZWNpZmllZCB3aXRoIFRPT0xCQVItU1BFQy4iCiAg
KGlmIChlcSB0b29sYmFyLXNwZWMgbmlsICkgCiAgICAgIChzZXRxIHRvb2xiYXItc3BlYyBk
ZWZhdWx0LXRvb2xiYXIpKSAKICAobGV0KiAoKHRvb2xiYXIgKHNwZWNpZmllci1pbnN0YW5j
ZSB0b29sYmFyLXNwZWMpKSAKCSAoaXRlbSAobnRoIGluZGV4IHRvb2xiYXIpKSkgCiAgICAo
aWYgKGVxIGluZGV4IDApIAoJKHNldHEgdG9vbGJhcihjZHIgdG9vbGJhcikpIAogICAgICAo
c2V0Y2RyIChudGhjZHIgKDEtIGluZGV4KSB0b29sYmFyKSAKCSAgICAgIChudGhjZHIgKDEr
IGluZGV4KSB0b29sYmFyKSkpIAogICAgKHNldC1zcGVjaWZpZXIgdG9vbGJhci1zcGVjIHRv
b2xiYXIpIAogICAgKSkKCihkZWZ1biB0b29sYmFyLWtpbGwtaXRlbSAoIGl0ZW0gJm9wdGlv
bmFsIHRvb2xiYXItc3BlYykKICAiUmVtb3ZlIGEgdG9vbGJhciBpdGVtIElURU0gYXQgdGhl
IGZpcnN0IGxvY2F0aW9uIG9mIHRoZSB0b29sYmFyIHNwZWNpZmllci4gIApPcHRpb25hbGx5
LCBjYW4gc3BlY2lmeSBhbiBJVEVNIHRvIHJlbW92ZS4gIFRoZSBJVEVNIG11c3QgYmUgaW4g
Zm9ybSBvZiBhIAp2ZWN0b3IuICBUaGUgZGVmYXVsdCBpcyB0byB1c2UgZGVmYXVsdC10b29s
YmFyLCBidXQgYSBkaWZmZXJlbnQgc3BlY2lmaWVyIApjYW4gYnkgc3BlY2lmaWVkIHdpdGgg
VE9PTEJBUi1TUEVDLiIKICAoaWYgKGVxICB0b29sYmFyLXNwZWMgbmlsICkKICAgICAgKHNl
dHEgdG9vbGJhci1zcGVjIGRlZmF1bHQtdG9vbGJhcikpCgkgICAgICAobGV0KiAoKHRvb2xi
YXIgKHNwZWNpZmllci1pbnN0YW5jZSB0b29sYmFyLXNwZWMpKSApCiAgICAoZXZhbCBpdGVt
KQogICAgKHNldC1zcGVjaWZpZXIgdG9vbGJhci1zcGVjIChkZWxldGUgaXRlbSB0b29sYmFy
KSkKICAgICkpCg==

--MF/RvPPmTo--

