Crash when running perl-Tk from embedded Tcl 
Author Message
 Crash when running perl-Tk from embedded Tcl

Hello,

I'm using Matrix From Adra for Product Data Management which has
it's GUI built with Galaxy. The product allows to launch custom
applications during the lifecycle of a product, the Programming/
Query language is Tcl-MQL (Tcl without Tk + Matrix Query Language).
I'm trying to exec a perl-Tk (Sun - SunOS 4.1.3) program with:
        exec myProg
the widgets appear on the screen, but when the cursor goes into the
window it crashes with the following insults:

child killed: SIGABRT
LangMakeCallback (1):
 0 0x229630 PVMG f=04006007 f=04006007 Enter(1)
LangMakeCallback (1):
 0 0x229624 PVMG f=04006007 f=04006007 Leave(1)
LangMakeCallback (1):
 0 0x229420 PVMG f=04006007 f=04006007 butDown(1)
LangMakeCallback (1):
 0 0x229438 PVMG f=04006007 f=04006007 butUp(1)
LangMakeCallback (1):
 0 0x22942c PVMG f=04006007 f=04006007 Invoke(1)
Dubious call 'Enter' (obj=Tk::Menubutton=HASH(0x334374))
stack (1):
 0 0x351928   RV f=00080803 {}(1t)

If I run the following:
        exec xterm -e myProg
it works fine.

Any hints to help me getting rid of the xterm?

Thanks,

--
_/===============================/\================================\_
_/    Patrick Groeneveld         \/     Tel:  (33) 78-35-84-89     \_
_/  Computing Services Mgr.      /\     Fax:  (33) 78-35-84-25     \_
_/CS Technologies Informatiques  \/                                \_

_/ 69443 Lyon Cedex 3 - France   \/                                \_
_/===============================/\================================\_



Mon, 11 Jan 1999 03:00:00 GMT  
 Crash when running perl-Tk from embedded Tcl

I wrote a mail interface in PTk.  I declare a scroll bar that when you
double click it launches &ReadMessage($who, $id);  :

$list->bind('<Double-Button-1>' => sub {

        my $entry = $list->get('active');
        my($who, $blah2, $size, $id) = split(' ', $entry);
        \&ReadMessage($who, $id);
        }

in the frame below that I have set a button to execute
&DeleteMessage($id).  :

$delete = $frame3->Button(-text => 'Delete', -command => sub {

        my $del_message = $list->get('active');
        my ($who2, $blah3, $size2, $id2) = split(' ', $del_message);
        &DeleteMessage($user, $id2);
        }

I am haveing problems with it deleting too many messages.  The
subroutines work fine, I have tested them extensivly.  So I question the
TK part.  If I posted all of the code this message would be 4 pages long
maybe more.  Can you see anything or provide any suggestions with the
following code?

Thanks in advance!

Steve
--
*******************************************
* Steve Goyette                           *
* SGI/Sun System Administrator            *
* Diamond Net                             *
* Phone: 314-727-5596                     *
* Fax:   314-727-0180                     *

*******************************************



Tue, 12 Jan 1999 03:00:00 GMT  
 
 [ 3 post ] 

 Relevant Pages 

1. Tcl and Tcl::Tk w/ Tcl 7.5, 7.6 and Tk 4.1, 4.2

2. Tcl::Tk and Tcl modules are available to provide Tk GUI to perl

3. embedded Perl interpreter crashing on Perl syntax error

4. embedded Perl interpreter crashing on Perl syntax error

5. Embed Perl - perl_destruct() crashing

6. embedded Perl in C++: Crash when Dynaloader wants to load SharedObjects

7. HELP - Embedding Perl in C (crashes on syntax errors and missing/misspelled module names)

8. Problem embedding Perl in C (crashing on syntax errors etc)

9. Tcl/2K : The 7th USENIX Tcl/Tk Conference Call for Papers

10. ANNOUNCE: Tcl and Tcl::Tk extensions to Perl5

11. Tcl/2K : The 7th USENIX Tcl/Tk Conference Call for Papers

12. Tcl/2k : The 7th USENIX Tcl/Tk Conference Call for Papers

 

 
Powered by phpBB® Forum Software