gcl-devel
[Top][All Lists]
Advanced

[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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]