marcbernst has asked for the wisdom of the Perl Monks concerning the following question:

Clearcase provides a utility called clearprompt that will present a configurable prompt window in unix or windows (or from command line). Is there a general purpose equivalent module. Some kind of tk widget? thanks

Replies are listed 'Best First'.
Re: flexible user prompt
by JediWizard (Deacon) on Oct 21, 2004 at 19:34 UTC

    If you are looking for Tk widgets, Tk::Dialog or Tk::DialogBox might be what you are looking for.

    May the Force be with you
[reply]
[d/l]
Re: flexible user prompt
by zentara (Cardinal) on Oct 22, 2004 at 13:03 UTC
    Even simpler than Dialog, but still quite usable is the messageBox. 
    #!/usr/bin/perl
use warnings;
use strict;
use Tk;

my $mw = tkinit;

$mw->Button(-text=>'Press Me',
            -command => sub{
                  my $message = localtime;
                  &send_message( $message) }
            )->pack;
MainLoop;

sub send_message{
  my $message = shift;
  $mw->messageBox(
            -background => 'lightyellow',
            -icon       => 'error',
            -message    => $message,
            -type       => 'OK'
        );
}

    [download]
    I'm not really a human, but I play one on earth. flash japh
[reply]
[d/l]

Back to Seekers of Perl Wisdom