mainGNU Common Lisp - Support: sr #101761, Problem with tkconnect

 
 

sr #101761: Problem with tkconnect

Submitter:  None
Submitted:  Wed 22 Jan 2003 10:02:03 AM UTC
   
 
Category:  None Priority:  5 - Normal
Severity:  2 - Minor Status:  Done
Privacy:  Public Assigned to:  None
Originator Email:  -email is unavailable- Open/Closed:  Closed
Operating System:  None
* Mandatory Fields

Add a New Comment Rich Markup
   

Sun 31 Aug 2014 12:53:39 PM UTC, comment #5: 

Greetings, and thanks for your report!  While I do not have access to the system you mention, I believe this is fixed at least as of git Version_2_6_11pre, soon to be released as 2.6.11 and merged with git master.  Please reopen if problems persist.

Camm Maguire <camm>
Group administrator
Tue 23 Sep 2003 08:04:38 AM UTC, comment #4: 


Hello, I'm Francisco J. Martín (fjesus@us.es). 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, "\n", 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, "\n", 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.

Invalid User ID <#23417>
Tue 23 Sep 2003 08:04:25 AM UTC, comment #3: 


Hello, I'm Francisco J. Martín (fjesus@us.es). 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, "\n", 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, "\n", 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.

Invalid User ID <#23417>
Sun 04 May 2003 07:52:05 PM UTC, comment #2: 


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!

Anonymous
Thu 13 Feb 2003 12:26:46 PM UTC, comment #1: 


News about the tkconnect problem.      
I've make the same in a RedHat 7.3 - i686 - kernel 2.4.18,   
and I get the following error message:   
   

>(si::tkconnect)  

  
Loading /home/practica/gcl-2.5.0/gcl-tk/tkl.o  
start address -T 0x84ba000 Finished loading  
/home/practica/gcl-2.5.0/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.  

>>  

 
What's the problem ?
 

Anonymous
Wed 22 Jan 2003 10:02:03 AM UTC, original submission:  


Hello, I've installed GCL-2.5
(gcl_2.5.0.cvs20020625-70.tar.gz) in my linux machine
(suse linux 8.1 - i386 - kernel 2.4.19-GB), but when
I try to use gcl-tk I get the following message:

>(si::tkconnect)


Loading /usr/local/lib/gcl-2.5.0-install/gcl-tk/tkl.o
start address -T 0x8504000 Finished loading
/usr/local/lib/gcl-2.5.0-install/gcl-tk/tkl.o

"/usr/local/lib/gcl-2.5.0-install/gcl-tk/gcltksrv
127.0.0.1 5064 4901 :0.0 "Tcl_AppInit failed: window
name "" already exists in parent

""
T

And then, I can't use gcl-tk.

Anonymous

 

(Note: upload size limit is set to 16384 kB, after insertion of the required escape characters.)

Attach Files:
   
   
Comment:
   

No files currently attached

 

Depends on the following items: None found

Items that depend on this one: None found

 

Carbon-Copy List
  • -email is unavailable- added by camm (Posted a comment)
  •  

    There are 0 votes so far. Votes easily highlight which items people would like to see resolved in priority, independently of the priority of the item set by tracker managers.

    Only logged-in users can vote.

     

    Follow 2 latest changes.

    Date Changed by Updated Field Previous Value => Replaced by
    2014-08-31 camm StatusNone Done
        Open/ClosedOpen Closed

    Back to the top

    Powered by Savane 3.13-758e.
    Corresponding source code