[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Gcl-devel] Re: [support #101761] Problem with tkconnect
From: |
Camm Maguire |
Subject: |
[Gcl-devel] Re: [support #101761] Problem with tkconnect |
Date: |
24 Sep 2003 14:13:49 -0400 |
User-agent: |
Gnus/5.09 (Gnus v5.9.0) Emacs/21.2 |
Greetings, and thanks for your feedback! Vadim -- can you please
check if this resolves the tk8.4 problem, and if so suggest a
configure test and appropriate patch depending on the tk version?
Francisco, et.al., please be aware that there is a known problem with
gcl and tk8.4 at present. tk8.3 and earlier work just fine.
Take care,
address@hidden writes:
> Support Request #101761, was updated on Wed 01/22/03 at 10:02
> You can respond by visiting:
> http://savannah.gnu.org/support/?func=detailsupport&support_id=101761&group_id=879
>
> Category: None
> Status: Open
> Priority: 5
> Summary: Problem with tkconnect
>
> By: fjesus
> Date: Tue 09/23/03 at 08:04
> Logged In: YES
> user_id=23417
> Browser:
>
> Hello, I'm Francisco J. MartÃn (address@hidden). I started this support
> request with the first problem about tkconnect. Last Sunday I spent 5
> hours with my laptop looking for a bug in the gcl-tk directory and I
> found it. It seems that the main tk window is built before the tk
> initialization, so when this happens, the main window "already exists in
> parent". To solve it I have commented the code related with the
> "mainWindow" variable in the file tkMain.c
>
> The patch I've built is the following:
>
> diff -uNr gcl-2.6.0cvs-1/gcl-tk/tkMain.c gcl-2.6.0/gcl-tk/tkMain.c
> --- gcl-2.6.0cvs-1/gcl-tk/tkMain.c 2003-02-15 01:38:27.000000000
> +0100
> +++ gcl-2.6.0/gcl-tk/tkMain.c 2003-09-23 09:30:00.000000000
> +0200
> @@ -71,9 +71,9 @@
> * Global variables used by the main program:
> */
>
> -static Tk_Window mainWindow; /* The main window for the
> application. If
> - * NULL then the application no longer
> - * exists. */
> +// static Tk_Window mainWindow; /* The main window for the
> application. If
> +// * NULL then the application no longer
> +// * exists. */
> static Tcl_Interp *interp; /* Interpreter for this application. */
> char *tcl_RcFileName; /* Name of a user-specific startup
> script
> * to source if the application is being run
> @@ -236,18 +236,18 @@
> * Initialize the Tk application.
> */
>
> - mainWindow = TkCreateMainWindow(interp, display, name/* , "Tk"
> */);
> - if (mainWindow == NULL) {
> - fprintf(stderr, "%sn", interp->result);
> - exit(1);
> - }
> -#ifndef __MINGW32__
> - if (synchronize) {
> - XSynchronize(Tk_Display(mainWindow), True);
> - }
> -#endif
> - Tk_GeometryRequest(mainWindow, 200, 200);
> - Tk_UnmapWindow(mainWindow);
> +// mainWindow = TkCreateMainWindow(interp, display, name/* ,
> "Tk" */);
> +// if (mainWindow == NULL) {
> +// fprintf(stderr, "%sn", interp->result);
> +// exit(1);
> +// }
> +// #ifndef __MINGW32__
> +// if (synchronize) {
> +// XSynchronize(Tk_Display(mainWindow), True);
> +// }
> +// #endif
> +// Tk_GeometryRequest(mainWindow, 200, 200);
> +// Tk_UnmapWindow(mainWindow);
>
> /*
> * Make command-line arguments available in the Tcl variables
> "argc"
> @@ -279,10 +279,10 @@
> * interpreter.
> */
>
> -#ifdef SQUARE_DEMO
> - Tcl_CreateCommand(interp, "square", SquareCmd, (ClientData)
> mainWindow,
> - (void (*)()) NULL);
> -#endif
> +// #ifdef SQUARE_DEMO
> +// Tcl_CreateCommand(interp, "square", SquareCmd, (ClientData)
> mainWindow,
> +// (void (*)()) NULL);
> +// #endif
>
> /*
> * Invoke application-specific initialization.
>
>
> ----------------------------------------------------------------------
>
> By: gambrill
> Date: Sun 05/04/03 at 19:52
> Logged In: NO
> Browser: Mozilla/5.0 (Windows; U; Windows NT 5.0; en-US; rv:1.0.0)
> Gecko/20020530
>
> On my home machine (PIII running slackware 8.1 linux) I am
> getting the same problem when I invoke (SI::TKCONNECT).
>
> >(SI::TKCONNECT)
>
> Loading /usr/local/lib/gcl-2.5.2/gcl-tk/tkl.o
> start address -T 0x846e000 Finished Loading
> /usr/local/lib/gcl-2.5.2/gcl-tk/tkl.o
>
> Error: SYSTEM:OPEN-NAMED-SOCKET [or a callee] requires less
> than two arguments.
> Fast links are on: do (si::use-fast-links nil) for debugging
> Error signalled by SYSTEM:OPEN-NAMED-SOCKET.
> Broken at SYSTEM:OPEN-NAMED-SOCKET. Type H: for Help
> >>
>
> My distro came with a 2.4 ish version of gcl and it did and
> still does (SI::TKCONNECT) just fine. Stayed up till about
> 3:00 am trying to figure this one out. Would love to hear if
> you all have solved this!
>
>
> ----------------------------------------------------------------------
> You can respond by visiting:
> http://savannah.gnu.org/support/?func=detailsupport&support_id=101761&group_id=879
>
> _______________________________________________
> Message sent via/by Savannah
> http://savannah.gnu.org/
>
>
>
>
--
Camm Maguire address@hidden
==========================================================================
"The earth is but one country, and mankind its citizens." -- Baha'u'llah
- [Gcl-devel] Re: [support #101761] Problem with tkconnect,
Camm Maguire <=