tcltk-perl — Perl Tcl::Tk bridge module discussion

RE: [tcltk-perl] Code for Tcl mainloop routines

[Konovalov, V. <vko...@sp...>]

> >>In my opinion, this is perl/Tk's fault in a name clash.

....

> Yes, this is almost certainly the problem.  I actually put
> some code in to handle this, but I see that I made it only
> trigger in debug mode (in Tk.pm):
> 
> if (DEBUG()) {
>      # The gestapo throws warnings whenever Perl/Tk modules are 
> requested.
>      # It also hijacks such requests and returns an empty 
> module in its 
> 
>      # place. 
> 
>      unshift @INC, \&tk_gestapo;
> }

With all the respect, this code is useful and able to help to develop
perl/Tk compatibility within Tcl::Tk, but have little to do with a
coexistance problem, when using both modules results in segmentation fault.

Stephane, as you said you have a patch for CPAN module named Tcl (and may be
Tcl::Tk?). Would you mind if we look at it?

Best regards,
Vadim.

Re: [tcltk-perl] Code for Tcl mainloop routines

[Jeff H. <je...@Ac...>]

Stephane Chatty wrote:
>>In my opinion, this is perl/Tk's fault in a name clash.
> 
> 
> Same opinion. But I have the vague feeling that the name clash is part
> of the trick in perl-Tk: have Tk run over a fake Tcl library that relies
> on Perl internals.

Yes, this is almost certainly the problem.  I actually put
some code in to handle this, but I see that I made it only
trigger in debug mode (in Tk.pm):

if (DEBUG()) {
     # The gestapo throws warnings whenever Perl/Tk modules are 
requested.
     # It also hijacks such requests and returns an empty module in its 

     # place. 

     unshift @INC, \&tk_gestapo;
}

You can see the def'n later in Tk.pm, but it basically hijacks
'use Tk' and related requests.  Since there is a naming issue,
we should probably reinstate this as a default, and change
from warning to error if we aren't fully hijacking and
replacing the content (which actually, I think we can do).

-- 
   Jeff Hobbs, The Tk Guy
   http://www.ActiveState.com/, a division of Sophos

Re: [tcltk-perl] Code for Tcl mainloop routines

[<ch...@in...>]

> In my opinion, this is perl/Tk's fault in a name clash.

Same opinion. But I have the vague feeling that the name clash is part
of the trick in perl-Tk: have Tk run over a fake Tcl library that relies
on Perl internals.

St.

Re: [tcltk-perl] Code for Tcl mainloop routines

[Vadim K. <va...@vk...>]

> that's what I think happens 
>dynamically when I do the following on my Linux box:
>
>
>------------
>use Tcl; # leads libtcl8.4.so to be loaded
>use Tk; # leads misc .so files from perl-Tk to be loaded
>
>$mw = new MainWindow;
>Tk::MainLoop;
>---------------
>
>and the result is
>Segmentation fault (core dumped)
>  
>
Well, this very small code does not do segmentation fault on Windows, 
and indeed does segmentation fault on Linux.


>
>When I investigated that and looked at the core file with gdb, I found that 
>the segfault occurs in perl-Tk's CreateFrame just after calling 
>Tcl_GetStringFromObj. This function exists in both perl-Tk (in one of its .so 
>file, in Linux) and in libtcl8.4.so. Apparently, the dynamic loader chooses  
>the latter whereas perl-Tk expected the former to be called. This results in 
>an invalid char* pointer being returned; when it is dereferenced, the program 
>crashes..
>  
>
Well, thank you a lot for providing analyzis.

Actually I tried my code long time ago both on Windows and Linux, and it 
did not crashed. Now I think this is due to perl/Tk version, which 
probably was 800.024, that one without Unicode support.

In my opinion, this is perl/Tk's fault in a name clash.

I wonder, will static building of perlTk help to avoid segmentation fault?

I did different rebuilds of Perl, Tcl/Tk on Windows and very little on 
Linux.
I succeeded statically building into perl DLL entire Tcl/Tk.

I'll try moving my previous experience to Linux and will see what 
combination will work.

Best regards,
Vadim.

Re: [tcltk-perl] Code for Tcl mainloop routines

[Stephane C. <ch...@in...>]

>> And we discovered that perl-Tk and Tcl *cannot* be used at 
>> the same time: they 
>> implement functions with the same name that do different 
>> things. Consequently, 

> Please provide more details here.
> Probably you mean that you cound not link both perl/Tk and Tcl/tk
> into one single binary file (either DLL or exe or somesuch)

