Hey,
I have to do a college project using C++. It also requires a GUI and I want to use Perl/Tk for the Gui, but am not sure how to link the C++ to the Perl. The project requires being able to pass variables back and forth. Could anyone point me in the direction of some good tutorials/books for linking the two? Or any ideas on how I sho...
I am making GUI (login window). When the password is correct, the login window must call other window. Is there a way in PerlTk to call another window rather than using subwindow?
use strict;
use Tk;
my $mw = MainWindow->new;
$mw->geometry("300x150");
$mw->configure(-background=>'gray',-foreground=>'red');
$mw->title("PLEASE LOGIN");
...
Here are the errors:
$ perl ftper.pl
Use of uninitialized value $id in hash element at /usr/lib/perl5/vendor_perl/5.1
/i686-cygwin/Tk/After.pm line 39.
se of uninitialized value $id in hash element at /usr/lib/perl5/vendor_perl/5.1
/i686-cygwin/Tk/After.pm line 39.
se of uninitialized value $id in hash element at /usr/lib/perl5/vendor_...
Hi,
Is there a way to make a Perl/Tk window's close ('X') button disabled?
I know how to ignore clicking it using the technique described here, but I would much rather have it disabled.
I'm using Perl/Tk on Windows.
Thanks,
splintor
...
I have an application that is built to work on Windows, Linux, and Solaris that uses the Perl/TK GUI. Due to constraints, we are limited to Perl/TK only. Moreover, we are limited to an old Perl/Tk version, 5.00404.
I'd like to work within these limitations to make the GUI look as nice and modern as possible.
Are there any web-resource...
I have a Perl-Tk GUI with about 50 sub-windows. In each sub-window there are about 50 buttons and 50 menus (each menu has about 4 options).
When I run it on UNIX/Linux/Solaris, it runs smoothly.
When I run it on Windows, the GUI freezes in the middle of loading so I see only some of the buttons, or the GUI doesn't show at all it seem...
Hi all,
If we want to remove the entry widget contents we can use delete
with entry object.
Example
$ent->delete(0,'end');
But I want to remove the Text widget contents.Can any one tell me what is the function for removing the text widget contents?
...
In Perl/Tk I have designed one interface in that I have one frame.
That frame has an Entry and Text box. When I am clicking the button
those Entry and Text value has to clear in the Frame. I know that I can
access each object then I can clear using delete function.
I need to do as like HTML form reset button functionality. How can I...
I am learning Perl/Tk. I want to give alert to the user whenever he/she receives the mail.
I have planned to use message box in Tk, but it is expecting the user to click ok or cancel button.
Until user clicked the any one button it wont do any further operations.
But I want, it just needs to give alert to the user and user can continu...
I use the following code for printing the line number in a Text widget:
my $c = 0;
my $r = 0;
$txt = $mw->Text(
-background => 'white',
-width => 400,
-height => 300,
-selectbackground => 'skyblue',
-insertwidth => 5,
-borderwidth => 3,
-highlightcolor ...
So... I have been trying to get this working for several weeks now. I can install MinGW through the .exe, but no-matter what I do I can't seem to get make support or ppm install MinGW to work in such a way that my compilation of Tk-804.029 will correctly use the 'make' command.
(Installing a Perl Module:
perl MakeFile.PL - Works fine
...
In my Perl/Tk script I'm opening new windows, and i want the window opening will run an initial subroutine (when ever the window is opened)
How can I do it?
...
I want to hide the mainwindow for a certain amount of time then show it again.
Example:
use Tk;
my $mw = new MainWindow;
my $lblMsg = $mw -> Label(-text=>"blabla")-> grid();
my $btnPostpone = $mw -> Button(-text=>"Postpone for (min): ",
-command =>\&postpone)-> grid();
MainLoop;
sub postpone{
$mw-> withdraw();
sleep(1);...
For example in the following script:
use Tk;
my $mw = new MainWindow;
my $t = $mw->Scrolled("Text")->pack;
my $popup = $mw->Menu(
-menuitems => [
[
Button => 'Copy Selected',
-state => "disabled",
-command => sub {$t->clipboardColumnCopy}
],
]
);
$t->menu($popup);
MainL...