view release on metacpan or search on metacpan
cgi-bin/ubiq.cgi view on Meta::CPAN
# ++++++++++++++++++++++++++++++++++++++++++++++++++
sub attr_settings; #
*attr_settings = sub {
return unless $template;
my @vals = ();
my @popups = ();
my @extra = ();
my $basic_tbl =
table(Tr({},
[
cgi-bin/ubiq.cgi view on Meta::CPAN
# [td([
# ])])),
("Tree/Flat format: ",
popup_menu(-name=>'format',
-values=>[qw(sxpr itext XML nested-HTML flat-TSV flat-CSV flat-HTML-table)]),
checkbox(-name=>'save',
-value=>1,
-label=>'Save Results to Disk'),
' ',
cgi-bin/ubiq.cgi view on Meta::CPAN
top_of_page,
start_form(-action=>'ubiq.cgi', -method=>'GET'),
# DATABASE SELECTION
("Database",
popup_menu(-name=>'dbname',
-values=>[sort {$a cmp $b} @dbnames],
-onChange=>"submit()",
),
submit(-name=>'submit',
-value=>"selectdb")),
view release on metacpan or search on metacpan
DBIx/Frame.pm view on Meta::CPAN
my @return = <<HTML;
<div class="basetable">
<div class="row2">
<span class="label">TBCode</span>
<span class="formw">
@{[ $cgi->popup_menu('TBCode', \@codes, $$entry{TBCode} || "") ]}
</span>
<span class="label">File Type</span>
<span class="formw">
@{[ $cgi->popup_menu('Type', \@types, $$entry{Type} || "") ]}
</span>
</div>
<div class="row1">
<span class="label">Location</span>
DBIx/Frame.pm view on Meta::CPAN
</div>
<div class="row1">
<span class="label">Restricted?</span>
<span class="formw">
@{[ $cgi->popup_menu('Restricted', [sort keys %public],
$$entry{Restricted} || "", \%public) ]}
</span>
</div>
view release on metacpan or search on metacpan
lib/DBIx/HTML/ClientDB.pm view on Meta::CPAN
=item First row
The first row contains the first prompt string in the first column.
The first row contains a HTML popup menu in the second column.
This menu is what you use to choose the 'current record' in the database.
Since two (2) SQL columns are used to build this menu, two (2) strings from
the row_headings parameter are consumed building the first row. The first of
lib/DBIx/HTML/ClientDB.pm view on Meta::CPAN
This option is mandatory.
=item default => ''
Pass in the string (from SQL column 2) which is to be the default item on the
popup menu. You supply here the visible menu item, not the value associated with
that menu item.
If default is not given a value, the first menu item becomes the default.
See the discussion of the sql option for details about the menu items.
view release on metacpan or search on metacpan
lib/DBIx/HTML/LinkedMenus.pm view on Meta::CPAN
__END__
=head1 NAME
C<DBIx::HTML::LinkedMenus> - Convert SQL to 2 linked HTML popup menus.
=head1 Synopsis
use DBIx::HTML::LinkedMenus;
lib/DBIx/HTML/LinkedMenus.pm view on Meta::CPAN
my($linker) = ...
my(@value) = $linker -> get($base_id, $link_id);
=item html_for_base_menu()
Returns the HTML for a popup menu named after the base_menu_name parameter.
Output it somewhere suitable on your page.
Calling this method and outputting the HTML is mandatory.
=item html_for_linked_menu()
Returns the HTML for a popup menu named after the linked_menu_name parameter.
Output it somewhere suitable on your page.
Calling this method and outputting the HTML is mandatory.
view release on metacpan or search on metacpan
lib/DBIx/HTML/PopupRadio.pm view on Meta::CPAN
{
my(%_attr_data) =
( # Alphabetical order.
_dbh => '',
_default => '', # For popup_menu or radio_group.
_javascript => '',
_linebreak => 0, # For radio_group.
_name => 'dbix_menu',
_options => {},
_prompt => '', # For popup_menu.
_sql => '',
);
sub _default_for
{
lib/DBIx/HTML/PopupRadio.pm view on Meta::CPAN
} # End of param.
# -----------------------------------------------
sub popup_menu
{
my($self, %arg) = @_;
# Give the user one last chance to set some parameters.
lib/DBIx/HTML/PopupRadio.pm view on Meta::CPAN
push @html, '</select>', '';
join "\n", @html;
} # End of popup_menu.
# -----------------------------------------------
sub radio_group
{
lib/DBIx/HTML/PopupRadio.pm view on Meta::CPAN
__END__
=head1 NAME
C<DBIx::HTML::PopupRadio> - Convert sql into a popup menu or radio group.
=head1 Synopsis
use DBIx::HTML::PopupRadio;
my($popup_object) = DBIx::HTML::PopupRadio -> new
(
dbh => $dbh,
sql => 'select campus_id, campus_name from campus order by campus_name',
);
$popup_object -> set(default => '1');
my($popup_menu) = $popup_object -> popup_menu();
my($radio_group) = $popup_object -> radio_group();
print $popup_menu;
=head1 Description
This module takes a db handle and an SQL statement, and builds a hash.
Then you ask for that hash in HTML, as a popup menu or as a radio group.
The reading of the db table is delayed until you actually call one of the
methods 'popup_menu' or 'radio_group'. Even then, it is delayed until any
parameters passed in to these 2 methods are processed.
After a call to one of these 2 methods, you can call the 'size' method if
you need to check how many rows were returned by the SQL you used.
lib/DBIx/HTML/PopupRadio.pm view on Meta::CPAN
You create an object of the class by calling the constructor, 'new'.
You then call 'set', if you wish, to set any options.
Now call 'popup_menu' or 'radio_group' to get the HTML.
Lastly, display the HTML as part of a form.
The method names 'popup_menu' and 'radio_group' (and 'param') were chosen to be
reminiscent of methods with the same names in the CGI.pm module. But let
me repeat, my module does not use CGI.
=head1 Options
lib/DBIx/HTML/PopupRadio.pm view on Meta::CPAN
=item dbh => ''
Pass in an open database handle.
This option is mandatory, in the call to new, set, popup_menu or radio_group.
Ie By the time you call one of the latter 2 methods, dbh must be set.
=item default => ''
Pass in the string (from SQL column 2) which is to be the default item on the popup
menu or radio group. You supply here the visible menu item, not the value associated with
that menu item.
Starting with V 1.13, a case-insensitive match is used to compare the value provided here with the
values read in from the database.
lib/DBIx/HTML/PopupRadio.pm view on Meta::CPAN
a_form.field01.options[a_form.field01.selectedIndex].value;
}
</script>
You can see what is happening: The menu item, both visible text and corresponding value returned
to your CGI script, are being copied from the popup menu to 2 other fields in the form.
Obviously you would replace the body of this function with code of your own choosing.
Q: Since this is an onChange handler, the 2 other fields will not be initialized until
the default menu selection is changed. So, how do you initialize them before the user selects a
lib/DBIx/HTML/PopupRadio.pm view on Meta::CPAN
This option is not mandatory.
=item name => 'dbix_menu'
Pass in the name of the form item to use for the popup menu or radio group.
This option is not mandatory, since it has a default value. It could be unset
and then reset, but must have a value by the time you call popup_menu or
radio_group.
The value of this parameter is what you will pass into a CGI object when you
call its param() method to retrieve the user selection.
Hence you would do something like:
my($name) = 'fancy_menu';
my($popup_object) = DBIx::HTML::PopupRadio -> new(name => $name, ...);
my($q) = CGI -> new();
my($id) = $q -> param($name) || '';
=item options => {}
lib/DBIx/HTML/PopupRadio.pm view on Meta::CPAN
=item prompt => ''
Alternately, this is possible: prompt => {'x' => 'y'}.
Pass in a prompt to use as the first entry in the popup menu.
The string, in the first case, can contain a single quote but not a double quote. Eg:
prompt => "O'Connor".
The key, in the second case, can contain a single quote but not a double quote. Eg:
lib/DBIx/HTML/PopupRadio.pm view on Meta::CPAN
This option is not mandatory.
=item sql => ''
Pass in the SQL used to select the popup menu or radio group items.
This option is mandatory, in the call to new, set, popup_menu or radio_group.
Ie By the time you call one of the latter 2 methods, sql must be set.
The SQL must select 2 columns. The first will be used as the value returned by
a CGI object, for example, when you call its param() method. The second value
will be used as the visible selection offered to the user on the menu.
lib/DBIx/HTML/PopupRadio.pm view on Meta::CPAN
how do you convert the value, eg campus_id, back into the visible menu item, eg
campus_name.
Simple: You call the param method of the DBIx::HTML::PopupRadio class:
my($name) = $popup_object -> param($id);
param returns the empty string if the value of $id is unknown.
=back
lib/DBIx/HTML/PopupRadio.pm view on Meta::CPAN
Call this to convert the value returned to the CGI script when the user
selected a menu item, into the visible menu item selected by the user.
In other words, convert the first column of the SQL into the second column.
=item popup_menu(%arg): Return the HTML for a popup menu
popup_menu(%arg) takes the same parameters as new().
=item radio_group(%arg): Return the HTML for a radio group
radio_group(%arg) takes the same parameters as new().
lib/DBIx/HTML/PopupRadio.pm view on Meta::CPAN
set(%arg) takes the same parameters as new().
=item size(): Return the number of rows returned by your SQL
Call this after calling 'popup_menu' or 'radio_group'.
It will tell you whether or not your menu is empty.
=back
view release on metacpan or search on metacpan
eg/search.pl view on Meta::CPAN
$dsns[$i] =~ s/^DBI/dbi/ ;
}
if ($#dsns >= 0)
{
print $q -> popup_menu (-name=>"!DataSource",
-size=>"1",
-value=>\@dsns) ;
}
else
{
view release on metacpan or search on metacpan
lib/DBIx/Web.pm view on Meta::CPAN
$tl =&$tl($s) if ref($tl) eq 'CODE';
$tv =do{use locale; [sort {$tl->{$a} cmp $tl->{$b}} keys %$tl]}
if !$tv && $tl;
unshift @$tv, $v if defined($v) && ($v ne '') && !grep {$_ eq $v} @$tv;
unshift @$tv, '' if $s->{-pcmd}->{-cmg} eq 'recQBF';
$wgp =$s->cgi->popup_menu(
($cs ? (-class=>$cs) : ())
,($m->{-ddlbloop} ? !ref($m->{-ddlbloop}) || &{$m->{-ddlbloop}}($s) : 0)
||($m->{-loop} ? !ref($m->{-loop}) || &{$m->{-loop}}($s) : 0)
? (-onchange => '{window.document.DBIx_Web._cmd.value="recForm"; window.document.DBIx_Web.submit(); return(false)}')
: ()
lib/DBIx/Web.pm view on Meta::CPAN
: defined($g->param('_qftext')) && ($g->param('_qftext') ne '')
? $g->param('_qftext')
: '');
$s->output($g->textfield(-name=>'_qftwhere', -size=>70, -title=>$s->lng(1,'-qftwhere'))
, '<br />'
, $g->popup_menu(-name=>'_qftord'
,-values=>['write','hitcount','vpath','docauthor']
,-labels=>{
'write' =>'Chronologically'
,'hitcount' =>'Ranked'
,'vpath' =>'by Name'
,'docauthor' =>'by Author'
}
,-default=>'write')
, $g->popup_menu(-name=>'_qlimit'
,-values=>['',128,256,512,1024,2048,4096]
,-labels=>{
'' =>"$LIMRS default"
,128 =>'128 max'
,256 =>'256 max'
view release on metacpan or search on metacpan
lib/DBR/Admin/Window/FieldList.pm view on Meta::CPAN
next if $existing_enums{$e->{enum_id}};
push @{$values}, $e->{enum_id};
$labels->{$e->{enum_id}} = "$e->{name} (handle: $e->{handle}, id: $e->{enum_id}, override: $e->{override_id})";
}
my $label = $edit_window->add(
"enum_popup_label", 'Label',
-text => 'Add Enum: ',
-x => $x,
-y => $y
);
$label->draw;
my $enum_popup = $edit_window->add(
"type_popup", 'Popupmenu',
-y => $y,
-x => ($x + 16) ,
-values => $values,
-labels => $labels,
);
$enum_popup->focus();
$y += 3;
# submit - cancel
lib/DBR/Admin/Window/FieldList.pm view on Meta::CPAN
-label => '< Submit >',
-value => 1,
-shortcut => 1 ,
-onpress => sub {
$self->submit_new_enum(original_args => $_args{original_args},
enum_id => $enum_popup->get(),
name => 'new_enum_window',
edit_window => $edit_window,
max_sortval => $max_sortval,
);
}
lib/DBR/Admin/Window/FieldList.pm view on Meta::CPAN
);
$label->draw;
my ($values, $labels, $selected) = _get_popup_menu_values(DBR::Config::Trans::list_translators(), $field_hash, 'trans_id');
my $trans_id = $edit_window->add(
"trans_id_popup", 'Popupmenu',
-y => $y,
-x => ($x + 16) ,
-values => $values,
-labels => $labels,
-selected => $selected,
lib/DBR/Admin/Window/FieldList.pm view on Meta::CPAN
$_args{edit_window}->parent->draw();
$_args{edit_window}->parent->focus();
}
#############
sub _get_popup_menu_values {
my ($value_ref, $lookup, $key) = @_;
my %values;
foreach my $t (@$value_ref) {
$values{$t->{id}} = $t->{name} || $t->{handle};
view release on metacpan or search on metacpan
Playlist.pm view on Meta::CPAN
my $self = shift;
my $url = shift;
$self->run( "playMedia", "$url" );
}
=item popupMessage($msg)
Pops up $msg in screen.
TODO: $msg has to escape white spaces with '\'.
e.g. "Hi\\\ there";
e.g2. 'I\ am\ here'
=cut
sub popupMessage() {
my $self = shift;
my $msg = shift;
$self->run( "popupMessage", "$msg" );
}
=item removeCurrentTrack()
Removes current track from playlist
view release on metacpan or search on metacpan
contrib/blmanager.cgi view on Meta::CPAN
print header;
print start_html('DNS::BL Manager'),
h1('DNS::BL Manager'),
start_form,
p("Choose the list you want to act upon: ",
popup_menu('dnsbl', [ keys %lists ],
{ map { $_ => "$_ list" } keys %lists } )),
p("Choose the action you would like to do: ",
popup_menu('action', [ keys %actions ],
(sort { $a cmp $b } keys %actions)[0], \%actions)),
p("IP address or range (always required): ", textfield('ip')),
p("Return code (for add): ", textfield('code', '127.0.0.2')),
p("Message text (for add): ", textfield('text')),
submit,
view release on metacpan or search on metacpan
CAB/Client/CGIWrapper.pm view on Meta::CPAN
Tr(td({id=>'searchLabel'}, "Query:"),
td({colspan=>3}, textfield(-name=>'q',-size=>64,-id=>'searchText')),
),
##
Tr(td({id=>'searchLabel'}, "Analyzer:"),
td(popup_menu({-name=>'analyzer',
-values=>[ @{$wr->{analyzers}} ],
-default=>($wr->{analyzers}[0] || 'dta.cab.default')
}))),
##
Tr(
td({id=>'searchLabelE'}, "Format:"),
td(popup_menu({-name=>'format',
-values=>[ map {$_->{key}} @{$wr->{fmts}} ],
-default=>$wr->{defaultFmt},
-labels => { map {($_->{key}=>$_->{label})} @{$wr->{fmts}} },
}))),
##
view release on metacpan or search on metacpan
public/javascripts/jQuery/jquery-ui-1.12.min.js view on Meta::CPAN
* http://jqueryui.com
* Includes: widget.js, position.js, data.js, disable-selection.js, effect.js, effects/effect-blind.js, effects/effect-bounce.js, effects/effect-clip.js, effects/effect-drop.js, effects/effect-explode.js, effects/effect-fade.js, effects/effect-fold.js...
* Copyright jQuery Foundation and other contributors; Licensed MIT */
(function(t){"function"==typeof define&&define.amd?define(["jquery"],t):t(jQuery)})(function(t){function e(t){for(var e=t.css("visibility");"inherit"===e;)t=t.parent(),e=t.css("visibility");return"hidden"!==e}function i(t){for(var e,i;t.length&&t[0]!...
}}(t.fn.show),hide:function(t){return function(s){if(i(s))return t.apply(this,arguments);var n=e.apply(this,arguments);return n.mode="hide",this.effect.call(this,n)}}(t.fn.hide),toggle:function(t){return function(s){if(i(s)||"boolean"==typeof s)retur...
this.isMultiLine=o||!a&&this._isContentEditable(this.element),this.valueMethod=this.element[o||a?"val":"text"],this.isNewMenu=!0,this._addClass("ui-autocomplete-input"),this.element.attr("autocomplete","off"),this._on(this.element,{keydown:function(n...
}},_updateDatepicker:function(e){this.maxRows=4,m=e,e.dpDiv.empty().append(this._generateHTML(e)),this._attachHandlers(e);var i,s=this._getNumberOfMonths(e),n=s[1],a=17,r=e.dpDiv.find("."+this._dayOverClass+" a");r.length>0&&o.apply(r.get(0)),e.dpDiv...
},_cacheMargins:function(){this.margins={left:parseInt(this.element.css("marginLeft"),10)||0,top:parseInt(this.element.css("marginTop"),10)||0,right:parseInt(this.element.css("marginRight"),10)||0,bottom:parseInt(this.element.css("marginBottom"),10)|...
},disable:t.noop,enable:t.noop,close:function(e){var i=this;this._isOpen&&this._trigger("beforeClose",e)!==!1&&(this._isOpen=!1,this._focusedElement=null,this._destroyOverlay(),this._untrackInstance(),this.opener.filter(":focusable").trigger("focus")...
},_refresh:function(){this._createRange(),this._createHandles(),this._setupEvents(),this._refreshValue()},_createHandles:function(){var e,i,s=this.options,n=this.element.find(".ui-slider-handle"),o="<span tabindex='0'></span>",a=[];for(i=s.values&&s....
this._delay(function(){n===this.counter&&this.refreshPositions(!s)})},_clear:function(t,e){function i(t,e,i){return function(s){i._trigger(t,s,e._uiHash(e))}}this.reverting=!1;var s,n=[];if(!this._noFinalSort&&this.currentItem.parent().length&&this.p...
view release on metacpan or search on metacpan
examples/cgi-bin/CGI_pm_clickable_image.pl view on Meta::CPAN
print "Sorry, this isn't very exciting!\n";
print $query->start_form;
print $query->image_button('picture', "CGI_pm/wilogo.gif");
print "Give me a: ",
$query->popup_menu('letter', ['A', 'B', 'C', 'D', 'E', 'W']), "\n"; #
print "<P>Magnification: ",
$query->radio_group('magnification', ['1X', '2X', '4X', '20X']), "\n";
print "<HR>\n";
if ($query->param) {
view release on metacpan or search on metacpan
lib/Dancer/Plugin/Interchange6/Business/OnlinePayment.pm view on Meta::CPAN
}
if ( $bop_object->is_success() ) {
$self->_set_is_success(1);
if ( $bop_object->can('popup_url') ) {
debug( "Success! Redirect browser to " . $bop_object->popup_url() );
}
else {
debug("Successful payment, authorization: ",
$bop_object->authorization);
debug("Order number: ", $bop_object->order_number);
view release on metacpan or search on metacpan
lib/Dancer/Plugin/Nitesi/Business/OnlinePayment.pm view on Meta::CPAN
}
if ( $bop_object->is_success() ) {
$self->_set_is_success(1);
if ( $bop_object->can('popup_url') ) {
debug( "Success! Redirect browser to " . $bop_object->popup_url() );
}
else {
debug("Successful payment, authorization: ",
$bop_object->authorization);
debug("Order number: ", $bop_object->order_number);
view release on metacpan or search on metacpan
views/layouts/bootstrap3.tt view on Meta::CPAN
</ul>
<ul class="nav navbar-nav navbar-right">
<% IF session.user %>
<li><a href="#">New Messages <span class="badge">3</span></a></li>
<li class="dropdown">
<a href="#" class="dropdown-toggle" data-toggle="dropdown" role="button" aria-haspopup="true" aria-expanded="false">
<i class="glyphicon glyphicon-user"></i>
<% session.user.name |html %>
<span class="caret"></span>
</a>
<ul class="dropdown-menu">
view release on metacpan or search on metacpan
lib/Dancer2/Plugin/Auth/OAuth/Provider/VKontakte.pm view on Meta::CPAN
# VKontakte sends user's email if exists with access token reply.
# Because of this I had to modify 'Provider.pm' slightly.
# If you want the email to be sent you must use 'email' scope.
# Other user data should be requested with 'fields' configuration option.
scope => 'email',
display => 'popup',
}
}
} }
sub post_process {
view release on metacpan or search on metacpan
bin/create_cart_views.pl view on Meta::CPAN
<div class='collapse navbar-collapse' id='menu-options'>
<ul class='nav navbar-nav navbar-right'>
<li><a href='/products'>Products</a></li>
<li><a href='/cart'><span class='glyphicon glyphicon-shopping-cart' aria-hidden='true'></span></a></li>
<li class='dropdown'>
<a href='#' class='dropdown-toggle' data-toggle='dropdown' role='button' aria-haspopup='true' aria-expanded='false'>About<span class='caret'></span></a>
<ul class='dropdown-menu'>
<li><a href='https://github.com/YourSole/Cart'>Github</a></li>
</ul>
</li>
</ul>
view release on metacpan or search on metacpan
lib/Dancer2/Plugin/Interchange6/Business/OnlinePayment.pm view on Meta::CPAN
}
if ( $bop_object->is_success() ) {
$self->_set_is_success(1);
if ( $bop_object->can('popup_url') ) {
debug( "Success! Redirect browser to " . $bop_object->popup_url() );
}
else {
debug("Successful payment, authorization: ",
$bop_object->authorization);
debug("Order number: ", $bop_object->order_number);
view release on metacpan or search on metacpan
lib/Dancer2/Plugin/LiteBlog/Scaffolder/Data.pm view on Meta::CPAN
}
/* Header Menu */
/* CSS for the mobile header */
#mobile-menu-container {
position: relative; /* to hold the popup menu */
}
.hero-bar-hidden {
display: none;
}
view release on metacpan or search on metacpan
share/assets/dash_core_components/async~datepicker.js.map view on Meta::CPAN
{"version":3,"sources":["webpack:///./node_modules/moment/moment.js","webpack:///./node_modules/react-dates/lib/constants.js","webpack:///./node_modules/airbnb-prop-types/index.js","webpack:///./node_modules/react-dates/lib/defaultPhrases.js","webpac...
view release on metacpan or search on metacpan
t/Data-MultiValuedHash.t view on Meta::CPAN
name => 'words',
'values' => ['eenie', 'meenie', 'minie', 'moe'],
default => ['eenie', 'minie'],
}, {
visible_title => "What's your favorite colour?",
type => 'popup_menu',
name => 'color',
'values' => ['red', 'green', 'blue', 'chartreuse'],
}, {
type => 'submit',
},
t/Data-MultiValuedHash.t view on Meta::CPAN
"{ }, ",
"{ 'name' => [ 'Don Smith', ], }, ",
"{ 'age' => [ '17', ], 'color' => [ 'green', ], 'name' => [ 'John', ], 'pets' => [ 'Cat', 'Bird', ], 'siblings' => [ 'Laura', 'Andrew', 'Julia', ], }, ",
"{ 'name' => [ 'name', ], 'type' => [ 'textfield', ], 'visible_title' => [ 'What's your name?', ], }, ",
"{ 'default' => [ 'eenie', 'minie', ], 'name' => [ 'words', ], 'type' => [ 'checkbox_group', ], 'values' => [ 'eenie', 'meenie', 'minie', 'moe', ], 'visible_title' => [ 'What's the combination?', ], }, ",
"{ 'name' => [ 'color', ], 'type' => [ 'popup_menu', ], 'values' => [ 'red', 'green', 'blue', 'chartreuse', ], 'visible_title' => [ 'What's your favorite colour?', ], }, ",
"{ 'type' => [ 'submit', ], }, ",
);
foreach my $i (0..$#mvh_list) {
$mvh = $mvh_list[$i];
view release on metacpan or search on metacpan
t/data/json/json-org-sample2.jsn view on Meta::CPAN
{"menu":{"id":"file","value":"File","popup":{"menuitem":[{"value":"New","onclick":"CreateNewDoc()"},{"value":"Open","onclick":"OpenDoc()"},{"value":"Close","onclick":"CloseDoc()"}]}}}
view release on metacpan or search on metacpan
t/data/json/json-org-sample2.jsn view on Meta::CPAN
{"menu":{"id":"file","value":"File","popup":{"menuitem":[{"value":"New","onclick":"CreateNewDoc()"},{"value":"Open","onclick":"OpenDoc()"},{"value":"Close","onclick":"CloseDoc()"}]}}}
view release on metacpan or search on metacpan
$item->show;
$item->signal_connect (activate => sub {
$self->$method;
});
}
$menu->popup (undef, undef, undef, undef, $event->button, $event->time);
}
sub set_data
{
my ($self, $data, $dumper_setup) = @_;
view release on metacpan or search on metacpan
lib/Data/Type/Field.pm view on Meta::CPAN
}
my @html = $Data::Type::Field::XML->select( {
id => $this->id,
class => 'popup',
name => $this->name,
}, @fields
);