perltk

2熱

1答えて

ポップアップウィンドウがperlで開かれている間にコードの他の部分を実行する方法

他のより大きなコードの一部としてperlスクリプトを実行しています。私のperlコードは、ステータス値（成功または失敗）に基づいてポップアップウィンドウを開きます。この問題は、perlで作成されたこのポップアップウィンドウを閉じるまで、スクリプトはコードの他の部分の実行を継続しません。どうすればこの問題を解決できますか？助けてください。私はポップアップを開いたままにして、親スクリプトの他の部分の

1熱

1答えて

アニメーション画像を表示する

use warnings; use Tk; use Tk::Animation; my $scr = new MainWindow; $scr->configure(-background=>"black"); $scr->geometry("200x100"); my $canvas = $scr->Canvas(-width,200,-height,100,-backgrou

6熱

1答えて

Perl Tkバインド<Return>は数字ではありません？

私はユーザーからISBNを取得しています。おそらくバーコードスキャナー（EAN 18桁はReturnで終わる）からですが、手で入力することができます（13桁）。それが手であれば、数字パッドから来て「数字パッド入力」で終わることがあります。 $isbn_entry->bind("<Return>", sub{shift->focusNext}); 数字パッドのEnterキーが押されたときに、キー

0熱

2答えて

スレッドを使用してTkラベルを更新しています

use Thread; use warnings; use Tk; my $x = 10; my $mw = new MainWindow; $mw->Label(-text => 'honeywell')->place(-x => $x, -y => 50); my $thr = new Thread \&sub1; sub sub1 { for ($i = 0 ;

0熱

1答えて

Perl HList：個々のアイテムのバックグラウンドを変更する

一部のデータが変更され、保存する必要があることをユーザーに警告しようとしています。データはPerlのTk :: HListボックスに表示されます。私は私が行うことができます願っていた。 if ($new_item) { $HList->add($stock_no,-background=>"red"); } かさえ： if ($new_item) { $HList->it

0熱

1答えて

水平スクロールバーが機能しない

use Tk; my $mw=new MainWindow; $mw->geometry("1024x768"); $mw->Scrolled("Text", -scrollbars => "s", -width => 30,-height=>10)->pack(); MainLoop; 私はヘルプが必要です。水平スクロールバーが機能しません。私は間違って何をしていますか？

0熱

1答えて

Perl TK - エントリーウィジェットのテキストを囲む

私は、下の画像に示すように、「キー」列、「値」列、および「新しい値」列を含む表を作成しました。「キー」と「値」の列はラベルとして実装されています。「値」列は表示されているとおりにラップされています。「新しい値」列は編集可能であるため、入力ウィジェットとして実装されています。値を[新しい値]入力フィールドにコピーするコピー& [貼り付け]ボタンがあります。 Entryウィジェットでテキストを折り

0熱

1答えて

テキストウィジェットに入力したすべての単語を配列に取得する

Tk/Perlを初めて使用しています。以下は、tk/perlを使って作成した簡単なGUIインタフェースです。以下 GUI INTERFACE コードの一部であり、このGUIを作成します。 $f2_label=$f_frame_top0->Label(-text=>"File",-font=>[-family=>'MS Sans Serif',-size=>9,-weight=>'bold',-un

0熱

1答えて

Tkラベルのテキストを非同期に変更する

Perlプログラムからグラフィカルな出力が必要です。ウィンドウにはlabelのステータスフィールドがあり、プログラミングコードが決定するものが表示されます。ボタンを使わずにウィンドウを作成した後で、ラベルフィールドのテキストを変更するにはどうすればよいですか？私は、次があります。 use Tk; $mw = Tk::MainWindow->new(-title => 'Status Win