Basically that's what I meant, yes. And that's what I think happens 
dynamically when I do the following on my Linux box:


------------
use Tcl; # leads libtcl8.4.so to be loaded
use Tk; # leads misc .so files from perl-Tk to be loaded

$mw = new MainWindow;
Tk::MainLoop;
---------------

and the result is
Segmentation fault (core dumped)


When I investigated that and looked at the core file with gdb, I found that 
the segfault occurs in perl-Tk's CreateFrame just after calling 
Tcl_GetStringFromObj. This function exists in both perl-Tk (in one of its .so 
file, in Linux) and in libtcl8.4.so. Apparently, the dynamic loader chooses  
the latter whereas perl-Tk expected the former to be called. This results in 
an invalid char* pointer being returned; when it is dereferenced, the program 
crashes..

St.

RE: [tcltk-perl] Code for Tcl mainloop routines

[Konovalov, V. <vko...@sp...>]

> Consequently, after talking with Vadim, I added a few 
> routines to Tcl.xs, with 
> the corresponding documentation in Tcl.pm and a test named 
> t/mainloop.t. The 
> routines provided are DoOneEvent, CreateChannelHandler, 
> DeleteChannelHandler, 
> MakeFileHandler, CreateTimerHandler and DeleteTimerHandler.
> 
> From that point, I have a proposal and a question:
> 
> - the proposal: IntuiLab is willing to share that code under 
> the same license 
> terms as perl-Tcl. I have prepared a patch based on Tcl-0.87 
> that I can send 
> upon request.

Please do so.


> 
> - the question: our next step was to integrate perl-Tk with 
> that mainloop 
> (yes, I know. But our code relies on perl-Tk and we can't 
> change that easily). 
> And we discovered that perl-Tk and Tcl *cannot* be used at 
> the same time: they 
> implement functions with the same name that do different 
> things. Consequently, 

Please provide more details here.
Probably you mean that you cound not link both perl/Tk and Tcl/tk into one
single binary file (either DLL or exe or somesuch)

Otherwise all is possible: Perl is able to contain both Tk and Tcl::Tk, and
they even could run together in one application.

Following lines are toy and nothing usefull, but application starts and even
works (buttons give their responces, and all is good until it gets not good
:):) 

use strict;
use Tk;
use Tcl::Tk;

if (fork) {
  tkinit->Button(-text=>'text',-command=>sub {
    print STDERR "he-he, perl/Tk\n";
  })->pack->MainLoop;
}
else {
  Tcl::Tk::tkinit->Button(-text=>'text2',-command=>sub {
    print STDERR "he-he, Tcl::Tk\n";
  })->pack->interp->MainLoop;
}

Also, two different loops are here; however "right" coexistence should rely
on one single MainLoop'

