From xemacs-m  Fri Jun 27 17:23:43 1997
Received: from altair.xemacs.org (steve@xemacs.miranova.com [206.190.83.19])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id RAA04760
	for <xemacs-beta@xemacs.org>; Fri, 27 Jun 1997 17:23:42 -0500 (CDT)
Received: (from steve@localhost)
	by altair.xemacs.org (8.8.6/8.8.6) id PAA32487;
	Fri, 27 Jun 1997 15:26:34 -0700
Mail-Copies-To: never
To: xemacs-beta@xemacs.org
Cc: weiner@altrasoft.com
Subject: Re: Hyperbole is broken in sofia.
References: <87soy390tf.fsf@bittersweet.inetarena.com>
X-Url: http://www.miranova.com/%7Esteve/
X-Face: #!T9!#9s-3o8)*uHlX{Ug[xW7E7Wr!*L46-OxqMu\xz23v|R9q}lH?cRS{rCNe^'[`^sr5"
 f8*@r4ipO6Jl!:Ccq<xoV[Qz2u8<8-+Vwf2gzJ44lf_/y9OaQ`@#Q65{U4/TC)i2`~/M&QI$X>p:9I
 OSS'2{-)-4wBnVeg0S\O4Al@)uC[pD|+
X-Attribution: sb
From: Steven L Baur <steve@xemacs.org>
In-Reply-To: karlheg@inetarena.com's message of "27 Jun 1997 14:46:04 -0700"
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: text/plain; charset=US-ASCII
Date: 27 Jun 1997 15:26:29 -0700
Message-ID: <m2wwnfy962.fsf@altair.xemacs.org>
Lines: 37
X-Mailer: Gnus v5.4.59/XEmacs 20.3(beta10) - "Athens"

Karl M Hegbloom <karlheg@inetarena.com> writes:

>  Pressing {f1 h} to load and initialize hyperbole gives 'Cannot open
> load file: id-menubars'.


This code hasn't changed.  You didn't say, but let me put on my ESP
cap and attempt to read your mind :-) ...  You previously loaded W3,
right?

Please try this patch and see if it works any better.

1997-06-27  Steven L Baur  <steve@altair.xemacs.org>

	* hyperbole/wrolo-menu.el (TopLevel): Fix tests so that W3's
	id-menubar simulation doesn't bollux up feature tests.

Index: lisp/hyperbole/wrolo-menu.el
===================================================================
RCS file: /usr/local/xemacs/xemacs-20.0/lisp/hyperbole/wrolo-menu.el,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 wrolo-menu.el
--- wrolo-menu.el	1996/12/18 22:43:18	1.1.1.1
+++ wrolo-menu.el	1997/06/27 22:25:33
@@ -150,7 +150,7 @@
     (popup-menu id-popup-wrolo-menu)))
 
 (cond ((null hyperb:window-system))
-      ((fboundp 'id-menubar-set)
+      ((and (featurep 'infodock) (fboundp 'id-menubar-set))
        ;; InfoDock under a window system
        (require 'id-menubars)
        (id-menubar-set 'wrolo-mode 'id-menubar-wrolo))

-- 
steve@calag.com baur
Unsolicited commercial e-mail will be billed at $250/message.

