view release on metacpan or  search on metacpan

KDE-1.1.1/KNoteBook.pig  view on Meta::CPAN

    void menuChoice(int) slot;
    void menuChoiceRedirect(int) slot;
    void okClicked() slot;
    void okclicked() signal;
    virtual void paintEvent(QPaintEvent *);
    void popupMenu(QPoint) slot;
    virtual void resizeEvent(QResizeEvent *);
    void setSizes();
    void showSection(int) slot;
    void tabScroll(ArrowType);
} KDE::NoteBook;

 view release on metacpan or  search on metacpan

smoke/qt/header_list  view on Meta::CPAN

qpntarry.h
qpointarray.h
qpoint.h
qpolygonscanner.h
qpopmenu.h
qpopupmenu.h
qprintdialog.h
qprinter.h
qprndlg.h
qprocess.h
qprogbar.h

 view release on metacpan or  search on metacpan

lib/PerlVision.pm  view on Meta::CPAN

PerlVision provides various text-mode user interface widgets,
including checkboxes, radiobuttons, pushbuttons, single and multiple
selection listboxes, an extensible editbox, a scrollable viewbox,
single line text entry fields, a menubar with pulldown menus, and
popup dialog boxes with multiple controls.

=head1 CLASSES

The following object classes are defined within PerlVision:

lib/PerlVision.pm  view on Meta::CPAN

                            $control2, 1, 3, 3, 1, 2, 2, 3, 0,
                            ...);

C<"Title"> is currently ignored.

C<$style>: if 1, creates a popup that is 'raised'. if 0, creates a
popup that is 'depressed'

C<$color> is the background color for the dialog. I'd recommend 6
(cyan) because of the overall hardcoded nature of colors at present.

C<$control*> are C<PerlVision::*> objects that you created beforehand They

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

root/static/images/h2_bg.png
root/static/images/header.png
root/static/images/main_bg.png
root/static/images/onion-grey.png
root/static/images/onion.gif
root/static/images/popup_bg.png
root/static/images/popup_bottomleft.png
root/static/images/popup_close.png
root/static/images/popup_resize.png
root/static/images/popup_title.png
root/static/images/popup_topright.png
root/static/js/combined-20100403.js
root/static/js/exploreperl.js
root/static/js/OpenThought.js
root/static/js/perldoc.js
root/static/js/PerlSyntax.js

 view release on metacpan or  search on metacpan

t/data/cookbook.html  view on Meta::CPAN

            <input name="Choices" type="checkbox" value="test">Test</input>
          </span>
        </td>

        <td width="100" valign="top">
          <span petal:replace="structure query/popup_menu 'Choices' choices '' 'true'">
            <input name="Choices" type="checkbox" value="test">Test</input>
          </span>
        </td>

        <td valign="top">

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

lib/Photography/Website/Configure.pm
share/static/SourceSansPro-ExtraLight.ttf
share/static/SourceSansPro-ExtraLight.woff
share/static/jquery-1.7.2.js
share/static/jquery-1.7.2.min.js
share/static/jquery.magnific-popup.js
share/static/magnific-popup.css
share/static/main.css
share/template.html
t/photography-website.t

 view release on metacpan or  search on metacpan

Pilot/tasklist.pl  view on Meta::CPAN

    print     '<TH WIDTH="5%">';
    print     '<TH WIDTH="60%">';
    
    print '<TR>';
    print '<TD>Priority:<TD>';
    print $q->popup_menu(-name    => 'Priority',
                         -values  => [ '0','1', '2', '3'  ],
                         -default => $tasks[$index]{"Priority"} - 1);
    print '</TR>';
    
    print '<TR>';

 view release on metacpan or  search on metacpan

lib/Plack/App/DAIA/Validator.pm  view on Meta::CPAN

<form method="post" accept-charset="utf-8" action="">
HTML

    $html .= $msg . $error .
     fieldset(label('Input: ',
            popup_menu('in',['','json','xml'],'',
                       {''=>'Guess','json'=>'DAIA/JSON','xml'=>'DAIA/XML'})
      )).
      fieldset('either', label('URL: ', textfield(-name=>'url', -size=>70, -value => $url)),
        'or', label('Data:'),
        textarea( -name=>'data', -rows=>20, -cols=>80, -value => $data),
      ).
      fieldset(
        label('Output: ',
            popup_menu('out',
                [ sort { $FORMATS->{$a} cmp $FORMATS->{$b} } keys %$FORMATS ],
                $outformat, $FORMATS )
        ), '&#xA0;',
        label('JSONP Callback: ', textfield(-name=>'callback',-value=>$callback))
      ).

 view release on metacpan or  search on metacpan

