|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Boris R. Bondarchik 2:5020/400 13 Nov 2004 11:07:45
To : Alexey Paschenkov
Subject : Re: Два вопроса
--------------------------------------------------------------------------------
Hello, Alexey!
You wrote to Boris R. Bondarchik on Thu, 11 Nov 2004 18:07:48 +0000 (UTC):
>> sub test { $text -> insert('end', 'Hi!') }
AP> Работает без ошибок, но консольное не исчезает ....
Sorry, плохо пояснил.
Hужно кусок вырезать в отдельный файл, который обозвать realprogram
--------------- begin file realprogram
#! /usr/bin/perl
use Tk;
$top = MainWindow -> new();
$top -> Label('-text' => 'Text of label') -> pack('-side' => 'top');
$top -> Button(
'-text' => 'OK',
'-command' => \&test
) -> pack('-side' => 'bottom');
$text = $top -> Text('-width' => 40, '-height' => 10) -> pack();
$text -> configure('-font' => 'Helv');
$text -> bind('<Double-1>', \&test);
MainLoop;
exit;
sub test { $text -> insert('end', 'Hi!') }
-------------- end file realprogram
..А запускать файл tst.pl:
---- begin file tst.pl
#! /usr/bin/perl
use Win32;
use Win32::Process;
#+++ remove console
$ret = Win32::Process::Create($Win32::Process::Create::ProcessObj,
'c:/usr/bin/perl.exe', 'perl realprogram',
0, DETACHED_PROCESS, ".");
unless ($ret) {
print Win32::FormatMessage(Win32::GetLastError()),
"\nPress enter to quit"; <>;
exit
}
#--- remove console
---- end file tst.pl
Очевидно, что оба файла должны сидеть в одном дире..
--
WBR, Boris R. Bondarchik
--- ifmail v.2.15dev5.3
* Origin: Private Person (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
