Result:
found more than 557 distributions - search limited to the first 2001 files matching your query
( run in 1.735 )
Data-Utilities
view release on metacpan or search on metacpan
lib/Data/Differences.pm view on Meta::CPAN
#t developments. I inspected via the debugger the
#t correctness of the software under test,
#t I am not sure of the correctness of the testing
#t software. Given the fact that this eval {} statement
#t also hides a number of warnings, I suspect so far
#t unforeseen scenarios that might popup as bugs of
#t the testing software.
eval
{
# if (defined ${$self->{$key}})
Date-Ordinal
view release on metacpan or search on metacpan
#-----------------------------------------------------------------------
=head1 DESCRIPTION
This module is designed to aid in creation of CGI popup_menus and also
interaction with SQL databases.
=cut
DbFramework
view release on metacpan or search on metacpan
lib/DbFramework/PrimaryKey.pm view on Meta::CPAN
-labels=>\%labels,
-multiple=>'true',
-default=>$default,
);
} else {
$html = $cgi->popup_menu(-name=>$name,
-values=>\@pk_values,
-labels=>\%labels,
-default=>$default,
);
}
Debian-Apt-PM
view release on metacpan or search on metacpan
examples/web/jquery-1.5.2.js view on Meta::CPAN
var xhr = s.xhr(),
handle,
i;
// Open the socket
// Passing null username, generates a login popup on Opera (#2865)
if ( s.username ) {
xhr.open( s.type, s.url, s.async, s.username, s.password );
} else {
xhr.open( s.type, s.url, s.async );
}
Deliantra-Client
view release on metacpan or search on metacpan
)
),
["bind <i>apply $shortname</i> to a key" => sub { DC::Macro::quick_macro ["apply $self->{name}"] }],
);
DC::UI::Menu->new (items => \@menu_items)->popup ($ev);
}
1
};
Deliantra
view release on metacpan or search on metacpan
Deliantra/MapWidget.pm view on Meta::CPAN
if ($self->{window} == ($screen->get_display->get_window_at_pointer)[0]) {
my ($pscreen, $x, $y) = $screen->get_display->get_pointer;
if ($pscreen == $screen) {
if (!$self->{tip}) {
$self->{tip} = new Gtk2::Window "popup";
$self->{tip}->can_focus (0);
$self->{tip}->set_name ("gtk-tooltips");
$self->{tip}->set_decorated (0);
$self->{tip}->set_border_width (4);
$self->{tip}->set_has_frame (0);
Devel-Cover
view release on metacpan or search on metacpan
lib/Devel/Cover/Report/Html_minimal.pm view on Meta::CPAN
print $fh qq'<tr><td align="left">$file</td>';
}
for my $c (@$show) {
my $pc = $summary->{$c}{percent};
my ($class, $popup, $link);
if ($pc eq 'n/a' || $c eq 'time') {
$class = $popup = '';
} else {
$class = sprintf(qq' class="%s"', pclass($pc, $summary->{$c}{error}));
$popup = sprintf(qq' title="%s"', $c . ': ' . $summary->{$c}{ratio});
if ($c =~ /branch|condition|subroutine/) {
$link = get_link($file, $c);
}
}
if ($link) {
printf $fh qq'<td%s%s><a href="%s">%s</a></td>', $class, $popup, $link,
$pc;
} else {
printf $fh qq'<td%s%s>%s</td>', $class, $popup, $pc;
}
}
print $fh "</tr>\n";
}
print $fh "</table>\n</body>\n</html>\n";
Devel-PerlySense
view release on metacpan or search on metacpan
lib/Devel/PerlySense.pm view on Meta::CPAN
it. (not implemented)
C<C-o s p> -- Go to the previous Source error/warning.
C<C-o s s> -- Display the error/warning text of the current line in a
popup. Or display the error in the minibuffer if the display isn't
graphical, or if the ps/flymake-prefer-errors-in-minibuffer variable
is customized to a true value.
Devel-ebug-HTTP
view release on metacpan or search on metacpan
share/root/overlib.js view on Meta::CPAN
////////
// ARRAY CONFIGURATION
////////
// You can use these arrays to store popup text here instead of in the html.
if (typeof ol_texts=='undefined') var ol_texts = new Array("Text 0", "Text 1");
if (typeof ol_caps=='undefined') var ol_caps = new Array("Caption 0", "Caption 1");
////////
// END OF CONFIGURATION
share/root/overlib.js view on Meta::CPAN
o3_delayid = setTimeout("runHook('olMain', FREPLACE)", o3_delay);
return false;
}
}
// Clears popups if appropriate
function nd(time) {
if (olLoaded && !isExclusive()) {
hideDelay(time); // delay popup close if time specified
if (o3_removecounter >= 1) { o3_showingsticky = 0 };
if (o3_showingsticky == 0) {
o3_allowmove = 0;
share/root/overlib.js view on Meta::CPAN
if (o3_background!="" || o3_fullhtml) {
// Use background instead of box.
layerhtml = runHook('ol_content_background', FALTERNATE, o3_css, o3_text, o3_background, o3_fullhtml);
} else {
// They want a popup box.
styleType = (pms[o3_css-1-pmStart] == "cssoff" || pms[o3_css-1-pmStart] == "cssclass");
// Prepare popup background
if (o3_fgbackground != "") o3_fgbackground = "background=\""+o3_fgbackground+"\"";
if (o3_bgbackground != "") o3_bgbackground = (styleType ? "background=\""+o3_bgbackground+"\"" : o3_bgbackground);
// Prepare popup colors
if (o3_fgcolor != "") o3_fgcolor = (styleType ? "bgcolor=\""+o3_fgcolor+"\"" : o3_fgcolor);
if (o3_bgcolor != "") o3_bgcolor = (styleType ? "bgcolor=\""+o3_bgcolor+"\"" : o3_bgcolor);
// Prepare popup height
if (o3_height > 0) o3_height = (styleType ? "height=\""+o3_height+"\"" : o3_height);
else o3_height = "";
// Decide which kinda box.
if (o3_cap=="") {
share/root/overlib.js view on Meta::CPAN
}
o3_showingsticky = 1;
o3_removecounter = 0;
}
// Created a separate routine to generate the popup to make it easier
// to implement a plugin capability
if (!runHook("createPopup", FREPLACE, layerhtml)) return false;
// Prepare status bar
if (o3_autostatus > 0) {
share/root/overlib.js view on Meta::CPAN
}
////////
// LAYER GENERATION FUNCTIONS
////////
// These functions just handle popup content with tags that should adhere to the W3C standards specification.
// Makes simple table without caption
function ol_content_simple(text) {
txt='<table width="'+o3_width+ '" border="0" cellpadding="'+o3_border+'" cellspacing="0" '+(o3_bgclass ? 'class="'+o3_bgclass+'"' : o3_bgcolor+' '+o3_height)+'><tr><td><table width="100%" border="0" cellpadding="' + o3_cellpad + '" cellspacing="0" '...
share/root/overlib.js view on Meta::CPAN
////////
// HANDLING FUNCTIONS
////////
var olShowId=-1;
// Displays the popup
function disp(statustext) {
runHook("disp", FBEFORE);
if (o3_allowmove == 0) {
runHook("placeLayer", FREPLACE);
share/root/overlib.js view on Meta::CPAN
runHook("disp", FAFTER);
if (statustext != "") self.status = statustext;
}
// Creates the actual popup structure
function createPopup(lyrContent){
runHook("createPopup", FBEFORE);
if (o3_wrap) {
var wd,ww,theObj = (olNs4 ? over : over.style);
share/root/overlib.js view on Meta::CPAN
runHook("createPopup", FAFTER, lyrContent);
return true;
}
// Decides where we want the popup.
function placeLayer() {
var placeX, placeY, widthFix = 0;
// HORIZONTAL PLACEMENT, re-arranged to work in Safari
if (o3_frame.innerWidth) widthFix=18;
share/root/overlib.js view on Meta::CPAN
else if (eval('o3_frame.'+docRoot)&&eval("typeof o3_frame."+docRoot+".clientWidth=='number'")&&eval('o3_frame.'+docRoot+'.clientWidth'))
w=eval('o3_frame.'+docRoot+'.clientWidth');
return w;
}
// create the div container for popup content if it doesn't exist
function createDivContainer(id,frm,zValue) {
id = (id || 'overDiv'), frm = (frm || o3_frame), zValue = (zValue || 1000);
var objRef, divContainer = layerReference(id);
if (divContainer == null) {
Devel-hdb
view release on metacpan or search on metacpan
lib/Devel/hdb/html/debugger.js view on Meta::CPAN
.on('click', '.control-button[name="stepout"][disabled!="disabled"]', this.controlButtonClicked.bind(this))
.on('click', '.control-button[name="stepover"][disabled!="disabled"]', this.controlButtonClicked.bind(this))
.on('click', '.control-button[name="continue"][disabled!="disabled"]', this.controlButtonClicked.bind(this))
.on('click', '.control-button[name="exit"][disabled!="disabled"]', this.controlButtonClicked.bind(this))
.on('click', '.control-button[name="continue-to"][disabled!="disabled"]', this.continueToDialog.bind(this))
.on('mouseenter', '.popup-perl-var', popoverPerlVar.bind(this))
.on('mouseleave', '.popup-perl-var', removePopoverPerlVar.bind(this))
.on('contextmenu', '.popup-perl-var', addPerlVarToWatchExpressions.bind(this))
.on('click', '.current-sub-and-args', setCurrentLineForCodeTableEvent.bind(this))
.on('hangup', notifyProgramHasCompletelyExited.bind(this))
.on('click', '#add-file', pickFileToLoad.bind(this))
.on('click', '.remove-loaded-file', removeLoadedFile.bind(this))
.on('click', '.save-load-breakpoints', saveLoadBreakpoints.bind(this));
Devel-ptkdb
view release on metacpan or search on metacpan
$self->{'balloon_coord'} = "$offset_x,$offset_y" ;
$x -= $txt->rootx ;
$y -= $txt->rooty ;
#
# Post an event that will cause us to put up a popup
#
if( $txt2->tagRanges('sel') ) { # check to see if 'sel' tag exists (return undef value)
$data = $txt2->get("sel.first", "sel.last") ; # get the text between the 'first' and 'last' point of the sel (selection) tag
}
Devel-tcltkdb
view release on metacpan or search on metacpan
$self->{'balloon_coord'} = "$offset_x,$offset_y" ;
$x -= $txt->rootx ;
$y -= $txt->rooty ;
#
# Post an event that will cause us to put up a popup
#
if ($txt2->_tagRangesSel) { # check to see if 'sel' tag exists (return undef value)
$data = $txt2->get("sel.first", "sel.last") ; # get the text between the 'first' and 'last' point of the sel (selection) tag
}
Devel-tkdb
view release on metacpan or search on metacpan
$self->{'balloon_coord'} = "$offset_x,$offset_y" ;
$x -= $txt->rootx;
$y -= $txt->rooty;
#
# Post an event that will cause us to put up a popup
#
if ($txt2->_tagRangesSel) { # check to see if 'sel' tag exists (return undef value)
$data = $txt2->get("sel.first", "sel.last") ; # get the text selection
}
DiaColloDB-WWW
view release on metacpan or search on metacpan
v0.01.005 Wed, 13 Apr 2016 13:46:21 +0200 moocow
* diacollo.js fixes for internet exploder / win7
v0.01.004 Mon, 07 Mar 2016 09:04:48 +0100 moocow
* diacollo.js: use jquery-ui for hicharts 'details' popup
- eliminates need for highslide.js dependency (overly restrictive license)
- enables info popups in standalone mode
* added license files for included third-party libraries (d3.layout.cloud.js, purl.js)
* added attribution for third-party code to README
v0.01.003 Fri, 04 Mar 2016 14:14:44 +0100 moocow
* fixed File::MimeInfo -> MIME::Types dependency
Dist-Zilla-Plugin-MetaProvides-FromFile
view release on metacpan or search on metacpan
t/dz2-provides.t view on Meta::CPAN
'Imaginary::Package::With::Insane::Version' => {
'file' => 'lib/Imaginary/Package/Insane/Version.pm',
'version' => '3.14159763'
}
},
'Provides popuplation works'
);
note explain $zilla->log_messages;
done_testing;
Dist-Zilla-PluginBundle-Author-TABULO
view release on metacpan or search on metacpan
Notes/cpan-namespaces/cpan-namespaces-L1-L2.txt view on Meta::CPAN
WL::wl_text_input_manager
WL::wl_touch
WL::wl_viewport
WL::workspace_manager
WL::workspaces
WL::xdg_popup
WL::xdg_shell
WL::xdg_surface
WML
WML::Card
WML::Deck
Dwimmer
view release on metacpan or search on metacpan
share/public/cleditor/jquery.cleditor.advancedtable.js view on Meta::CPAN
$.cleditor.buttons.table = {
name: "table",
image: "table.gif",
title: "Insert Table",
command: "inserthtml",
popupName: "table",
popupClass: "cleditorPrompt",
popupContent:
"<table cellpadding=0 cellspacing=0><tr>" +
"<td style=\"padding-right:6px;\">Cols:<br /><input type=text value=4 size=12 /></td>" +
"<td style=\"padding-right:6px;\">Rows:<br /><input type=text value=4 size=12 /></td>" +
"</tr><tr>" +
"<td style=\"padding-right:6px;\">Cell Spacing:<br /><input type=text value=2 size=12 /></td>" +
share/public/cleditor/jquery.cleditor.advancedtable.js view on Meta::CPAN
// Table button click event handler
function tableButtonClick(e, data) {
// Wire up the submit button click event handler
$(data.popup).children(":button")
.unbind("click")
.bind("click", function(e) {
// Get the editor
var editor = data.editor;
// Get the column and row count
var $text = $(data.popup).find(":text"),
cols = parseInt($text[0].value),
rows = parseInt($text[1].value),
spacing = parseInt($text[2].value),
padding = parseInt($text[3].value),
border = parseInt($text[4].value),
share/public/cleditor/jquery.cleditor.advancedtable.js view on Meta::CPAN
// Insert the html
if (html)
editor.execCommand(data.command, html, null, data.button);
// Reset the text, hide the popup and set focus
$text[0].value = "4";
$text[1].value = "4";
$text[2].value = "2";
$text[3].value = "2";
$text[4].value = "1";
EFL
view release on metacpan or search on metacpan
t/elementary_test.t view on Meta::CPAN
elm_anchorblock_text_set($av,
"Hey what are you doing? This is the second last message "
. "Hi there. This is the most recent message in the "
. "list. It's a longer one so it can wrap more and "
. "contains a <a href=contact:john>John</a> contact "
. "link in it to test popups on links. The idea is that "
. "all SMS's are scanned for things that look like phone "
. "numbers or names that are in your contacts list, and "
. "if they are, they become clickable links that pop up "
. "a menus of obvious actions to perform on this piece "
. "of information. This of course can be later explicitly "
t/elementary_test.t view on Meta::CPAN
evas_object_show($inwin);
$lb = elm_label_add($win);
elm_label_label_set($lb,
"This is an \"inwin\" - a window in a<br>"
. "window. This is handy for quick popups<br>"
. "you want centered, taking over the window<br>"
. "until dismissed somehow. Unlike hovers they<br>"
. "don't hover over their target.");
elm_win_inwin_content_set($inwin, $lb);
evas_object_show($lb);
t/elementary_test.t view on Meta::CPAN
evas_object_show($inwin);
$lb = elm_label_add($win);
elm_label_label_set($lb,
"This is an \"inwin\" - a window in a<br>"
. "window. This is handy for quick popups<br>"
. "you want centered, taking over the window<br>"
. "until dismissed somehow. Unlike hovers they<br>"
. "don't hover over their target.<br>" . "<br>"
. "This inwin style compacts itself vertically<br>"
. "to the size of its contents minimum size.");
EMDIS-ECS
view release on metacpan or search on metacpan
script/ecs_token view on Meta::CPAN
=item 3.
Select the applicable project. In I<Google Cloud> console, click the
I<Open project picker> button (next to Google Cloud logo at top of page),
then, in the I<Select a project> popup, click the link for the project.
=item 4.
Configure OAuth settings for the new project. In I<Google Cloud>
console, select I<Navigation menu> > I<APIs & Services> >
script/ecs_token view on Meta::CPAN
https://google.github.io/gmail-oauth2-tools/html/oauth2.dance.html
Then, click the I<Create> button.
From the I<OAuth client created> popup, make note of the I<Client ID> and
I<Client secret>. Click I<OK>.
=item 6.
Allow a few minutes for the settings to take effect.
ETLp
view release on metacpan or search on metacpan
web/javascript/calendarview.js view on Meta::CPAN
// This gets called when the user presses a mouse button anywhere in the
// document, if the calendar is shown. If the click was outside the open
// calendar this function closes it.
Calendar._checkCalendar = function(event) {
if (!window._popupCalendar)
return false
if (Element.descendantOf(Event.element(event), window._popupCalendar.container))
return
window._popupCalendar.callCloseHandler()
return Event.stop(event)
}
//------------------------------------------------------------------------------
// Event Handlers
web/javascript/calendarview.js view on Meta::CPAN
//----------------------------------------------------------------------------
create: function(parent)
{
// If no parent was specified, assume that we are creating a popup calendar.
if (!parent) {
parent = document.getElementsByTagName('body')[0]
this.isPopup = true
} else {
this.isPopup = false
web/javascript/calendarview.js view on Meta::CPAN
// Calendar Container (div)
this.container = new Element('div')
this.container.addClassName('calendar')
if (this.isPopup) {
this.container.setStyle({ position: 'absolute', display: 'none' })
this.container.addClassName('popup')
}
this.container.appendChild(table)
// Initialize Calendar
this.update(this.date)
web/javascript/calendarview.js view on Meta::CPAN
// Shows the Calendar
show: function()
{
this.container.show()
if (this.isPopup) {
window._popupCalendar = this
Event.observe(document, 'mousedown', Calendar._checkCalendar)
}
},
// Shows the calendar at the given absolute position
web/javascript/calendarview.js view on Meta::CPAN
}
}
// global object that remembers the calendar
window._popupCalendar = null
EV-WebKit
view release on metacpan or search on metacpan
lib/EV/WebKit.pm view on Meta::CPAN
timeout window display
on_load on_error on_close on_navigate on_console on_dialog on_policy
on_file_chooser on_download on_request on_response on_authenticate
data_dir cache_dir ephemeral cookie_jar jar_format
proxy user_agent devtools title chrome
fingerprint network_fingerprint seed popups fonts
);
# fonts => a fontconfig file, or the directories to build one from. Returns
# undef, or { conf => $abs_file, bind => [ [$path, $read_only], ... ] }.
#
lib/EV/WebKit.pm view on Meta::CPAN
else { $dlg->dismiss }
return 1; # handled -- suppress WebKit's own blocking native dialog
});
$self->{on_policy} = $o{on_policy};
$self->{popups} = $o{popups} // 'follow';
Carp::croak("EV::WebKit: popups must be 'follow' or 'block'")
unless $self->{popups} eq 'follow' || $self->{popups} eq 'block';
$view->signal_connect('decide-policy' => sub {
my (undef, $decision, $type_nick) = @_; # type_nick: navigation-action/new-window-action/response
local $IN_DISPATCH = 1; # on_policy runs nested in WebKit's dispatch frame -- see quit
my $self = $wself or return 0; # $self gone: WebKit applies its own default (allow)
return 0 if $self->{_dead}; # torn down: let WebKit apply its own default
# A target=_blank navigation is ALLOWED by default and then silently
# dropped: WebKit goes on to ask for a window through 'create', which a
# one-view browser does not answer, so the click does nothing at all --
# no navigation, no error, no event. Follow it in this view instead, on
# a clean tick, since starting a navigation inside WebKit's own dispatch
# frame is the wedge $IN_DISPATCH exists for. popups => 'block' keeps
# the drop; an on_policy handler owns the decision itself and is left
# alone. window.open does NOT arrive here -- see the 'create' handler.
if (($type_nick // '') eq 'new-window-action'
&& $self->{popups} eq 'follow' && !$self->{on_policy}) {
my $nu = eval { $decision->get_navigation_action->get_request->get_uri };
if (defined $nu && length $nu) {
$decision->ignore;
weaken(my $ws = $self);
$self->_defer(sub { my ($u) = @_; my $b = $ws or return; $b->go($u) }, $nu);
lib/EV/WebKit.pm view on Meta::CPAN
# window.open() is not a policy decision in WebKitGTK: decide-policy never
# fires for it at all (measured), and WebKit asks for a window through
# 'create' instead. A one-view browser that answers nothing there leaves the
# call returning null with no navigation, no error and no event -- so
# popups => 'follow' has to be honoured here as well as in decide-policy,
# which only ever saw target=_blank. on_policy is deliberately NOT consulted:
# there is no decision object to give it, and inventing one would document a
# policy hook that cannot allow, ignore or download.
$view->signal_connect(create => sub {
my (undef, $nav) = @_;
local $IN_DISPATCH = 1;
my $self = $wself or return undef;
return undef if $self->{_dead} || $self->{popups} ne 'follow';
my $nu = eval { $nav->get_request->get_uri };
return undef unless defined $nu && length $nu;
weaken(my $ws = $self);
$self->_defer(sub { my ($u) = @_; my $b = $ws or return; $b->go($u) }, $nu);
return undef; # no second view: the navigation happens in this one
lib/EV/WebKit.pm view on Meta::CPAN
C<download> is the deliberate exception: a large file legitimately takes longer
than any per-operation timeout would allow, so a download is bounded only by
the server and by C<quit>. Use C<< $dl->cancel >> to end one early.
=item C<< popups => 'follow' | 'block' >>
What to do with a navigation that asks for a new window. Documented in full
under L</EVENTS>, with the rest of the options that shape how the browser
reacts to the page.
lib/EV/WebKit.pm view on Meta::CPAN
See L</network_fingerprint> and L</proxy_port>.
=item C<on_error>, C<on_load>, C<on_navigate>, C<on_close>, C<on_console>, C<on_dialog>, C<on_policy>, C<on_file_chooser>, C<on_download>, C<on_authenticate>, C<on_request>, C<on_response>
Event callbacks -- see L</"EVENTS">, which documents each one and what it is
handed. (C<popups>, above, is documented there too: it is what happens when no
C<on_policy> is set.)
=back
=head1 METHODS
lib/EV/WebKit.pm view on Meta::CPAN
those are injected at document start.
=head1 EVENTS
Optional callbacks passed to C<new>, and the one option that shapes what the
browser does when it has none (C<popups>):
=over 4
=item C<< on_error => sub { my ($err) = @_ } >>
lib/EV/WebKit.pm view on Meta::CPAN
EV::run; # returns when the window is closed
Unlike C<on_console>/C<on_dialog>/C<on_policy>, C<on_close> is delivered on a
clean EV tick, so calling C<EV::break> directly from it is safe.
=item C<< popups => 'follow' | 'block' >>
What to do with a navigation that asks for a new window -- a C<target="_blank">
link, or C<window.open>. WebKit allows such a navigation and then asks for a
window to put it in; a one-view browser has none to give, so the click would
otherwise do nothing whatsoever: no navigation, no error, no event. The default
lib/EV/WebKit.pm view on Meta::CPAN
with C<< type => 'new-window-action' >>, and can refuse it outright with
C<< $p->block >>.
C<window.open> is B<not> a window request WebKitGTK asks about, so no
C<new-window-action> ever arrives for it -- there is nothing to refuse at that
stage. Under the default C<'follow'>, though, the popup is re-issued in this
view as an ordinary navigation, and that B<does> reach C<on_policy> as a
C<navigation-action> carrying the popup's own url. So selective filtering is
possible for both mechanisms; only the decision C<type> differs. (Under
C<'block'> the popup is dropped before any navigation, so C<on_policy> sees
nothing at all.)
One caveat if you are testing this: WebKit's own popup blocker drops a
C<window.open> made from an inline script with no user gesture behind it, and
then nothing reaches C<on_policy> either. Drive it from a real click --
C<< $el->click >> counts -- as a page would.
What C<on_policy> does not decide is B<where> an allowed one goes: WebKit asks
EdgeExpressDB
view release on metacpan or search on metacpan
EdgeExpressDB.xcodeproj/jessica.mode1 view on Meta::CPAN
<key>Perspectives</key>
<array>
<dict>
<key>ChosenToolbarItems</key>
<array>
<string>active-target-popup</string>
<string>active-buildstyle-popup</string>
<string>action</string>
<string>NSToolbarFlexibleSpaceItem</string>
<string>buildOrClean</string>
<string>build-and-runOrDebug</string>
<string>com.apple.ide.PBXToolbarStopButton</string>
EekBoek
view release on metacpan or search on metacpan
lib/EB/Wx/Shell/MainFrame.pm view on Meta::CPAN
}
$prefctl ||=
{
repwin => 0,
errorpopup => 1,
warnpopup => 1,
infopopup => 0,
histlines => 200,
};
$self->SetSize(801, 551);
$self->sizepos_restore("main");
lib/EB/Wx/Shell/MainFrame.pm view on Meta::CPAN
while ( @err ) {
$err = shift(@err);
my @i;
if ( $err =~ /^\?+(.*)/ ) {
$self->ShowText($err, wxRED);
next unless $self->{prefs_errorpopup};
@i = ($1, _T("Fout"), wxOK|wxICON_ERROR);
}
elsif ( $err =~ /^\!+(.*)/ ) {
$self->ShowText($err, Wx::Colour->new("magenta"));
next unless $self->{prefs_warnpopup};
@i = ($1, _T("Waarschuwing"), wxOK|wxICON_WARNING);
}
else {
$self->ShowText($err, wxGREEN);
next unless $self->{prefs_infopopup};
@i = ($err, _T("Mededeling"), wxOK|wxICON_INFORMATION);
}
my $md = Wx::MessageDialog->new($self, @i, wxDefaultPosition);
$md->ShowModal;
$md->Destroy;
Emacs-PDE
view release on metacpan or search on metacpan
lisp/pde-patch.el view on Meta::CPAN
))
(or (nth 2 cperl-hierarchy)
(error "No items found"))
(setq update
;;; (imenu-choose-buffer-index "Packages: " (nth 2 cperl-hierarchy))
(if (if (fboundp 'display-popup-menus-p)
(let ((f 'display-popup-menus-p))
(funcall f))
window-system)
(x-popup-menu t (nth 2 cperl-hierarchy))
(require 'tmm)
(tmm-prompt (nth 2 cperl-hierarchy))))
(if (and update (listp update))
(progn (while (cdr update) (setq update (cdr update)))
(setq update (car update)))) ; Get the last from the list
EmbedIT-WebIT
view release on metacpan or search on metacpan
webdemo/test_site/cgi/perl.pl view on Meta::CPAN
checkbox_group(-name=>'words',
-values=>['eenie','meenie','minie','moe'],
-defaults=>['eenie','minie']),
p,
"What's your favorite color? ",
popup_menu(-name=>'color',
-values=>['red','green','blue','chartreuse']),
p,
submit,
end_form,
hr;
Embperl
view release on metacpan or search on metacpan
Embperl/Form/Control/selectdyn.pm view on Meta::CPAN
<input name="_opt_[+ $name +]" [+ do { local $escmode = 0 ; $self -> get_std_control_attr($req, undef, undef, 'ef-context-menu ' . ($self -> {no_button}?'':'ef-control-selectdyn-has-ctrl' )) } +]
type="text" _ef_attach="ef_selectdyn"
[$if $self -> {size} $]size="[+ $self->{size} +]" [$endif$]
[$if $self -> {showurl} $]_ef_show_url="[+ $self -> {showurl} +]" [$endif$]
[$if $self -> {showurl_append} $]_ef_show_url_append="[+ $self -> {showurl_append} +]" [$endif$]
[$if $self -> {popupurl} $]_ef_popup_url="[+ $self -> {popupurl} +]" [$endif$]
[$if $self -> {datasrcurl} $]_ef_datasrc_url="[+ $self -> {datasrcurl} +]" [$endif$]
[$if $self -> {url_from} $]_ef_url_from="[+ $self -> {url_from} +]" [$endif$]
[$if $self -> {url_to} $]_ef_url_to="[+ $self -> {url_to} +]" [$endif$]
[$if $self -> {dbname} $][+ '_ef_dbname' +]="[+ $self -> {dbname} +]" [$endif$]
[$if $append $]_ef_datasrc_url_append="[+ $append +]" [$endif$]
Embperl/Form/Control/selectdyn.pm view on Meta::CPAN
If given, only items where the value matches the regex given in
C<filter> are displayed.
=head3 showurl
This URL will be requested if the user clicks on SHOW in the popup or
double clicks the control. The value of the selected option will be
appended to that url. Should be something like '/foo/bar.epl?id='.
NOTE: This URL is not encoded in anyway, so make sure it is properly
url encoded.
Etk-Perl
view release on metacpan or search on metacpan
lib/Etk/Constants.pm view on Meta::CPAN
=head1 EXPORTABLE
box combobox fillpolicy messagedialog progressbar scrolledview
toplevelwidget tree textblock table colorpicker mouse toolbar
button shadow image entry popupwindow window swallow slider all
=cut
require Exporter;
our @ISA = qw/Exporter/;
lib/Etk/Constants.pm view on Meta::CPAN
button => [qw/ButtonIcon ButtonText ButtonBothVert ButtonBothHoriz/],
shadow => [qw/ShadowNone ShadowInside ShadowOutside ShadowNoEdge ShadowLeft ShadowAll
ShadowRight ShadowTop ShadowBottom ShadowLeftRight ShadowTopBottom/],
image => [qw/ImageFile ImageEdje ImageStock ImageEvasObject ImageData/],
entry => [qw/ImagePrimary ImageSecondary/],
popupwindow => [qw/BelowRight BelowLeft AboveRight AboveLeft/],
window => [qw/Normal Above Below/],
swallow => [qw/None IncompatibleParent NotRealized NoPart/],
slider => [qw/Continuous Discontinuous Delayed/],
);
lib/Etk/Constants.pm view on Meta::CPAN
use constant {
ImagePrimary=>0,
ImageSecondary=>1
};
# popup window
use constant {
BelowRight=>0,
BelowLeft=>1,
AboveRight=>2,
AboveLeft=>3
Expense-Tracker
view release on metacpan or search on metacpan
public/javascripts/vendor/jquery/jquery-ui-1.8.21.custom.min.js view on Meta::CPAN
* Copyright (c) 2012 AUTHORS.txt; Licensed MIT, GPL */
(function(a,b){a.widget("ui.accordion",{options:{active:0,animated:"slide",autoHeight:!0,clearStyle:!1,collapsible:!1,event:"click",fillSpace:!1,header:"> li > :first-child,> :not(li):even",icons:{header:"ui-icon-triangle-1-e",headerSelected:"ui-icon...
* https://github.com/jquery/jquery-ui
* Includes: jquery.ui.autocomplete.js
* Copyright (c) 2012 AUTHORS.txt; Licensed MIT, GPL */
(function(a,b){var c=0;a.widget("ui.autocomplete",{options:{appendTo:"body",autoFocus:!1,delay:300,minLength:1,position:{my:"left top",at:"left bottom",collision:"none"},source:null},pending:0,_create:function(){var b=this,c=this.element[0].ownerDocu...
* https://github.com/jquery/jquery-ui
* Includes: jquery.ui.button.js
* Copyright (c) 2012 AUTHORS.txt; Licensed MIT, GPL */
(function(a,b){var c,d,e,f,g="ui-button ui-widget ui-state-default ui-corner-all",h="ui-state-hover ui-state-active ",i="ui-button-icons-only ui-button-icon-only ui-button-text-icons ui-button-text-icon-primary ui-button-text-icon-secondary ui-button...
* https://github.com/jquery/jquery-ui
( run in 1.735 second using v1.01-cache-2.11-cpan-364913b4093 )