share/jquery.js  view on Meta::CPAN

		// Create the request object
		var xhr = s.xhr();

		// Open the socket
		// Passing null username, generates a login popup on Opera (#2865)
		if( s.username )
			xhr.open(type, s.url, s.async, s.username, s.password);
		else
			xhr.open(type, s.url, s.async);

 view release on metacpan or  search on metacpan

lib/Plagger/Plugin/CustomFeed/Frepa.pm  view on Meta::CPAN

    return $item;
}

sub top_re {
    return <<'RE';
<a href="http://(?:frepa\.livedoor\.com/.*?/|www\.frepa\.livedoor\.com/)"(?: rel="popup")?><img src="(http://img\d+\.(?:ico\.frepa\.livedoor\.com/member_photo/|bbs\.frepa\.livedoor\.com/community_board/)[^"]*?\.(?i:jpe?g|gif|png))" /></a>
<br /><a href=.+?
<div class="phframebtm"><h3>(.*?)..<span>\(\d+\)</span></h3></div>
RE
}

 view release on metacpan or  search on metacpan

lib/Playwright/Page.pm  view on Meta::CPAN

        object  => $self->{guid},
        type    => $self->{type}
    );
}

sub popup {
    my $self = shift;
    return $self->_api_request(
        args    => [@_],
        command => 'popup',
        object  => $self->{guid},
        type    => $self->{type}
    );
}

lib/Playwright/Page.pm  view on Meta::CPAN

Execute the Page::isClosed playwright routine.

See L<https://playwright.dev/docs/api/class-Page#Page-isClosed> for more information.

=head2 popup(@args)

Execute the Page::popup playwright routine.

See L<https://playwright.dev/docs/api/class-Page#Page-popup> for more information.

=head2 content(@args)

Execute the Page::content playwright routine.

 view release on metacpan or  search on metacpan

PlotCalendar/Day.pm  view on Meta::CPAN

#	Version 1.1 - 6/99 Major code cleanup, and testing really big and
#	really tiny images. Added documentation.

#  To do
#   Add popup for clipped text (or maybe put it in message bar)
#	Add more intelligence for clip text
#	Add all the Tk stuff 8-)
#
#

 view release on metacpan or  search on metacpan

classdocs/css/ppicf.css  view on Meta::CPAN

}
.cs {
	color: #339999;
}

.popupdiv {
    font-family: fixed, Courier;
    font-size: 8pt;
    font-style: normal;
    /* lineheight: 10pt; */
    border:solid 1px #666666;

 view release on metacpan or  search on metacpan

t/perlcyg.pod  view on Meta::CPAN

=head2 Tainting Checks

When Perl is running in taint mode, C<$ENV{PATH}> is considered tainted
and not used, so DLLs not in the default system directories will not
be found.  While the tests are running you will see warnings popup from
the system with messages like:

  Win9x
    Error Starting Program
    A required .DLL file, CYGWIN1.DLL, was not found

t/perlcyg.pod  view on Meta::CPAN

  WinNT
    perl.exe - Unable to Locate DLL
    The dynamic link library cygwin1.dll could not be found in the
      specified path ...

Just click OK and ignore them.  When running `C<make test>', 2 popups
occur.  During `C<./perl harness>', 4 popups occur.  Also, these tests
will fail:

  Failed Test           List of failed
  ------------------------------------
  op/taint.t            1, 3, 31, 37

 view release on metacpan or  search on metacpan

lib/Prima/codecs/win32/include/X11/Xlib.h  view on Meta::CPAN

    int bit_gravity;		/* one of bit gravity values */
    int win_gravity;		/* one of the window gravity values */
    int backing_store;		/* NotUseful, WhenMapped, Always */
    unsigned long backing_planes;/* planes to be preseved if possible */
    unsigned long backing_pixel;/* value to use in restoring planes */
    Bool save_under;		/* should bits under be saved? (popups) */
    long event_mask;		/* set of events that should be saved */
    long do_not_propagate_mask;	/* set of events that should not propagate */
    Bool override_redirect;	/* boolean value for override-redirect */
    Colormap colormap;		/* color map to be associated with window */
    Cursor cursor;		/* cursor to be displayed (or None) */

 view release on metacpan or  search on metacpan

Prima/Classes.pm  view on Meta::CPAN

	packPropagate     => 1,
	placeInfo         => undef,
	pointerIcon       => undef,
	pointer           => cr::Default,
	pointerType       => cr::Default,
	popup             => undef,
	popupColor             => cl::NormalText,
	popupBackColor         => cl::Normal,
	popupHiliteColor       => cl::HiliteText,
	popupHiliteBackColor   => cl::Hilite,
	popupDisabledColor     => cl::DisabledText,
	popupDisabledBackColor => cl::Disabled,
	popupLight3DColor      => cl::Light3DColor,
	popupDark3DColor       => cl::Dark3DColor,
	popupItems        => undef,
	right             => 200,
	scaleChildren     => 1,
	selectable        => 0,
	selected          => 0,
	selectedWidget    => undef,

Prima/Classes.pm  view on Meta::CPAN

		size              => [ 100, 100],
		sizeMin           => [ 0, 0],
		sizeMax           => [ 16384, 16384],
	);
	@$def{keys %WidgetProfile} = values %WidgetProfile;
	@$def{qw( font popupFont)} = ( $_[ 0]-> get_default_font, $_[ 0]-> get_default_popup_font);
	return $def;
}