> we have had to build our own versions of Tcl and perl-Tcl 
> with all identifiers 
> changed :-( Any suggestion for a better solution? We are 
> willing to share the 
> bridge code (implemented as a Tcl notifier), but in the 
> present circumstances 
> it is pretty useless to anyone outside us.

Of course your efforts on adding perl/Tk compatibility to Tcl::Tk would be
very appreciated. Please share your ideas, .

I, for one, not spending many efforts on improving perl/Tk compatibility
right now, because I realized that I can move entirely into Tcl::Tk module.

Best regards,
Vadim.

[tcltk-perl] Code for Tcl mainloop routines

[Stephane C. <ch...@in...>]

My colleagues and I needed a good customisable mainloop that is usable fr=
om=20
both Perl and C, and we found that the Tcl mainloop serves our needs. But=
=20
perl-tcl did not provide access to the necessary functions.

Consequently, after talking with Vadim, I added a few routines to Tcl.xs,=
 with=20
the corresponding documentation in Tcl.pm and a test named t/mainloop.t. =
The=20
routines provided are DoOneEvent, CreateChannelHandler, DeleteChannelHand=
ler,=20
MakeFileHandler, CreateTimerHandler and DeleteTimerHandler.

From that point, I have a proposal and a question:

- the proposal: IntuiLab is willing to share that code under the same lic=
ense=20
terms as perl-Tcl. I have prepared a patch based on Tcl-0.87 that I can s=
end=20
upon request.

- the question: our next step was to integrate perl-Tk with that mainloop=
=20
(yes, I know. But our code relies on perl-Tk and we can't change that eas=
ily).=20
And we discovered that perl-Tk and Tcl *cannot* be used at the same time:=
 they=20
implement functions with the same name that do different things. Conseque=
ntly,=20
we have had to build our own versions of Tcl and perl-Tcl with all identi=
fiers=20
changed :-( Any suggestion for a better solution? We are willing to share=
 the=20
bridge code (implemented as a Tcl notifier), but in the present circumsta=
nces=20
it is pretty useless to anyone outside us.

Cheers,

St=E9phane

[tcltk-perl] Re: Access to Tcl main loop in Perl

[vadim <va...@vk...>]

> my question is purely about Tcl and not about Tk, that's why I'm writing to 
> you directly instead of using the tcltk list.

Still, writing to tcltk developers list is good idea, and may be asking
your question on pure-tcl lists will also be good.

> In our project we need a main loop and we have found that the Tcl main loop 
> is fine for us. However, whereas calling all the main loop routines 
> (Tcl_DoOneEvent, Tcl_CreateChannelHandler and the likes) is easy in C++, it 
> demands a special library in Perl.

...

> However, to my understanding the module just provides access to 
> Tcl_DoOneEvent, and not to the other main loop functions. Can you confirm 
> that? Is there any particular reason for that?

Probably other functions were not required earlier. Adding other
function to Tcl.xs is possible.

In most cases, when required library function is accessible from Tcl,
you can do $int->Eval("Tcl code to access").

>  Do you have ideas in mind 
> about how to access the main loop?

I have no deep knowledge of Tcl internals, but if you follow Tcl
documentation closely, things should work perfectly.

>  I am asking because I have started making 
> additions to Tcl.xs for that, and I'd like to make sure that it is a good 
> approach before going further.

Any additions that improve code are welcomed! Share your ideas in more
details, and probably other developers will help. 


Best regards,
Vadim.

[tcltk-perl] Tcl/Tk 2005 First Call for papers

[<aku...@sh...>]

Tcl/Tk 2005 First Call for papers.
===================================

Tcl/Tk 2005 will be held in Portland, Oregon USA in late October or
early November.  The program committee asks all people using and
developing with Tcl/Tk and extensions to submit papers and proposals
for presentations at this conference.

Past conferences have seen submissions covering a wide variety of
topics including and not limited to:

   * Scientific and engineering applications
   * Industrial controls
   * Distributed applications and Network Managment
   * Object oriented extensions to Tcl/Tk
   * New widgets for Tk
   * Simulation and application steering with Tcl/Tk
   * Tcl/Tk-Centric operating environments
   * Tcl/Tk on small and embedded devices
   * Medical applications and visualization


At this point we are requesting submissions of:

   * Abstracts of papers for oral presentation.
   * Proposals for short courses to be taught the day prior to the conference.
   * Proposals for other presentations/discussions.
   * Proposals to present tutorial sessions.

Please send abstracts and proposals to tcl2005 (at) nscl (dot) 
msu (dot) edu

Important target dates:
=======================
 July  1, 2005    - Abstracts and proposals due.
 July 31, 2005    - Notification to authors.
 Sep  15, 2005    - Author materials due.

The submissions should consist of an abstract of about 100 words and a
summary of maximum two pages.  Omit extraneous or redundant
information. Length is not a direct factor in judging the quality of
the submission.

The authors of oral presentations will have 20-25 minutes to present
the paper at the conference.

The program committee will review and evaluate papers according to the
following criteria:

   * Quantity and quality of novel content
   * Relevance and interest to the Tcl/Tk community
   * Suitability of content for presentation at the conference 

Proposals may report on commercial or non-commercial systems, but
those with only blatant marketing content will not be accepted.

Application and experience papers need to strike a balance between
background on the application domain and the relevance of Tcl/Tk to
the application. Application and experience papers should clearly
explain how the application or experience illustrates a novel use of
Tcl/Tk, and what lessons the Tcl/Tk community can derive from the
application or experience to apply to their own development efforts.

Papers accompanied by non-disclosure agreement forms will be returned
to the author(s) unread. All submissions are held in the highest
confidentiality prior to publication in the Proceedings, both as a
matter of policy and in accord with the U. S. Copyright Act of 1976.

The primary author for each accepted paper will receive registration
to the Technical Sessions portion of the conference at a reduced rate.

The program committee also welcomes proposals for panel discussions of
up to 90 minutes. Proposals should include a list of confirmed
panelists, a title and format, and a panel description with position
statements from each panelist. Panels should have no more than four
speakers, including the panel moderator, and should allow time for
substantial interaction with attendees. Panels are not presentations
of related research papers.



Program Committee:
==================
 Donal  Fellows       University of Manchester
 Clif   Flynt         Noumena Corp.
 Ron    Fox           NSCL Michigan State University
 Jeff   Hobbs         ActiveState Corp.
 Steve  Landers       Digital Smarties
 Gerald Lester        HMS Software
 Cyndy  Lilagan       Eolas Technologies Inc.
 Arjen  Markus        WL | Delft Hydraulics

--
Sincerely,
	Andreas Kupries <aku...@sh...>
			<http://www.purl.org/NET/akupries/>
-------------------------------------------------------------------------------

RE: [tcltk-perl] execute the statement using the "exec ksh -c" i n HP UNIX

[Konovalov, V. <vko...@sp...>]

...

> 2) In unix I am not able to get the url which I am passing along with
> startexp.pl
> 
> 	-command {exec ksh -c "$path/startexp.pl
http://www.perl.com/download.csp" &}

> I am not able to find the reason why I could not url when running in unix.
>
>	The way I am calling is correct or not?
>	In unix shall I use ksh -c when script calling using perl.
>	Is there any alternative to ksh -c ?
>

While your question has both "perl" and "tcltk" substrings, still, you're
writing to wrong place.

This mailing list discusses development of Tcl::Tk Perl  module, and has
nothing to do with invoking of perl script from within tcl script.

As to your question, it probably has to be addressed to your "startexp" perl
script. Try asking on http://www.perlmonks.org with this script.

[tcltk-perl] execute the statement using the "exec ksh -c" in HP UNIX

[M.Srinivasa R. <sri...@in...>]

I am migrating tcl/tk application from Hp Unix to windows.one of tcl/tk
script contain  following line of statement.

	-command {exec ksh -c "$path/startexp.pl  http://www.perl.com/download.csp"
&}

I am calling the tcl scripts using the perl in windows as well as unix.

startexp.pl contain the following code.
-------------------------------
$url = ARGV[0];
if (win32) {

	system("iexplore $url");
} elseif (hpunix)

	system("mozilla $url");
}
--------------------------------------------------

1) In windows I am able to open the url  using  the statement given below .

	-command {exec cmd  /c "$path/startexp.pl
http://www.perl.com/download.csp" &}

2) In unix I am not able to get the url which I am passing along with
startexp.pl

	-command {exec ksh -c "$path/startexp.pl  http://www.perl.com/download.csp"
&}

