Couple of questions regarding Perl/Tk:
[1] I'm trying to get a shell command's output displayed in a listbox.
open (PIPE, "${strShellCommand}|");
while ($strLine = <PIPE>) {
chomp $strLine;
$objListBox->insert("end", "$strLine");
}
close PIPE;
This seems to complete the shell command before updating the
screen. Is there a better way? I'd like it updated as there's
output.
[2] When I create a dialog box, it shows up in light yellow initially
and then slowly repaints itself grey. Is there a way to change
the default color for all windows/widgets from within Perl/Tk?
$objDialogBox=$objWindow->Dialog(
-background=>'grey',
-title=>"NOTICE",
-text=>"This space intentionally left blank.",
-default_button=>'Ok',
-buttons=>['Ok']
);
TIA:)
--
-Timothy
eMail: [EMAIL PROTECTED]
WebPage: http://mail.asl.bc.ca/~timothy
(c) 883 GUE FrobozzCo
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
