|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Boris R. Bondarchik 2:5020/400 11 Nov 2004 21:21:26
To : Ivan Frolkov
Subject : Re: Два вопроса
--------------------------------------------------------------------------------
Hello, Ivan!
You wrote to Alexey Paschenkov on Thu, 11 Nov 2004 16:55:08 +0300:
IF> Wed Nov 10 2004 22:10, Alexey Paschenkov wrote to All:
AP>> 2 Можно ли как-то чтобы консольное окошко не выскакивало, а
AP>> выводилось только запрограммированое окно ?
IF> Можно. Activestate раздает вместе с перлом такое чудо, как wperl.exe
Еще было дурацкое решение, типа:
#! /usr/bin/perl
use Win32;
use Win32::Process;
use Tk;
#+++ 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
$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!') }
--
WBR, Boris R. Bondarchik
--- ifmail v.2.15dev5.3
* Origin: Private Person (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
