0

そこにはたくさんの 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();
   }
}

しかし、これでメイン ウィンドウとポップアップが作成されます。以前のようにポップアップを作成するにはどうすればよいですか?

4

1 に答える 1