I am not able to find the reason why I could not url when running in unix.

	The way I am calling is correct or not?
	In unix shall I use ksh -c when script calling using perl.
	Is there any alternative to ksh -c ?

Please suggest and help me towards this.

With Regards,
Srinivas.

[tcltk-perl] what is the equivalent terminal to " ksh -c" in HP-UX

[M.Srinivasa R. <sri...@in...>]

 I am migrating tcl scripts from unix to windows.I have following lines of
statements in tcl scripts.

	exec ksh -c "${dirname}/exe name < $inputfname > $outputfname"

I am calling the tcl scripts using the perl interpreter in widows as well as
unix.

My requirement as follows

1) In windows I am able to execute the above statement given below .

	exec cmd /c "${dirname}/exe name < $inputfname > $outputfname"

2) How can I replace the "ksh -c" in above statement in HP unix ?

	I have tried using the 'hpterm' in place of ksh -c. But I could not
success.

	Thanks in the advance for your help

With Regards,
Srinivas M

[tcltk-perl] Tcl::Tk wiki available

[Konovalov, V. <vko...@sp...>]

Dear all,

I've setup Tcl::Tk wiki at http://vkonovalov.ru/cgi-bin/perl-tcltk-wiki.cgi
.
It currently contains not much information, but I will hopefully fill it
incrementally.

So I'll refer to that wiki's URLs from time to time.

All are welcomed!
Hopefully visitors will be good wikizen-s :)

Best regards,
Vadim.

[tcltk-perl] RE: Tcltk-perl digest, Vol 1 #81 - 1 msg

[M.Srinivasa R. <sri...@in...>]

Thanku very much for quick response.

libtcl8.4.sl is available in path /usr/local/ActiveTcl/lib/. I will try and
let you know.

With Regards,
Srinivas M

-----Original Message-----
From: tcl...@li...
[mailto:tcl...@li...]On Behalf Of
tcl...@li...
Sent: Saturday, February 12, 2005 9:48 AM
To: tcl...@li...
Subject: Tcltk-perl digest, Vol 1 #81 - 1 msg


Send Tcltk-perl mailing list submissions to
	tcl...@li...

To subscribe or unsubscribe via the World Wide Web, visit
	https://lists.sourceforge.net/lists/listinfo/tcltk-perl