sub profile_check_in
{

Prima/Classes.pm  view on Meta::CPAN

				$back, $owner, fr::Color
			);
			$p-> {$back} = $clr if defined $clr;
		}
	}
	for my $fon (qw(font popupFont)) {
		my $f = Prima::Widget::fetch_resource(
			$cls, $name, 'Font', $fon, $owner, fr::Font);
		next unless defined $f;
		unless ( exists $p-> {$fon}) {
			$p-> {$fon} = $f;

Prima/Classes.pm  view on Meta::CPAN

		my $o_ = 'owner' . ucfirst $_;
		$p-> { $_} = $owner-> $_() if
			( $p-> { $o_} = exists $p-> { $_} ? 0 :
				( exists $p-> { $o_} ? $p-> { $o_} : $default-> {$o_}));
	}
	for ( qw( font popupFont)) {
		$p-> { $_} = {} unless exists $p-> { $_};
		$p-> { $_} = Prima::Widget-> font_match( $p-> { $_}, $default-> { $_});
	}

	if ( exists( $p-> { origin})) {

Prima/Classes.pm  view on Meta::CPAN

	$p-> { left}  = $p-> { right} - $default-> {width}
		if ( !exists( $p-> { left}) && !exists( $p-> { width}) && exists($p-> {right}));
	$p-> { right} = $p-> { left} + $default-> { width}
		if ( !exists( $p-> { right}) && !exists( $p-> { width}) && exists( $p-> { left}));

	if ( $p-> { popup}) {
		$p-> { popupItems} = $p-> {popup}-> get_items('');
		delete $p-> {popup};
	}

	my $current = exists $p-> { current} ? $p-> { current} : $default-> { current};
	if ( defined($owner) && !$current && !$owner-> currentWidget) {
		my $e = exists $p-> { enabled} ? $p-> { enabled} : $default-> { enabled};

Prima/Classes.pm  view on Meta::CPAN

sub disabledBackColor     {return shift-> colorIndex( ci::Disabled    , @_)};
sub disabledColor         {return shift-> colorIndex( ci::DisabledText, @_)};
sub hiliteBackColor       {return shift-> colorIndex( ci::Hilite      , @_)};
sub hiliteColor           {return shift-> colorIndex( ci::HiliteText  , @_)};
sub light3DColor          {return shift-> colorIndex( ci::Light3DColor, @_)};
sub popupFont             {($#_)?$_[0]-> set_popup_font ($_[1])  :return Prima::Font-> new($_[0], "get_popup_font", "set_popup_font")}
sub popupColor            { return shift-> popupColorIndex( ci::NormalText  , @_)};
sub popupBackColor        { return shift-> popupColorIndex( ci::Normal      , @_)};
sub popupDisabledBackColor{ return shift-> popupColorIndex( ci::Disabled    , @_)};
sub popupHiliteBackColor  { return shift-> popupColorIndex( ci::Hilite      , @_)};
sub popupDisabledColor    { return shift-> popupColorIndex( ci::DisabledText, @_)};
sub popupHiliteColor      { return shift-> popupColorIndex( ci::HiliteText  , @_)};
sub popupDark3DColor      { return shift-> popupColorIndex( ci::Dark3DColor , @_)};
sub popupLight3DColor     { return shift-> popupColorIndex( ci::Light3DColor, @_)};

sub x_centered       {($#_)?$_[0]-> set_centered(1,0)      :$_[0]-> raise_wo("x_centered"); }
sub y_centered       {($#_)?$_[0]-> set_centered(0,1)      :$_[0]-> raise_wo("y_centered"); }

sub hint