Описание тега perltk
Perl's TK module provides a complete interface to Tk, a GUI toolkit, while providing an Object Oriented interface to Perl code.
2
ответа
Запуск Perl/TK GUI внутри веб-страницы
У нас есть приложение на Perl, которое содержит графический интерфейс на основе Perl/TK (некоторые флажки, поля ввода и т. Д.). Меня попросили изменить часть приложения на Perl / TK GUI, чтобы его можно было запускать внутри веб-страницы. Это возмож…
07 янв '13 в 02:19
1
ответ
Perl tk - вкладка между входными виджетами
У меня очень простой графический интерфейс, который взаимодействует с базой данных postgresql. Мэйнфрейм разделен на 4 квадранта, каждый из которых имеет 4 виджета входа. Вот пример кода одного квадранта my $f_blue = $bottom_half->Frame(-bg=>'…
14 ноя '13 в 13:15
1
ответ
Как получить состояние ключа в Perl/Tk?
В Perl/Tk возможно связать событие следующим образом: $mw->bind('<KeyPress-W>', sub{print "W is pressed";}); Можно ли получить эту информацию в другом направлении? Могу ли я сделать звонок типа "получить статус клавиши" или "проверить, нажа…
26 сен '13 в 21:55
1
ответ
PerlTk Label - другой цвет текста в одном виджете
Я написал графический интерфейс, который взаимодействует с нашей базой данных PSQL. Для данной даты графический интерфейс отображает список людей с различными идентификаторами и битами информации. Я использую Tk::Table для отображения данных eg my $…
22 ноя '13 в 12:26
0
ответов
Как я могу переместить PerlTk Widget на MacOS?
Если я напишу на Mac программу perlTk "hello world": use Tk; # Main Window my $mw = new MainWindow; my $label = $mw -> Label(-text=>"Hello World") -> pack(); my $button = $mw -> Button(-text => "Quit", -command => sub { exit }) -&g…
15 окт '15 в 08:15
1
ответ
Perl TK - Обтекание текста в виджете Entry
Я создал таблицу, которая содержит столбец "Ключ", столбец "Значение" и столбец "Новое значение", как показано на рисунке ниже. Столбцы "Ключ" и "Значение" реализованы в виде меток, столбец "Значение", как вы можете видеть, перенесен. Столбец "Новое…
14 фев '17 в 09:12
1
ответ
Скрыть окно в Perl/Tk и показать снова вкл. все виджеты
Я хочу скрыть главное окно на определенное время, а затем показать его снова. Пример: use Tk; my $mw = new MainWindow; my $lblMsg = $mw -> Label(-text=>"blabla")-> grid(); my $btnPostpone = $mw -> Button(-text=>"Postpone for (min): ",…
25 июл '10 в 01:33
1
ответ
Perl TK несколько команд на одну кнопку
Я хотел бы сделать, это иметь кнопку, чтобы закрыть мое окно (button_window), но также вызвать функцию (user_info): my $btn = $main -> Button (-text => 'Start', -command => sub {$button_window -> destroy}, -command => \&user_info)…
11 апр '16 в 09:07
2
ответа
Автоматический вызов подпрограммы при каждом изменении положения курсора в текстовом виджете
Я использую Tk::Text модуль. Я хочу, чтобы всякий раз, когда пользователь изменял положение курсора внутри Tk::Text модуль, он должен действовать как триггер для вызова подпрограммы, которую я написал. Как мне реализовать это? РЕДАКТИРОВАТЬ: Как отв…
12 мар '14 в 14:42
1
ответ
Как очистить текст в записи или текстовом виджете, когда я щелкаю мышью по этой записи / тексту в Perl/Tk?
Может кто-нибудь пролить свет с моей проблемой в качестве заголовка? У меня есть и текстовые виджеты, и виджеты ввода в созданной мной форме, но как-то мне хотелось бы, чтобы я мог что-то сделать, например, для некоторых виджетов текста и ввода, я п…
27 май '14 в 05:27
1
ответ
Perl/Tk, вызывающий пакетную команду и передающий аргумент
Мне нужно подготовить графический интерфейс, в котором Perl/Tk должен вызывать пакетную команду (локальную с жестко заданным путем пути) и передавать аргумент (это файл.csv, выбранный пользователем). Когда пользователь нажимает кнопку GENERATE, здес…
26 янв '16 в 07:06
2
ответа
Получение вывода по кадру вместо терминала (Perl-Tk)
#!/usr/local/bin/perl use Tk; # Main Window $mw = new MainWindow; $label = $mw -> Label(-text=>"Hello folks") -> pack(); $button = $mw -> Button(-text => "Click here to Flush rules", -command =>\&flush) -> pack(); MainLoop; …
12 авг '11 в 19:18
1
ответ
Окно не появляется в Perl/Tk
$mw=MainWindow->new(-title=>'Game of Life'); $frmitems=$mw->Frame; $frmsettings=$mw->Frame; $lab1=$frmsettings->Label(-text=>'Size of square:')->pack; $hen=$frmsettings->Entry(-textvariable=>10); $lab2=$frmsettings->Lab…
03 апр '13 в 07:19
4
ответа
В Perl, что означает if (s/^\+//)?
В коде Perl/Tk я нашел условное выражение, как показано ниже if (s/^\+//) { #do something } elsif (/^-/) { #do another thing } Похоже, какое-то сопоставление с образцом было сделано. Но я не могу этого понять. Может ли кто-нибудь помочь мне понять э…
22 ноя '12 в 12:09
2
ответа
Как включить отключенный пункт контекстного меню, когда выбор происходит в графическом интерфейсе Perl Tk?
Например, в следующем скрипте: use Tk; my $mw = new MainWindow; my $t = $mw->Scrolled("Text")->pack; my $popup = $mw->Menu( -menuitems => [ [ Button => 'Copy Selected', -state => "disabled", -command => sub {$t->clipboardColu…
01 сен '10 в 12:53
2
ответа
Как отключить кнопку Perl, пока не будет выполнена внешняя команда?
sub push_button2 { $but2->configure(-state => 'disabled'); open(launch, "+>C:\\integration\\check_label\\launch_check_label.bat") or die "Couldn't open file launch_check_label.bat$!"; print launch "$ARGV[1]:\n"; print launch "perl C:\\integ…
26 май '15 в 10:09
1
ответ
Хотите получить сообщение об ошибке die из команды, выполненной через open в Perl
Я пытаюсь раскошелиться на cmd как ниже my $h = IO::Handle->new; $self->{-handle} = $h; die "IO::Handle->new failed." unless defined $h; $self->{-pid} = open $h, $self->{-command} . ' 2>&1 |'; $self->fileevent($h, 'readable'…
28 мар '14 в 07:37
2
ответа
Установка Perl/Tk на fedora
У меня возникают проблемы при попытке установить Perl Tk в моей системе (fedora,perl v5.8.8). Я скачал модуль tarred с http://search.cpan.org/~srezic/Tk-804.029/pod/gencmd, не заархивировал его В терминале я дал "perl Makefile.PL", который работал н…
03 окт '11 в 09:23
1
ответ
Perl Tk Bind <Return> не является возвращением Number Pad?
Я получаю ISBN от пользователя. Возможно, от сканера штрих-кода (18 цифр EAN, оканчивающихся на Return), но его можно ввести вручную (13 цифр). Если это от руки, это прибудет с цифровой клавиатуры и может закончиться "Цифровой клавиатурой". Я добави…
19 июн '12 в 20:47
1
ответ
Perl, как печатать в список Perl/ TK
Как отправить вывод на печать в поле списка Perl/ TK, может быть неограниченное количество строк печати. я знаю, как создать список, но не знаю, как вызвать список и распечатать его. это код, который производит печать построчно. [code] #!/usr/bin/pe…
06 май '14 в 02:35