or, via email, send a message with subject or body 'help' to
	tcl...@li...

You can reach the person managing the list at
	tcl...@li...

When replying, please edit your Subject line so it is more specific
than "Re: Contents of Tcltk-perl digest..."


Today's Topics:

   1. RE: Installation of Tcl-Tk-0.85 on HP-UX 11 (Konovalov, Vadim)

--__--__--

Message: 1
From: "Konovalov, Vadim" <vko...@sp...>
To: sri...@in...
Cc: tcl...@li...
Date: Fri, 11 Feb 2005 15:41:18 +0300
Subject: [tcltk-perl] RE: Installation of Tcl-Tk-0.85 on HP-UX 11

> I am not able to install Tcl-Tk-0.85 module on HP_UX 11.When

current version is 0.87, but this should not be relevant, 0.85 should also
be installed.

> I installed the
> following error message is displaying.
>
> /usr/lib/dld.sl: Can't open shared library:
> /usr/local/ActiveTcl/lib/libtcl8.4.so
> /usr/lib/dld.sl: No such file or directory

Could you please verify what inside /usr/local/ActiveTcl/lib/
Is there libtcl8.4.sl ?

there is some excerpt from Tcl.xs:

#ifndef TCL_LIB_FILE
# ifdef WIN32
#   define TCL_LIB_FILE "tcl84.dll"
# elif defined(__hpux)
#   define TCL_LIB_FILE "libtcl8.4.sl"
# else
#   define TCL_LIB_FILE "libtcl8.4.so"
# endif
#endif

so you should have libtcl8.4.sl

does your compiler defines __hpux ?

>
> I was able to install Tcl-0.85 module on HP_UX 11.
>
> And also both modules (Tcl-0.85 and Tcl-Tk-0.85) were
> installed successfully
> on windows.
> Are these modules are any OS specific? I downloaded these module from
> www.cpan.org

Interestingly, Tcl-0.85 should be 'harder' to install than Tcl-Tk-0.85, as
Tcl-Tk is pure-perl.



--__--__--

_______________________________________________
Tcltk-perl mailing list
Tcl...@li...
https://lists.sourceforge.net/lists/listinfo/tcltk-perl


End of Tcltk-perl Digest

[tcltk-perl] RE: Installation of Tcl-Tk-0.85 on HP-UX 11

[Konovalov, V. <vko...@sp...>]

> I am not able to install Tcl-Tk-0.85 module on HP_UX 11.When 

current version is 0.87, but this should not be relevant, 0.85 should also
be installed.

> I installed the
> following error message is displaying.
> 
> /usr/lib/dld.sl: Can't open shared library:
> /usr/local/ActiveTcl/lib/libtcl8.4.so
> /usr/lib/dld.sl: No such file or directory

Could you please verify what inside /usr/local/ActiveTcl/lib/
Is there libtcl8.4.sl ?

there is some excerpt from Tcl.xs:

#ifndef TCL_LIB_FILE
# ifdef WIN32
#   define TCL_LIB_FILE "tcl84.dll"
# elif defined(__hpux)
#   define TCL_LIB_FILE "libtcl8.4.sl"
# else
#   define TCL_LIB_FILE "libtcl8.4.so"
# endif
#endif

so you should have libtcl8.4.sl

does your compiler defines __hpux ?

> 
> I was able to install Tcl-0.85 module on HP_UX 11.
> 
> And also both modules (Tcl-0.85 and Tcl-Tk-0.85) were 
> installed successfully
> on windows.
> Are these modules are any OS specific? I downloaded these module from
> www.cpan.org

Interestingly, Tcl-0.85 should be 'harder' to install than Tcl-Tk-0.85, as
Tcl-Tk is pure-perl.

RE: [tcltk-perl] RE: Tcltk-perl digest, Vol 1 #78 - 2 msgs

[Konovalov, V. <vko...@sp...>]

Remember, users of Tcl::Tk Perl module discuss it at tc...@pe...

Also, you should start explorer, or other HTML viewer  differently.

If you want to eval tcltk code from Perl, please read "perldoc Tcl" and
"perldoc Tcl::Tk" manuals, of course if you haqve both modules installed.


