CGI/Perl Guide | Learning Center | Forums | Advertise | Login
Site Search: in

  Main Index MAIN
INDEX
Search Posts SEARCH
POSTS
Who's Online WHO'S
ONLINE
Log in LOG
IN

Home: Perl Programming Help: Intermediate:
Add text to Win32:GUI

 



frist44
User

Dec 1, 2009, 7:21 AM

Post #1 of 1 (741 views)
Add text to Win32:GUI Can't Post

I have created a window where I would like output to be shown as processed. A simple example is shown below. How would i get the output of the timer text to be on the next line each time is runs, rather than overwriting the last. My goal is to get a window that outputs log type data when a process is running. Thanks.


Code
use Win32::GUI(); 
use Time::localtime;

$main = Win32::GUI::Window->new(
-name => 'Main',
-title => 'Windows Application',
-width => 600,
-height => 400,
-left => 100,
-top => 100,
-resizable => 0,
-maximizebox => 0,
);
$main->AddLabel(-text => "Hello, world");
$t1 = $main->AddTimer('T1', 1000);
$main->Show();
Win32::GUI::Dialog();

sub T1_Timer {
$main->AddLabel(-text => "Time went off - " . ctime());
}

sub Main_Terminate {
-1;
}


 
 


Search for (options) Powered by Gossamer Forum v.1.2.0

Web Applications & Managed Hosting Powered by Gossamer Threads
Visit our Mailing List Archives