VPF::perl - tk - label - Форум программистов

xtreem

Дата 24.4.2007, 17:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 24.4.2007

Репутация: нет
Всего: нет

у мну проблема.
есть скрипт, который использует Tk. В окне скрипта отбражается надпись(Label).
при нажатии на кнопку (Button) надпись должна менятся.
как это можно сделать и реально ли это
скажите пожалуйсто

TTT

Дата 25.4.2007, 10:23 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 48
Регистрация: 13.3.2007

Репутация: 1
Всего: 1

Вот код из Advanced Perl Programming

Код


use Tk;
$top = MainWindow->new();
$button = $top->Button(text    => 'Start', 
                       command => \&change_label);
$button->pack();
MainLoop();
sub change_label {                       # Create 
    $button->cget('text') eq "Start"         ? 
        $button->configure(text => 'Stop') :
        $button->configure(text => 'Start');
}

Должно помочь

Это сообщение отредактировал(а) TTT - 25.4.2007, 10:24

KSURi

Дата 25.4.2007, 14:31 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 887
Регистрация: 8.6.2006
Где: Russia

Репутация: 20
Всего: 27

Еще вроде надо добавить

Код


$MainWindow->update;

--------------------

Died at Life.pl line 21

TTT

Дата 25.4.2007, 16:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 48
Регистрация: 13.3.2007

Репутация: 1
Всего: 1

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

xtreem

Дата 26.4.2007, 07:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 24.4.2007

Репутация: нет
Всего: нет

спасибо всем огромное. сейчас пойду проверять.
и ещё один вопрос. открывал я с помощью Tk граффчики.
бмп, гиф - всё нормально, но вот с jpg проблема((
не хочет скрипт их открывать.
подскажите пожалуйсто, как открыть их?

Это сообщение отредактировал(а) xtreem - 26.4.2007, 07:32

TTT

Дата 26.4.2007, 15:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 48
Регистрация: 13.3.2007

Репутация: 1
Всего: 1

Tk::JPEG - JPEG loader for Tk::Photo

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »