File Coverage

blib/lib/UI/Dialog/Backend/XDialog.pm
Criterion Covered Total %
statement 95 740 12.8
branch 7 296 2.3
condition 50 645 7.7
subroutine 12 56 21.4
pod 42 43 97.6
total 206 1780 11.5


line stmt bran cond sub pod time code
1             package UI::Dialog::Backend::XDialog;
2             ###############################################################################
3             # Copyright (C) 2004-2016 Kevin C. Krinke
4             #
5             # This library is free software; you can redistribute it and/or
6             # modify it under the terms of the GNU Lesser General Public
7             # License as published by the Free Software Foundation; either
8             # version 2.1 of the License, or (at your option) any later version.
9             #
10             # This library is distributed in the hope that it will be useful,
11             # but WITHOUT ANY WARRANTY; without even the implied warranty of
12             # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13             # Lesser General Public License for more details.
14             #
15             # You should have received a copy of the GNU Lesser General Public
16             # License along with this library; if not, write to the Free Software
17             # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
18             ###############################################################################
19 3     3   12894 use 5.006;
  3         7  
20 3     3   11 use strict;
  3         3  
  3         49  
21 3     3   9 use warnings;
  3         3  
  3         63  
22 3     3   9 use Carp;
  3         3  
  3         143  
23 3     3   735 use FileHandle;
  3         8768  
  3         13  
24 3     3   745 use File::Basename;
  3         4  
  3         173  
25 3     3   12 use Cwd qw( abs_path );
  3         4  
  3         109  
26 3     3   410 use String::ShellQuote;
  3         564  
  3         123  
27 3     3   376 use UI::Dialog::Backend;
  3         7  
  3         76  
28              
29             BEGIN {
30 3     3   11 use vars qw( $VERSION @ISA );
  3         3  
  3         129  
31 3     3   19 @ISA = qw( UI::Dialog::Backend );
32 3         17624 $VERSION = '1.21';
33             }
34              
35             #::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
36             #: Constructor Method
37             #:
38              
39             sub new {
40 1     1 1 592 my $proto = shift();
41 1   33     6 my $class = ref($proto) || $proto;
42 1 50       5 my $cfg = ((ref($_[0]) eq "HASH") ? $_[0] : (@_) ? { @_ } : {});
    50          
43 1         2 my $self = {};
44 1         1 bless($self, $class);
45 1         7 $self->{'_state'} = {};
46 1         2 $self->{'_opts'} = {};
47 1 50       4 $self->{'test_mode'} = ($cfg->{'test_mode'}) ? 1 : 0;
48 1         2 $self->{'test_mode_result'} = '';
49              
50             #: Dynamic path discovery...
51 1         1 my $CFG_PATH = $cfg->{'PATH'};
52 1 50       4 if ($CFG_PATH) {
    50          
53 0 0       0 if (ref($CFG_PATH) eq "ARRAY") {
    0          
    0          
54 0         0 $self->{'PATHS'} = $CFG_PATH;
55             }
56             elsif ($CFG_PATH =~ m!:!) {
57 0         0 $self->{'PATHS'} = [ split(/:/,$CFG_PATH) ];
58             }
59             elsif (-d $CFG_PATH) {
60 0         0 $self->{'PATHS'} = [ $CFG_PATH ];
61             }
62             }
63             elsif ($ENV{'PATH'}) {
64 1         7 $self->{'PATHS'} = [ split(/:/,$ENV{'PATH'}) ];
65             }
66             else {
67 0         0 $self->{'PATHS'} = '';
68             }
69              
70 1   50     5 $self->{'_opts'}->{'debug'} = $cfg->{'debug'} || undef();
71              
72 1   50     6 $self->{'_opts'}->{'literal'} = $cfg->{'literal'} || 0;
73              
74             $self->{'_opts'}->{'XDIALOG_HIGH_DIALOG_COMPAT'} = 1
75 1 50       2 unless not $cfg->{'XDIALOG_HIGH_DIALOG_COMPAT'};
76              
77 1   50     5 $self->{'_opts'}->{'callbacks'} = $cfg->{'callbacks'} || undef();
78             # --wmclass
79 1   50     5 $self->{'_opts'}->{'wmclass'} = $cfg->{'wmclass'} || undef();
80             # --rc-file
81 1   50     4 $self->{'_opts'}->{'rcfile'} = $cfg->{'rcfile'} || undef();
82             # --backtitle
83 1   50     4 $self->{'_opts'}->{'backtitle'} = $cfg->{'backtitle'} || undef();
84             # --title </td> </tr> <tr> <td class="h" > <a name="85">85</a> </td> <td class="c3" > 1 </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#85-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 3 </td> <td class="s"> $self->{'_opts'}->{'title'} = $cfg->{'title'} || undef(); </td> </tr> <tr> <td class="h" > <a name="86">86</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --allow-close | --no-close </td> </tr> <tr> <td class="h" > <a name="87">87</a> </td> <td class="c3" > 1 </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#87-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 5 </td> <td class="s"> $self->{'_opts'}->{'allowclose'} = $cfg->{'allowclose'} || 0; </td> </tr> <tr> <td class="h" > <a name="88">88</a> </td> <td class="c3" > 1 </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#88-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 4 </td> <td class="s"> $self->{'_opts'}->{'noclose'} = $cfg->{'noclose'} || 0; </td> </tr> <tr> <td class="h" > <a name="89">89</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --screen-center | --under-mouse | --auto-placement </td> </tr> <tr> <td class="h" > <a name="90">90</a> </td> <td class="c3" > 1 </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#90-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 4 </td> <td class="s"> $self->{'_opts'}->{'screencenter'} = $cfg->{'screencenter'} || 0; </td> </tr> <tr> <td class="h" > <a name="91">91</a> </td> <td class="c3" > 1 </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#91-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 4 </td> <td class="s"> $self->{'_opts'}->{'undermouse'} = $cfg->{'undermouse'} || 0; </td> </tr> <tr> <td class="h" > <a name="92">92</a> </td> <td class="c3" > 1 </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#92-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 8 </td> <td class="s"> $self->{'_opts'}->{'autoplacement'} = $cfg->{'autoplacement'} || 0; </td> </tr> <tr> <td class="h" > <a name="93">93</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --center | --right | --left | --fill </td> </tr> <tr> <td class="h" > <a name="94">94</a> </td> <td class="c3" > 1 </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#94-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 4 </td> <td class="s"> $self->{'_opts'}->{'center'} = $cfg->{'center'} || 0; </td> </tr> <tr> <td class="h" > <a name="95">95</a> </td> <td class="c3" > 1 </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#95-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 7 </td> <td class="s"> $self->{'_opts'}->{'right'} = $cfg->{'right'} || 0; </td> </tr> <tr> <td class="h" > <a name="96">96</a> </td> <td class="c3" > 1 </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#96-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 4 </td> <td class="s"> $self->{'_opts'}->{'left'} = $cfg->{'left'} || 0; </td> </tr> <tr> <td class="h" > <a name="97">97</a> </td> <td class="c3" > 1 </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#97-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 4 </td> <td class="s"> $self->{'_opts'}->{'fill'} = $cfg->{'fill'} || 0; </td> </tr> <tr> <td class="h" > <a name="98">98</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --no-wrap | --wrap </td> </tr> <tr> <td class="h" > <a name="99">99</a> </td> <td class="c3" > 1 </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#99-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 5 </td> <td class="s"> $self->{'_opts'}->{'nowrap'} = $cfg->{'nowrap'} || 0; </td> </tr> <tr> <td class="h" > <a name="100">100</a> </td> <td class="c3" > 1 </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#100-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 7 </td> <td class="s"> $self->{'_opts'}->{'wrap'} = $cfg->{'wrap'} || 0; </td> </tr> <tr> <td class="h" > <a name="101">101</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --cr-wrap | --no-cr-wrap </td> </tr> <tr> <td class="h" > <a name="102">102</a> </td> <td class="c3" > 1 </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#102-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 6 </td> <td class="s"> $self->{'_opts'}->{'crwrap'} = $cfg->{'crwrap'} || 0; </td> </tr> <tr> <td class="h" > <a name="103">103</a> </td> <td class="c3" > 1 </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#103-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 5 </td> <td class="s"> $self->{'_opts'}->{'nocrwrap'} = $cfg->{'nocrwrap'} || 0; </td> </tr> <tr> <td class="h" > <a name="104">104</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --buttons-style default|icon|text </td> </tr> <tr> <td class="h" > <a name="105">105</a> </td> <td class="c3" > 1 </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#105-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 3 </td> <td class="s"> $self->{'_opts'}->{'buttonsstyle'} = $cfg->{'buttonsstyle'} || 'default'; </td> </tr> <tr> <td class="h" > <a name="106">106</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --fixed-font (tailbox, textbox, and editbox) </td> </tr> <tr> <td class="h" > <a name="107">107</a> </td> <td class="c3" > 1 </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#107-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 6 </td> <td class="s"> $self->{'_opts'}->{'fixedfont'} = $cfg->{'fixedfont'} || 0; </td> </tr> <tr> <td class="h" > <a name="108">108</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --editable (combobox) </td> </tr> <tr> <td class="h" > <a name="109">109</a> </td> <td class="c3" > 1 </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#109-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 4 </td> <td class="s"> $self->{'_opts'}->{'editable'} = $cfg->{'editable'} || 0; </td> </tr> <tr> <td class="h" > <a name="110">110</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --time-stamp | --date-stamp (logbox) </td> </tr> <tr> <td class="h" > <a name="111">111</a> </td> <td class="c3" > 1 </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#111-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 3 </td> <td class="s"> $self->{'_opts'}->{'timestamp'} = $cfg->{'timestamp'} || 0; </td> </tr> <tr> <td class="h" > <a name="112">112</a> </td> <td class="c3" > 1 </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#112-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 4 </td> <td class="s"> $self->{'_opts'}->{'datestamp'} = $cfg->{'datestamp'} || 0; </td> </tr> <tr> <td class="h" > <a name="113">113</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --reverse (logbox) </td> </tr> <tr> <td class="h" > <a name="114">114</a> </td> <td class="c3" > 1 </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#114-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 8 </td> <td class="s"> $self->{'_opts'}->{'reverse'} = $cfg->{'reverse'} || 0; </td> </tr> <tr> <td class="h" > <a name="115">115</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --keep-colors (logbox) </td> </tr> <tr> <td class="h" > <a name="116">116</a> </td> <td class="c3" > 1 </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#116-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 6 </td> <td class="s"> $self->{'_opts'}->{'keepcolors'} = $cfg->{'keepcolours'} || $cfg->{'keepcolors'} || 0; </td> </tr> <tr> <td class="h" > <a name="117">117</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --interval <timeout> (input(s) boxes, combo box, range(s) boxes, spin(s) boxes, list boxes, menu box, treeview, calendar, timebox) </td> </tr> <tr> <td class="h" > <a name="118">118</a> </td> <td class="c3" > 1 </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#118-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 5 </td> <td class="s"> $self->{'_opts'}->{'interval'} = $cfg->{'interval'} || 0; </td> </tr> <tr> <td class="h" > <a name="119">119</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --no-tags (menubox, checklist and radiolist) </td> </tr> <tr> <td class="h" > <a name="120">120</a> </td> <td class="c3" > 1 </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#120-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 4 </td> <td class="s"> $self->{'_opts'}->{'notags'} = $cfg->{'notags'} || 0; </td> </tr> <tr> <td class="h" > <a name="121">121</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --item-help (menubox, checklist, radiolist, buildlist and treeview) </td> </tr> <tr> <td class="h" > <a name="122">122</a> </td> <td class="c3" > 1 </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#122-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 6 </td> <td class="s"> $self->{'_opts'}->{'itemhelp'} = $cfg->{'itemhelp'} || 0; </td> </tr> <tr> <td class="h" > <a name="123">123</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --default-item <tag> (menubox) </td> </tr> <tr> <td class="h" > <a name="124">124</a> </td> <td class="c3" > 1 </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#124-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 3 </td> <td class="s"> $self->{'_opts'}->{'defaultitem'} = $cfg->{'defaultitem'} || undef(); </td> </tr> <tr> <td class="h" > <a name="125">125</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --icon <xpm filename> (textbox, editbox, tailbox, logbox, fselect and dselect) </td> </tr> <tr> <td class="h" > <a name="126">126</a> </td> <td class="c3" > 1 </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#126-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 5 </td> <td class="s"> $self->{'_opts'}->{'icon'} = $cfg->{'icon'} || undef(); </td> </tr> <tr> <td class="h" > <a name="127">127</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --no-ok (tailbox and logbox) </td> </tr> <tr> <td class="h" > <a name="128">128</a> </td> <td class="c3" > 1 </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#128-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 4 </td> <td class="s"> $self->{'_opts'}->{'nook'} = $cfg->{'nook'} || 0; </td> </tr> <tr> <td class="h" > <a name="129">129</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --no-cancel (infobox, gauge and progress) </td> </tr> <tr> <td class="h" > <a name="130">130</a> </td> <td class="c3" > 1 </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#130-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 3 </td> <td class="s"> $self->{'_opts'}->{'nocancel'} = $cfg->{'nocancel'} || 0; </td> </tr> <tr> <td class="h" > <a name="131">131</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --no-buttons (textbox, tailbox, logbox, infobox fselect and dselect) </td> </tr> <tr> <td class="h" > <a name="132">132</a> </td> <td class="c3" > 1 </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#132-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 3 </td> <td class="s"> $self->{'_opts'}->{'nobuttons'} = $cfg->{'nobuttons'} || 0; </td> </tr> <tr> <td class="h" > <a name="133">133</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --default-no !(wizard) </td> </tr> <tr> <td class="h" > <a name="134">134</a> </td> <td class="c3" > 1 </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#134-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 6 </td> <td class="s"> $self->{'_opts'}->{'defaultno'} = $cfg->{'defaultno'} || 0; </td> </tr> <tr> <td class="h" > <a name="135">135</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --wizard !(msgbox, infobox, gauge and progress) </td> </tr> <tr> <td class="h" > <a name="136">136</a> </td> <td class="c3" > 1 </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#136-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 4 </td> <td class="s"> $self->{'_opts'}->{'wizard'} = $cfg->{'wizard'} || 0; </td> </tr> <tr> <td class="h" > <a name="137">137</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --help <help> (infobox, gauge and progress) </td> </tr> <tr> <td class="h" > <a name="138">138</a> </td> <td class="c3" > 1 </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#138-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 3 </td> <td class="s"> $self->{'_opts'}->{'help'} = $cfg->{'help'} || undef(); </td> </tr> <tr> <td class="h" > <a name="139">139</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --print <printer> (textbox, editbox and tailbox) </td> </tr> <tr> <td class="h" > <a name="140">140</a> </td> <td class="c3" > 1 </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#140-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 4 </td> <td class="s"> $self->{'_opts'}->{'print'} = $cfg->{'print'} || undef(); </td> </tr> <tr> <td class="h" > <a name="141">141</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --check <label> !(infobox, gauge and progress) </td> </tr> <tr> <td class="h" > <a name="142">142</a> </td> <td class="c3" > 1 </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#142-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 6 </td> <td class="s"> $self->{'_opts'}->{'check'} = $cfg->{'check'} || undef(); </td> </tr> <tr> <td class="h" > <a name="143">143</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --ok-label <label> !(wizard) </td> </tr> <tr> <td class="h" > <a name="144">144</a> </td> <td class="c3" > 1 </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#144-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 3 </td> <td class="s"> $self->{'_opts'}->{'oklabel'} = $cfg->{'oklabel'} || undef(); </td> </tr> <tr> <td class="h" > <a name="145">145</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --cancel-label <label> !(wizard) </td> </tr> <tr> <td class="h" > <a name="146">146</a> </td> <td class="c3" > 1 </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#146-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 3 </td> <td class="s"> $self->{'_opts'}->{'cancellabel'} = $cfg->{'cancellabel'} || undef(); </td> </tr> <tr> <td class="h" > <a name="147">147</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --beep | --beep-after (all) </td> </tr> <tr> <td class="h" > <a name="148">148</a> </td> <td class="c3" > 1 </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#148-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 9 </td> <td class="s"> $self->{'_opts'}->{'beepbin'} = $cfg->{'beepbin'} || $self->_find_bin('beep') || '/usr/bin/beep'; </td> </tr> <tr> <td class="h" > <a name="149">149</a> </td> <td class="c3" > 1 </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#149-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 4 </td> <td class="s"> $self->{'_opts'}->{'beepbefore'} = $cfg->{'beepbefore'} || 0; </td> </tr> <tr> <td class="h" > <a name="150">150</a> </td> <td class="c3" > 1 </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#150-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 7 </td> <td class="s"> $self->{'_opts'}->{'beepafter'} = $cfg->{'beepafter'} || 0; </td> </tr> <tr> <td class="h" > <a name="151">151</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --begin <Yorg> <Xorg> (all) </td> </tr> <tr> <td class="h" > <a name="152">152</a> </td> <td class="c3" > 1 </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#152-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 11 </td> <td class="s"> $self->{'_opts'}->{'begin'} = $cfg->{'begin'} || undef(); #: 'begin' => [$y,$x] </td> </tr> <tr> <td class="h" > <a name="153">153</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --ignore-eof (infobox and gauge) </td> </tr> <tr> <td class="h" > <a name="154">154</a> </td> <td class="c3" > 1 </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#154-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 3 </td> <td class="s"> $self->{'_opts'}->{'ignoreeof'} = $cfg->{'ignoreeof'} || 0; </td> </tr> <tr> <td class="h" > <a name="155">155</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --smooth (tailbox and logbox) </td> </tr> <tr> <td class="h" > <a name="156">156</a> </td> <td class="c3" > 1 </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#156-1"> 50 </a> </td> <td >   </td> <td >   </td> <td > 4 </td> <td class="s"> $self->{'_opts'}->{'smooth'} = $cfg->{'smooth'} || 0; </td> </tr> <tr> <td class="h" > <a name="157">157</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="158">158</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #: \/we handle these internally\/ </td> </tr> <tr> <td class="h" > <a name="159">159</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --stderr | --stdout </td> </tr> <tr> <td class="h" > <a name="160">160</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --separator <character> | --separate-output </td> </tr> <tr> <td class="h" > <a name="161">161</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #: ^^we handle these internally^^ </td> </tr> <tr> <td class="h" > <a name="162">162</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="163">163</a> </td> <td class="c3" > 1 </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#163-1"> 33 </a> </td> <td >   </td> <td >   </td> <td > 6 </td> <td class="s"> $self->{'_opts'}->{'bin'} ||= $self->_find_bin('Xdialog'); </td> </tr> <tr> <td class="h" > <a name="164">164</a> </td> <td class="c3" > 1 </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#164-1"> 50 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td > 6 </td> <td class="s"> unless (-x $self->{'_opts'}->{'bin'}) { </td> </tr> <tr> <td class="h" > <a name="165">165</a> </td> <td class="c3" > 1 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td > 164 </td> <td class="s"> croak("the Xdialog binary could not be found."); </td> </tr> <tr> <td class="h" > <a name="166">166</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="167">167</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="168">168</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #: to determin upper limits use: </td> </tr> <tr> <td class="h" > <a name="169">169</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --print-maxsize </td> </tr> <tr> <td class="h" > <a name="170">170</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #: STDOUT| MaxSize: \d+(width), \d+(height) </td> </tr> <tr> <td class="h" > <a name="171">171</a> </td> <td class="c0" > <a href="#172"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $command = $self->{'_opts'}->{'bin'}." --print-maxsize"; </td> </tr> <tr> <td class="h" > <a name="172">172</a> </td> <td class="c0" > <a href="#173"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $raw = `$command 2>&1`; </td> </tr> <tr> <td class="h" > <a name="173">173</a> </td> <td class="c0" > <a href="#174"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my ($w,$h) = (0,0); </td> </tr> <tr> <td class="h" > <a name="174">174</a> </td> <td class="c0" > <a href="#175"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#174-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if ($raw =~ m!^\s*MaxSize\:\s+(\d+?),\s+(\d+?)\s*$!) { </td> </tr> <tr> <td class="h" > <a name="175">175</a> </td> <td class="c0" > <a href="#177"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ($w,$h) = ($1,$2); </td> </tr> <tr> <td class="h" > <a name="176">176</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="177">177</a> </td> <td class="c0" > <a href="#178"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#177-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{'_opts'}->{'width'} = $cfg->{'width'} || $w; </td> </tr> <tr> <td class="h" > <a name="178">178</a> </td> <td class="c0" > <a href="#179"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#178-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{'_opts'}->{'height'} = $cfg->{'height'} || $h; </td> </tr> <tr> <td class="h" > <a name="179">179</a> </td> <td class="c0" > <a href="#180"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#179-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{'_opts'}->{'listheight'} = $cfg->{'listheight'} || $cfg->{'menuheight'} || 5; </td> </tr> <tr> <td class="h" > <a name="180">180</a> </td> <td class="c0" > <a href="#182"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#180-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{'_opts'}->{'percentage'} = $cfg->{'percentage'} || 1; </td> </tr> <tr> <td class="h" > <a name="181">181</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="182">182</a> </td> <td class="c0" > <a href="#183"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#182-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{'_opts'}->{'autoclear'} = $cfg->{'autoclear'} || 0; </td> </tr> <tr> <td class="h" > <a name="183">183</a> </td> <td class="c0" > <a href="#184"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#183-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{'_opts'}->{'clearbefore'} = $cfg->{'clearbefore'} || 0; </td> </tr> <tr> <td class="h" > <a name="184">184</a> </td> <td class="c0" > <a href="#185"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#184-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{'_opts'}->{'clearafter'} = $cfg->{'clearafter'} || 0; </td> </tr> <tr> <td class="h" > <a name="185">185</a> </td> <td class="c0" > <a href="#186"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#185-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{'_opts'}->{'timeout'} = $cfg->{'timeout'} || 0; </td> </tr> <tr> <td class="h" > <a name="186">186</a> </td> <td class="c0" > <a href="#188"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#186-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{'_opts'}->{'wait'} = $cfg->{'wait'} || 0; </td> </tr> <tr> <td class="h" > <a name="187">187</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="188">188</a> </td> <td class="c0" > <a href="#190"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#188-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{'_opts'}->{'trust-input'} = $cfg->{'trust-input'} || 0; </td> </tr> <tr> <td class="h" > <a name="189">189</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="190">190</a> </td> <td class="c0" > <a href="#201"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return($self); </td> </tr> <tr> <td class="h" > <a name="191">191</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="192">192</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="193">193</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="194">194</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="195">195</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="196">196</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: </td> </tr> <tr> <td class="h" > <a name="197">197</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #: Private Methods </td> </tr> <tr> <td class="h" > <a name="198">198</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #: </td> </tr> <tr> <td class="h" > <a name="199">199</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $SIG_CODE = {'PROGRESS'=>{},'GAUGE'=>{}}; </td> </tr> <tr> <td class="h" > <a name="200">200</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub _del_progress { </td> </tr> <tr> <td class="h" > <a name="201">201</a> </td> <td class="c0" > <a href="#202"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#201-1"> 0 </a> </td> <td >   </td> <td >   </td> <td class="s"> my $CODE = $SIG_CODE->{'PROGRESS'}->{$$}; </td> </tr> <tr> <td class="h" > <a name="202">202</a> </td> <td class="c0" > <a href="#203"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#202-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> unless (not ref($CODE)) { </td> </tr> <tr> <td class="h" > <a name="203">203</a> </td> <td class="c0" > <a href="#204"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> delete($CODE->{'_PROGRESS'}); </td> </tr> <tr> <td class="h" > <a name="204">204</a> </td> <td class="c0" > <a href="#205"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $CODE->rv('1'); </td> </tr> <tr> <td class="h" > <a name="205">205</a> </td> <td class="c0" > <a href="#206"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $CODE->rs('null'); </td> </tr> <tr> <td class="h" > <a name="206">206</a> </td> <td class="c0" > <a href="#207"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $CODE->ra('null'); </td> </tr> <tr> <td class="h" > <a name="207">207</a> </td> <td class="c0" > <a href="#211"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $SIG_CODE->{$$} = ""; </td> </tr> <tr> <td class="h" > <a name="208">208</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="209">209</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="210">210</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub _del_gauge { </td> </tr> <tr> <td class="h" > <a name="211">211</a> </td> <td class="c0" > <a href="#212"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#211-1"> 0 </a> </td> <td >   </td> <td >   </td> <td class="s"> my $CODE = $SIG_CODE->{'GAUGE'}->{$$}; </td> </tr> <tr> <td class="h" > <a name="212">212</a> </td> <td class="c0" > <a href="#213"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#212-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> unless (not ref($CODE)) { </td> </tr> <tr> <td class="h" > <a name="213">213</a> </td> <td class="c0" > <a href="#214"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> delete($CODE->{'_GAUGE'}); </td> </tr> <tr> <td class="h" > <a name="214">214</a> </td> <td class="c0" > <a href="#215"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $CODE->rv('1'); </td> </tr> <tr> <td class="h" > <a name="215">215</a> </td> <td class="c0" > <a href="#216"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $CODE->rs('null'); </td> </tr> <tr> <td class="h" > <a name="216">216</a> </td> <td class="c0" > <a href="#217"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $CODE->ra('null'); </td> </tr> <tr> <td class="h" > <a name="217">217</a> </td> <td class="c0" > <a href="#222"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $SIG_CODE->{$$} = ""; </td> </tr> <tr> <td class="h" > <a name="218">218</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="219">219</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="220">220</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="221">221</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub append_format_base { </td> </tr> <tr> <td class="h" > <a name="222">222</a> </td> <td class="c0" > <a href="#224"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#222-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#222-1"> 0 </a> </td> <td >   </td> <td class="s"> my ($self,$args,$fmt) = @_; </td> </tr> <tr> <td class="h" > <a name="223">223</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = 'XDIALOG_HIGH_DIALOG_COMPAT="1" ' . $fmt </td> </tr> <tr> <td class="h" > <a name="224">224</a> </td> <td class="c0" > <a href="#225"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#224-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if $args->{'XDIALOG_HIGH_DIALOG_COMPAT'}; </td> </tr> <tr> <td class="h" > <a name="225">225</a> </td> <td class="c0" > <a href="#226"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_check($args,$fmt,"editable","--editable"); </td> </tr> <tr> <td class="h" > <a name="226">226</a> </td> <td class="c0" > <a href="#227"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_check($args,$fmt,"center","--center"); </td> </tr> <tr> <td class="h" > <a name="227">227</a> </td> <td class="c0" > <a href="#228"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_check($args,$fmt,"right","--right"); </td> </tr> <tr> <td class="h" > <a name="228">228</a> </td> <td class="c0" > <a href="#229"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_check($args,$fmt,"left","--left"); </td> </tr> <tr> <td class="h" > <a name="229">229</a> </td> <td class="c0" > <a href="#230"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_check($args,$fmt,"fill","--fill"); </td> </tr> <tr> <td class="h" > <a name="230">230</a> </td> <td class="c0" > <a href="#231"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_check($args,$fmt,"wrap","--wrap"); </td> </tr> <tr> <td class="h" > <a name="231">231</a> </td> <td class="c0" > <a href="#232"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_check($args,$fmt,"crwrap","--crwrap"); </td> </tr> <tr> <td class="h" > <a name="232">232</a> </td> <td class="c0" > <a href="#233"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_check($args,$fmt,"nocrwrap","--nocrwrap"); </td> </tr> <tr> <td class="h" > <a name="233">233</a> </td> <td class="c0" > <a href="#234"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_check($args,$fmt,"reverse","--reverse"); </td> </tr> <tr> <td class="h" > <a name="234">234</a> </td> <td class="c0" > <a href="#235"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_check($args,$fmt,"wizard","--wizard"); </td> </tr> <tr> <td class="h" > <a name="235">235</a> </td> <td class="c0" > <a href="#236"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_check($args,$fmt,"smooth","--smooth"); </td> </tr> <tr> <td class="h" > <a name="236">236</a> </td> <td class="c0" > <a href="#237"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_check($args,$fmt,'backtitle','--backtitle {{backtitle}}'); </td> </tr> <tr> <td class="h" > <a name="237">237</a> </td> <td class="c0" > <a href="#238"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#237-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $args->{'no-wrap'} ||= $args->{'nowrap'} || 0; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="238">238</a> </td> <td class="c0" > <a href="#239"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_check($args,$fmt,"no-wrap","--no-wrap"); </td> </tr> <tr> <td class="h" > <a name="239">239</a> </td> <td class="c0" > <a href="#240"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#239-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $args->{'allow-close'} ||= $args->{'allowclose'} || 0; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="240">240</a> </td> <td class="c0" > <a href="#241"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_check($args,$fmt,"allow-close","--allow-close"); </td> </tr> <tr> <td class="h" > <a name="241">241</a> </td> <td class="c0" > <a href="#242"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#241-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $args->{'no-close'} ||= $args->{'noclose'} || 0; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="242">242</a> </td> <td class="c0" > <a href="#243"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_check($args,$fmt,"no-close","--no-close"); </td> </tr> <tr> <td class="h" > <a name="243">243</a> </td> <td class="c0" > <a href="#244"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#243-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $args->{'screen-center'} ||= $args->{'screencenter'} || 0; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="244">244</a> </td> <td class="c0" > <a href="#245"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_check($args,$fmt,"screen-center","--screen-center"); </td> </tr> <tr> <td class="h" > <a name="245">245</a> </td> <td class="c0" > <a href="#246"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#245-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $args->{'under-mouse'} ||= $args->{'undermouse'} || 0; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="246">246</a> </td> <td class="c0" > <a href="#247"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_check($args,$fmt,"under-mouse","--under-mouse"); </td> </tr> <tr> <td class="h" > <a name="247">247</a> </td> <td class="c0" > <a href="#248"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#247-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $args->{'auto-placement'} ||= $args->{'autoplacement'} || 0; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="248">248</a> </td> <td class="c0" > <a href="#249"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_check($args,$fmt,"auto-placement","--auto-placement"); </td> </tr> <tr> <td class="h" > <a name="249">249</a> </td> <td class="c0" > <a href="#250"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#249-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $args->{'fixed-font'} ||= $args->{'fixedfont'} || 0; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="250">250</a> </td> <td class="c0" > <a href="#251"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_check($args,$fmt,"fixed-font","--fixed-font"); </td> </tr> <tr> <td class="h" > <a name="251">251</a> </td> <td class="c0" > <a href="#252"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#251-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $args->{'time-stamp'} ||= $args->{'timestamp'} || 0; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="252">252</a> </td> <td class="c0" > <a href="#253"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_check($args,$fmt,"time-stamp","--time-stamp"); </td> </tr> <tr> <td class="h" > <a name="253">253</a> </td> <td class="c0" > <a href="#254"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#253-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $args->{'date-stamp'} ||= $args->{'datestamp'} || 0; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="254">254</a> </td> <td class="c0" > <a href="#256"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_check($args,$fmt,"date-stamp","--date-stamp"); </td> </tr> <tr> <td class="h" > <a name="255">255</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $args->{'keep-colors'} ||= $args->{'keep-colours'} </td> </tr> <tr> <td class="h" > <a name="256">256</a> </td> <td class="c0" > <a href="#257"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#256-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> || $args->{'keepcolors'} || $args->{'keepcolours'}; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="257">257</a> </td> <td class="c0" > <a href="#258"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_check($args,$fmt,"keep-colors","--keep-colors"); </td> </tr> <tr> <td class="h" > <a name="258">258</a> </td> <td class="c0" > <a href="#259"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#258-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $args->{'no-tags'} ||= $args->{'notags'} || 0; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="259">259</a> </td> <td class="c0" > <a href="#260"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_check($args,$fmt,"no-tags","--no-tags"); </td> </tr> <tr> <td class="h" > <a name="260">260</a> </td> <td class="c0" > <a href="#261"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#260-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $args->{'item-help'} ||= $args->{'itemhelp'} || 0; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="261">261</a> </td> <td class="c0" > <a href="#262"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_check($args,$fmt,"item-help","--item-help"); </td> </tr> <tr> <td class="h" > <a name="262">262</a> </td> <td class="c0" > <a href="#263"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#262-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $args->{'no-ok'} ||= $args->{'nook'} || 0; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="263">263</a> </td> <td class="c0" > <a href="#264"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_check($args,$fmt,"no-ok","--no-ok"); </td> </tr> <tr> <td class="h" > <a name="264">264</a> </td> <td class="c0" > <a href="#265"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#264-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $args->{'no-cancel'} ||= $args->{'nocancel'} || 0; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="265">265</a> </td> <td class="c0" > <a href="#266"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_check($args,$fmt,"no-cancel","--no-cancel"); </td> </tr> <tr> <td class="h" > <a name="266">266</a> </td> <td class="c0" > <a href="#267"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#266-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $args->{'no-buttons'} ||= $args->{'nobuttons'} || 0; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="267">267</a> </td> <td class="c0" > <a href="#268"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_check($args,$fmt,"no-buttons","--no-buttons"); </td> </tr> <tr> <td class="h" > <a name="268">268</a> </td> <td class="c0" > <a href="#269"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#268-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $args->{'default-no'} ||= $args->{'defaultno'} || 0; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="269">269</a> </td> <td class="c0" > <a href="#270"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_check($args,$fmt,"default-no","--default-no"); </td> </tr> <tr> <td class="h" > <a name="270">270</a> </td> <td class="c0" > <a href="#271"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#270-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $args->{'ignore-eof'} ||= $args->{'ignoreeof'} || 0; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="271">271</a> </td> <td class="c0" > <a href="#273"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_check($args,$fmt,"ignore-eof","--ignore-eof"); </td> </tr> <tr> <td class="h" > <a name="272">272</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="273">273</a> </td> <td class="c0" > <a href="#274"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_check($args,$fmt,"wmclass","--wmclass {{wmclass}}"); </td> </tr> <tr> <td class="h" > <a name="274">274</a> </td> <td class="c0" > <a href="#275"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_check($args,$fmt,"interval","--interval {{interval}}"); </td> </tr> <tr> <td class="h" > <a name="275">275</a> </td> <td class="c0" > <a href="#276"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_check($args,$fmt,"icon","--icon {{icon}}"); </td> </tr> <tr> <td class="h" > <a name="276">276</a> </td> <td class="c0" > <a href="#277"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_check($args,$fmt,"help","--help {{help}}"); </td> </tr> <tr> <td class="h" > <a name="277">277</a> </td> <td class="c0" > <a href="#278"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_check($args,$fmt,"print","--print {{print}}"); </td> </tr> <tr> <td class="h" > <a name="278">278</a> </td> <td class="c0" > <a href="#280"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_check($args,$fmt,"check",'--check {{check}}'); </td> </tr> <tr> <td class="h" > <a name="279">279</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="280">280</a> </td> <td class="c0" > <a href="#283"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#280-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $args->{'rc-file'} ||= $args->{'rcfile'} || 0; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="281">281</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_check </td> </tr> <tr> <td class="h" > <a name="282">282</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ( $args, $fmt, "rc-file", </td> </tr> <tr> <td class="h" > <a name="283">283</a> </td> <td class="c0" > <a href="#286"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> '--rc-file '.shell_quote($args->{'rc-file'}) </td> </tr> <tr> <td class="h" > <a name="284">284</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ); </td> </tr> <tr> <td class="h" > <a name="285">285</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="286">286</a> </td> <td class="c0" > <a href="#289"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#286-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $args->{'button-style'} ||= $args->{'buttonsstyle'} || 0; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="287">287</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_check </td> </tr> <tr> <td class="h" > <a name="288">288</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ( $args, $fmt, "button-style", </td> </tr> <tr> <td class="h" > <a name="289">289</a> </td> <td class="c0" > <a href="#292"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> '--button-style '.shell_quote($args->{'button-style'}) </td> </tr> <tr> <td class="h" > <a name="290">290</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ); </td> </tr> <tr> <td class="h" > <a name="291">291</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="292">292</a> </td> <td class="c0" > <a href="#295"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#292-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $args->{'default-item'} ||= $args->{'defaultitem'} || 0; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="293">293</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_check </td> </tr> <tr> <td class="h" > <a name="294">294</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ( $args, $fmt, "default-item", </td> </tr> <tr> <td class="h" > <a name="295">295</a> </td> <td class="c0" > <a href="#298"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> '--default-item '.shell_quote($args->{'default-item'}) </td> </tr> <tr> <td class="h" > <a name="296">296</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ); </td> </tr> <tr> <td class="h" > <a name="297">297</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="298">298</a> </td> <td class="c0" > <a href="#301"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#298-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $args->{'ok-label'} ||= $args->{'oklabel'} || 0; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="299">299</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_check </td> </tr> <tr> <td class="h" > <a name="300">300</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ( $args, $fmt, "ok-label", </td> </tr> <tr> <td class="h" > <a name="301">301</a> </td> <td class="c0" > <a href="#304"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> '--ok-label '.shell_quote($args->{'ok-label'}) </td> </tr> <tr> <td class="h" > <a name="302">302</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ); </td> </tr> <tr> <td class="h" > <a name="303">303</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="304">304</a> </td> <td class="c0" > <a href="#307"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#304-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $args->{'cancel-label'} ||= $args->{'cancellabel'} || 0; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="305">305</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_check </td> </tr> <tr> <td class="h" > <a name="306">306</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ( $args, $fmt, "cancel-label", </td> </tr> <tr> <td class="h" > <a name="307">307</a> </td> <td class="c0" > <a href="#310"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> '--cancel-label '.shell_quote($args->{'cancel-label'}) </td> </tr> <tr> <td class="h" > <a name="308">308</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ); </td> </tr> <tr> <td class="h" > <a name="309">309</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="310">310</a> </td> <td class="c0" > <a href="#311"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#310-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if (exists $args->{'begin'}) { </td> </tr> <tr> <td class="h" > <a name="311">311</a> </td> <td class="c0" > <a href="#312"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $begin = $args->{'begin'}; </td> </tr> <tr> <td class="h" > <a name="312">312</a> </td> <td class="c0" > <a href="#313"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#312-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if (ref($begin) eq "ARRAY") { </td> </tr> <tr> <td class="h" > <a name="313">313</a> </td> <td class="c0" > <a href="#317"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,'--begin '.$begin->[0].' '.$begin->[1]); </td> </tr> <tr> <td class="h" > <a name="314">314</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="315">315</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="316">316</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="317">317</a> </td> <td class="c0" > <a href="#326"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return $fmt; </td> </tr> <tr> <td class="h" > <a name="318">318</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="319">319</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="320">320</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: </td> </tr> <tr> <td class="h" > <a name="321">321</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #: State Methods (override inherited) </td> </tr> <tr> <td class="h" > <a name="322">322</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #: </td> </tr> <tr> <td class="h" > <a name="323">323</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="324">324</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #: report on the state of the last widget. </td> </tr> <tr> <td class="h" > <a name="325">325</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub state { </td> </tr> <tr> <td class="h" > <a name="326">326</a> </td> <td class="c0" > <a href="#327"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#326-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#326-1"> 1 </a> </td> <td >   </td> <td class="s"> my $self = shift(); </td> </tr> <tr> <td class="h" > <a name="327">327</a> </td> <td class="c0" > <a href="#328"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#327-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $rv = $self->rv() || 0; </td> </tr> <tr> <td class="h" > <a name="328">328</a> </td> <td class="c0" > <a href="#329"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#328-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->_debug((join(" | ",(caller())))." > state() > is: ".($rv||'NULL'),2); </td> </tr> <tr> <td class="h" > <a name="329">329</a> </td> <td class="c0" > <a href="#330"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#329-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#329-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if ($rv == 1 or $rv == 129) { </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#-2"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#-3"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#-4"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#-5"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#-6"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="330">330</a> </td> <td class="c0" > <a href="#333"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return("CANCEL"); </td> </tr> <tr> <td class="h" > <a name="331">331</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="332">332</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif ($rv == 2) { </td> </tr> <tr> <td class="h" > <a name="333">333</a> </td> <td class="c0" > <a href="#336"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return("HELP"); </td> </tr> <tr> <td class="h" > <a name="334">334</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="335">335</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif ($rv == 3) { </td> </tr> <tr> <td class="h" > <a name="336">336</a> </td> <td class="c0" > <a href="#339"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return("PREVIOUS"); </td> </tr> <tr> <td class="h" > <a name="337">337</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="338">338</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif ($rv == 254) { </td> </tr> <tr> <td class="h" > <a name="339">339</a> </td> <td class="c0" > <a href="#342"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return("ERROR"); </td> </tr> <tr> <td class="h" > <a name="340">340</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="341">341</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif ($rv == 255) { </td> </tr> <tr> <td class="h" > <a name="342">342</a> </td> <td class="c0" > <a href="#345"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return("ESC"); </td> </tr> <tr> <td class="h" > <a name="343">343</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="344">344</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> elsif (not $rv or $rv =~ /^null$/i) { </td> </tr> <tr> <td class="h" > <a name="345">345</a> </td> <td class="c0" > <a href="#348"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return("OK"); </td> </tr> <tr> <td class="h" > <a name="346">346</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="347">347</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> else { </td> </tr> <tr> <td class="h" > <a name="348">348</a> </td> <td class="c0" > <a href="#361"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return("UNKNOWN(".$rv.")"); </td> </tr> <tr> <td class="h" > <a name="349">349</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="350">350</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="351">351</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="352">352</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="353">353</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: </td> </tr> <tr> <td class="h" > <a name="354">354</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #: Public Methods </td> </tr> <tr> <td class="h" > <a name="355">355</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #: </td> </tr> <tr> <td class="h" > <a name="356">356</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="357">357</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --combobox <text> <height> <width> <item1> ... <itemN> </td> </tr> <tr> <td class="h" > <a name="358">358</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #:+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ </td> </tr> <tr> <td class="h" > <a name="359">359</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #: display a dropdown list that's editable </td> </tr> <tr> <td class="h" > <a name="360">360</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub combobox { </td> </tr> <tr> <td class="h" > <a name="361">361</a> </td> <td class="c0" > <a href="#362"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#361-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#361-1"> 1 </a> </td> <td >   </td> <td class="s"> my $self = shift(); </td> </tr> <tr> <td class="h" > <a name="362">362</a> </td> <td class="c0" > <a href="#363"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#362-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $caller = (caller(1))[3] || 'main'; </td> </tr> <tr> <td class="h" > <a name="363">363</a> </td> <td class="c0" > <a href="#364"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#363-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#363-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $caller = ($caller =~ /^UI\:\:Dialog\:\:Backend\:\:/) ? ((caller(2))[3]||'main') : $caller; </td> </tr> <tr> <td class="h" > <a name="364">364</a> </td> <td class="c0" > <a href="#365"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#364-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#364-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if ($_[0] && $_[0] eq 'caller') { </td> </tr> <tr> <td class="h" > <a name="365">365</a> </td> <td class="c0" > <a href="# "> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> shift(); $caller = shift(); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c0" > <a href="#367"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="366">366</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="367">367</a> </td> <td class="c0" > <a href="#369"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $args = $self->_pre($caller,@_); </td> </tr> <tr> <td class="h" > <a name="368">368</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="369">369</a> </td> <td class="c0" > <a href="#370"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $fmt = $self->prepare_format($args); </td> </tr> <tr> <td class="h" > <a name="370">370</a> </td> <td class="c0" > <a href="#371"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_base($args,$fmt); </td> </tr> <tr> <td class="h" > <a name="371">371</a> </td> <td class="c0" > <a href="#374"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,'--separate-output --combobox {{text}} {{height}} {{width}} {{list}}'); </td> </tr> <tr> <td class="h" > <a name="372">372</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $command = $self->prepare_command </td> </tr> <tr> <td class="h" > <a name="373">373</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ( $args, $fmt, </td> </tr> <tr> <td class="h" > <a name="374">374</a> </td> <td class="c0" > <a href="#377"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> text => $self->make_kvt($args,$args->{'text'}), </td> </tr> <tr> <td class="h" > <a name="375">375</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ); </td> </tr> <tr> <td class="h" > <a name="376">376</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="377">377</a> </td> <td class="c0" > <a href="#378"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my ($rv,$selected) = $self->command_string($command); </td> </tr> <tr> <td class="h" > <a name="378">378</a> </td> <td class="c0" > <a href="#379"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->_post($args); </td> </tr> <tr> <td class="h" > <a name="379">379</a> </td> <td class="c0" > <a href="#387"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#379-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return($rv ? $selected : 0); </td> </tr> <tr> <td class="h" > <a name="380">380</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="381">381</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="382">382</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="383">383</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --rangebox <text> <height> <width> <min value> <max value> [<default value>] </td> </tr> <tr> <td class="h" > <a name="384">384</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #:+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ </td> </tr> <tr> <td class="h" > <a name="385">385</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #: display a slider bar with a preset range. </td> </tr> <tr> <td class="h" > <a name="386">386</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub rangebox { </td> </tr> <tr> <td class="h" > <a name="387">387</a> </td> <td class="c0" > <a href="#388"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#387-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#387-1"> 1 </a> </td> <td >   </td> <td class="s"> my $self = shift(); </td> </tr> <tr> <td class="h" > <a name="388">388</a> </td> <td class="c0" > <a href="#389"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#388-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $caller = (caller(1))[3] || 'main'; </td> </tr> <tr> <td class="h" > <a name="389">389</a> </td> <td class="c0" > <a href="#390"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#389-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#389-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $caller = ($caller =~ /^UI\:\:Dialog\:\:Backend\:\:/) ? ((caller(2))[3]||'main') : $caller; </td> </tr> <tr> <td class="h" > <a name="390">390</a> </td> <td class="c0" > <a href="#391"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#390-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#390-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if ($_[0] && $_[0] eq 'caller') { </td> </tr> <tr> <td class="h" > <a name="391">391</a> </td> <td class="c0" > <a href="# "> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> shift(); $caller = shift(); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c0" > <a href="#393"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="392">392</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="393">393</a> </td> <td class="c0" > <a href="#395"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $args = $self->_pre($caller,@_); </td> </tr> <tr> <td class="h" > <a name="394">394</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="395">395</a> </td> <td class="c0" > <a href="#396"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $fmt = $self->prepare_format($args); </td> </tr> <tr> <td class="h" > <a name="396">396</a> </td> <td class="c0" > <a href="#397"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_base($args,$fmt); </td> </tr> <tr> <td class="h" > <a name="397">397</a> </td> <td class="c0" > <a href="#403"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,'--rangebox {{text}} {{height}} {{width}} {{min}} {{max}} {{def}}'); </td> </tr> <tr> <td class="h" > <a name="398">398</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $command = $self->prepare_command </td> </tr> <tr> <td class="h" > <a name="399">399</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ( $args, $fmt, </td> </tr> <tr> <td class="h" > <a name="400">400</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> text => $self->make_kvt($args,$args->{'text'}), </td> </tr> <tr> <td class="h" > <a name="401">401</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> min => $self->make_kvl($args,($args->{'min'}||'0')), </td> </tr> <tr> <td class="h" > <a name="402">402</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> max => $self->make_kvl($args,($args->{'max'}||'100')), </td> </tr> <tr> <td class="h" > <a name="403">403</a> </td> <td class="c0" > <a href="#406"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#403-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> def => $self->make_kvl($args,($args->{'def'}||'0')), </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-3"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="404">404</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ); </td> </tr> <tr> <td class="h" > <a name="405">405</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="406">406</a> </td> <td class="c0" > <a href="#407"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my ($rv,$selected) = $self->command_string($command); </td> </tr> <tr> <td class="h" > <a name="407">407</a> </td> <td class="c0" > <a href="#408"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->_post($args); </td> </tr> <tr> <td class="h" > <a name="408">408</a> </td> <td class="c0" > <a href="#415"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#408-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return($rv ? $selected : 0); </td> </tr> <tr> <td class="h" > <a name="409">409</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="410">410</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="411">411</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --2rangesbox <text> <height> <width> <label1> <min1> <max1> <def1> <label2> <min2> <max2> <def2> </td> </tr> <tr> <td class="h" > <a name="412">412</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #:+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ </td> </tr> <tr> <td class="h" > <a name="413">413</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #: display two slider bars with preset ranges and labels </td> </tr> <tr> <td class="h" > <a name="414">414</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub rangesbox2 { </td> </tr> <tr> <td class="h" > <a name="415">415</a> </td> <td class="c0" > <a href="#416"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#415-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#415-1"> 1 </a> </td> <td >   </td> <td class="s"> my $self = shift(); </td> </tr> <tr> <td class="h" > <a name="416">416</a> </td> <td class="c0" > <a href="#417"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#416-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $caller = (caller(1))[3] || 'main'; </td> </tr> <tr> <td class="h" > <a name="417">417</a> </td> <td class="c0" > <a href="#418"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#417-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#417-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $caller = ($caller =~ /^UI\:\:Dialog\:\:Backend\:\:/) ? ((caller(2))[3]||'main') : $caller; </td> </tr> <tr> <td class="h" > <a name="418">418</a> </td> <td class="c0" > <a href="#419"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#418-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#418-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if ($_[0] && $_[0] eq 'caller') { </td> </tr> <tr> <td class="h" > <a name="419">419</a> </td> <td class="c0" > <a href="# "> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> shift(); $caller = shift(); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c0" > <a href="#421"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="420">420</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="421">421</a> </td> <td class="c0" > <a href="#423"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $args = $self->_pre($caller,@_); </td> </tr> <tr> <td class="h" > <a name="422">422</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="423">423</a> </td> <td class="c0" > <a href="#424"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $fmt = $self->prepare_format($args); </td> </tr> <tr> <td class="h" > <a name="424">424</a> </td> <td class="c0" > <a href="#425"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_base($args,$fmt); </td> </tr> <tr> <td class="h" > <a name="425">425</a> </td> <td class="c0" > <a href="#426"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,'--separate-output --2rangesbox {{text}} {{height}} {{width}}'); </td> </tr> <tr> <td class="h" > <a name="426">426</a> </td> <td class="c0" > <a href="#427"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,'{{label1}} {{min1}} {{max1}} {{def1}}'); </td> </tr> <tr> <td class="h" > <a name="427">427</a> </td> <td class="c0" > <a href="#438"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,'{{label2}} {{min2}} {{max2}} {{def2}}'); </td> </tr> <tr> <td class="h" > <a name="428">428</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $command = $self->prepare_command </td> </tr> <tr> <td class="h" > <a name="429">429</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ( $args, $fmt, </td> </tr> <tr> <td class="h" > <a name="430">430</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> text => $self->make_kvt($args,$args->{'text'}), </td> </tr> <tr> <td class="h" > <a name="431">431</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> label1 => $self->make_kvl($args,($args->{'label1'}||'')), </td> </tr> <tr> <td class="h" > <a name="432">432</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> min1 => $self->make_kvl($args,($args->{'min1'}||'0')), </td> </tr> <tr> <td class="h" > <a name="433">433</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> max1 => $self->make_kvl($args,($args->{'max1'}||'100')), </td> </tr> <tr> <td class="h" > <a name="434">434</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> def1 => $self->make_kvl($args,($args->{'def1'}||'0')), </td> </tr> <tr> <td class="h" > <a name="435">435</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> label2 => $self->make_kvl($args,($args->{'label2'}||'')), </td> </tr> <tr> <td class="h" > <a name="436">436</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> min2 => $self->make_kvl($args,($args->{'min2'}||'0')), </td> </tr> <tr> <td class="h" > <a name="437">437</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> max2 => $self->make_kvl($args,($args->{'max2'}||'100')), </td> </tr> <tr> <td class="h" > <a name="438">438</a> </td> <td class="c0" > <a href="#441"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#438-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> def2 => $self->make_kvl($args,($args->{'def2'}||'0')), </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-3"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-4"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-5"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-6"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-7"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-8"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="439">439</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ); </td> </tr> <tr> <td class="h" > <a name="440">440</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="441">441</a> </td> <td class="c0" > <a href="#442"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my ($rv,$selected) = $self->command_array($command); </td> </tr> <tr> <td class="h" > <a name="442">442</a> </td> <td class="c0" > <a href="#443"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->_post($args); </td> </tr> <tr> <td class="h" > <a name="443">443</a> </td> <td class="c0" > <a href="#444"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#443-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#443-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return($rv == 0 ? $selected : 0) unless defined wantarray and wantarray; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="444">444</a> </td> <td class="c0" > <a href="#451"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#444-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return($rv == 0 ? $self->ra() : (0)); </td> </tr> <tr> <td class="h" > <a name="445">445</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="446">446</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="447">447</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --3rangesbox <text> <height> <width> <label1> <min1> <max1> <def1> <label2> <min2> <max2> <def2> <label3> <min3> <max3> <def3> </td> </tr> <tr> <td class="h" > <a name="448">448</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #:+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ </td> </tr> <tr> <td class="h" > <a name="449">449</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #: display three slider bars with preset ranges and labels </td> </tr> <tr> <td class="h" > <a name="450">450</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub rangesbox3 { </td> </tr> <tr> <td class="h" > <a name="451">451</a> </td> <td class="c0" > <a href="#452"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#451-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#451-1"> 1 </a> </td> <td >   </td> <td class="s"> my $self = shift(); </td> </tr> <tr> <td class="h" > <a name="452">452</a> </td> <td class="c0" > <a href="#453"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#452-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $caller = (caller(1))[3] || 'main'; </td> </tr> <tr> <td class="h" > <a name="453">453</a> </td> <td class="c0" > <a href="#454"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#453-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#453-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $caller = ($caller =~ /^UI\:\:Dialog\:\:Backend\:\:/) ? ((caller(2))[3]||'main') : $caller; </td> </tr> <tr> <td class="h" > <a name="454">454</a> </td> <td class="c0" > <a href="#455"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#454-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#454-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if ($_[0] && $_[0] eq 'caller') { </td> </tr> <tr> <td class="h" > <a name="455">455</a> </td> <td class="c0" > <a href="# "> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> shift(); $caller = shift(); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c0" > <a href="#457"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="456">456</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="457">457</a> </td> <td class="c0" > <a href="#459"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $args = $self->_pre($caller,@_); </td> </tr> <tr> <td class="h" > <a name="458">458</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="459">459</a> </td> <td class="c0" > <a href="#460"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $fmt = $self->prepare_format($args); </td> </tr> <tr> <td class="h" > <a name="460">460</a> </td> <td class="c0" > <a href="#461"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_base($args,$fmt); </td> </tr> <tr> <td class="h" > <a name="461">461</a> </td> <td class="c0" > <a href="#462"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,'--separate-output --3rangesbox {{text}} {{height}} {{width}}'); </td> </tr> <tr> <td class="h" > <a name="462">462</a> </td> <td class="c0" > <a href="#463"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,'{{label1}} {{min1}} {{max1}} {{def1}}'); </td> </tr> <tr> <td class="h" > <a name="463">463</a> </td> <td class="c0" > <a href="#464"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,'{{label2}} {{min2}} {{max2}} {{def2}}'); </td> </tr> <tr> <td class="h" > <a name="464">464</a> </td> <td class="c0" > <a href="#479"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,'{{label3}} {{min3}} {{max3}} {{def3}}'); </td> </tr> <tr> <td class="h" > <a name="465">465</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $command = $self->prepare_command </td> </tr> <tr> <td class="h" > <a name="466">466</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ( $args, $fmt, </td> </tr> <tr> <td class="h" > <a name="467">467</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> text => $self->make_kvt($args,$args->{'text'}), </td> </tr> <tr> <td class="h" > <a name="468">468</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> label1 => $self->make_kvl($args,($args->{'label1'}||'')), </td> </tr> <tr> <td class="h" > <a name="469">469</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> min1 => $self->make_kvl($args,($args->{'min1'}||'0')), </td> </tr> <tr> <td class="h" > <a name="470">470</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> max1 => $self->make_kvl($args,($args->{'max1'}||'100')), </td> </tr> <tr> <td class="h" > <a name="471">471</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> def1 => $self->make_kvl($args,($args->{'def1'}||'0')), </td> </tr> <tr> <td class="h" > <a name="472">472</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> label2 => $self->make_kvl($args,($args->{'label2'}||'')), </td> </tr> <tr> <td class="h" > <a name="473">473</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> min2 => $self->make_kvl($args,($args->{'min2'}||'0')), </td> </tr> <tr> <td class="h" > <a name="474">474</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> max2 => $self->make_kvl($args,($args->{'max2'}||'100')), </td> </tr> <tr> <td class="h" > <a name="475">475</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> def2 => $self->make_kvl($args,($args->{'def2'}||'0')), </td> </tr> <tr> <td class="h" > <a name="476">476</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> label3 => $self->make_kvl($args,($args->{'label3'}||'')), </td> </tr> <tr> <td class="h" > <a name="477">477</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> min3 => $self->make_kvl($args,($args->{'min3'}||'0')), </td> </tr> <tr> <td class="h" > <a name="478">478</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> max3 => $self->make_kvl($args,($args->{'max3'}||'100')), </td> </tr> <tr> <td class="h" > <a name="479">479</a> </td> <td class="c0" > <a href="#482"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#479-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> def3 => $self->make_kvl($args,($args->{'def3'}||'0')), </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-3"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-4"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-5"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-6"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-7"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-8"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-9"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-10"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-11"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-12"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="480">480</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ); </td> </tr> <tr> <td class="h" > <a name="481">481</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="482">482</a> </td> <td class="c0" > <a href="#483"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my ($rv,$selected) = $self->command_array($command); </td> </tr> <tr> <td class="h" > <a name="483">483</a> </td> <td class="c0" > <a href="#484"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->_post($args); </td> </tr> <tr> <td class="h" > <a name="484">484</a> </td> <td class="c0" > <a href="#485"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#484-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#484-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return($rv == 0 ? $selected : 0) unless defined wantarray and wantarray; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="485">485</a> </td> <td class="c0" > <a href="#492"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#485-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return($rv == 0 ? $self->ra() : (0)); </td> </tr> <tr> <td class="h" > <a name="486">486</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="487">487</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="488">488</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --spinbox <text> <height> <width> <min> <max> <def> <label> </td> </tr> <tr> <td class="h" > <a name="489">489</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #:+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ </td> </tr> <tr> <td class="h" > <a name="490">490</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #: display a spin box (a number with up/down buttons) with preset ranges </td> </tr> <tr> <td class="h" > <a name="491">491</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub spinbox { </td> </tr> <tr> <td class="h" > <a name="492">492</a> </td> <td class="c0" > <a href="#493"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#492-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#492-1"> 1 </a> </td> <td >   </td> <td class="s"> my $self = shift(); </td> </tr> <tr> <td class="h" > <a name="493">493</a> </td> <td class="c0" > <a href="#494"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#493-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $caller = (caller(1))[3] || 'main'; </td> </tr> <tr> <td class="h" > <a name="494">494</a> </td> <td class="c0" > <a href="#495"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#494-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#494-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $caller = ($caller =~ /^UI\:\:Dialog\:\:Backend\:\:/) ? ((caller(2))[3]||'main') : $caller; </td> </tr> <tr> <td class="h" > <a name="495">495</a> </td> <td class="c0" > <a href="#496"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#495-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#495-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if ($_[0] && $_[0] eq 'caller') { </td> </tr> <tr> <td class="h" > <a name="496">496</a> </td> <td class="c0" > <a href="# "> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> shift(); $caller = shift(); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c0" > <a href="#498"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="497">497</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="498">498</a> </td> <td class="c0" > <a href="#500"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $args = $self->_pre($caller,@_); </td> </tr> <tr> <td class="h" > <a name="499">499</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="500">500</a> </td> <td class="c0" > <a href="#501"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#500-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{'min'} ||= $self->{'min1'}; </td> </tr> <tr> <td class="h" > <a name="501">501</a> </td> <td class="c0" > <a href="#502"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#501-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{'max'} ||= $self->{'max1'}; </td> </tr> <tr> <td class="h" > <a name="502">502</a> </td> <td class="c0" > <a href="#503"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#502-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{'def'} ||= $self->{'def1'}; </td> </tr> <tr> <td class="h" > <a name="503">503</a> </td> <td class="c0" > <a href="#504"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#503-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{'label'} ||= $self->{'label1'}; </td> </tr> <tr> <td class="h" > <a name="504">504</a> </td> <td class="c0" > <a href="#505"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $fmt = $self->prepare_format($args); </td> </tr> <tr> <td class="h" > <a name="505">505</a> </td> <td class="c0" > <a href="#506"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_base($args,$fmt); </td> </tr> <tr> <td class="h" > <a name="506">506</a> </td> <td class="c0" > <a href="#507"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,'--separate-output --spinbox {{text}} {{height}} {{width}}'); </td> </tr> <tr> <td class="h" > <a name="507">507</a> </td> <td class="c0" > <a href="#514"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,'{{min}} {{max}} {{def}} {{label}}'); </td> </tr> <tr> <td class="h" > <a name="508">508</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $command = $self->prepare_command </td> </tr> <tr> <td class="h" > <a name="509">509</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ( $args, $fmt, </td> </tr> <tr> <td class="h" > <a name="510">510</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> text => $self->make_kvt($args,$args->{'text'}), </td> </tr> <tr> <td class="h" > <a name="511">511</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> min => $self->make_kvl($args,($args->{'min'}||'0')), </td> </tr> <tr> <td class="h" > <a name="512">512</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> max => $self->make_kvl($args,($args->{'max'}||'100')), </td> </tr> <tr> <td class="h" > <a name="513">513</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> def => $self->make_kvl($args,($args->{'def'}||'0')), </td> </tr> <tr> <td class="h" > <a name="514">514</a> </td> <td class="c0" > <a href="#517"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#514-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> label => $self->make_kvl($args,($args->{'label'}||'')), </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-3"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-4"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="515">515</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ); </td> </tr> <tr> <td class="h" > <a name="516">516</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="517">517</a> </td> <td class="c0" > <a href="#518"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my ($rv,$selected) = $self->command_string($command); </td> </tr> <tr> <td class="h" > <a name="518">518</a> </td> <td class="c0" > <a href="#519"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->_post($args); </td> </tr> <tr> <td class="h" > <a name="519">519</a> </td> <td class="c0" > <a href="#526"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#519-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return($rv == 0 ? $selected : 0); </td> </tr> <tr> <td class="h" > <a name="520">520</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="521">521</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="522">522</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --2spinsbox <text> <height> <width> <min1> <max1> <def1> <label1> <min2> <max2> <def2> <label2> </td> </tr> <tr> <td class="h" > <a name="523">523</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #:+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ </td> </tr> <tr> <td class="h" > <a name="524">524</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #: display two spin boxes with preset ranges and labels </td> </tr> <tr> <td class="h" > <a name="525">525</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub spinsbox2 { </td> </tr> <tr> <td class="h" > <a name="526">526</a> </td> <td class="c0" > <a href="#527"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#526-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#526-1"> 1 </a> </td> <td >   </td> <td class="s"> my $self = shift(); </td> </tr> <tr> <td class="h" > <a name="527">527</a> </td> <td class="c0" > <a href="#528"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#527-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $caller = (caller(1))[3] || 'main'; </td> </tr> <tr> <td class="h" > <a name="528">528</a> </td> <td class="c0" > <a href="#529"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#528-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#528-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $caller = ($caller =~ /^UI\:\:Dialog\:\:Backend\:\:/) ? ((caller(2))[3]||'main') : $caller; </td> </tr> <tr> <td class="h" > <a name="529">529</a> </td> <td class="c0" > <a href="#530"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#529-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#529-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if ($_[0] && $_[0] eq 'caller') { </td> </tr> <tr> <td class="h" > <a name="530">530</a> </td> <td class="c0" > <a href="# "> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> shift(); $caller = shift(); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c0" > <a href="#532"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="531">531</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="532">532</a> </td> <td class="c0" > <a href="#534"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $args = $self->_pre($caller,@_); </td> </tr> <tr> <td class="h" > <a name="533">533</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="534">534</a> </td> <td class="c0" > <a href="#535"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $fmt = $self->prepare_format($args); </td> </tr> <tr> <td class="h" > <a name="535">535</a> </td> <td class="c0" > <a href="#536"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_base($args,$fmt); </td> </tr> <tr> <td class="h" > <a name="536">536</a> </td> <td class="c0" > <a href="#537"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,'--separate-output --2spinsbox {{text}} {{height}} {{width}}'); </td> </tr> <tr> <td class="h" > <a name="537">537</a> </td> <td class="c0" > <a href="#538"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,'{{min1}} {{max1}} {{def1}} {{label1}}'); </td> </tr> <tr> <td class="h" > <a name="538">538</a> </td> <td class="c0" > <a href="#549"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,'{{min2}} {{max2}} {{def2}} {{label2}}'); </td> </tr> <tr> <td class="h" > <a name="539">539</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $command = $self->prepare_command </td> </tr> <tr> <td class="h" > <a name="540">540</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ( $args, $fmt, </td> </tr> <tr> <td class="h" > <a name="541">541</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> text => $self->make_kvt($args,$args->{'text'}), </td> </tr> <tr> <td class="h" > <a name="542">542</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> label1 => $self->make_kvl($args,($args->{'label1'}||'')), </td> </tr> <tr> <td class="h" > <a name="543">543</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> min1 => $self->make_kvl($args,($args->{'min1'}||'0')), </td> </tr> <tr> <td class="h" > <a name="544">544</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> max1 => $self->make_kvl($args,($args->{'max1'}||'100')), </td> </tr> <tr> <td class="h" > <a name="545">545</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> def1 => $self->make_kvl($args,($args->{'def1'}||'0')), </td> </tr> <tr> <td class="h" > <a name="546">546</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> label2 => $self->make_kvl($args,($args->{'label2'}||'')), </td> </tr> <tr> <td class="h" > <a name="547">547</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> min2 => $self->make_kvl($args,($args->{'min2'}||'0')), </td> </tr> <tr> <td class="h" > <a name="548">548</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> max2 => $self->make_kvl($args,($args->{'max2'}||'100')), </td> </tr> <tr> <td class="h" > <a name="549">549</a> </td> <td class="c0" > <a href="#552"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#549-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> def2 => $self->make_kvl($args,($args->{'def2'}||'0')), </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-3"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-4"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-5"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-6"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-7"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-8"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="550">550</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ); </td> </tr> <tr> <td class="h" > <a name="551">551</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="552">552</a> </td> <td class="c0" > <a href="#553"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my ($rv,$selected) = $self->command_array($command); </td> </tr> <tr> <td class="h" > <a name="553">553</a> </td> <td class="c0" > <a href="#554"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->_post($args); </td> </tr> <tr> <td class="h" > <a name="554">554</a> </td> <td class="c0" > <a href="#555"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#554-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#554-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return($rv == 0 ? $selected : 0) unless defined wantarray and wantarray; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="555">555</a> </td> <td class="c0" > <a href="#562"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#555-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return($rv == 0 ? $self->ra() : (0)); </td> </tr> <tr> <td class="h" > <a name="556">556</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="557">557</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="558">558</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --3spinsbox <text> <height> <width> <text> <height> <width> <min1> <max1> <def1> <label1> <min2> <max2> <def2> <label2> <min3> <max3> <def3> <label3> </td> </tr> <tr> <td class="h" > <a name="559">559</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #:+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ </td> </tr> <tr> <td class="h" > <a name="560">560</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #: display three spin boxes with preset ranges and labels </td> </tr> <tr> <td class="h" > <a name="561">561</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub spinsbox3 { </td> </tr> <tr> <td class="h" > <a name="562">562</a> </td> <td class="c0" > <a href="#563"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#562-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#562-1"> 1 </a> </td> <td >   </td> <td class="s"> my $self = shift(); </td> </tr> <tr> <td class="h" > <a name="563">563</a> </td> <td class="c0" > <a href="#564"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#563-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $caller = (caller(1))[3] || 'main'; </td> </tr> <tr> <td class="h" > <a name="564">564</a> </td> <td class="c0" > <a href="#565"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#564-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#564-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $caller = ($caller =~ /^UI\:\:Dialog\:\:Backend\:\:/) ? ((caller(2))[3]||'main') : $caller; </td> </tr> <tr> <td class="h" > <a name="565">565</a> </td> <td class="c0" > <a href="#566"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#565-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#565-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if ($_[0] && $_[0] eq 'caller') { </td> </tr> <tr> <td class="h" > <a name="566">566</a> </td> <td class="c0" > <a href="# "> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> shift(); $caller = shift(); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c0" > <a href="#568"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="567">567</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="568">568</a> </td> <td class="c0" > <a href="#570"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $args = $self->_pre($caller,@_); </td> </tr> <tr> <td class="h" > <a name="569">569</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="570">570</a> </td> <td class="c0" > <a href="#571"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $fmt = $self->prepare_format($args); </td> </tr> <tr> <td class="h" > <a name="571">571</a> </td> <td class="c0" > <a href="#572"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_base($args,$fmt); </td> </tr> <tr> <td class="h" > <a name="572">572</a> </td> <td class="c0" > <a href="#573"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,'--separate-output --3spinsbox {{text}} {{height}} {{width}}'); </td> </tr> <tr> <td class="h" > <a name="573">573</a> </td> <td class="c0" > <a href="#574"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,'{{min1}} {{max1}} {{def1}} {{label1}}'); </td> </tr> <tr> <td class="h" > <a name="574">574</a> </td> <td class="c0" > <a href="#575"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,'{{min2}} {{max2}} {{def2}} {{label2}}'); </td> </tr> <tr> <td class="h" > <a name="575">575</a> </td> <td class="c0" > <a href="#590"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,'{{min3}} {{max3}} {{def3}} {{label3}}'); </td> </tr> <tr> <td class="h" > <a name="576">576</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $command = $self->prepare_command </td> </tr> <tr> <td class="h" > <a name="577">577</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ( $args, $fmt, </td> </tr> <tr> <td class="h" > <a name="578">578</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> text => $self->make_kvt($args,$args->{'text'}), </td> </tr> <tr> <td class="h" > <a name="579">579</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> label1 => $self->make_kvl($args,($args->{'label1'}||'')), </td> </tr> <tr> <td class="h" > <a name="580">580</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> min1 => $self->make_kvl($args,($args->{'min1'}||'0')), </td> </tr> <tr> <td class="h" > <a name="581">581</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> max1 => $self->make_kvl($args,($args->{'max1'}||'100')), </td> </tr> <tr> <td class="h" > <a name="582">582</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> def1 => $self->make_kvl($args,($args->{'def1'}||'0')), </td> </tr> <tr> <td class="h" > <a name="583">583</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> label2 => $self->make_kvl($args,($args->{'label2'}||'')), </td> </tr> <tr> <td class="h" > <a name="584">584</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> min2 => $self->make_kvl($args,($args->{'min2'}||'0')), </td> </tr> <tr> <td class="h" > <a name="585">585</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> max2 => $self->make_kvl($args,($args->{'max2'}||'100')), </td> </tr> <tr> <td class="h" > <a name="586">586</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> def2 => $self->make_kvl($args,($args->{'def2'}||'0')), </td> </tr> <tr> <td class="h" > <a name="587">587</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> label3 => $self->make_kvl($args,($args->{'label3'}||'')), </td> </tr> <tr> <td class="h" > <a name="588">588</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> min3 => $self->make_kvl($args,($args->{'min3'}||'0')), </td> </tr> <tr> <td class="h" > <a name="589">589</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> max3 => $self->make_kvl($args,($args->{'max3'}||'100')), </td> </tr> <tr> <td class="h" > <a name="590">590</a> </td> <td class="c0" > <a href="#593"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#590-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> def3 => $self->make_kvl($args,($args->{'def3'}||'0')), </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-3"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-4"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-5"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-6"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-7"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-8"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-9"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-10"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-11"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-12"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="591">591</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ); </td> </tr> <tr> <td class="h" > <a name="592">592</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="593">593</a> </td> <td class="c0" > <a href="#594"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my ($rv,$selected) = $self->command_array($command); </td> </tr> <tr> <td class="h" > <a name="594">594</a> </td> <td class="c0" > <a href="#595"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->_post($args); </td> </tr> <tr> <td class="h" > <a name="595">595</a> </td> <td class="c0" > <a href="#596"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#595-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#595-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return($rv == 0 ? $selected : 0) unless defined wantarray and wantarray; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="596">596</a> </td> <td class="c0" > <a href="#603"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#596-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return($rv == 0 ? $self->ra() : (0)); </td> </tr> <tr> <td class="h" > <a name="597">597</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="598">598</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="599">599</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --buildlist <text> <height> <width> <list height> <tag1> <item1> <status1> {<help1>}... </td> </tr> <tr> <td class="h" > <a name="600">600</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #:+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ </td> </tr> <tr> <td class="h" > <a name="601">601</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #: display a two paned box by which the user can organize a list of items </td> </tr> <tr> <td class="h" > <a name="602">602</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub buildlist { </td> </tr> <tr> <td class="h" > <a name="603">603</a> </td> <td class="c0" > <a href="#604"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#603-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#603-1"> 1 </a> </td> <td >   </td> <td class="s"> my $self = shift(); </td> </tr> <tr> <td class="h" > <a name="604">604</a> </td> <td class="c0" > <a href="#605"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#604-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $caller = (caller(1))[3] || 'main'; </td> </tr> <tr> <td class="h" > <a name="605">605</a> </td> <td class="c0" > <a href="#606"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#605-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#605-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $caller = ($caller =~ /^UI\:\:Dialog\:\:Backend\:\:/) ? ((caller(2))[3]||'main') : $caller; </td> </tr> <tr> <td class="h" > <a name="606">606</a> </td> <td class="c0" > <a href="#607"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#606-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#606-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if ($_[0] && $_[0] eq 'caller') { </td> </tr> <tr> <td class="h" > <a name="607">607</a> </td> <td class="c0" > <a href="# "> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> shift(); $caller = shift(); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c0" > <a href="#609"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="608">608</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="609">609</a> </td> <td class="c0" > <a href="#611"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $args = $self->_pre($caller,@_); </td> </tr> <tr> <td class="h" > <a name="610">610</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="611">611</a> </td> <td class="c0" > <a href="#612"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#611-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{'buildlist'} ||= 'buildlist'; </td> </tr> <tr> <td class="h" > <a name="612">612</a> </td> <td class="c0" > <a href="#614"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#612-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{'listheight'} ||= $self->{'menuheight'}; </td> </tr> <tr> <td class="h" > <a name="613">613</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="614">614</a> </td> <td class="c0" > <a href="#615"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $fmt = $self->prepare_format($args); </td> </tr> <tr> <td class="h" > <a name="615">615</a> </td> <td class="c0" > <a href="#616"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_base($args,$fmt); </td> </tr> <tr> <td class="h" > <a name="616">616</a> </td> <td class="c0" > <a href="#617"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,'--separate-output --'.$self->{'buildlist'}); </td> </tr> <tr> <td class="h" > <a name="617">617</a> </td> <td class="c0" > <a href="#620"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format('{{text}} {{height}} {{width}} {{listheight}} {{list}}'); </td> </tr> <tr> <td class="h" > <a name="618">618</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $command = $self->prepare_command </td> </tr> <tr> <td class="h" > <a name="619">619</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ( $args, $fmt, </td> </tr> <tr> <td class="h" > <a name="620">620</a> </td> <td class="c0" > <a href="#623"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> text => $self->make_kvt($args,$args->{'text'}), </td> </tr> <tr> <td class="h" > <a name="621">621</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ); </td> </tr> <tr> <td class="h" > <a name="622">622</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="623">623</a> </td> <td class="c0" > <a href="#624"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my ($rv,$selected) = $self->command_array($command); </td> </tr> <tr> <td class="h" > <a name="624">624</a> </td> <td class="c0" > <a href="#625"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->_post($args); </td> </tr> <tr> <td class="h" > <a name="625">625</a> </td> <td class="c0" > <a href="#626"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#625-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#625-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return($rv == 0 ? $selected : 0) unless defined wantarray and wantarray; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="626">626</a> </td> <td class="c0" > <a href="#633"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#626-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return($rv == 0 ? $self->ra() : (0)); </td> </tr> <tr> <td class="h" > <a name="627">627</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="628">628</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="629">629</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --treeview <text> <height> <width> <list height> <tag1> <item1> <status1> <item_depth1> {<help1>}... </td> </tr> <tr> <td class="h" > <a name="630">630</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #:+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ </td> </tr> <tr> <td class="h" > <a name="631">631</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #: display a tree view of items </td> </tr> <tr> <td class="h" > <a name="632">632</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub treeview { </td> </tr> <tr> <td class="h" > <a name="633">633</a> </td> <td class="c0" > <a href="#634"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#633-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#633-1"> 1 </a> </td> <td >   </td> <td class="s"> my $self = shift(); </td> </tr> <tr> <td class="h" > <a name="634">634</a> </td> <td class="c0" > <a href="#635"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#634-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $caller = (caller(1))[3] || 'main'; </td> </tr> <tr> <td class="h" > <a name="635">635</a> </td> <td class="c0" > <a href="#636"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#635-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#635-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $caller = ($caller =~ /^UI\:\:Dialog\:\:Backend\:\:/) ? ((caller(2))[3]||'main') : $caller; </td> </tr> <tr> <td class="h" > <a name="636">636</a> </td> <td class="c0" > <a href="#637"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#636-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#636-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if ($_[0] && $_[0] eq 'caller') { </td> </tr> <tr> <td class="h" > <a name="637">637</a> </td> <td class="c0" > <a href="# "> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> shift(); $caller = shift(); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c0" > <a href="#639"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="638">638</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="639">639</a> </td> <td class="c0" > <a href="#641"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $args = $self->_pre($caller,@_); </td> </tr> <tr> <td class="h" > <a name="640">640</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="641">641</a> </td> <td class="c0" > <a href="#642"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#641-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{'treeview'} ||= 'treeview'; </td> </tr> <tr> <td class="h" > <a name="642">642</a> </td> <td class="c0" > <a href="#644"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#642-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{'listheight'} ||= $self->{'menuheight'}; </td> </tr> <tr> <td class="h" > <a name="643">643</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="644">644</a> </td> <td class="c0" > <a href="#645"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $fmt = $self->prepare_format($args); </td> </tr> <tr> <td class="h" > <a name="645">645</a> </td> <td class="c0" > <a href="#646"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_base($args,$fmt); </td> </tr> <tr> <td class="h" > <a name="646">646</a> </td> <td class="c0" > <a href="#647"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,'--separate-output --'.$self->{'treeview'}); </td> </tr> <tr> <td class="h" > <a name="647">647</a> </td> <td class="c0" > <a href="#650"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format('{{text}} {{height}} {{width}} {{listheight}} {{list}}'); </td> </tr> <tr> <td class="h" > <a name="648">648</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $command = $self->prepare_command </td> </tr> <tr> <td class="h" > <a name="649">649</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ( $args, $fmt, </td> </tr> <tr> <td class="h" > <a name="650">650</a> </td> <td class="c0" > <a href="#653"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> text => $self->make_kvt($args,$args->{'text'}), </td> </tr> <tr> <td class="h" > <a name="651">651</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ); </td> </tr> <tr> <td class="h" > <a name="652">652</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="653">653</a> </td> <td class="c0" > <a href="#654"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my ($rv,$selected) = $self->command_string($command); </td> </tr> <tr> <td class="h" > <a name="654">654</a> </td> <td class="c0" > <a href="#655"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->_post($args); </td> </tr> <tr> <td class="h" > <a name="655">655</a> </td> <td class="c0" > <a href="#662"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#655-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return($rv == 0 ? $selected : 0); </td> </tr> <tr> <td class="h" > <a name="656">656</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="657">657</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="658">658</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --calendar <text> <height> <width> <day> <month> <year> </td> </tr> <tr> <td class="h" > <a name="659">659</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #:+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ </td> </tr> <tr> <td class="h" > <a name="660">660</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #: display a calendar with a preset date </td> </tr> <tr> <td class="h" > <a name="661">661</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub calendar { </td> </tr> <tr> <td class="h" > <a name="662">662</a> </td> <td class="c0" > <a href="#663"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#662-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#662-1"> 1 </a> </td> <td >   </td> <td class="s"> my $self = shift(); </td> </tr> <tr> <td class="h" > <a name="663">663</a> </td> <td class="c0" > <a href="#664"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#663-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $caller = (caller(1))[3] || 'main'; </td> </tr> <tr> <td class="h" > <a name="664">664</a> </td> <td class="c0" > <a href="#665"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#664-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#664-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $caller = ($caller =~ /^UI\:\:Dialog\:\:Backend\:\:/) ? ((caller(2))[3]||'main') : $caller; </td> </tr> <tr> <td class="h" > <a name="665">665</a> </td> <td class="c0" > <a href="#666"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#665-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#665-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if ($_[0] && $_[0] eq 'caller') { </td> </tr> <tr> <td class="h" > <a name="666">666</a> </td> <td class="c0" > <a href="# "> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> shift(); $caller = shift(); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c0" > <a href="#668"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="667">667</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="668">668</a> </td> <td class="c0" > <a href="#669"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $args = $self->_pre($caller,@_); </td> </tr> <tr> <td class="h" > <a name="669">669</a> </td> <td class="c0" > <a href="#670"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#669-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $args->{'day'} ||= '1'; </td> </tr> <tr> <td class="h" > <a name="670">670</a> </td> <td class="c0" > <a href="#671"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#670-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $args->{'month'} ||= '1'; </td> </tr> <tr> <td class="h" > <a name="671">671</a> </td> <td class="c0" > <a href="#673"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#671-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $args->{'year'} ||= '1970'; </td> </tr> <tr> <td class="h" > <a name="672">672</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="673">673</a> </td> <td class="c0" > <a href="#674"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $fmt = $self->prepare_format($args); </td> </tr> <tr> <td class="h" > <a name="674">674</a> </td> <td class="c0" > <a href="#675"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_base($args,$fmt); </td> </tr> <tr> <td class="h" > <a name="675">675</a> </td> <td class="c0" > <a href="#678"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,'--separate-output --calendar {{text}} {{height}} {{width}} {{day}} {{month}} {{year}}'); </td> </tr> <tr> <td class="h" > <a name="676">676</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $command = $self->prepare_command </td> </tr> <tr> <td class="h" > <a name="677">677</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ( $args, $fmt, </td> </tr> <tr> <td class="h" > <a name="678">678</a> </td> <td class="c0" > <a href="#681"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> text => $self->make_kvt($args,$args->{'text'}), </td> </tr> <tr> <td class="h" > <a name="679">679</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ); </td> </tr> <tr> <td class="h" > <a name="680">680</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="681">681</a> </td> <td class="c0" > <a href="#682"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my ($rv,$date) = $self->command_string($command); </td> </tr> <tr> <td class="h" > <a name="682">682</a> </td> <td class="c0" > <a href="#683"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#682-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if ($rv == 0) { </td> </tr> <tr> <td class="h" > <a name="683">683</a> </td> <td class="c0" > <a href="#685"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->ra(split(m!/!,$date)); </td> </tr> <tr> <td class="h" > <a name="684">684</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="685">685</a> </td> <td class="c0" > <a href="#686"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->_post($args); </td> </tr> <tr> <td class="h" > <a name="686">686</a> </td> <td class="c0" > <a href="#687"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#686-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#686-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return($rv == 0 ? $date : 0) unless defined wantarray and wantarray; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="687">687</a> </td> <td class="c0" > <a href="#694"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#687-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return($rv == 0 ? $self->ra() : (0,0,0)); </td> </tr> <tr> <td class="h" > <a name="688">688</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="689">689</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="690">690</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --timebox <text> <height> <width> </td> </tr> <tr> <td class="h" > <a name="691">691</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #:+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ </td> </tr> <tr> <td class="h" > <a name="692">692</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #: display a time box </td> </tr> <tr> <td class="h" > <a name="693">693</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub timebox { </td> </tr> <tr> <td class="h" > <a name="694">694</a> </td> <td class="c0" > <a href="#695"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#694-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#694-1"> 1 </a> </td> <td >   </td> <td class="s"> my $self = shift(); </td> </tr> <tr> <td class="h" > <a name="695">695</a> </td> <td class="c0" > <a href="#696"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#695-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $caller = (caller(1))[3] || 'main'; </td> </tr> <tr> <td class="h" > <a name="696">696</a> </td> <td class="c0" > <a href="#697"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#696-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#696-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $caller = ($caller =~ /^UI\:\:Dialog\:\:Backend\:\:/) ? ((caller(2))[3]||'main') : $caller; </td> </tr> <tr> <td class="h" > <a name="697">697</a> </td> <td class="c0" > <a href="#698"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#697-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#697-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if ($_[0] && $_[0] eq 'caller') { </td> </tr> <tr> <td class="h" > <a name="698">698</a> </td> <td class="c0" > <a href="# "> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> shift(); $caller = shift(); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c0" > <a href="#700"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="699">699</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="700">700</a> </td> <td class="c0" > <a href="#702"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $args = $self->_pre($caller,@_); </td> </tr> <tr> <td class="h" > <a name="701">701</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="702">702</a> </td> <td class="c0" > <a href="#703"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $fmt = $self->prepare_format($args); </td> </tr> <tr> <td class="h" > <a name="703">703</a> </td> <td class="c0" > <a href="#704"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_base($args,$fmt); </td> </tr> <tr> <td class="h" > <a name="704">704</a> </td> <td class="c0" > <a href="#707"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,'--separate-output --timebox {{text}} {{height}} {{width}} {{hour}} {{minute}} {{second}}'); </td> </tr> <tr> <td class="h" > <a name="705">705</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $command = $self->prepare_command </td> </tr> <tr> <td class="h" > <a name="706">706</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ( $args, $fmt, </td> </tr> <tr> <td class="h" > <a name="707">707</a> </td> <td class="c0" > <a href="#710"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> text => $self->make_kvt($args,$args->{'text'}), </td> </tr> <tr> <td class="h" > <a name="708">708</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ); </td> </tr> <tr> <td class="h" > <a name="709">709</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="710">710</a> </td> <td class="c0" > <a href="#711"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my ($rv,$time) = $self->command_string($command); </td> </tr> <tr> <td class="h" > <a name="711">711</a> </td> <td class="c0" > <a href="#712"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#711-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if ($rv == 0) { </td> </tr> <tr> <td class="h" > <a name="712">712</a> </td> <td class="c0" > <a href="#714"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->ra(split(m!\:!,$time)); </td> </tr> <tr> <td class="h" > <a name="713">713</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="714">714</a> </td> <td class="c0" > <a href="#715"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->_post($args); </td> </tr> <tr> <td class="h" > <a name="715">715</a> </td> <td class="c0" > <a href="#716"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#715-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#715-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return($rv == 0 ? $time : 0) unless defined wantarray and wantarray; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="716">716</a> </td> <td class="c0" > <a href="#723"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#716-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return($rv == 0 ? $self->ra() : (0,0,0)); </td> </tr> <tr> <td class="h" > <a name="717">717</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="718">718</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="719">719</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --yesno <text> <height> <width> </td> </tr> <tr> <td class="h" > <a name="720">720</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #:+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ </td> </tr> <tr> <td class="h" > <a name="721">721</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #: Ask a binary question (Yes/No) </td> </tr> <tr> <td class="h" > <a name="722">722</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub yesno { </td> </tr> <tr> <td class="h" > <a name="723">723</a> </td> <td class="c0" > <a href="#724"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#723-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#723-1"> 1 </a> </td> <td >   </td> <td class="s"> my $self = shift(); </td> </tr> <tr> <td class="h" > <a name="724">724</a> </td> <td class="c0" > <a href="#725"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#724-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $caller = (caller(1))[3] || 'main'; </td> </tr> <tr> <td class="h" > <a name="725">725</a> </td> <td class="c0" > <a href="#726"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#725-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#725-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $caller = ($caller =~ /^UI\:\:Dialog\:\:Backend\:\:/) ? ((caller(2))[3]||'main') : $caller; </td> </tr> <tr> <td class="h" > <a name="726">726</a> </td> <td class="c0" > <a href="#727"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#726-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#726-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if ($_[0] && $_[0] eq 'caller') { </td> </tr> <tr> <td class="h" > <a name="727">727</a> </td> <td class="c0" > <a href="# "> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> shift(); $caller = shift(); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c0" > <a href="#729"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="728">728</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="729">729</a> </td> <td class="c0" > <a href="#731"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $args = $self->_pre($caller,@_); </td> </tr> <tr> <td class="h" > <a name="730">730</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="731">731</a> </td> <td class="c0" > <a href="#732"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $fmt = $self->prepare_format($args); </td> </tr> <tr> <td class="h" > <a name="732">732</a> </td> <td class="c0" > <a href="#733"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_base($args,$fmt); </td> </tr> <tr> <td class="h" > <a name="733">733</a> </td> <td class="c0" > <a href="#736"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,'--yesno {{text}} {{height}} {{width}}'); </td> </tr> <tr> <td class="h" > <a name="734">734</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $command = $self->prepare_command </td> </tr> <tr> <td class="h" > <a name="735">735</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ( $args, $fmt, </td> </tr> <tr> <td class="h" > <a name="736">736</a> </td> <td class="c0" > <a href="#739"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> text => $self->make_kvt($args,$args->{'text'}), </td> </tr> <tr> <td class="h" > <a name="737">737</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ); </td> </tr> <tr> <td class="h" > <a name="738">738</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="739">739</a> </td> <td class="c0" > <a href="#740"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $rv = $self->command_state($command); </td> </tr> <tr> <td class="h" > <a name="740">740</a> </td> <td class="c0" > <a href="#741"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#740-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#740-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if ($rv && $rv >= 1) { </td> </tr> <tr> <td class="h" > <a name="741">741</a> </td> <td class="c0" > <a href="#742"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->ra("NO"); </td> </tr> <tr> <td class="h" > <a name="742">742</a> </td> <td class="c0" > <a href="#744"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->rs("NO"); </td> </tr> <tr> <td class="h" > <a name="743">743</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } else { </td> </tr> <tr> <td class="h" > <a name="744">744</a> </td> <td class="c0" > <a href="#745"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->ra("YES"); </td> </tr> <tr> <td class="h" > <a name="745">745</a> </td> <td class="c0" > <a href="#747"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->rs("YES"); </td> </tr> <tr> <td class="h" > <a name="746">746</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="747">747</a> </td> <td class="c0" > <a href="#748"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->_post($args); </td> </tr> <tr> <td class="h" > <a name="748">748</a> </td> <td class="c0" > <a href="#757"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#748-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return($rv == 0 ? 1 : 0); </td> </tr> <tr> <td class="h" > <a name="749">749</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="750">750</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="751">751</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --inputbox <text> <height> <width> [<init>] </td> </tr> <tr> <td class="h" > <a name="752">752</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --2inputsbox <text> <height> <width> <label1> <init1> <label2> <init2> </td> </tr> <tr> <td class="h" > <a name="753">753</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --3inputsbox <text> <height> <width> <label1> <init1> <label2> <init2> <label3> <init3> </td> </tr> <tr> <td class="h" > <a name="754">754</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #:+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ </td> </tr> <tr> <td class="h" > <a name="755">755</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #: Text entry </td> </tr> <tr> <td class="h" > <a name="756">756</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub inputbox { </td> </tr> <tr> <td class="h" > <a name="757">757</a> </td> <td class="c0" > <a href="#758"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#757-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#757-1"> 1 </a> </td> <td >   </td> <td class="s"> my $self = shift(); </td> </tr> <tr> <td class="h" > <a name="758">758</a> </td> <td class="c0" > <a href="#759"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#758-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $caller = (caller(1))[3] || 'main'; </td> </tr> <tr> <td class="h" > <a name="759">759</a> </td> <td class="c0" > <a href="#760"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#759-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#759-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $caller = ($caller =~ /^UI\:\:Dialog\:\:Backend\:\:/) ? ((caller(2))[3]||'main') : $caller; </td> </tr> <tr> <td class="h" > <a name="760">760</a> </td> <td class="c0" > <a href="#761"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#760-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#760-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if ($_[0] && $_[0] eq 'caller') { </td> </tr> <tr> <td class="h" > <a name="761">761</a> </td> <td class="c0" > <a href="# "> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> shift(); $caller = shift(); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c0" > <a href="#763"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="762">762</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="763">763</a> </td> <td class="c0" > <a href="#764"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $args = $self->_pre($caller,@_); </td> </tr> <tr> <td class="h" > <a name="764">764</a> </td> <td class="c0" > <a href="#766"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#764-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $num_fields = $args->{'inputs'} || $args->{'password'} || 1; </td> </tr> <tr> <td class="h" > <a name="765">765</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="766">766</a> </td> <td class="c0" > <a href="#767"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $fmt = $self->prepare_format($args); </td> </tr> <tr> <td class="h" > <a name="767">767</a> </td> <td class="c0" > <a href="#768"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_base($args,$fmt); </td> </tr> <tr> <td class="h" > <a name="768">768</a> </td> <td class="c0" > <a href="#769"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#768-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if ($num_fields > 1) { </td> </tr> <tr> <td class="h" > <a name="769">769</a> </td> <td class="c0" > <a href="#771"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,'--separate-output'); </td> </tr> <tr> <td class="h" > <a name="770">770</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="771">771</a> </td> <td class="c0" > <a href="#772"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_check($args,$fmt,'password','--password'); </td> </tr> <tr> <td class="h" > <a name="772">772</a> </td> <td class="c0" > <a href="#774"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#772-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_check($args,$fmt,'password','--password') </td> </tr> <tr> <td class="h" > <a name="773">773</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if $num_fields > 1; </td> </tr> <tr> <td class="h" > <a name="774">774</a> </td> <td class="c0" > <a href="#777"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#774-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_check($args,$fmt,'password','--password') </td> </tr> <tr> <td class="h" > <a name="775">775</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if $num_fields > 2; </td> </tr> <tr> <td class="h" > <a name="776">776</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="777">777</a> </td> <td class="c0" > <a href="#778"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $opbox = '--inputbox'; </td> </tr> <tr> <td class="h" > <a name="778">778</a> </td> <td class="c0" > <a href="#779"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#778-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $opbox = '--2inputsbox' if $num_fields == 2; </td> </tr> <tr> <td class="h" > <a name="779">779</a> </td> <td class="c0" > <a href="#781"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#779-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $opbox = '--3inputsbox' if $num_fields == 3; </td> </tr> <tr> <td class="h" > <a name="780">780</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="781">781</a> </td> <td class="c0" > <a href="#782"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,$opbox.' {{text}} {{height}} {{width}}'); </td> </tr> <tr> <td class="h" > <a name="782">782</a> </td> <td class="c0" > <a href="#784"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#782-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#782-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,shell_quote($args->{'entry'}||$args->{'init'})) </td> </tr> <tr> <td class="h" > <a name="783">783</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if $num_fields == 1; </td> </tr> <tr> <td class="h" > <a name="784">784</a> </td> <td class="c0" > <a href="#786"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#784-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#784-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,shell_quote($args->{'label1'}||'')) </td> </tr> <tr> <td class="h" > <a name="785">785</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if $num_fields > 1; </td> </tr> <tr> <td class="h" > <a name="786">786</a> </td> <td class="c0" > <a href="#788"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#786-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#786-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,shell_quote($args->{'input1'}||'')) </td> </tr> <tr> <td class="h" > <a name="787">787</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if $num_fields > 1; </td> </tr> <tr> <td class="h" > <a name="788">788</a> </td> <td class="c0" > <a href="#790"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#788-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#788-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,shell_quote($args->{'label2'}||'')) </td> </tr> <tr> <td class="h" > <a name="789">789</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if $num_fields >= 2; </td> </tr> <tr> <td class="h" > <a name="790">790</a> </td> <td class="c0" > <a href="#792"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#790-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#790-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,shell_quote($args->{'input2'}||'')) </td> </tr> <tr> <td class="h" > <a name="791">791</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if $num_fields >= 2; </td> </tr> <tr> <td class="h" > <a name="792">792</a> </td> <td class="c0" > <a href="#794"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#792-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#792-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,shell_quote($args->{'label3'}||'')) </td> </tr> <tr> <td class="h" > <a name="793">793</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if $num_fields >= 3; </td> </tr> <tr> <td class="h" > <a name="794">794</a> </td> <td class="c0" > <a href="#799"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#794-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#794-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,shell_quote($args->{'input3'}||'')) </td> </tr> <tr> <td class="h" > <a name="795">795</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if $num_fields >= 3; </td> </tr> <tr> <td class="h" > <a name="796">796</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="797">797</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $command = $self->prepare_command </td> </tr> <tr> <td class="h" > <a name="798">798</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ( $args, $fmt, </td> </tr> <tr> <td class="h" > <a name="799">799</a> </td> <td class="c0" > <a href="#802"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> text => $self->make_kvt($args,$args->{'text'}), </td> </tr> <tr> <td class="h" > <a name="800">800</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ); </td> </tr> <tr> <td class="h" > <a name="801">801</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="802">802</a> </td> <td class="c0" > <a href="#803"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my ($rv,$text); </td> </tr> <tr> <td class="h" > <a name="803">803</a> </td> <td class="c0" > <a href="#804"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#803-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if ($num_fields == 1) { </td> </tr> <tr> <td class="h" > <a name="804">804</a> </td> <td class="c0" > <a href="#805"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ($rv,$text) = $self->command_string($command); </td> </tr> <tr> <td class="h" > <a name="805">805</a> </td> <td class="c0" > <a href="#807"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#805-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return($rv == 0 ? $text : 0); </td> </tr> <tr> <td class="h" > <a name="806">806</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="807">807</a> </td> <td class="c0" > <a href="#808"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ($rv,$text) = $self->command_array($command); </td> </tr> <tr> <td class="h" > <a name="808">808</a> </td> <td class="c0" > <a href="#809"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->_post($args); </td> </tr> <tr> <td class="h" > <a name="809">809</a> </td> <td class="c0" > <a href="#810"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#809-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#809-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return($rv == 0 ? $text : 0) unless defined wantarray and wantarray; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="810">810</a> </td> <td class="c0" > <a href="#813"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#810-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return($rv == 0 ? $self->ra() : (0)); </td> </tr> <tr> <td class="h" > <a name="811">811</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="812">812</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub inputsbox2 { </td> </tr> <tr> <td class="h" > <a name="813">813</a> </td> <td class="c0" > <a href="#814"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#813-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#813-1"> 1 </a> </td> <td >   </td> <td class="s"> my $self = shift(); </td> </tr> <tr> <td class="h" > <a name="814">814</a> </td> <td class="c0" > <a href="#817"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#814-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return($self->inputbox('caller',((caller(1))[3]||'main'),@_,'inputs',2)); </td> </tr> <tr> <td class="h" > <a name="815">815</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="816">816</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub inputsbox3 { </td> </tr> <tr> <td class="h" > <a name="817">817</a> </td> <td class="c0" > <a href="#818"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#817-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#817-1"> 1 </a> </td> <td >   </td> <td class="s"> my $self = shift(); </td> </tr> <tr> <td class="h" > <a name="818">818</a> </td> <td class="c0" > <a href="#821"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#818-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return($self->inputbox('caller',((caller(1))[3]||'main'),@_,'inputs',3)); </td> </tr> <tr> <td class="h" > <a name="819">819</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="820">820</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub password { </td> </tr> <tr> <td class="h" > <a name="821">821</a> </td> <td class="c0" > <a href="#822"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#821-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#821-1"> 1 </a> </td> <td >   </td> <td class="s"> my $self = shift(); </td> </tr> <tr> <td class="h" > <a name="822">822</a> </td> <td class="c0" > <a href="#825"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#822-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return($self->inputbox('caller',((caller(1))[3]||'main'),@_,'password',1,'inputs',1)); </td> </tr> <tr> <td class="h" > <a name="823">823</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="824">824</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub passwords2 { </td> </tr> <tr> <td class="h" > <a name="825">825</a> </td> <td class="c0" > <a href="#826"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#825-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#825-1"> 1 </a> </td> <td >   </td> <td class="s"> my $self = shift(); </td> </tr> <tr> <td class="h" > <a name="826">826</a> </td> <td class="c0" > <a href="#829"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#826-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return($self->inputbox('caller',((caller(1))[3]||'main'),@_,'password',1,'inputs',2)); </td> </tr> <tr> <td class="h" > <a name="827">827</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="828">828</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub passwords3 { </td> </tr> <tr> <td class="h" > <a name="829">829</a> </td> <td class="c0" > <a href="#830"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#829-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#829-1"> 1 </a> </td> <td >   </td> <td class="s"> my $self = shift(); </td> </tr> <tr> <td class="h" > <a name="830">830</a> </td> <td class="c0" > <a href="#837"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#830-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return($self->inputbox('caller',((caller(1))[3]||'main'),@_,'password',1,'inputs',3)); </td> </tr> <tr> <td class="h" > <a name="831">831</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="832">832</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="833">833</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --msgbox <text> <height> <width> </td> </tr> <tr> <td class="h" > <a name="834">834</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #:+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ </td> </tr> <tr> <td class="h" > <a name="835">835</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #: Text box </td> </tr> <tr> <td class="h" > <a name="836">836</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub msgbox { </td> </tr> <tr> <td class="h" > <a name="837">837</a> </td> <td class="c0" > <a href="#838"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#837-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#837-1"> 1 </a> </td> <td >   </td> <td class="s"> my $self = shift(); </td> </tr> <tr> <td class="h" > <a name="838">838</a> </td> <td class="c0" > <a href="#839"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#838-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $caller = (caller(1))[3] || 'main'; </td> </tr> <tr> <td class="h" > <a name="839">839</a> </td> <td class="c0" > <a href="#840"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#839-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#839-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $caller = ($caller =~ /^UI\:\:Dialog\:\:Backend\:\:/) ? ((caller(2))[3]||'main') : $caller; </td> </tr> <tr> <td class="h" > <a name="840">840</a> </td> <td class="c0" > <a href="#841"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#840-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#840-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if ($_[0] && $_[0] eq 'caller') { </td> </tr> <tr> <td class="h" > <a name="841">841</a> </td> <td class="c0" > <a href="# "> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> shift(); $caller = shift(); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c0" > <a href="#843"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="842">842</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="843">843</a> </td> <td class="c0" > <a href="#845"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $args = $self->_pre($caller,@_); </td> </tr> <tr> <td class="h" > <a name="844">844</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="845">845</a> </td> <td class="c0" > <a href="#847"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#845-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $args->{'msgbox'} ||= 'msgbox'; </td> </tr> <tr> <td class="h" > <a name="846">846</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="847">847</a> </td> <td class="c0" > <a href="#848"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $fmt = $self->prepare_format($args); </td> </tr> <tr> <td class="h" > <a name="848">848</a> </td> <td class="c0" > <a href="#849"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_base($args,$fmt); </td> </tr> <tr> <td class="h" > <a name="849">849</a> </td> <td class="c0" > <a href="#850"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,'--'.$args->{'msgbox'}); </td> </tr> <tr> <td class="h" > <a name="850">850</a> </td> <td class="c0" > <a href="#851"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,'{{text}} {{height}} {{width}}'); </td> </tr> <tr> <td class="h" > <a name="851">851</a> </td> <td class="c0" > <a href="#853"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#851-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#851-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $wait = ($args->{'wait'} ? $args->{'wait'}*1000 : ($args->{'timeout'}||'5000')); </td> </tr> <tr> <td class="h" > <a name="852">852</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,shell_quote($wait)) </td> </tr> <tr> <td class="h" > <a name="853">853</a> </td> <td class="c0" > <a href="#856"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#853-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if $args->{'msgbox'} eq 'infobox'; </td> </tr> <tr> <td class="h" > <a name="854">854</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $command = $self->prepare_command </td> </tr> <tr> <td class="h" > <a name="855">855</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ( $args, $fmt, </td> </tr> <tr> <td class="h" > <a name="856">856</a> </td> <td class="c0" > <a href="#859"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> text => $self->make_kvt($args,$args->{'text'}), </td> </tr> <tr> <td class="h" > <a name="857">857</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ); </td> </tr> <tr> <td class="h" > <a name="858">858</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="859">859</a> </td> <td class="c0" > <a href="#860"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $rv = $self->command_state($command); </td> </tr> <tr> <td class="h" > <a name="860">860</a> </td> <td class="c0" > <a href="#861"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->_post($args); </td> </tr> <tr> <td class="h" > <a name="861">861</a> </td> <td class="c0" > <a href="#868"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#861-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return($rv == 0 ? 1 : 0); </td> </tr> <tr> <td class="h" > <a name="862">862</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="863">863</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="864">864</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --infobox <text> <height> <width> [<timeout>] </td> </tr> <tr> <td class="h" > <a name="865">865</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #:+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ </td> </tr> <tr> <td class="h" > <a name="866">866</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #: same as msgbox but destroy's itself with timeout... </td> </tr> <tr> <td class="h" > <a name="867">867</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub infobox { </td> </tr> <tr> <td class="h" > <a name="868">868</a> </td> <td class="c0" > <a href="#869"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#868-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#868-1"> 1 </a> </td> <td >   </td> <td class="s"> my $self = shift(); </td> </tr> <tr> <td class="h" > <a name="869">869</a> </td> <td class="c0" > <a href="#879"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#869-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return($self->msgbox('caller',((caller(1))[3]||'main'),@_,'msgbox','infobox')); </td> </tr> <tr> <td class="h" > <a name="870">870</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="871">871</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="872">872</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --editbox <file> <height> <width> </td> </tr> <tr> <td class="h" > <a name="873">873</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --tailbox <file> <height> <width> </td> </tr> <tr> <td class="h" > <a name="874">874</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --logbox <file> <height> <width> </td> </tr> <tr> <td class="h" > <a name="875">875</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --textbox <file> <height> <width> </td> </tr> <tr> <td class="h" > <a name="876">876</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #:+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ </td> </tr> <tr> <td class="h" > <a name="877">877</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #: File box </td> </tr> <tr> <td class="h" > <a name="878">878</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub textbox { </td> </tr> <tr> <td class="h" > <a name="879">879</a> </td> <td class="c0" > <a href="#880"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#879-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#879-1"> 1 </a> </td> <td >   </td> <td class="s"> my $self = shift(); </td> </tr> <tr> <td class="h" > <a name="880">880</a> </td> <td class="c0" > <a href="#881"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#880-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $caller = (caller(1))[3] || 'main'; </td> </tr> <tr> <td class="h" > <a name="881">881</a> </td> <td class="c0" > <a href="#882"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#881-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#881-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $caller = ($caller =~ /^UI\:\:Dialog\:\:Backend\:\:/) ? ((caller(2))[3]||'main') : $caller; </td> </tr> <tr> <td class="h" > <a name="882">882</a> </td> <td class="c0" > <a href="#883"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#882-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#882-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if ($_[0] && $_[0] eq 'caller') { </td> </tr> <tr> <td class="h" > <a name="883">883</a> </td> <td class="c0" > <a href="# "> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> shift(); $caller = shift(); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c0" > <a href="#885"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="884">884</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="885">885</a> </td> <td class="c0" > <a href="#887"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $args = $self->_pre($caller,@_); </td> </tr> <tr> <td class="h" > <a name="886">886</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="887">887</a> </td> <td class="c0" > <a href="#888"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#887-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $args->{'textbox'} ||= 'textbox'; </td> </tr> <tr> <td class="h" > <a name="888">888</a> </td> <td class="c0" > <a href="#890"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#888-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $args->{'filename'} ||= $args->{'path'}; </td> </tr> <tr> <td class="h" > <a name="889">889</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="890">890</a> </td> <td class="c0" > <a href="#891"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $fmt = $self->prepare_format($args); </td> </tr> <tr> <td class="h" > <a name="891">891</a> </td> <td class="c0" > <a href="#892"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_base($args,$fmt); </td> </tr> <tr> <td class="h" > <a name="892">892</a> </td> <td class="c0" > <a href="#893"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,'--'.$args->{'textbox'}); </td> </tr> <tr> <td class="h" > <a name="893">893</a> </td> <td class="c0" > <a href="#896"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,'{{filename}} {{height}} {{width}}'); </td> </tr> <tr> <td class="h" > <a name="894">894</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $command = $self->prepare_command </td> </tr> <tr> <td class="h" > <a name="895">895</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ( $args, $fmt, </td> </tr> <tr> <td class="h" > <a name="896">896</a> </td> <td class="c0" > <a href="#899"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> filename => $self->make_kvl($args,$args->{'filename'}), </td> </tr> <tr> <td class="h" > <a name="897">897</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ); </td> </tr> <tr> <td class="h" > <a name="898">898</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="899">899</a> </td> <td class="c0" > <a href="#900"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my ($rv,$text) = $self->command_string($command); </td> </tr> <tr> <td class="h" > <a name="900">900</a> </td> <td class="c0" > <a href="#901"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->_post($args); </td> </tr> <tr> <td class="h" > <a name="901">901</a> </td> <td class="c0" > <a href="#902"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#901-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#901-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return($rv == 0 ? $text : 0) unless defined wantarray and wantarray; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="902">902</a> </td> <td class="c0" > <a href="#905"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#902-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return($rv == 0 ? $self->ra() : (0)); </td> </tr> <tr> <td class="h" > <a name="903">903</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="904">904</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub editbox { </td> </tr> <tr> <td class="h" > <a name="905">905</a> </td> <td class="c0" > <a href="#906"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#905-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#905-1"> 1 </a> </td> <td >   </td> <td class="s"> my $self = shift(); </td> </tr> <tr> <td class="h" > <a name="906">906</a> </td> <td class="c0" > <a href="#909"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#906-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return($self->textbox('caller',((caller(1))[3]||'main'),@_,'textbox','editbox')); </td> </tr> <tr> <td class="h" > <a name="907">907</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="908">908</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub logbox { </td> </tr> <tr> <td class="h" > <a name="909">909</a> </td> <td class="c0" > <a href="#910"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#909-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#909-1"> 1 </a> </td> <td >   </td> <td class="s"> my $self = shift(); </td> </tr> <tr> <td class="h" > <a name="910">910</a> </td> <td class="c0" > <a href="#913"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#910-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return($self->textbox('caller',((caller(1))[3]||'main'),@_,'textbox','logbox')); </td> </tr> <tr> <td class="h" > <a name="911">911</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="912">912</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub tailbox { </td> </tr> <tr> <td class="h" > <a name="913">913</a> </td> <td class="c0" > <a href="#914"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#913-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#913-1"> 1 </a> </td> <td >   </td> <td class="s"> my $self = shift(); </td> </tr> <tr> <td class="h" > <a name="914">914</a> </td> <td class="c0" > <a href="#921"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#914-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return($self->textbox('caller',((caller(1))[3]||'main'),@_,'textbox','tailbox')); </td> </tr> <tr> <td class="h" > <a name="915">915</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="916">916</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="917">917</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --menubox <text> <height> <width> <menu height> <tag1> <item1> {<help1>}... </td> </tr> <tr> <td class="h" > <a name="918">918</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #:+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ </td> </tr> <tr> <td class="h" > <a name="919">919</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #: Lists </td> </tr> <tr> <td class="h" > <a name="920">920</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub menu { </td> </tr> <tr> <td class="h" > <a name="921">921</a> </td> <td class="c0" > <a href="#922"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#921-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#921-1"> 1 </a> </td> <td >   </td> <td class="s"> my $self = shift(); </td> </tr> <tr> <td class="h" > <a name="922">922</a> </td> <td class="c0" > <a href="#923"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#922-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $caller = (caller(1))[3] || 'main'; </td> </tr> <tr> <td class="h" > <a name="923">923</a> </td> <td class="c0" > <a href="#924"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#923-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#923-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $caller = ($caller =~ /^UI\:\:Dialog\:\:Backend\:\:/) ? ((caller(2))[3]||'main') : $caller; </td> </tr> <tr> <td class="h" > <a name="924">924</a> </td> <td class="c0" > <a href="#925"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#924-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#924-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if ($_[0] && $_[0] eq 'caller') { </td> </tr> <tr> <td class="h" > <a name="925">925</a> </td> <td class="c0" > <a href="# "> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> shift(); $caller = shift(); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c0" > <a href="#927"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="926">926</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="927">927</a> </td> <td class="c0" > <a href="#929"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $args = $self->_pre($caller,@_); </td> </tr> <tr> <td class="h" > <a name="928">928</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="929">929</a> </td> <td class="c0" > <a href="#930"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $fmt = $self->prepare_format($args); </td> </tr> <tr> <td class="h" > <a name="930">930</a> </td> <td class="c0" > <a href="#931"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_base($args,$fmt); </td> </tr> <tr> <td class="h" > <a name="931">931</a> </td> <td class="c0" > <a href="#932"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,'--separate-output --menu'); </td> </tr> <tr> <td class="h" > <a name="932">932</a> </td> <td class="c0" > <a href="#935"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,'{{text}} {{height}} {{width}} {{listheight}} {{list}}'); </td> </tr> <tr> <td class="h" > <a name="933">933</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $command = $self->prepare_command </td> </tr> <tr> <td class="h" > <a name="934">934</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ( $args, $fmt, </td> </tr> <tr> <td class="h" > <a name="935">935</a> </td> <td class="c0" > <a href="#938"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> text => $self->make_kvt($args,$args->{'text'}), </td> </tr> <tr> <td class="h" > <a name="936">936</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ); </td> </tr> <tr> <td class="h" > <a name="937">937</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="938">938</a> </td> <td class="c0" > <a href="#939"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my ($rv,$selected) = $self->command_string($command); </td> </tr> <tr> <td class="h" > <a name="939">939</a> </td> <td class="c0" > <a href="#940"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->_post($args); </td> </tr> <tr> <td class="h" > <a name="940">940</a> </td> <td class="c0" > <a href="#947"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#940-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return($rv == 0 ? $selected : 0); </td> </tr> <tr> <td class="h" > <a name="941">941</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="942">942</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="943">943</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --checklist <text> <height> <width> <list height> <tag1> <item1> <status1> {<help1>}... </td> </tr> <tr> <td class="h" > <a name="944">944</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #:+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ </td> </tr> <tr> <td class="h" > <a name="945">945</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #: multiple selection list via checkbox widgets </td> </tr> <tr> <td class="h" > <a name="946">946</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub checklist { </td> </tr> <tr> <td class="h" > <a name="947">947</a> </td> <td class="c0" > <a href="#948"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#947-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#947-1"> 1 </a> </td> <td >   </td> <td class="s"> my $self = shift(); </td> </tr> <tr> <td class="h" > <a name="948">948</a> </td> <td class="c0" > <a href="#949"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#948-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $caller = (caller(1))[3] || 'main'; </td> </tr> <tr> <td class="h" > <a name="949">949</a> </td> <td class="c0" > <a href="#950"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#949-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#949-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $caller = ($caller =~ /^UI\:\:Dialog\:\:Backend\:\:/) ? ((caller(2))[3]||'main') : $caller; </td> </tr> <tr> <td class="h" > <a name="950">950</a> </td> <td class="c0" > <a href="#951"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#950-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#950-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if ($_[0] && $_[0] eq 'caller') { </td> </tr> <tr> <td class="h" > <a name="951">951</a> </td> <td class="c0" > <a href="# "> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> shift(); $caller = shift(); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c0" > <a href="#953"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="952">952</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="953">953</a> </td> <td class="c0" > <a href="#955"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $args = $self->_pre($caller,@_); </td> </tr> <tr> <td class="h" > <a name="954">954</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="955">955</a> </td> <td class="c0" > <a href="#957"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#955-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{'checklist'} ||= 'checklist'; </td> </tr> <tr> <td class="h" > <a name="956">956</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="957">957</a> </td> <td class="c0" > <a href="#958"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $fmt = $self->prepare_format($args); </td> </tr> <tr> <td class="h" > <a name="958">958</a> </td> <td class="c0" > <a href="#959"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_base($args,$fmt); </td> </tr> <tr> <td class="h" > <a name="959">959</a> </td> <td class="c0" > <a href="#960"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,'--separate-output --'.$self->{'checklist'}); </td> </tr> <tr> <td class="h" > <a name="960">960</a> </td> <td class="c0" > <a href="#963"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,'{{text}} {{height}} {{width}} {{listheight}} {{list}}'); </td> </tr> <tr> <td class="h" > <a name="961">961</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $command = $self->prepare_command </td> </tr> <tr> <td class="h" > <a name="962">962</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ( $args, $fmt, </td> </tr> <tr> <td class="h" > <a name="963">963</a> </td> <td class="c0" > <a href="#966"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> text => $self->make_kvt($args,$args->{'text'}), </td> </tr> <tr> <td class="h" > <a name="964">964</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ); </td> </tr> <tr> <td class="h" > <a name="965">965</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="966">966</a> </td> <td class="c0" > <a href="#967"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my ($rv,$selected) = $self->command_array($command); </td> </tr> <tr> <td class="h" > <a name="967">967</a> </td> <td class="c0" > <a href="#968"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->_post($args); </td> </tr> <tr> <td class="h" > <a name="968">968</a> </td> <td class="c0" > <a href="#969"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#968-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#968-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return($rv == 0 ? $selected : 0) unless defined wantarray and wantarray; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="969">969</a> </td> <td class="c0" > <a href="#976"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#969-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return($rv == 0 ? $self->ra() : (0)); </td> </tr> <tr> <td class="h" > <a name="970">970</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="971">971</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="972">972</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --radiolist <text> <height> <width> <list height> <tag1> <item1> <status1> {<help1>}... </td> </tr> <tr> <td class="h" > <a name="973">973</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #:+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ </td> </tr> <tr> <td class="h" > <a name="974">974</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #: display a list via the radiolist widget </td> </tr> <tr> <td class="h" > <a name="975">975</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub radiolist { </td> </tr> <tr> <td class="h" > <a name="976">976</a> </td> <td class="c0" > <a href="#977"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#976-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#976-1"> 1 </a> </td> <td >   </td> <td class="s"> my $self = shift(); </td> </tr> <tr> <td class="h" > <a name="977">977</a> </td> <td class="c0" > <a href="#978"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#977-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $caller = (caller(1))[3] || 'main'; </td> </tr> <tr> <td class="h" > <a name="978">978</a> </td> <td class="c0" > <a href="#979"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#978-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#978-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $caller = ($caller =~ /^UI\:\:Dialog\:\:Backend\:\:/) ? ((caller(2))[3]||'main') : $caller; </td> </tr> <tr> <td class="h" > <a name="979">979</a> </td> <td class="c0" > <a href="#980"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#979-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#979-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if ($_[0] && $_[0] eq 'caller') { </td> </tr> <tr> <td class="h" > <a name="980">980</a> </td> <td class="c0" > <a href="# "> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> shift(); $caller = shift(); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c0" > <a href="#982"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="981">981</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="982">982</a> </td> <td class="c0" > <a href="#984"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $args = $self->_pre($caller,@_); </td> </tr> <tr> <td class="h" > <a name="983">983</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="984">984</a> </td> <td class="c0" > <a href="#986"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#984-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{'radiolist'} ||= 'radiolist'; </td> </tr> <tr> <td class="h" > <a name="985">985</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="986">986</a> </td> <td class="c0" > <a href="#987"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $fmt = $self->prepare_format($args); </td> </tr> <tr> <td class="h" > <a name="987">987</a> </td> <td class="c0" > <a href="#988"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_base($args,$fmt); </td> </tr> <tr> <td class="h" > <a name="988">988</a> </td> <td class="c0" > <a href="#989"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,'--separate-output --'.$self->{'radiolist'}); </td> </tr> <tr> <td class="h" > <a name="989">989</a> </td> <td class="c0" > <a href="#992"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,'{{text}} {{height}} {{width}} {{listheight}} {{list}}'); </td> </tr> <tr> <td class="h" > <a name="990">990</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $command = $self->prepare_command </td> </tr> <tr> <td class="h" > <a name="991">991</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ( $args, $fmt, </td> </tr> <tr> <td class="h" > <a name="992">992</a> </td> <td class="c0" > <a href="#995"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> text => $self->make_kvt($args,$args->{'text'}), </td> </tr> <tr> <td class="h" > <a name="993">993</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ); </td> </tr> <tr> <td class="h" > <a name="994">994</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="995">995</a> </td> <td class="c0" > <a href="#996"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my ($rv,$selected) = $self->command_string($command); </td> </tr> <tr> <td class="h" > <a name="996">996</a> </td> <td class="c0" > <a href="#997"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->_post($args); </td> </tr> <tr> <td class="h" > <a name="997">997</a> </td> <td class="c0" > <a href="#1004"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#997-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return($rv == 0 ? $selected : 0); </td> </tr> <tr> <td class="h" > <a name="998">998</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="999">999</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1000">1000</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --fselect <file> <height> <width> </td> </tr> <tr> <td class="h" > <a name="1001">1001</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #:+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ </td> </tr> <tr> <td class="h" > <a name="1002">1002</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #: file select </td> </tr> <tr> <td class="h" > <a name="1003">1003</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub fselect { </td> </tr> <tr> <td class="h" > <a name="1004">1004</a> </td> <td class="c0" > <a href="#1005"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#1004-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#1004-1"> 1 </a> </td> <td >   </td> <td class="s"> my $self = shift(); </td> </tr> <tr> <td class="h" > <a name="1005">1005</a> </td> <td class="c0" > <a href="#1006"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#1005-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $caller = (caller(1))[3] || 'main'; </td> </tr> <tr> <td class="h" > <a name="1006">1006</a> </td> <td class="c0" > <a href="#1007"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#1006-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#1006-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $caller = ($caller =~ /^UI\:\:Dialog\:\:Backend\:\:/) ? ((caller(2))[3]||'main') : $caller; </td> </tr> <tr> <td class="h" > <a name="1007">1007</a> </td> <td class="c0" > <a href="#1008"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#1007-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#1007-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if ($_[0] && $_[0] eq 'caller') { </td> </tr> <tr> <td class="h" > <a name="1008">1008</a> </td> <td class="c0" > <a href="# "> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> shift(); $caller = shift(); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c0" > <a href="#1010"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1009">1009</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1010">1010</a> </td> <td class="c0" > <a href="#1011"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $args = $self->_pre($caller,@_); </td> </tr> <tr> <td class="h" > <a name="1011">1011</a> </td> <td class="c0" > <a href="#1013"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#1011-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $args->{'path'} ||= abs_path(); </td> </tr> <tr> <td class="h" > <a name="1012">1012</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1013">1013</a> </td> <td class="c0" > <a href="#1014"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $fmt = $self->prepare_format($args); </td> </tr> <tr> <td class="h" > <a name="1014">1014</a> </td> <td class="c0" > <a href="#1015"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_base($args,$fmt); </td> </tr> <tr> <td class="h" > <a name="1015">1015</a> </td> <td class="c0" > <a href="#1016"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,'--fselect'); </td> </tr> <tr> <td class="h" > <a name="1016">1016</a> </td> <td class="c0" > <a href="#1019"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,'{{path}} {{height}} {{width}}'); </td> </tr> <tr> <td class="h" > <a name="1017">1017</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $command = $self->prepare_command </td> </tr> <tr> <td class="h" > <a name="1018">1018</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ( $args, $fmt, </td> </tr> <tr> <td class="h" > <a name="1019">1019</a> </td> <td class="c0" > <a href="#1022"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> path => $self->make_kvl($args,$args->{'path'}), </td> </tr> <tr> <td class="h" > <a name="1020">1020</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ); </td> </tr> <tr> <td class="h" > <a name="1021">1021</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1022">1022</a> </td> <td class="c0" > <a href="#1023"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my ($rv,$selected) = $self->command_string($command); </td> </tr> <tr> <td class="h" > <a name="1023">1023</a> </td> <td class="c0" > <a href="#1024"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->_post($args); </td> </tr> <tr> <td class="h" > <a name="1024">1024</a> </td> <td class="c0" > <a href="#1031"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#1024-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return($rv == 0 ? $selected : 0); </td> </tr> <tr> <td class="h" > <a name="1025">1025</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1026">1026</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1027">1027</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --dselect <directory> <height> <width> </td> </tr> <tr> <td class="h" > <a name="1028">1028</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #:+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ </td> </tr> <tr> <td class="h" > <a name="1029">1029</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #: directory selector </td> </tr> <tr> <td class="h" > <a name="1030">1030</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub dselect { </td> </tr> <tr> <td class="h" > <a name="1031">1031</a> </td> <td class="c0" > <a href="#1032"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#1031-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#1031-1"> 1 </a> </td> <td >   </td> <td class="s"> my $self = shift(); </td> </tr> <tr> <td class="h" > <a name="1032">1032</a> </td> <td class="c0" > <a href="#1033"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#1032-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $caller = (caller(1))[3] || 'main'; </td> </tr> <tr> <td class="h" > <a name="1033">1033</a> </td> <td class="c0" > <a href="#1034"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#1033-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#1033-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $caller = ($caller =~ /^UI\:\:Dialog\:\:Backend\:\:/) ? ((caller(2))[3]||'main') : $caller; </td> </tr> <tr> <td class="h" > <a name="1034">1034</a> </td> <td class="c0" > <a href="#1035"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#1034-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#1034-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if ($_[0] && $_[0] eq 'caller') { </td> </tr> <tr> <td class="h" > <a name="1035">1035</a> </td> <td class="c0" > <a href="# "> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> shift(); $caller = shift(); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c0" > <a href="#1037"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1036">1036</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1037">1037</a> </td> <td class="c0" > <a href="#1038"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $args = $self->_pre($caller,@_); </td> </tr> <tr> <td class="h" > <a name="1038">1038</a> </td> <td class="c0" > <a href="#1040"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#1038-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $args->{'path'} ||= abs_path(); </td> </tr> <tr> <td class="h" > <a name="1039">1039</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1040">1040</a> </td> <td class="c0" > <a href="#1041"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $fmt = $self->prepare_format($args); </td> </tr> <tr> <td class="h" > <a name="1041">1041</a> </td> <td class="c0" > <a href="#1042"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_base($args,$fmt); </td> </tr> <tr> <td class="h" > <a name="1042">1042</a> </td> <td class="c0" > <a href="#1043"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,'--dselect'); </td> </tr> <tr> <td class="h" > <a name="1043">1043</a> </td> <td class="c0" > <a href="#1046"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,'{{path}} {{height}} {{width}}'); </td> </tr> <tr> <td class="h" > <a name="1044">1044</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $command = $self->prepare_command </td> </tr> <tr> <td class="h" > <a name="1045">1045</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ( $args, $fmt, </td> </tr> <tr> <td class="h" > <a name="1046">1046</a> </td> <td class="c0" > <a href="#1049"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> path => $self->make_kvl($args,$args->{'path'}), </td> </tr> <tr> <td class="h" > <a name="1047">1047</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ); </td> </tr> <tr> <td class="h" > <a name="1048">1048</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1049">1049</a> </td> <td class="c0" > <a href="#1050"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my ($rv,$selected) = $self->command_string($command); </td> </tr> <tr> <td class="h" > <a name="1050">1050</a> </td> <td class="c0" > <a href="#1051"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->_post($args); </td> </tr> <tr> <td class="h" > <a name="1051">1051</a> </td> <td class="c0" > <a href="#1059"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#1051-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return($rv == 0 ? $selected : 0); </td> </tr> <tr> <td class="h" > <a name="1052">1052</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1053">1053</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1054">1054</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --gauge <text> <height> <width> [<percent>] </td> </tr> <tr> <td class="h" > <a name="1055">1055</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> # --progress <text> <height> <width> [<maxdots> [[-]<msglen>]] </td> </tr> <tr> <td class="h" > <a name="1056">1056</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #:+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ </td> </tr> <tr> <td class="h" > <a name="1057">1057</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> #: progress meter </td> </tr> <tr> <td class="h" > <a name="1058">1058</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub progress_start { </td> </tr> <tr> <td class="h" > <a name="1059">1059</a> </td> <td class="c0" > <a href="#1060"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#1059-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#1059-1"> 1 </a> </td> <td >   </td> <td class="s"> my $self = shift(); </td> </tr> <tr> <td class="h" > <a name="1060">1060</a> </td> <td class="c0" > <a href="#1061"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#1060-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $caller = (caller(1))[3] || 'main'; </td> </tr> <tr> <td class="h" > <a name="1061">1061</a> </td> <td class="c0" > <a href="#1062"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#1061-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#1061-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $caller = ($caller =~ /^UI\:\:Dialog\:\:Backend\:\:/) ? ((caller(2))[3]||'main') : $caller; </td> </tr> <tr> <td class="h" > <a name="1062">1062</a> </td> <td class="c0" > <a href="#1063"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#1062-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#1062-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if ($_[0] && $_[0] eq 'caller') { </td> </tr> <tr> <td class="h" > <a name="1063">1063</a> </td> <td class="c0" > <a href="# "> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> shift(); $caller = shift(); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c0" > <a href="#1065"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1064">1064</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1065">1065</a> </td> <td class="c0" > <a href="#1067"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $args = $self->_pre($caller,@_); </td> </tr> <tr> <td class="h" > <a name="1066">1066</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1067">1067</a> </td> <td class="c0" > <a href="#1068"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#1067-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{'_PROGRESS'} ||= {}; </td> </tr> <tr> <td class="h" > <a name="1068">1068</a> </td> <td class="c0" > <a href="#1070"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{'_PROGRESS'}->{'ARGS'} = $args; </td> </tr> <tr> <td class="h" > <a name="1069">1069</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1070">1070</a> </td> <td class="c0" > <a href="#1071"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#1070-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if (defined $self->{'_PROGRESS'}->{'FH'}) { </td> </tr> <tr> <td class="h" > <a name="1071">1071</a> </td> <td class="c0" > <a href="#1072"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->rv(129); </td> </tr> <tr> <td class="h" > <a name="1072">1072</a> </td> <td class="c0" > <a href="#1073"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->_post($args); </td> </tr> <tr> <td class="h" > <a name="1073">1073</a> </td> <td class="c0" > <a href="#1076"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return(0); </td> </tr> <tr> <td class="h" > <a name="1074">1074</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1075">1075</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1076">1076</a> </td> <td class="c0" > <a href="#1077"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $fmt = $self->prepare_format($args); </td> </tr> <tr> <td class="h" > <a name="1077">1077</a> </td> <td class="c0" > <a href="#1078"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_base($args,$fmt); </td> </tr> <tr> <td class="h" > <a name="1078">1078</a> </td> <td class="c0" > <a href="#1079"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,'--progress'); </td> </tr> <tr> <td class="h" > <a name="1079">1079</a> </td> <td class="c0" > <a href="#1081"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,'{{text}} {{height}} {{width}}'); </td> </tr> <tr> <td class="h" > <a name="1080">1080</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,shell_quote($args->{'maxdots'}||'')) </td> </tr> <tr> <td class="h" > <a name="1081">1081</a> </td> <td class="c0" > <a href="#1083"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#1081-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#1081-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if $args->{'maxdots'} or $args->{'msglen'}; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#-2"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1082">1082</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,shell_quote($args->{'msglen'}||'')) </td> </tr> <tr> <td class="h" > <a name="1083">1083</a> </td> <td class="c0" > <a href="#1086"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#1083-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#1083-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if $args->{'msglen'}; </td> </tr> <tr> <td class="h" > <a name="1084">1084</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $command = $self->prepare_command </td> </tr> <tr> <td class="h" > <a name="1085">1085</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ( $args, $fmt, </td> </tr> <tr> <td class="h" > <a name="1086">1086</a> </td> <td class="c0" > <a href="#1089"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> text => $self->make_kvt($args,$args->{'text'}), </td> </tr> <tr> <td class="h" > <a name="1087">1087</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ); </td> </tr> <tr> <td class="h" > <a name="1088">1088</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1089">1089</a> </td> <td class="c0" > <a href="#1091"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#1089-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{'_PROGRESS'}->{'PERCENT'} = ($args->{'percentage'} || '0'); </td> </tr> <tr> <td class="h" > <a name="1090">1090</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1091">1091</a> </td> <td class="c0" > <a href="#1092"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->_debug("command: ".$command,2); </td> </tr> <tr> <td class="h" > <a name="1092">1092</a> </td> <td class="c0" > <a href="#1093"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{'_PROGRESS'}->{'FH'} = new FileHandle; </td> </tr> <tr> <td class="h" > <a name="1093">1093</a> </td> <td class="c0" > <a href="#1094"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{'_PROGRESS'}->{'FH'}->open("| $command"); </td> </tr> <tr> <td class="h" > <a name="1094">1094</a> </td> <td class="c0" > <a href="#1095"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $rv = $? >> 8; </td> </tr> <tr> <td class="h" > <a name="1095">1095</a> </td> <td class="c0" > <a href="#1096"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{'_PROGRESS'}->{'FH'}->autoflush(1); </td> </tr> <tr> <td class="h" > <a name="1096">1096</a> </td> <td class="c0" > <a href="#1097"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#1096-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->rv($rv||'null'); </td> </tr> <tr> <td class="h" > <a name="1097">1097</a> </td> <td class="c0" > <a href="#1098"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->ra('null'); </td> </tr> <tr> <td class="h" > <a name="1098">1098</a> </td> <td class="c0" > <a href="#1099"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->rs('null'); </td> </tr> <tr> <td class="h" > <a name="1099">1099</a> </td> <td class="c0" > <a href="#1102"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#1099-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return($rv == 0 ? 1 : 0); </td> </tr> <tr> <td class="h" > <a name="1100">1100</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1101">1101</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub gauge_start { </td> </tr> <tr> <td class="h" > <a name="1102">1102</a> </td> <td class="c0" > <a href="#1103"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#1102-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#1102-1"> 1 </a> </td> <td >   </td> <td class="s"> my $self = shift(); </td> </tr> <tr> <td class="h" > <a name="1103">1103</a> </td> <td class="c0" > <a href="#1104"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#1103-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $caller = (caller(1))[3] || 'main'; </td> </tr> <tr> <td class="h" > <a name="1104">1104</a> </td> <td class="c0" > <a href="#1105"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#1104-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#1104-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $caller = ($caller =~ /^UI\:\:Dialog\:\:Backend\:\:/) ? ((caller(2))[3]||'main') : $caller; </td> </tr> <tr> <td class="h" > <a name="1105">1105</a> </td> <td class="c0" > <a href="#1106"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#1105-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#1105-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if ($_[0] && $_[0] eq 'caller') { </td> </tr> <tr> <td class="h" > <a name="1106">1106</a> </td> <td class="c0" > <a href="# "> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> shift(); $caller = shift(); </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c0" > <a href="#1108"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1107">1107</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1108">1108</a> </td> <td class="c0" > <a href="#1110"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $args = $self->_pre($caller,@_); </td> </tr> <tr> <td class="h" > <a name="1109">1109</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1110">1110</a> </td> <td class="c0" > <a href="#1111"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#1110-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{'_GAUGE'} ||= {}; </td> </tr> <tr> <td class="h" > <a name="1111">1111</a> </td> <td class="c0" > <a href="#1113"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{'_GAUGE'}->{'ARGS'} = $args; </td> </tr> <tr> <td class="h" > <a name="1112">1112</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1113">1113</a> </td> <td class="c0" > <a href="#1114"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#1113-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if (defined $self->{'_GAUGE'}->{'FH'}) { </td> </tr> <tr> <td class="h" > <a name="1114">1114</a> </td> <td class="c0" > <a href="#1115"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->rv(129); </td> </tr> <tr> <td class="h" > <a name="1115">1115</a> </td> <td class="c0" > <a href="#1116"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->_post($args); </td> </tr> <tr> <td class="h" > <a name="1116">1116</a> </td> <td class="c0" > <a href="#1118"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return(0); </td> </tr> <tr> <td class="h" > <a name="1117">1117</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1118">1118</a> </td> <td class="c0" > <a href="#1119"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $fmt = $self->prepare_format($args); </td> </tr> <tr> <td class="h" > <a name="1119">1119</a> </td> <td class="c0" > <a href="#1120"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format_base($args,$fmt); </td> </tr> <tr> <td class="h" > <a name="1120">1120</a> </td> <td class="c0" > <a href="#1121"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,'--progress'); </td> </tr> <tr> <td class="h" > <a name="1121">1121</a> </td> <td class="c0" > <a href="#1123"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,'{{text}} {{height}} {{width}} {{percentage}}'); </td> </tr> <tr> <td class="h" > <a name="1122">1122</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $fmt = $self->append_format($fmt,shell_quote($args->{'msglen'}||'')) </td> </tr> <tr> <td class="h" > <a name="1123">1123</a> </td> <td class="c0" > <a href="#1127"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#1123-1"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#1123-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> if $args->{'msglen'}; </td> </tr> <tr> <td class="h" > <a name="1124">1124</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $command = $self->prepare_command </td> </tr> <tr> <td class="h" > <a name="1125">1125</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ( $args, $fmt, </td> </tr> <tr> <td class="h" > <a name="1126">1126</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> text => $self->make_kvt($args,$args->{'text'}), </td> </tr> <tr> <td class="h" > <a name="1127">1127</a> </td> <td class="c0" > <a href="#1130"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#1127-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> percentage => $self->make_kvl($args,($args->{'percentage'}||'0')), </td> </tr> <tr> <td class="h" > <a name="1128">1128</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> ); </td> </tr> <tr> <td class="h" > <a name="1129">1129</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1130">1130</a> </td> <td class="c0" > <a href="#1132"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#1130-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{'_GAUGE'}->{'PERCENT'} = ($args->{'percentage'} || '0'); </td> </tr> <tr> <td class="h" > <a name="1131">1131</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1132">1132</a> </td> <td class="c0" > <a href="#1134"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->_debug("command: ".$command,2); </td> </tr> <tr> <td class="h" > <a name="1133">1133</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1134">1134</a> </td> <td class="c0" > <a href="#1135"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{'_GAUGE'}->{'FH'} = new FileHandle; </td> </tr> <tr> <td class="h" > <a name="1135">1135</a> </td> <td class="c0" > <a href="#1136"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{'_GAUGE'}->{'FH'}->open("| $command"); </td> </tr> <tr> <td class="h" > <a name="1136">1136</a> </td> <td class="c0" > <a href="#1137"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $rv = $? >> 8; </td> </tr> <tr> <td class="h" > <a name="1137">1137</a> </td> <td class="c0" > <a href="#1138"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{'_GAUGE'}->{'FH'}->autoflush(1); </td> </tr> <tr> <td class="h" > <a name="1138">1138</a> </td> <td class="c0" > <a href="#1139"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#1138-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->rv($rv||'null'); </td> </tr> <tr> <td class="h" > <a name="1139">1139</a> </td> <td class="c0" > <a href="#1140"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->ra('null'); </td> </tr> <tr> <td class="h" > <a name="1140">1140</a> </td> <td class="c0" > <a href="#1141"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->rs('null'); </td> </tr> <tr> <td class="h" > <a name="1141">1141</a> </td> <td class="c0" > <a href="#1144"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#1141-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return($rv == 0 ? 1 : 0); </td> </tr> <tr> <td class="h" > <a name="1142">1142</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1143">1143</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub progress_inc { </td> </tr> <tr> <td class="h" > <a name="1144">1144</a> </td> <td class="c0" > <a href="#1145"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#1144-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#1144-1"> 1 </a> </td> <td >   </td> <td class="s"> my $self = $_[0]; </td> </tr> <tr> <td class="h" > <a name="1145">1145</a> </td> <td class="c0" > <a href="#1147"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#1145-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $incr = $_[1] || 1; </td> </tr> <tr> <td class="h" > <a name="1146">1146</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1147">1147</a> </td> <td class="c0" > <a href="#1149"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#1147-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return(0) unless defined $self->{'_PROGRESS'}->{'FH'}; </td> </tr> <tr> <td class="h" > <a name="1148">1148</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1149">1149</a> </td> <td class="c0" > <a href="#1150"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $fh = $self->{'_PROGRESS'}->{'FH'}; </td> </tr> <tr> <td class="h" > <a name="1150">1150</a> </td> <td class="c0" > <a href="#1151"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{'_PROGRESS'}->{'PERCENT'} += $incr; </td> </tr> <tr> <td class="h" > <a name="1151">1151</a> </td> <td class="c0" > <a href="# "> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $SIG_CODE->{'PROGRESS'}->{$$} = $self; local $SIG{'PIPE'} = \&_del_progress; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c0" > <a href="#1152"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1152">1152</a> </td> <td class="c0" > <a href="#1153"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> print $fh $self->{'_PROGRESS'}->{'PERCENT'}."\n"; </td> </tr> <tr> <td class="h" > <a name="1153">1153</a> </td> <td class="c0" > <a href="#1156"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#1153-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return(((defined $self->{'_PROGRESS'}->{'FH'}) ? 1 : 0)); </td> </tr> <tr> <td class="h" > <a name="1154">1154</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1155">1155</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub gauge_inc { </td> </tr> <tr> <td class="h" > <a name="1156">1156</a> </td> <td class="c0" > <a href="#1157"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#1156-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#1156-1"> 1 </a> </td> <td >   </td> <td class="s"> my $self = $_[0]; </td> </tr> <tr> <td class="h" > <a name="1157">1157</a> </td> <td class="c0" > <a href="#1159"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#1157-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $incr = $_[1] || 1; </td> </tr> <tr> <td class="h" > <a name="1158">1158</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1159">1159</a> </td> <td class="c0" > <a href="#1161"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#1159-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return(0) unless defined $self->{'_GAUGE'}->{'FH'}; </td> </tr> <tr> <td class="h" > <a name="1160">1160</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1161">1161</a> </td> <td class="c0" > <a href="#1162"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $fh = $self->{'_GAUGE'}->{'FH'}; </td> </tr> <tr> <td class="h" > <a name="1162">1162</a> </td> <td class="c0" > <a href="#1163"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{'_GAUGE'}->{'PERCENT'} += $incr; </td> </tr> <tr> <td class="h" > <a name="1163">1163</a> </td> <td class="c0" > <a href="# "> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $SIG_CODE->{'GAUGE'}->{$$} = $self; local $SIG{'PIPE'} = \&_del_gauge; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c0" > <a href="#1164"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1164">1164</a> </td> <td class="c0" > <a href="#1165"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> print $fh $self->{'_GAUGE'}->{'PERCENT'}."\n"; </td> </tr> <tr> <td class="h" > <a name="1165">1165</a> </td> <td class="c0" > <a href="#1168"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#1165-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return(((defined $self->{'_GAUGE'}->{'FH'}) ? 1 : 0)); </td> </tr> <tr> <td class="h" > <a name="1166">1166</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1167">1167</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub progress_dec { </td> </tr> <tr> <td class="h" > <a name="1168">1168</a> </td> <td class="c0" > <a href="#1169"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#1168-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#1168-1"> 1 </a> </td> <td >   </td> <td class="s"> my $self = $_[0]; </td> </tr> <tr> <td class="h" > <a name="1169">1169</a> </td> <td class="c0" > <a href="#1171"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#1169-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $decr = $_[1] || 1; </td> </tr> <tr> <td class="h" > <a name="1170">1170</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1171">1171</a> </td> <td class="c0" > <a href="#1173"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#1171-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return(0) unless defined $self->{'_PROGRESS'}->{'FH'}; </td> </tr> <tr> <td class="h" > <a name="1172">1172</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1173">1173</a> </td> <td class="c0" > <a href="#1174"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $fh = $self->{'_PROGRESS'}->{'FH'}; </td> </tr> <tr> <td class="h" > <a name="1174">1174</a> </td> <td class="c0" > <a href="#1175"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{'_PROGRESS'}->{'PERCENT'} -= $decr; </td> </tr> <tr> <td class="h" > <a name="1175">1175</a> </td> <td class="c0" > <a href="# "> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $SIG_CODE->{'PROGRESS'}->{$$} = $self; local $SIG{'PIPE'} = \&_del_progress; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c0" > <a href="#1176"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1176">1176</a> </td> <td class="c0" > <a href="#1177"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> print $fh $self->{'_PROGRESS'}->{'PERCENT'}."\n"; </td> </tr> <tr> <td class="h" > <a name="1177">1177</a> </td> <td class="c0" > <a href="#1180"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#1177-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return(((defined $self->{'_PROGRESS'}->{'FH'}) ? 1 : 0)); </td> </tr> <tr> <td class="h" > <a name="1178">1178</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1179">1179</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub gauge_dec { </td> </tr> <tr> <td class="h" > <a name="1180">1180</a> </td> <td class="c0" > <a href="#1181"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#1180-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#1180-1"> 1 </a> </td> <td >   </td> <td class="s"> my $self = $_[0]; </td> </tr> <tr> <td class="h" > <a name="1181">1181</a> </td> <td class="c0" > <a href="#1183"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#1181-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $decr = $_[1] || 1; </td> </tr> <tr> <td class="h" > <a name="1182">1182</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1183">1183</a> </td> <td class="c0" > <a href="#1185"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#1183-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return(0) unless defined $self->{'_GAUGE'}->{'FH'}; </td> </tr> <tr> <td class="h" > <a name="1184">1184</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1185">1185</a> </td> <td class="c0" > <a href="#1186"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $fh = $self->{'_GAUGE'}->{'FH'}; </td> </tr> <tr> <td class="h" > <a name="1186">1186</a> </td> <td class="c0" > <a href="#1187"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{'_GAUGE'}->{'PERCENT'} -= $decr; </td> </tr> <tr> <td class="h" > <a name="1187">1187</a> </td> <td class="c0" > <a href="# "> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $SIG_CODE->{'GAUGE'}->{$$} = $self; local $SIG{'PIPE'} = \&_del_gauge; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c0" > <a href="#1188"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1188">1188</a> </td> <td class="c0" > <a href="#1189"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> print $fh $self->{'_GAUGE'}->{'PERCENT'}."\n"; </td> </tr> <tr> <td class="h" > <a name="1189">1189</a> </td> <td class="c0" > <a href="#1192"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#1189-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return(((defined $self->{'_GAUGE'}->{'FH'}) ? 1 : 0)); </td> </tr> <tr> <td class="h" > <a name="1190">1190</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1191">1191</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub progress_set { </td> </tr> <tr> <td class="h" > <a name="1192">1192</a> </td> <td class="c0" > <a href="#1193"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#1192-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#1192-1"> 1 </a> </td> <td >   </td> <td class="s"> my $self = $_[0]; </td> </tr> <tr> <td class="h" > <a name="1193">1193</a> </td> <td class="c0" > <a href="#1195"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#1193-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $perc = $_[1] || $self->{'_PROGRESS'}->{'PERCENT'} || 1; </td> </tr> <tr> <td class="h" > <a name="1194">1194</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1195">1195</a> </td> <td class="c0" > <a href="#1197"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#1195-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return(0) unless defined $self->{'_PROGRESS'}->{'FH'}; </td> </tr> <tr> <td class="h" > <a name="1196">1196</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1197">1197</a> </td> <td class="c0" > <a href="#1198"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $fh = $self->{'_PROGRESS'}->{'FH'}; </td> </tr> <tr> <td class="h" > <a name="1198">1198</a> </td> <td class="c0" > <a href="#1199"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{'_PROGRESS'}->{'PERCENT'} = $perc; </td> </tr> <tr> <td class="h" > <a name="1199">1199</a> </td> <td class="c0" > <a href="# "> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $SIG_CODE->{'PROGRESS'}->{$$} = $self; local $SIG{'PIPE'} = \&_del_progress; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c0" > <a href="#1200"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1200">1200</a> </td> <td class="c0" > <a href="#1201"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> print $fh $self->{'_PROGRESS'}->{'PERCENT'}."\n"; </td> </tr> <tr> <td class="h" > <a name="1201">1201</a> </td> <td class="c0" > <a href="#1204"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#1201-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return(((defined $self->{'_PROGRESS'}->{'FH'}) ? 1 : 0)); </td> </tr> <tr> <td class="h" > <a name="1202">1202</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1203">1203</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub gauge_set { </td> </tr> <tr> <td class="h" > <a name="1204">1204</a> </td> <td class="c0" > <a href="#1205"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#1204-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#1204-1"> 1 </a> </td> <td >   </td> <td class="s"> my $self = $_[0]; </td> </tr> <tr> <td class="h" > <a name="1205">1205</a> </td> <td class="c0" > <a href="#1207"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#1205-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $perc = $_[1] || $self->{'_GAUGE'}->{'PERCENT'} || 1; </td> </tr> <tr> <td class="h" > <a name="1206">1206</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1207">1207</a> </td> <td class="c0" > <a href="#1209"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#1207-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return(0) unless defined $self->{'_GAUGE'}->{'FH'}; </td> </tr> <tr> <td class="h" > <a name="1208">1208</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1209">1209</a> </td> <td class="c0" > <a href="#1210"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $fh = $self->{'_GAUGE'}->{'FH'}; </td> </tr> <tr> <td class="h" > <a name="1210">1210</a> </td> <td class="c0" > <a href="#1211"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{'_GAUGE'}->{'PERCENT'} = $perc; </td> </tr> <tr> <td class="h" > <a name="1211">1211</a> </td> <td class="c0" > <a href="# "> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $SIG_CODE->{'GAUGE'}->{$$} = $self; local $SIG{'PIPE'} = \&_del_gauge; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c0" > <a href="#1212"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1212">1212</a> </td> <td class="c0" > <a href="#1213"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> print $fh $self->{'_GAUGE'}->{'PERCENT'}."\n"; </td> </tr> <tr> <td class="h" > <a name="1213">1213</a> </td> <td class="c0" > <a href="#1216"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#1213-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return(((defined $self->{'_GAUGE'}->{'FH'}) ? 1 : 0)); </td> </tr> <tr> <td class="h" > <a name="1214">1214</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1215">1215</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub gauge_text { </td> </tr> <tr> <td class="h" > <a name="1216">1216</a> </td> <td class="c0" > <a href="#1217"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#1216-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#1216-1"> 1 </a> </td> <td >   </td> <td class="s"> my $self = $_[0]; </td> </tr> <tr> <td class="h" > <a name="1217">1217</a> </td> <td class="c0" > <a href="#1219"> 0 </a> </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--condition.html#1217-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $mesg = $_[1] || return(0); </td> </tr> <tr> <td class="h" > <a name="1218">1218</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1219">1219</a> </td> <td class="c0" > <a href="#1221"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#1219-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return(0) unless defined $self->{'_GAUGE'}->{'FH'}; </td> </tr> <tr> <td class="h" > <a name="1220">1220</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1221">1221</a> </td> <td class="c0" > <a href="#1222"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $fh = $self->{'_GAUGE'}->{'FH'}; </td> </tr> <tr> <td class="h" > <a name="1222">1222</a> </td> <td class="c0" > <a href="# "> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $SIG_CODE->{$$} = $self; local $SIG{'PIPE'} = \&_del_gauge; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c0" > <a href="#1223"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1223">1223</a> </td> <td class="c0" > <a href="#1224"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> print $fh "\nXXX\n\n".$mesg."\n\nXXX\n\n".$self->{'_GAUGE'}->{'PERCENT'}."\n"; </td> </tr> <tr> <td class="h" > <a name="1224">1224</a> </td> <td class="c0" > <a href="#1227"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#1224-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return(((defined $self->{'_GAUGE'}->{'FH'}) ? 1 : 0)); </td> </tr> <tr> <td class="h" > <a name="1225">1225</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1226">1226</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub progress_stop { </td> </tr> <tr> <td class="h" > <a name="1227">1227</a> </td> <td class="c0" > <a href="#1229"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#1227-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#1227-1"> 1 </a> </td> <td >   </td> <td class="s"> my $self = $_[0]; </td> </tr> <tr> <td class="h" > <a name="1228">1228</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1229">1229</a> </td> <td class="c0" > <a href="#1231"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#1229-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return(0) unless defined $self->{'_PROGRESS'}->{'FH'}; </td> </tr> <tr> <td class="h" > <a name="1230">1230</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1231">1231</a> </td> <td class="c0" > <a href="#1232"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $args = $self->{'_PROGRESS'}->{'ARGS'}; </td> </tr> <tr> <td class="h" > <a name="1232">1232</a> </td> <td class="c0" > <a href="#1233"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $fh = $self->{'_PROGRESS'}->{'FH'}; </td> </tr> <tr> <td class="h" > <a name="1233">1233</a> </td> <td class="c0" > <a href="# "> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $SIG_CODE->{'PROGRESS'}->{$$} = $self; local $SIG{'PIPE'} = \&_del_progress; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c0" > <a href="#1234"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1234">1234</a> </td> <td class="c0" > <a href="#1235"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{'_PROGRESS'}->{'FH'}->close(); </td> </tr> <tr> <td class="h" > <a name="1235">1235</a> </td> <td class="c0" > <a href="#1236"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> delete($self->{'_PROGRESS'}->{'FH'}); </td> </tr> <tr> <td class="h" > <a name="1236">1236</a> </td> <td class="c0" > <a href="#1237"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> delete($self->{'_PROGRESS'}->{'PERCENT'}); </td> </tr> <tr> <td class="h" > <a name="1237">1237</a> </td> <td class="c0" > <a href="#1238"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> delete($self->{'_PROGRESS'}->{'ARGS'}); </td> </tr> <tr> <td class="h" > <a name="1238">1238</a> </td> <td class="c0" > <a href="#1239"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> delete($self->{'_PROGRESS'}); </td> </tr> <tr> <td class="h" > <a name="1239">1239</a> </td> <td class="c0" > <a href="#1240"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->rv('null'); </td> </tr> <tr> <td class="h" > <a name="1240">1240</a> </td> <td class="c0" > <a href="#1241"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->rs('null'); </td> </tr> <tr> <td class="h" > <a name="1241">1241</a> </td> <td class="c0" > <a href="#1242"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->ra('null'); </td> </tr> <tr> <td class="h" > <a name="1242">1242</a> </td> <td class="c0" > <a href="#1243"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->_post($args); </td> </tr> <tr> <td class="h" > <a name="1243">1243</a> </td> <td class="c0" > <a href="#1246"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return(1); </td> </tr> <tr> <td class="h" > <a name="1244">1244</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1245">1245</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> sub gauge_stop { </td> </tr> <tr> <td class="h" > <a name="1246">1246</a> </td> <td class="c0" > <a href="#1248"> 0 </a> </td> <td >   </td> <td >   </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#1246-1"> 0 </a> </td> <td class="c3" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--subroutine.html#1246-1"> 1 </a> </td> <td >   </td> <td class="s"> my $self = $_[0]; </td> </tr> <tr> <td class="h" > <a name="1247">1247</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1248">1248</a> </td> <td class="c0" > <a href="#1250"> 0 </a> </td> <td class="c0" > <a href="blib-lib-UI-Dialog-Backend-XDialog-pm--branch.html#1248-1"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return(0) unless defined $self->{'_GAUGE'}->{'FH'}; </td> </tr> <tr> <td class="h" > <a name="1249">1249</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1250">1250</a> </td> <td class="c0" > <a href="#1251"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $args = $self->{'_GAUGE'}->{'ARGS'}; </td> </tr> <tr> <td class="h" > <a name="1251">1251</a> </td> <td class="c0" > <a href="#1252"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> my $fh = $self->{'_GAUGE'}->{'FH'}; </td> </tr> <tr> <td class="h" > <a name="1252">1252</a> </td> <td class="c0" > <a href="# "> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $SIG_CODE->{'GAUGE'}->{$$} = $self; local $SIG{'PIPE'} = \&_del_gauge; </td> </tr> <tr> <td class="h" > <a > </a> </td> <td class="c0" > <a href="#1253"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1253">1253</a> </td> <td class="c0" > <a href="#1254"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->{'_GAUGE'}->{'FH'}->close(); </td> </tr> <tr> <td class="h" > <a name="1254">1254</a> </td> <td class="c0" > <a href="#1255"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> delete($self->{'_GAUGE'}->{'FH'}); </td> </tr> <tr> <td class="h" > <a name="1255">1255</a> </td> <td class="c0" > <a href="#1256"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> delete($self->{'_GAUGE'}->{'PERCENT'}); </td> </tr> <tr> <td class="h" > <a name="1256">1256</a> </td> <td class="c0" > <a href="#1257"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> delete($self->{'_GAUGE'}->{'ARGS'}); </td> </tr> <tr> <td class="h" > <a name="1257">1257</a> </td> <td class="c0" > <a href="#1258"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> delete($self->{'_GAUGE'}); </td> </tr> <tr> <td class="h" > <a name="1258">1258</a> </td> <td class="c0" > <a href="#1259"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->rv('null'); </td> </tr> <tr> <td class="h" > <a name="1259">1259</a> </td> <td class="c0" > <a href="#1260"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->rs('null'); </td> </tr> <tr> <td class="h" > <a name="1260">1260</a> </td> <td class="c0" > <a href="#1261"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->ra('null'); </td> </tr> <tr> <td class="h" > <a name="1261">1261</a> </td> <td class="c0" > <a href="#1262"> 0 </a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> $self->_post($args); </td> </tr> <tr> <td class="h" > <a name="1262">1262</a> </td> <td class="c0" > 0 </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> return(1); </td> </tr> <tr> <td class="h" > <a name="1263">1263</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1264">1264</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1265">1265</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s">   </td> </tr> <tr> <td class="h" > <a name="1266">1266</a> </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td >   </td> <td class="s"> 1; </td> </tr> </table> </body> </html>