Path: news.cs.au.dk!not-for-mail
From: Erik Corry <corry@mjolner.dk>
Newsgroups: comp.lang.beta
Subject: Re: Strange warning message
Date: 3 Jul 2000 10:53:05 GMT
Organization: =?ISO-8859-1?Q?Mj=F8lner?= Informatics ApS
Lines: 71
Message-ID: <8jprah$p4oi$1@xinwen.cs.au.dk>
References: <slrn8lh5bt.hm.pschoenb@workstation.int.solidsoft.iksys.de>
NNTP-Posting-Host: amigo.cs.au.dk
X-Trace: xinwen.cs.au.dk 962621585 824082 255.255.255.255 (3 Jul 2000 10:53:05 GMT)
X-Complaints-To: news@cs.au.dk
NNTP-Posting-Date: 3 Jul 2000 10:53:05 GMT
User-Agent: tin/pre-1.4-980818 ("Laura") (UNIX) (IRIX64/6.5 (IP27))
Xref: news.cs.au.dk comp.lang.beta:12511

Patrick Schoenbach <pschoenb@solidsoft.iksys.de> wrote:
>
> meanwhile, I got BETA running on Linux, but when I start 'mjolner', it
> says:
>
> Mjolner Integrated Development Tool - release 5.1
> Warning: No type converter registered for 'String' to 'Enum' conversion.
> Warning: No type converter registered for 'String' to 'Enum' conversion.

This is a bug in Motif.  We catch and ignore these in the newest
version of BETA, but that hasn't been released, so you will just
have to live with this in the Mjolner tool.  It is harmless, though
it does clutter up the screen.

If you are having the same trouble with your own guienv programs
there is a  patch below.  I think it is the only change needed.

If you want to apply this to your installation, you can use the
patch program or edit in the changes by hand, then recompile any
gui program while logged in as the owner of the /usr/local/lib/beta
files.  Mail me if you have trouble with this.

diff -u guienv/private/X11/guienv_unixbody.bet:1.75 guienv/private/X11/guienv_unixbody.bet:1.77
--- guienv/private/X11/guienv_unixbody.bet:1.75 Mon Dec 13 15:45:47 1999
+++ guienv/private/X11/guienv_unixbody.bet      Tue Feb 29 14:47:59 2000
@@ -109,6 +109,11 @@
             private.appClass[] -> putLine;
          #);
        #);
+     GetRidOfStupidWarningsFromX: external
+       (# appContext: @integer;
+       enter (appContext)
+       do callC
+       #);
      XtOpenDisplay: external
        (# appContext: @integer;
          displayString: @integer;
@@ -125,6 +130,9 @@
      XtCreateApplicationContext -> private.appCon;
      initAppName;
      initAppClass;
+     (if not displayWarnings then
+        private.appCon -> GetRidOfStupidWarningsFromX;
+     if);
      private.fallBackResources.init;
      (private.appCon,private.fallBackResources.address) -> XtAppSetFallbackResources;
      (private.appCon,0,
Index: guienv/private/X11/external/guienv_unix.c
diff -u guienv/private/X11/external/guienv_unix.c:1.6 guienv/private/X11/external/guienv_unix.c:1.7
--- guienv/private/X11/external/guienv_unix.c:1.6       Thu Aug 12 10:32:28 1999
+++ guienv/private/X11/external/guienv_unix.c   Tue Feb 29 14:48:00 2000
@@ -144,3 +144,12 @@
   rect.height = height;
   XSetClipRectangles(dpy, gc, 0, 0, &rect, 1, Unsorted);
 }
+
+void
+do_nothing()
+{
+}
+
+void GetRidOfStupidWarningsFromX(XtAppContext app)
+{
+    XtAppSetWarningHandler(app, (XtErrorHandler)&do_nothing);
+}


Regards

-- 
Erik Corry  corry@mjolner.dk