Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > Баг перла или кривые руки

Автор: wolter 2.3.2008, 20:55

Суть проблеммы такова
вот код

Код


#!/usr/bin/perl
use strict;
use Win32::GUI;
use threads;

my $thr;
my $icon = new Win32::GUI::Icon('w.ico');
my $main = Win32::GUI::Window->new(
    -name    => "Main",
    -title   => "Win32-GUI: Doevents-Demo",
    -left    => 100,
    -top     => 100,
    -width   => 100,
    -height  => 100,
  );

sub Main_Terminate() {
    print "Main window terminated\n";
    return -1;
}

my $but = $main->AddButton(
    -name   => "but",
    -tip   => "кнопка",
    -left   => 5,
    -top    => 5,
    -width  => 39,
    -height => 39,
    -icon => $icon,
    -align => 'center',

);

$main->Show();

Win32::GUI::Dialog();

sub but_Click {

my $thr = threads->create('fc')->detach;

}

sub fc{

print "ok\n";

}

Что делает код, я думаю говорить не стоит сложного нет ничего, но при отроботки трейда пропадают все графические элементы, также пропадает AddNotifyIcon, вообщем любой графики это касаеться, почитам доки, я не нашел нигде инфи об этом, может ктото сталкивался или кто то может подсказать как с этим бороться, я пробовал в конце потока присвоить все графические элементы по новой, это помогло, но это не выход, допустим AddNotifyIcon таким способов вернуть нельзя

Автор: PanamOS 2.3.2008, 23:18

Пример работает вообще нестабильно. Иногда валится с ошибкой.
Пропадает стабильно только после второго нажатия.

Автор: wolter 2.3.2008, 23:30

У меня ошибок не выдает, это скорее все у тебя просто версия перла не та, у меня ActivePerl 5.8.8 Build 822

Автор: PanamOS 2.3.2008, 23:38

http://ipicture.ru/Gallery/Viewfull/759174.html

Автор: wolter 2.3.2008, 23:38

на старой версии ругался на "->detach", но без него не как иначе трейд засерают памят просто буржуйсими количиствами, у трейдов вообще не очень хорошо с чисткой из памяти после отроботки

Добавлено через 57 секунд
хммм... интиресно взглянуть на скрин

Добавлено через 12 минут
Win32::GUI::DestroyWindow($oself->{-handle}) if exists $oself->{-handle}; это и есть та самая 3354 строка в модуле GUI.pm
это я так понимаю перл гураеться потому что само окно было не корекно закрыто, а закрыто оно было потому как перл вызывает ошибку, это собстевенно и есть сама проблемма только ты ее показал на картинке.

Автор: PanamOS 2.3.2008, 23:54

Цитата(wolter @ 2.3.2008, 23:38

)

Win32::GUI::DestroyWindow($oself->{-handle}) if exists $oself->{-handle}; это и есть та самая 3354 строка в модуле GUI.pm
это я так понимаю перл гураеться потому что само окно было не корекно закрыто, а закрыто оно было потому как перл вызывает ошибку

Ну что это деструктор окна я тоже глянул, вопрос лишь в том, почему это окно решило не корректно закрыться))

Автор: wolter 2.3.2008, 23:55

ну и + почемуто сама графика рубиться ....

Добавлено через 2 минуты и 48 секунд
PanamOS, у меня есть очень простая гипотиза на это тему, коллега, дело в том что после первой отроботки трейда он почему убивает (или вычищает содиржание переменной $icon, хотя в полной версии кода рубить все и вся) так вот, сзаеться мне что само маин окно и вырубаеться по этой причине, потому что не находит тех элементов кооторые должны быть

Автор: PanamOS 3.3.2008, 00:01

wolter, ну тогда это происходило бы сразу, а так это происходит когда как, иногда можно очень устать нажимать кнопочку, а иногда мгновенно)) Например для этого скрина я нажимал очень долго. Возможно проблема только у меня, спорить не буду)) А графика стабильно пропадает только после второго нажатия на кнопку, но не сразу.

Автор: wolter 3.3.2008, 00:07

По поводу ошибки закрития окно согласен, мне тоже надо очень долго и быстро клацать кнопку чтобы это случилось, хотя в скомпилировоной верчии этого не происходить, а по поводу графики проподает после первого сробатывание трейда, в этом можно убедиться, нажав 1 раз накнопку и потом простоо изменить размер окна разтенув его мышкой, но то что это происходить из-за detach я уверен на 100% потому как если его убрать все работает отлично, но память при этом жреться в гиометрической прогресси

Автор: PanamOS 3.3.2008, 02:10

Видать проблема в реализации самого Win32::GUI.
Сделал как вариант, но тоже далеко не выход из ситуации:

Код


#!/usr/bin/perl

use strict;
use Win32::GUI;
use threads;
use threads::shared; 

my %hash  : shared;
$hash{'do'} = 0;
$hash{'exit'} = 0;

my $thr = threads->create('fc');

my $icon = new Win32::GUI::Icon('1.ico');

my $main = Win32::GUI::Window->new(
    -name    => "Main",
    -title   => "Win32-GUI: Doevents-Demo",
    -left    => 100,
    -top     => 100,
    -width   => 100,
    -height  => 100,
  );

my $but = $main->AddButton(
    -name   => "but",
    -tip   => "кнопка",
    -left   => 5,
    -top    => 5,
    -width  => 39,
    -height => 39,
    -icon => $icon,
    -align => 'center',
);

$main->Show();
Win32::GUI::Dialog();

sub Main_Terminate() {
    print "Main window terminated\n";

    $hash{'exit'} = 1;
    $thr->join();

    return -1;
}


sub but_Click {
    $hash{'do'}++;
}


sub fc{
 while (!$hash{'exit'}){
  if ($hash{'do'}) {
    print "ok\n";
    $hash{'do'}--;
  } else {
    select(undef, undef, undef, 0.01);
  }
 }
}

Автор: wolter 3.3.2008, 08:41

PanamOS, Я нечто подобное тоже пытался приминиться но, ты прав это не вориант, интиресно разработчики языка наврено вообще не подозривали что мы вот так будет стибаться на языком.
Твой вориант очень подходить для небольшого кода, ну а если будет форма с десятком кнопок или больше, хотя как вориант можно использовать next if PanamOS, я тебе очень блогодарен, но обидно немного что мы так и не позначи всех тайн языка и не попали в касту просвещенных

Автор: shamber 3.3.2008, 11:39

wolter, вы из Индии?
как мне кажется касты только там сохранились ;)

Автор: wolter 3.3.2008, 12:44

shamber, А вам лижбы нафлудить ))))

Автор: shamber 3.3.2008, 14:53

...

Автор: PanamOS 3.3.2008, 19:19

Цитата(wolter @ 3.3.2008, 08:41

)

но обидно немного что мы так и не позначи всех тайн языка и не попали в касту просвещенных

Ну так вроде ничего не мешает продолжить познания, просто на работу же надо ходить тоже))