> I am migrating the tcltk scripts from unix to windows OS.The 
> tcltk script
> contains
>  the following lines of code.
> 
> ************************************************************
> -menu {options -tearoff no
> 	command gearmnu -label "Expert Advices" -underline 0 \
> 	 -helpstr "Expert Advices" \
>  	 -command {exec ksh -c "$pathname/startnetscape 
> http://www.perl.com &}
> 
> here startnetscape is shell script.This shell script contains 
> the given
> lines of code
> 
> /../../netscape -remote "openURL($1,new_window)"
> 
> ************************************************************
> Please help me how to convert above lines of code using the perl.The
> converted code must work on unix environmebt also.
> 
> 
> 
> I have replaced the above statement and tried to execute the 
> tcktk script
> using following code.
> 
> -command {exec cmd /c "$pathname\\startnetscape.pl  
> http://www.perl.com" &}
> 
> I am getting only blank Internet explorer without the URL which one is
> passed.
> 
> The code of Perl script startnetscape.pl :
> system("iexplore.exe ");
> 
> 
> With Regards,
> Srinivas.
> 
> -----Original Message-----
> From: tcl...@li...
> [mailto:tcl...@li...]On Behalf Of
> tcl...@li...
> Sent: Thursday, February 03, 2005 9:48 AM
> To: tcl...@li...
> Subject: Tcltk-perl digest, Vol 1 #78 - 2 msgs
> 
> 
> Send Tcltk-perl mailing list submissions to
> 	tcl...@li...
> 
> To subscribe or unsubscribe via the World Wide Web, visit
> 	https://lists.sourceforge.net/lists/listinfo/tcltk-perl
> or, via email, send a message with subject or body 'help' to
> 	tcl...@li...
> 
> You can reach the person managing the list at
> 	tcl...@li...
> 
> When replying, please edit your Subject line so it is more specific
> than "Re: Contents of Tcltk-perl digest..."
> 
> 
> Today's Topics:
> 
>    1. mailing list for users of Tcl::Tk perl module is 
> created on perl.
>        org (Konovalov, Vadim)
> 
> --__--__--
> 
> Message: 1
> From: "Konovalov, Vadim" <vko...@sp...>
> To: tcl...@li...
> Date: Wed, 2 Feb 2005 10:38:32 +0300
> Subject: [tcltk-perl] mailing list for users of Tcl::Tk perl module is
> created on perl.
>  org
> 
> Dear all,
> 
> by my request Ask Bjorn Hansen kindly created mailing list 
> for users of
> Tcl::Tk module, while "tcltk-perl at lists.sourceforge.net" list could
> probably be for developers.
> Subscription to this list is tcl...@pe...
> 
> So I'll update corrseponding information in proper places.
> 
> For some reason there isn't much traffic in development list 
> currently (i.e.
> here), but I think this is because currently module has 
> little to discuss,
> as it is in quite robust shape right now :):):)
> 
> As for the additional information, now some new features available in
> Tcl::Tk
>   - destruction of widgets is working
>   - following AUTOLOAD-ing of Tcl::Tk interpreter methods:
> $int->_foreach(['i','j'],['a'..'zz'],'puts $i-$j');
> $int->packageIfneeded('qwerty','1.0',sub{print STDERR "they 
> need package
> querty...\nthey passed us [@_]\nand that's the end of the 
> matter!\n"});
> 
> Best regards,
> Vadim.
> 
> 
> 
> --__--__--
> 
> _______________________________________________
> Tcltk-perl mailing list
> Tcl...@li...
> https://lists.sourceforge.net/lists/listinfo/tcltk-perl
> 
> 
> End of Tcltk-perl Digest
> 
> 
> 
> -------------------------------------------------------
> SF email is sponsored by - The IT Product Guide
> Read honest & candid reviews on hundreds of IT Products from 
> real users.
> Discover which products truly live up to the hype. Start reading now.
> http://ads.osdn.com/?ad_id=6595&alloc_id=14396&op=click
> _______________________________________________
> Tcltk-perl mailing list
> Tcl...@li...
> https://lists.sourceforge.net/lists/listinfo/tcltk-perl
> 

[tcltk-perl] RE: Tcltk-perl digest, Vol 1 #78 - 2 msgs

[Jeff H. <je...@Ac...>]

> I am migrating the tcltk scripts from unix to windows OS.The 
> tcltk script contains  the following lines of code.
	...
> -command {exec ksh -c "$pathname/startnetscape http://www.perl.com &}
> 
> here startnetscape is shell script.This shell script contains 
> the given lines of code
> 
> /../../netscape -remote "openURL($1,new_window)"

Do you really need to specifically start netscape?  It would
seem more proper to not restrict yourself that way.

> Please help me how to convert above lines of code using the 
> perl.The converted code must work on unix environmebt also.

> I have replaced the above statement and tried to execute the 
> tcktk script using following code.
> 
> -command {exec cmd /c "$pathname\\startnetscape.pl http://www.perl.com" &}

You should look at http://wiki.tcl.tk/557.  This is from the Tcl
perspective, but it should get you going.

  Jeff Hobbs, The Tcl Guy
  http://www.ActiveState.com/, a division of Sophos

[tcltk-perl] RE: Tcltk-perl digest, Vol 1 #78 - 2 msgs

[M.Srinivasa R. <sri...@in...>]

I am migrating the tcltk scripts from unix to windows OS.The tcltk script
contains
 the following lines of code.

************************************************************
-menu {options -tearoff no
	command gearmnu -label "Expert Advices" -underline 0 \
	 -helpstr "Expert Advices" \
 	 -command {exec ksh -c "$pathname/startnetscape http://www.perl.com &}

here startnetscape is shell script.This shell script contains the given
lines of code

/../../netscape -remote "openURL($1,new_window)"

************************************************************
Please help me how to convert above lines of code using the perl.The
converted code must work on unix environmebt also.



I have replaced the above statement and tried to execute the tcktk script
using following code.

-command {exec cmd /c "$pathname\\startnetscape.pl  http://www.perl.com" &}

I am getting only blank Internet explorer without the URL which one is
passed.

The code of Perl script startnetscape.pl :
system("iexplore.exe ");


With Regards,
Srinivas.

-----Original Message-----
From: tcl...@li...
[mailto:tcl...@li...]On Behalf Of
tcl...@li...
Sent: Thursday, February 03, 2005 9:48 AM
To: tcl...@li...
Subject: Tcltk-perl digest, Vol 1 #78 - 2 msgs


Send Tcltk-perl mailing list submissions to
	tcl...@li...

To subscribe or unsubscribe via the World Wide Web, visit
	https://lists.sourceforge.net/lists/listinfo/tcltk-perl
or, via email, send a message with subject or body 'help' to
	tcl...@li...

You can reach the person managing the list at
	tcl...@li...

When replying, please edit your Subject line so it is more specific
than "Re: Contents of Tcltk-perl digest..."


Today's Topics:

   1. mailing list for users of Tcl::Tk perl module is created on perl.
       org (Konovalov, Vadim)

--__--__--

Message: 1
From: "Konovalov, Vadim" <vko...@sp...>
To: tcl...@li...
Date: Wed, 2 Feb 2005 10:38:32 +0300
Subject: [tcltk-perl] mailing list for users of Tcl::Tk perl module is
created on perl.
 org

Dear all,

by my request Ask Bjorn Hansen kindly created mailing list for users of
Tcl::Tk module, while "tcltk-perl at lists.sourceforge.net" list could
probably be for developers.
Subscription to this list is tcl...@pe...

So I'll update corrseponding information in proper places.

For some reason there isn't much traffic in development list currently (i.e.
here), but I think this is because currently module has little to discuss,
as it is in quite robust shape right now :):):)

As for the additional information, now some new features available in
Tcl::Tk
  - destruction of widgets is working
  - following AUTOLOAD-ing of Tcl::Tk interpreter methods:
$int->_foreach(['i','j'],['a'..'zz'],'puts $i-$j');
$int->packageIfneeded('qwerty','1.0',sub{print STDERR "they need package
querty...\nthey passed us [@_]\nand that's the end of the matter!\n"});

Best regards,
Vadim.



--__--__--

_______________________________________________
Tcltk-perl mailing list
Tcl...@li...
https://lists.sourceforge.net/lists/listinfo/tcltk-perl


End of Tcltk-perl Digest

[tcltk-perl] mailing list for users of Tcl::Tk perl module is created on perl. org

[Konovalov, V. <vko...@sp...>]

Dear all,

by my request Ask Bjorn Hansen kindly created mailing list for users of
Tcl::Tk module, while "tcltk-perl at lists.sourceforge.net" list could
probably be for developers. 
Subscription to this list is tcl...@pe...

So I'll update corrseponding information in proper places.

For some reason there isn't much traffic in development list currently (i.e.
here), but I think this is because currently module has little to discuss,
as it is in quite robust shape right now :):):)

