那里有很多 tk 的东西，但似乎都不是我想要它做的那样......下面的 CreateOk 将创建一个消息框（没有另一个主窗口）并在按下 ok 时返回结果。我想创建一个行为类似于 ok 框的框，但提示用户输入文本并在单击提交按钮时返回文本。我还在下面发布了我的尝试。
sub CreateOk
{
my ($statement, $title) = @_;
my $return;
if (defined($statement))
{
my $main_window = MainWindow->new();
$main_window->withdraw();
$return = $main_window->messageBox(
-title => $title // 'Ok pop-up',
-message => $statement,
-type => 'OK',
-icon => 'question',
);
}
else
{
cluck "No message given for OK pop-up!";
}
return($return);
}
这是我的尝试
sub CreatePrompt
{
my ($question, $title) = @_;
my $pop_up;
if (defined($question))
{
my $main_window = MainWindow->new();
my $winMain = MainWindow->new(
-title => $title // 'User Input',
);
$winMain->Label(
-text => $question
)->pack( -side => 'left' );
my $entName = $winMain->Entry(
-textvariable => \$pop_up
);
$entName->pack( -side => 'left' );
$winMain->Button(
-text => 'Show',
-command => sub{ close; }
)->pack( -side => 'left' );
MainLoop();
}
}
但这将创建主窗口和弹出窗口，我该如何像以前一样创建弹出窗口？