UI-Dialog

 view release on metacpan or  search on metacpan

lib/UI/Dialog/Backend/XDialog.pm  view on Meta::CPAN

  #  --no-wrap | --wrap
  $self->{'_opts'}->{'nowrap'} = $cfg->{'nowrap'} || 0;
  $self->{'_opts'}->{'wrap'} = $cfg->{'wrap'} || 0;
  #  --cr-wrap | --no-cr-wrap
  $self->{'_opts'}->{'crwrap'} = $cfg->{'crwrap'} || 0;
  $self->{'_opts'}->{'nocrwrap'} = $cfg->{'nocrwrap'} || 0;
  #  --buttons-style default|icon|text
  $self->{'_opts'}->{'buttonsstyle'} = $cfg->{'buttonsstyle'} || 'default';
  #  --fixed-font (tailbox, textbox, and editbox)
  $self->{'_opts'}->{'fixedfont'} = $cfg->{'fixedfont'} || 0;
  #  --editable (combobox)
  $self->{'_opts'}->{'editable'} = $cfg->{'editable'} || 0;
  #  --time-stamp | --date-stamp (logbox)
  $self->{'_opts'}->{'timestamp'} = $cfg->{'timestamp'} || 0;
  $self->{'_opts'}->{'datestamp'} = $cfg->{'datestamp'} || 0;
  #  --reverse (logbox)
  $self->{'_opts'}->{'reverse'} = $cfg->{'reverse'} || 0;
  #  --keep-colors (logbox)
  $self->{'_opts'}->{'keepcolors'} = $cfg->{'keepcolours'} || $cfg->{'keepcolors'} || 0;
  #  --interval <timeout> (input(s) boxes, combo box, range(s) boxes, spin(s) boxes, list boxes, menu box, treeview, calendar, timebox)
  $self->{'_opts'}->{'interval'} = $cfg->{'interval'} || 0;

lib/UI/Dialog/Backend/XDialog.pm  view on Meta::CPAN

  else {
		return("UNKNOWN(".$rv.")");
  }
}


#::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
#: Public Methods
#:

#  --combobox    <text> <height> <width> <item1> ... <itemN>
#:+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
#: display a dropdown list that's editable
sub combobox {
  my $self = shift();
  my $caller = (caller(1))[3] || 'main';
  $caller = ($caller =~ /^UI\:\:Dialog\:\:Backend\:\:/) ? ((caller(2))[3]||'main') : $caller;
  if ($_[0] && $_[0] eq 'caller') {
    shift(); $caller = shift();
  }
  my $args = $self->_pre($caller,@_);

  my $fmt = $self->prepare_format($args);
  $fmt = $self->append_format_base($args,$fmt);
  $fmt = $self->append_format($fmt,'--separate-output --combobox {{text}} {{height}} {{width}} {{list}}');
  my $command = $self->prepare_command
    ( $args, $fmt,
      text => $self->make_kvt($args,$args->{'text'}),
    );

  my ($rv,$selected) = $self->command_string($command);
  $self->_post($args);
  return($rv ? $selected : 0);
}

lib/UI/Dialog/Backend/XDialog.pod  view on Meta::CPAN

=over 6

an ARRAY of up to three elements if the response is OK and FALSE (0) for
anything else.

=back

=back

=head2 combobox( )

=over 4

=item EXAMPLE

=over 6

 my $string = $d->combobox( text => 'Enter some text.',
                            editable => 1, list => [ 'item1',
                                                     'item2' ] );

=back

=item DESCRIPTION

=over 6

Present the end user with a (possibly editable) dropdown list.

lib/UI/Dialog/Charts.pod  view on Meta::CPAN

   GDialog                    \   \   \   \   \
  -------------------------+   \   \   \   \   \
   CDialog                  \   \   \   \   \   \
  -----------------------+   \   \   \   \   \   \
   ASCII                  \   \   \   \   \   \   \
  ---------------------+   \   \   \   \   \   \   \
   Widget Method Name   \   \   \   \   \   \   \   \
  -----------------------+---+---+---+---+---+---+---+
  calendar               |   | C |   |   |   | X | Z |
  checklist              | A | C | G | K | W | X | Z |
  combobox               |   |   |   |   |   | X |   |
  draw_gauge             | A |   |   |   |   |   |   |
  dselect                | A | C | G | K | W | X | Z |
  editbox                |   |   |   |   |   | X | Z |
  end_gauge              | A |   |   |   |   |   |   |
  entry                  |   |   |   |   |   |   | Z |
  error                  |   |   |   | K |   |   | Z |
  fselect                | A | C | G | K | W | X | Z |
  gauge_dec              |   | C |   |   | W | X | Z |
  gauge_inc              |   | C |   |   | W | X | Z |
  gauge_set              |   | C |   |   | W | X | Z |

t/UI-Dialog-Backend-XDialog.t  view on Meta::CPAN

  }
  done_testing();
} else {

  my $obj = new UI::Dialog::Backend::XDialog(test_mode=>1);
  isa_ok( $obj, 'UI::Dialog::Backend::XDialog' );

  my @methods = qw( new state ra rs rv nautilus xosd beep clear
                    yesno msgbox inputbox password textbox menu
                    checklist radiolist fselect dselect
                    state combobox
                    rangebox rangesbox2 rangesbox3 spinbox spinsbox2
                    spinsbox3 buildlist treeview calendar timebox
                    inputsbox2 inputsbox3 passwords2 passwords3
                    msgbox infobox textbox editbox logbox tailbox
                    progress_start progress_inc progress_dec
                    progress_set progress_stop gauge_start gauge_inc
                    gauge_dec gauge_set gauge_text gauge_stop );
  can_ok( 'UI::Dialog::Backend::XDialog', @methods );

  # Track $bin is needed to validate the command line constructs