As for the additional information, now some new features available in
Tcl::Tk
  - destruction of widgets is working
  - following AUTOLOAD-ing of Tcl::Tk interpreter methods:
$int->_foreach(['i','j'],['a'..'zz'],'puts $i-$j');
$int->packageIfneeded('qwerty','1.0',sub{print STDERR "they need package
querty...\nthey passed us [@_]\nand that's the end of the matter!\n"});

Best regards,
Vadim.

[tcltk-perl] * lib/Tcl/Tk.pm: documentation seriously reworked

[Vadim K. <va...@vk...>]

    * lib/Tcl/Tk.pm: documentation seriously reworked
... and its reasonable to look into it, as I do not feel English very 
well...


BR,
Vadim.

[tcltk-perl] tieing hash to Tcl::Var package is incomplete

[Vadim K. <va...@vk...>]

As a note for further patchers of Tcl, it appears only partially 
Tcl::Var works WRT hashes

See http://perlmonks.org/?node_id=423594 for discussion

[tcltk-perl] is there something with CVS repository?

[Vadim K. <va...@vk...>]

Subj.
I can commit my changes, but can not see changes as anonymous user, 
using either WEB or CVS command for a day now. May be I am doing wrong 
something?

BTW my latest change is quite interesting: if a user calls
$widget->_method(...) then behaviour is like in $widget->method(...) but 
with faster call to interpreter.

Within this change my recent "stress" test script is written as:

use Tcl::Tk qw(:perlTk);

my $mw = tkinit;
my $tw = $mw->Scrolled('Text')->pack;

my $t0=time;

for my $stresser ('a'..'zzz') {
  $tw->_windowCreate('end',-window=>$tw->_Button(-text=>$stresser));
  if ($stresser =~ /z$/) {
    $tw->_insert('end',"\n") ;
    $tw->_seeEnd;
    #$tw->update;
  }
}

my $t1=time;
print STDERR "time=".($t1-$t0)."\n";

MainLoop;


It executes some 20% faster, so increasing gap between perlTk and 
Tcl::Tk execution speed.

Semantic for "_" at start of method name is that we're using some 
internal method which is known to be faster but no preprocessing  happens.

(this could be another naming convention, though)

Opinions? Ideas?

Best regards,
Vadim.

[tcltk-perl] currently documentation Tcl::Tk is a big mess,

[Vadim K. <va...@vk...>]

as of latest commits, but please don't panic, its temporary :)

[tcltk-perl] sub declare_widget

[Vadim K. <va...@vk...>]

Given following stress-test script:

use Tcl::Tk qw(:perlTk);

my $t0=time;

my $mw = tkinit;
my $tw = $mw->Scrolled('Text',-height=>2)->pack;
for my $stresser ('a'..'zzz') {
  $tw->windowCreate('end',-window=>$tw->Button(-text=>$stresser));
  if ($stresser =~ /z$/) {
    $tw->insert('end',"\n") ;
    $tw->seeEnd;
    $tw->update;
  }
}

my $t1=time;
print STDERR "time=".($t1-$t0)."\n";

MainLoop;

it occures that approximately after 1000th insertion of widget further 
insertions are visually slower, and then slower yet, and slower and slower.

However, when changing a line in Tcl::Tk::declare_widget sub
    my $id = $path=~/^\./ ? $int->invoke('winfo','id',$path) : $path;
to
    my $id = $path;
it appears no slowness.
Changing this way results in changing some internal logic, but all other 
things remains functional (including -d:tcltkdb, which has multiple 
interpreters)

So I am going to do this change.

Also,  I am going to commit few other small speed improvements:
 - declare_widget now takes additional 3rd argument, which package 
widget should be blessed to. (otherwise there were more consequent 
blesses: first into Tcl::Tk::Widget, and then, say, into  
Tcl::Tk::Widget::Text)
 - $gwcnt incremented every time widget path  is invented, so 
simplifying logic and making it faster.


Vadim.

[tcltk-perl] Tcl::Tk recent changes

[Konovalov, V. <vko...@sp...>]

I did some commits, and few more commits are to be done.

Among those that will be commited today/tomorrow:

  - removing "awidgets" method, described in POD and removing it from POD
too. I hope no-one stuck with it to the moment.
  - pkg_require will recognize packages on interpreter basis.
  - widget method of interpreter object should *optionally* get second
parameter, and, if given, bless widget to that package
Tcl::Tk::Widget::WIDGET-TYPE so to allow be fully identical to call either
way:
  $widget=$mw->Text;
or
  $interp->Eval('text .t'); $widget = $interp->widget(".t","Text");
(otherwise widget .t will live in "common" space and probably could mess
methods)

 After "pkg_require" change "tcltkdb" started working more or less robustly.
I am thinking about proposing people actually use it, as it looks quite
normal, yet allows debugging Tcl::Tk GUI with Tcl::Tk GUI, and here 2
interpreters come into play

Looking for timely objections or silent agreement :)

More documenting also prepared, but... there are many but-s in mydocumenting
.

Best regards,
Vadim.