Result:
found more than 404 distributions - search limited to the first 2001 files matching your query
( run in 1.056 )
Games-Worms
view release on metacpan or search on metacpan
lib/Games/Worms/Tk/Board.pm view on Meta::CPAN
-bitmap => 'info',
-buttons => ["OK"]
);
# $about_button->configure(-wraplength => '6i');
my $file = $menubar->Menubutton(qw/-text File -underline 0 -menuitems / =>
[
[Button => '~Quit', -command => [ \&_board_cleanup ]],
])->grid(qw/-sticky w/);
my $about = $menubar->Menubutton(qw/-text About -underline 0 -menuitems/ =>
[
[Button => "~About Worms", -command => [ $about_button => 'Show' ]],
])->grid(qw/-row 0 -column 1 -sticky w/);
$board->{'canvas'} = $mw->Canvas(
Gantry
view release on metacpan or search on metacpan
root/moxie/results.tt view on Meta::CPAN
[%- IF self.fish_config( 'show_dev_navigation' ) %]
<dl class="dev_nav">
<dd>
<select id="linkMenu"
onchange="window.location = this.options[this.selectedIndex].value">
[%- FOREACH page IN self.site_links.sort( 'label' ) %]
<option value='[% page.link %]'
[% page.link == self.location ? 'selected="selected"' : '' %]>
[%- page.label %]</option>
Gapp
view release on metacpan or search on metacpan
ex/bigexample.pl view on Meta::CPAN
icon => 'gtk-media-play',
default_size => [ 900, 400 ],
content => [
Gapp::VBox->new(
content => [
Gapp::MenuBar->new(
content => [
Gapp::MenuItem->new(
label => 'File',
menu => Gapp::Menu->new(
content => [
Gapp::ImageMenuItem->new( action => Quit, accel_path => '<Gnumeric-Sheet>/File/Exit' ),
]
)
),
Gapp::MenuItem->new(
label => 'Edit',
menu => Gapp::Menu->new(
content => [
Gapp::ImageMenuItem->new( action => New, accel_path => '<Gnumeric-Sheet>/File/Exit' ),
Gapp::ImageMenuItem->new( action => Edit ),
Gapp::ImageMenuItem->new( action => Delete ),
]
)
),
],
expand => 0,
GedNav
view release on metacpan or search on metacpan
GedNav/Menu.pm view on Meta::CPAN
package GedNav::Menu;
use strict;
use File::Basename;
Gedcom
view release on metacpan or search on metacpan
save_changes();
show_record("", select_record("FAM"), "full");
};
my $file_menu = $Top->{_file_menu} =
$menu_fr->Menubutton(-text => "File", -underline => 0)
->pack(-side => "left");
$file_menu->command(-label => "Load", -underline => 0, -command => $load);
$Top->bind("<Alt-l>", $load);
$file_menu->command(-label => "Save", -underline => 2, -command => $save);
$Top->bind("<Alt-v>", $save);
$file_menu->command(-label => "Quit", -underline => 0, -command => $quit);
$Top->bind("<Alt-q>", $quit);
my $ind_menu = $Top->{_ind_menu} =
$menu_fr->Menubutton(-text => "Individual", -underline => 0)
->pack(-side => "left");
$ind_menu->command(-label => "Select", -underline => 0, -command => $iselect);
$Top->bind("<Alt-e>", $iselect);
$ind_menu->command(-label => "New", -underline => 0, -command => $inew);
$Top->bind("<Alt-n>", $inew);
$Top->bind("<Alt-v>", $rsave);
$ind_menu->command(-label => "Delete", -underline => 0, -command => $idelete);
$Top->bind("<Alt-d>", $rsave);
my $fam_menu = $Top->{_fam_menu} =
$menu_fr->Menubutton(-text => "Family", -underline => 5)
->pack(-side => "left");
$fam_menu->command(-label => "Select", -underline => 0, -command => $fselect);
$Top->bind("<Alt-c>", $fselect);
$fam_menu->command(-label => "Save", -underline => 2, -command => $rsave);
sub add_show_menu($)
{
my ($ind) = @_;
$Top->Busy;
$Top->{_show_menu}->destroy if exists $Top->{_show_menu};
$Top->{_show_menu} = $Top->{_menu_fr}->Menubutton
(
-text => "Show",
-underline => 0,
-menuitems => show_menu_children($ind)
)->pack(-side => "left");
-command => sub { create_fams("_HUSB", "_CHIL0", "_FAMC") }
],
],
};
$Top->{_add_menu}{$Rec->{tag}} = $Top->{_menu_fr}->Menubutton
(
-text => "Add",
-underline => 0,
-menuitems => add_menu_children
(
Gentoo-Probe
view release on metacpan or search on metacpan
t/sandbox/pkg-files.lst view on Meta::CPAN
/usr/share/gtk-doc/html/gtk/GtkCellRenderer.html
/usr/share/gtk-doc/html/gtk/GtkCellRendererPixbuf.html
/usr/share/gtk-doc/html/gtk/GtkCellRendererText.html
/usr/share/gtk-doc/html/gtk/GtkCellRendererToggle.html
/usr/share/gtk-doc/html/gtk/GtkCheckButton.html
/usr/share/gtk-doc/html/gtk/GtkCheckMenuItem.html
/usr/share/gtk-doc/html/gtk/GtkColorButton.html
/usr/share/gtk-doc/html/gtk/GtkColorSelection.html
/usr/share/gtk-doc/html/gtk/GtkColorSelectionDialog.html
/usr/share/gtk-doc/html/gtk/GtkCombo.html
/usr/share/gtk-doc/html/gtk/GtkComboBox.html
t/sandbox/pkg-files.lst view on Meta::CPAN
/usr/share/gtk-doc/html/gtk/GtkIMContext.html
/usr/share/gtk-doc/html/gtk/GtkIMContextSimple.html
/usr/share/gtk-doc/html/gtk/GtkIMMulticontext.html
/usr/share/gtk-doc/html/gtk/GtkIconTheme.html
/usr/share/gtk-doc/html/gtk/GtkImage.html
/usr/share/gtk-doc/html/gtk/GtkImageMenuItem.html
/usr/share/gtk-doc/html/gtk/GtkInputDialog.html
/usr/share/gtk-doc/html/gtk/GtkInvisible.html
/usr/share/gtk-doc/html/gtk/GtkItem.html
/usr/share/gtk-doc/html/gtk/GtkItemFactory.html
/usr/share/gtk-doc/html/gtk/GtkLabel.html
/usr/share/gtk-doc/html/gtk/GtkLayout.html
/usr/share/gtk-doc/html/gtk/GtkList.html
/usr/share/gtk-doc/html/gtk/GtkListItem.html
/usr/share/gtk-doc/html/gtk/GtkListStore.html
/usr/share/gtk-doc/html/gtk/GtkMenu.html
/usr/share/gtk-doc/html/gtk/GtkMenuBar.html
/usr/share/gtk-doc/html/gtk/GtkMenuItem.html
/usr/share/gtk-doc/html/gtk/GtkMenuShell.html
/usr/share/gtk-doc/html/gtk/GtkMessageDialog.html
/usr/share/gtk-doc/html/gtk/GtkMisc.html
/usr/share/gtk-doc/html/gtk/GtkNotebook.html
/usr/share/gtk-doc/html/gtk/GtkObject.html
/usr/share/gtk-doc/html/gtk/GtkOldEditable.html
/usr/share/gtk-doc/html/gtk/GtkOptionMenu.html
/usr/share/gtk-doc/html/gtk/GtkPaned.html
/usr/share/gtk-doc/html/gtk/GtkPixmap.html
/usr/share/gtk-doc/html/gtk/GtkPlug.html
/usr/share/gtk-doc/html/gtk/GtkPreview.html
/usr/share/gtk-doc/html/gtk/GtkProgress.html
/usr/share/gtk-doc/html/gtk/GtkProgressBar.html
/usr/share/gtk-doc/html/gtk/GtkRadioAction.html
/usr/share/gtk-doc/html/gtk/GtkRadioButton.html
/usr/share/gtk-doc/html/gtk/GtkRadioMenuItem.html
/usr/share/gtk-doc/html/gtk/GtkRadioToolButton.html
/usr/share/gtk-doc/html/gtk/GtkRange.html
/usr/share/gtk-doc/html/gtk/GtkRuler.html
/usr/share/gtk-doc/html/gtk/GtkScale.html
/usr/share/gtk-doc/html/gtk/GtkScrollbar.html
/usr/share/gtk-doc/html/gtk/GtkScrolledWindow.html
/usr/share/gtk-doc/html/gtk/GtkSeparator.html
/usr/share/gtk-doc/html/gtk/GtkSeparatorMenuItem.html
/usr/share/gtk-doc/html/gtk/GtkSeparatorToolItem.html
/usr/share/gtk-doc/html/gtk/GtkSettings.html
/usr/share/gtk-doc/html/gtk/GtkSizeGroup.html
/usr/share/gtk-doc/html/gtk/GtkSocket.html
/usr/share/gtk-doc/html/gtk/GtkSpinButton.html
/usr/share/gtk-doc/html/gtk/GtkStatusbar.html
/usr/share/gtk-doc/html/gtk/GtkStyle.html
/usr/share/gtk-doc/html/gtk/GtkTable.html
/usr/share/gtk-doc/html/gtk/GtkTearoffMenuItem.html
/usr/share/gtk-doc/html/gtk/GtkText.html
/usr/share/gtk-doc/html/gtk/GtkTextBuffer.html
/usr/share/gtk-doc/html/gtk/GtkTextMark.html
/usr/share/gtk-doc/html/gtk/GtkTextTag.html
/usr/share/gtk-doc/html/gtk/GtkTextTagTable.html
t/sandbox/pkg-files.lst view on Meta::CPAN
/usr/share/gtk-doc/html/gtk/GtkViewport.html
/usr/share/gtk-doc/html/gtk/GtkWidget.html
/usr/share/gtk-doc/html/gtk/GtkWindow.html
/usr/share/gtk-doc/html/gtk/GtkWindowGroup.html
/usr/share/gtk-doc/html/gtk/LayoutContainers.html
/usr/share/gtk-doc/html/gtk/MenusAndCombos.html
/usr/share/gtk-doc/html/gtk/MiscObjects.html
/usr/share/gtk-doc/html/gtk/NumericEntry.html
/usr/share/gtk-doc/html/gtk/Ornaments.html
/usr/share/gtk-doc/html/gtk/PlugSocket.html
/usr/share/gtk-doc/html/gtk/ScrollingWidgets.html
Gentoo-Util-VirtualDepend
view release on metacpan or search on metacpan
share/module-to-gentoo.csv view on Meta::CPAN
Gtk2::Ex::FormFactory::Image,dev-perl/gtk2-ex-formfactory
Gtk2::Ex::FormFactory::Label,dev-perl/gtk2-ex-formfactory
Gtk2::Ex::FormFactory::Layout,dev-perl/gtk2-ex-formfactory
Gtk2::Ex::FormFactory::List,dev-perl/gtk2-ex-formfactory
Gtk2::Ex::FormFactory::Loader,dev-perl/gtk2-ex-formfactory
Gtk2::Ex::FormFactory::Menu,dev-perl/gtk2-ex-formfactory
Gtk2::Ex::FormFactory::MenuItem,dev-perl/gtk2-ex-formfactory
Gtk2::Ex::FormFactory::Notebook,dev-perl/gtk2-ex-formfactory
Gtk2::Ex::FormFactory::Popup,dev-perl/gtk2-ex-formfactory
Gtk2::Ex::FormFactory::ProgressBar,dev-perl/gtk2-ex-formfactory
Gtk2::Ex::FormFactory::Proxy,dev-perl/gtk2-ex-formfactory
Gtk2::Ex::FormFactory::ProxyBuffered,dev-perl/gtk2-ex-formfactory
share/module-to-gentoo.csv view on Meta::CPAN
Padre::Wx::Dialog::Patch,app-editors/padre
Padre::Wx::Dialog::PerlFilter,app-editors/padre
Padre::Wx::Dialog::PluginManager,app-editors/padre
Padre::Wx::Dialog::Positions,app-editors/padre
Padre::Wx::Dialog::Preferences,app-editors/padre
Padre::Wx::Dialog::QuickMenuAccess,app-editors/padre
Padre::Wx::Dialog::RefactorSelectFunction,app-editors/padre
Padre::Wx::Dialog::RegexEditor,app-editors/padre
Padre::Wx::Dialog::Replace,app-editors/padre
Padre::Wx::Dialog::ReplaceInFiles,app-editors/padre
Padre::Wx::Dialog::SLOC,app-editors/padre
share/module-to-gentoo.csv view on Meta::CPAN
Padre::Wx::Directory::Search,app-editors/padre
Padre::Wx::Directory::TreeCtrl,app-editors/padre
Padre::Wx::Display,app-editors/padre
Padre::Wx::Editor,app-editors/padre
Padre::Wx::Editor::Lock,app-editors/padre
Padre::Wx::Editor::Menu,app-editors/padre
Padre::Wx::FBP::About,app-editors/padre
Padre::Wx::FBP::Bookmarks,app-editors/padre
Padre::Wx::FBP::Breakpoints,app-editors/padre
Padre::Wx::FBP::CPAN,app-editors/padre
Padre::Wx::FBP::DebugOptions,app-editors/padre
share/module-to-gentoo.csv view on Meta::CPAN
Padre::Wx::HtmlWindow,app-editors/padre
Padre::Wx::Icon,app-editors/padre
Padre::Wx::Left,app-editors/padre
Padre::Wx::ListView,app-editors/padre
Padre::Wx::Main,app-editors/padre
Padre::Wx::Menu,app-editors/padre
Padre::Wx::Menu::Debug,app-editors/padre
Padre::Wx::Menu::Edit,app-editors/padre
Padre::Wx::Menu::File,app-editors/padre
Padre::Wx::Menu::Help,app-editors/padre
Padre::Wx::Menu::Perl,app-editors/padre
Padre::Wx::Menu::Refactor,app-editors/padre
Padre::Wx::Menu::Run,app-editors/padre
Padre::Wx::Menu::Search,app-editors/padre
Padre::Wx::Menu::Tools,app-editors/padre
Padre::Wx::Menu::View,app-editors/padre
Padre::Wx::Menu::Window,app-editors/padre
Padre::Wx::Menubar,app-editors/padre
Padre::Wx::Notebook,app-editors/padre
Padre::Wx::Nth,app-editors/padre
Padre::Wx::Outline,app-editors/padre
Padre::Wx::Output,app-editors/padre
Padre::Wx::Panel::Breakpoints,app-editors/padre
GetWeb
view release on metacpan or search on metacpan
pub/help/FORMS.html view on Meta::CPAN
<pre>
Choose ([X]) Blue or ([ ]) Green, but not both!
</pre>
Menus look like this:
<pre>
Choose:
[X] Red
Getopt-EvaP
view release on metacpan or search on metacpan
$uht->pack(qw(-side left -expand yes -fill both));
$uhs->pack(qw(-side right -fill y));
$uhm = $USAGE->Frame(qw/-borderwidth 2 -relief raised/);
$uhm->pack(qw(-side top -fill x -expand yes));
$uhmf = $uhm->Menubutton(qw(-text File -underline 0 -relief raised));
$uhmf->pack(qw(-side left));
$uhmf->command(
-label => 'Close',
-command => [$USAGE => 'withdraw'],
-underline => 0,
$uhll->insert('end', ' Application');
$uhll->insert('end', 'Lists');
$uhll->insert('end', 'The `Do It\' Button');
$uhll->insert('end', 'Windows');
$uhll->insert('end', ' Main Window');
$uhll->insert('end', ' Main File Menu');
$uhll->insert('end', ' Main Edit Menu');
$uhll->insert('end', ' Main Help Menu');
$uhll->insert('end', ' Output Window');
$uhll->insert('end', ' Output File Menu');
$uhll->insert('end', ' Help Window');
$uhll->insert('end', ' Help File Menu');
$uhll->insert('end', 'Revision History');
$uhll->insert('end', 'Credits');
$uht->tag('configure', qw(bold -font -Adobe-Courier-Bold-O-Normal-*-120-*));
$uht->tag('configure', qw(big -font -Adobe-Courier-Bold-R-Normal-*-140-*));
####### New section #######
$uht->insert('end', '
Main File Menu
', 'big');
$start = $uht->index('end') - 4;
$uht->mark('set', 'mark_usage_help_____Main_File_Menu', "$start.0");
$uht->insert('end', 'The Main window ');
$uht->insert('end', 'File', 'bold');
$uht->insert('end', ' menu contains these selections:
');
####### New section #######
$uht->insert('end', '
Main Edit Menu
', 'big');
$start = $uht->index('end') - 4;
$uht->mark('set', 'mark_usage_help_____Main_Edit_Menu', "$start.0");
$uht->insert('end', 'The Main window ');
$uht->insert('end', 'Edit', 'bold');
$uht->insert('end', ' menu contains this selection:
');
####### New section #######
$uht->insert('end', '
Main Help Menu
', 'big');
$start = $uht->index('end') - 4;
$uht->mark('set', 'mark_usage_help_____Main_Help_Menu', "$start.0");
$uht->insert('end', 'The Main window ');
$uht->insert('end', 'Help', 'bold');
$uht->insert('end', ' menu contains these selections:
');
####### New section #######
$uht->insert('end', '
Output File Menu
', 'big');
$start = $uht->index('end') - 4;
$uht->mark('set', 'mark_usage_help_____Output_File_Menu', "$start.0");
$uht->insert('end', 'The Output window ');
$uht->insert('end', 'File', 'bold');
$uht->insert('end', ' menu contains these selections:
');
$uht->insert('end', '
####### New section #######
$uht->insert('end', '
Help File Menu
', 'big');
$start = $uht->index('end') - 4;
$uht->mark('set', 'mark_usage_help_____Help_File_Menu', "$start.0");
$uht->insert('end', 'The Help window ');
$uht->insert('end', 'File', 'bold');
$uht->insert('end', ' menu contains this selection:
');
$uht->insert('end', '
Getopt-Janus
view release on metacpan or search on metacpan
lib/Getopt/Janus/Tk.pm view on Meta::CPAN
foreach my $i (@$items) {
my($f,$d) = @$i;
next unless defined $f or defined $d;
require Tk::Menubutton;
my $mb = $pane->Menubutton(
qw/ -relief raised -takefocus 1 -indicatoron 1 -direction right/,
-text => $f,
);
$mb->configure( -menu => $mb->menu(qw/-tearoff 0/) );
Gimp
view release on metacpan or search on metacpan
lib/Gimp/Extension.pm view on Meta::CPAN
function_name - Short description of the function
=head1 SYNOPSIS
<Image>/Filters/Menu/Location...
=head1 DESCRIPTION
Longer description of the function...
Glade-Perl-Two
view release on metacpan or search on metacpan
Glade/Two/Generate.pm view on Meta::CPAN
'widgets' => {
'underlineable' => " ".
join(" ", (
'GtkLabel',
'GtkButton',
'GtkMenuItem')
)." ",
'to_ignore' => join (' ',
'Placeholder',
'Custom',
),
Glade/Two/Generate.pm view on Meta::CPAN
'GnomePropertyBox',
'GnomeSpell',
# 'GtkCalendar', # In Gtk after CVS-19990914
'GtkClock',
'GtkDial',
'GtkPixmapMenuItem',
),
'gnome_db' => join( " ",
'GnomeDbGrid',
'GnomeDbList',
'GnomeDbCombo',
Glade/Two/Generate.pm view on Meta::CPAN
} else {
# We probably have a parent to pack into somehow
eval "\$refpar = (ref ${current_form}\{'$parentname'})||'UNDEFINED !!';";
$Glade_Perl->diag_print(5, "Adding %s to %s", $refwid, $refpar);
unless (eval "exists ${current_form}\{'$parentname'}") {
if ($Glade_Perl->source->quick_gen or 'Gtk2::Menu' eq $refwid) {
# We are a popup menu so we don't have a root window
# $class->add_to_UI($depth, "${first_form}->popup_enable;");
$class->add_to_UI($depth,
"${current_form}\{'tooltips'} = new Gtk2::Tooltips;");
$class->add_to_UI($depth,
Glade/Two/Generate.pm view on Meta::CPAN
}
if ($postpone_show) {
# Do nothing
#---------------------------------------
} elsif (' Gtk2::ImageMenuItem ' =~ m/ $refpar / &&
' Gtk2::Image ' =~ m/ $refwid / ) {
# $class->use_par($proto->{'packing'}, 'type', $NOT_WIDGET|$MAYBE)) {
#print "We have a $refpar to pack into\n";
$class->add_to_UI($depth,
"${current_form}\{'$parentname'}->set_image(".
Glade/Two/Generate.pm view on Meta::CPAN
$class->add_to_UI($depth,
"${current_form}\{'$parentname'}->put(".
"\$widgets->{'$childname'}, $x, $y);");
#---------------------------------------
} elsif (' Gtk2::MenuBar Gtk2::Menu ' =~ m/ $refpar /) {
# We are a menuitem
$class->add_to_UI($depth,
"${current_form}\{'$parentname'}->append(".
"\$widgets->{'$childname'});");
#---------------------------------------
} elsif (' Gtk2::MenuItem Gtk2::PixmapMenuItem ' =~ m/ $refpar /) {
# We are a menu for a meuitem
$class->add_to_UI($depth,
"${current_form}\{'$parentname'}->set_submenu(".
"\$widgets->{'$childname'});");
$postpone_show = 1;
#---------------------------------------
} elsif (' Gtk2::OptionMenu ' =~ m/ $refpar /) {
# We are a menu for an optionmenu
$class->add_to_UI($depth,
"${current_form}\{'$parentname'}->set_menu(".
"\$widgets->{'$childname'});");
$postpone_show = 1;
Glade/Two/Generate.pm view on Meta::CPAN
# Gnome::App::add_docked() or Gnome::App::add_dock_item() instead?
# $class->add_to_UI($depth,
# "${current_form}\{'$parentname'}->set_contents(".
# "\$widgets->{'$childname'});");
} elsif (' Gtk2::MenuBar ' =~ m/ $refwid /) {
$class->add_to_UI($depth,
"${current_form}\{'$parentname'}->set_menus(".
"\$widgets->{'$childname'});");
} else {
Glade/Two/Generate.pm view on Meta::CPAN
'area_height' => 'height',
},
'GtkList' => {
$WIDGET => $BROKEN,
},
'GtkMenuBar' => {
'shadow_type' => $OBSOLETE,
},
'GtkMenuItem' => {
'right_justify' => $OBSOLETE,
},
'GtkNotebook' => {
'popup_enable' => 'enable-popup',
},
'GtkOptionMenu' => {
'initial_choice' => 'history',
},
'GtkPacker' => {
$WIDGET => $REMOVED,
},
'GtkPixmap' => {
$WIDGET => $DEPRECATED,
$CONVERT_TO => 'GtkImage',
},
'GtkPixmapMenuItem' => {
$WIDGET => $REMOVED,
},
'GtkRange' => {
'policy' => 'update-policy',
},
Glade-Perl
view release on metacpan or search on metacpan
Glade/PerlUI.pm view on Meta::CPAN
'GnomePropertyBox',
'GnomeSpell',
'GtkCalendar', # In Gtk after CVS-19990914
'GtkClock',
'GtkDial',
'GtkPixmapMenuItem',
);
$gnome_db_widgets = join( " ",
'GnomeDbGrid',
'GnomeDbList',
Glade/PerlUI.pm view on Meta::CPAN
} else {
# We probably have a parent to pack into somehow
eval "\$refpar = (ref ${current_form}\{'$parentname'})||'UNDEFINED !!';";
unless (eval "exists ${current_form}\{'$parentname'}") {
if ($Glade_Perl->source->quick_gen or 'Gtk::Menu' eq $refwid) {
# We are a popup menu so we don't have a root window
# $class->add_to_UI( $depth, "${first_form}->popup_enable;" );
$class->add_to_UI($depth,
"${current_form}\{'tooltips'} = new Gtk::Tooltips;" );
$class->add_to_UI($depth,
Glade/PerlUI.pm view on Meta::CPAN
$class->add_to_UI( $depth,
"${current_form}\{'$parentname'}->put(".
"\$widgets->{'$childname'}, $x, $y);" );
#---------------------------------------
} elsif (' Gtk::MenuBar Gtk::Menu ' =~ m/ $refpar /) {
# We are a menuitem
$class->add_to_UI( $depth,
"${current_form}\{'$parentname'}->append(".
"\$widgets->{'$childname'} );" );
#---------------------------------------
} elsif (' Gtk::MenuItem Gtk::PixmapMenuItem ' =~ m/ $refpar /) {
# We are a menu for a meuitem
$class->add_to_UI( $depth,
"${current_form}\{'$parentname'}->set_submenu(".
"\$widgets->{'$childname'} );" );
$postpone_show = 1;
#---------------------------------------
} elsif (' Gtk::OptionMenu ' =~ m/ $refpar /) {
# We are a menu for an optionmenu
$class->add_to_UI( $depth,
"${current_form}\{'$parentname'}->set_menu(".
"\$widgets->{'$childname'} );" );
$postpone_show = 1;
Glade/PerlUI.pm view on Meta::CPAN
# Gnome::App::add_docked() or Gnome::App::add_dock_item() instead?
# $class->add_to_UI( $depth,
# "${current_form}\{'$parentname'}->set_contents(".
# "\$widgets->{'$childname'} );" );
} elsif (' Gtk::MenuBar ' =~ m/ $refwid /) {
$class->add_to_UI( $depth,
"${current_form}\{'$parentname'}->set_menus(".
"\$widgets->{'$childname'} );" );
} else {
Glib-Ex-ConnectProperties
view release on metacpan or search on metacpan
lib/Glib/Ex/ConnectProperties/Element/widget.pm view on Meta::CPAN
C<widget#screen> uses the C<get_screen()> method. This means it will give
the default screen until the widget is added to a toplevel C<Gtk2::Window>
or similar to determine the screen.
C<widget#screen> is read-only for most widgets, but is writable for anything
with a C<set_screen()> such as C<Gtk2::Menu>. There's a plain C<screen>
property on C<Gtk2::Window> so it doesn't need this special
C<widget#screen>, but other widgets benefit.
C<Gtk2::Gdk::Screen> is new in Gtk 2.2 and C<widget#screen> and
C<widget#has-screen> are not available in Gtk 2.0.x.
Glib-Ex-ObjectBits
view release on metacpan or search on metacpan
lib/Glib/Ex/ObjectBits.pm view on Meta::CPAN
Nothing is exported by default, but the functions can be requested in usual
C<Exporter> style,
use Glib::Ex::ObjectBits 'set_property_maybe';
# "tearoff-title" new in Gtk 2.10
set_property_maybe ($combobox, tearoff_title => 'My Menu');
Importing C<set_property_maybe()> is good if making many such settings. The
name is tolerably distinctive.
There's no C<:all> tag since this module is meant as a grab-bag of functions
Glib
view release on metacpan or search on metacpan
lib/Glib/GenPod.pm view on Meta::CPAN
} elsif ($type eq 'Glib::Float' && $default == - POSIX::FLT_MAX()) {
$default = "-FLT_MAX";
} elsif ($type eq 'Glib::Double' || $type eq 'Glib::Float') {
# Limit the decimals shown in floats,
# eg. Gtk2::Menu style property "arrow-scaling" is 0.7 and comes out as
# 0.6999999999 if not restricted a bit
$default = sprintf '%.6g', $default;
} elsif ($pname =~ /keyval/
&& $type eq 'Glib::UInt'
Gnome2-Vte
view release on metacpan or search on metacpan
t/VteTerminal.t view on Meta::CPAN
isa_ok($terminal, "Gnome2::Vte::Terminal");
$window -> add($terminal);
$window -> show_all();
$terminal -> im_append_menuitems(Gtk2::Menu -> new());
like($terminal -> fork_command("/bin/ls",
["/bin/ls", "--color", "-l", "bin"],
["TERM=xterm-color"],
"/",
Gnome2-Wnck
view release on metacpan or search on metacpan
###############################################################################
SKIP: {
my $active_window = $screen -> get_active_window();
skip("no active window found", 1) unless (defined($active_window));
isa_ok($active_window -> create_action_menu(), "Gtk2::Menu");
}
Gnome2
view release on metacpan or search on metacpan
Gnome2::Program->get has been renamed to ->get_program to avoid a clash with
GObject->get.
=item gnome_popup_menu_attach
Gtk2::Menu->attach has been renamed to ->attach_to to avoid a clash with
gtk_menu_attach.
=item gnome_popup_menu_append
Gtk2::Menu->append has been renamed to ->append_from to avoid a clash with
gtk_menu_shell_append.
=back
=head1 DIFFERENT CALL SIGNATURES OR SEMANTICS
Goo-Canvas
view release on metacpan or search on metacpan
bin/perlmine.pl view on Meta::CPAN
}
#}}}
#{{{ create menu and canvas
sub create_menu {
my $menu_bar = Gtk2::MenuBar->new;
# File
my $file_menu = Gtk2::Menu->new;
# |- junior
my $junior_menuitem = Gtk2::MenuItem->new_with_label( gettext('_Junior') );
$junior_menuitem->signal_connect('activate' => \&set_level,
$Config{level}{junior} );
$file_menu->append($junior_menuitem);
# |- senior
my $senior_menuitem = Gtk2::MenuItem->new_with_label( gettext('_Senior') );
$senior_menuitem->signal_connect('activate' => \&set_level,
$Config{level}{senior} );
$file_menu->append($senior_menuitem);
# |- advance
my $advance_menuitem = Gtk2::MenuItem->new_with_label( gettext('_Advance') );
$advance_menuitem->signal_connect('activate' => \&set_level,
$Config{level}{advance} );
$file_menu->append($advance_menuitem);
# |- Exit
my $exit_menuitem = Gtk2::ImageMenuItem->new_from_stock('gtk-quit', undef);
$exit_menuitem->signal_connect('activate' => sub { Gtk2->main_quit });
$file_menu->append($exit_menuitem);
# Setting
my $setting_menu = Gtk2::Menu->new;
# |- Settings
my $setting_menuitem = Gtk2::ImageMenuItem->new_from_stock('gtk-preferences', undef);
$setting_menuitem->signal_connect('activate' => \&setting);
$setting_menu->append($setting_menuitem);
# Help
my $help_menu = Gtk2::Menu->new;
# |- About
my $about_menuitem = Gtk2::ImageMenuItem->new_from_stock('gtk-about', undef);
$about_menuitem->signal_connect('activate' => \&about);
$help_menu->append($about_menuitem);
my $file_menuitem = Gtk2::MenuItem->new(gettext("_File"));
$file_menuitem->set_submenu($file_menu);
$menu_bar->append( $file_menuitem );
my $setting_menuitem2 = Gtk2::MenuItem->new(gettext("_Setting"));
$setting_menuitem2->set_submenu($setting_menu);
$menu_bar->append($setting_menuitem2);
my $help_menuitem = Gtk2::MenuItem->new(gettext("_Help"));
$help_menuitem->set_submenu($help_menu);
$menu_bar->append($help_menuitem);
return $menu_bar;
}
Google-Ads-GoogleAds-Client
view release on metacpan or search on metacpan
lib/Google/Ads/GoogleAds/V17/Common/Metrics.pm view on Meta::CPAN
$args->{allConversionsFromInteractionsValuePerInteraction},
allConversionsFromLocationAssetClickToCall =>
$args->{allConversionsFromLocationAssetClickToCall},
allConversionsFromLocationAssetDirections =>
$args->{allConversionsFromLocationAssetDirections},
allConversionsFromLocationAssetMenu =>
$args->{allConversionsFromLocationAssetMenu},
allConversionsFromLocationAssetOrder =>
$args->{allConversionsFromLocationAssetOrder},
allConversionsFromLocationAssetOtherEngagement =>
$args->{allConversionsFromLocationAssetOtherEngagement},
allConversionsFromLocationAssetStoreVisits =>
$args->{allConversionsFromLocationAssetStoreVisits},
allConversionsFromLocationAssetWebsite =>
$args->{allConversionsFromLocationAssetWebsite},
allConversionsFromMenu => $args->{allConversionsFromMenu},
allConversionsFromOrder => $args->{allConversionsFromOrder},
allConversionsFromOtherEngagement =>
$args->{allConversionsFromOtherEngagement},
allConversionsFromStoreVisit => $args->{allConversionsFromStoreVisit},
allConversionsFromStoreWebsite => $args->{allConversionsFromStoreWebsite},
lib/Google/Ads/GoogleAds/V17/Common/Metrics.pm view on Meta::CPAN
viewThroughConversions => $args->{viewThroughConversions},
viewThroughConversionsFromLocationAssetClickToCall =>
$args->{viewThroughConversionsFromLocationAssetClickToCall},
viewThroughConversionsFromLocationAssetDirections =>
$args->{viewThroughConversionsFromLocationAssetDirections},
viewThroughConversionsFromLocationAssetMenu =>
$args->{viewThroughConversionsFromLocationAssetMenu},
viewThroughConversionsFromLocationAssetOrder =>
$args->{viewThroughConversionsFromLocationAssetOrder},
viewThroughConversionsFromLocationAssetOtherEngagement =>
$args->{viewThroughConversionsFromLocationAssetOtherEngagement},
viewThroughConversionsFromLocationAssetStoreVisits =>
Gopher-Server
view release on metacpan or search on metacpan
lib/Gopher/Server/RequestHandler/File.pm view on Meta::CPAN
use Gopher::Server::TypeMapper;
my $item_type = Gopher::Server::TypeMapper->get_type({
filename => "$path/$dir_item",
});
use Net::Gopher::Response::MenuItem;
my $item_selector = $selector . "/$dir_item";
push @menu_items, Net::Gopher::Response::MenuItem->new({
#request => $request,
ItemType => $item_type->gopher_type,
Display => $dir_item,
Selector => $item_selector,
Host => $self->{host},
GraphViz-ISA-Multi
view release on metacpan or search on metacpan
examples/curses-ui.pl view on Meta::CPAN
$gnew->add( "Curses::UI::Buttonbox" );
$gnew->add( "Curses::UI::Calendar" );
$gnew->add("Curses::UI::Checkbox" );
$gnew->add( "Curses::UI::Color" );
$gnew->add("Curses::UI::Label" );
$gnew->add("Curses::UI::Menubar" );
$gnew->add("Curses::UI::Popupmenu" );
$gnew->add("Curses::UI::Progressbar" );
$gnew->add("Curses::UI::Radiobuttonbox" );
$gnew->add("Curses::UI::Window" );
Graphics-ColorNames-WWW
view release on metacpan or search on metacpan
lib/Graphics/ColorNames/WWW.pm view on Meta::CPAN
Further, the system color keywords are not assigned to a fixed RGB value and
thus unsupported: C<ActiveBorder>, C<ActiveCaption>, C<AppWorkspace>,
C<Background>, C<ButtonFace>, C<ButtonHighlight>, C<ButtonShadow>,
C<ButtonText>, C<CaptionText>, C<GrayText>, C<Highlight>, C<HighlightText>,
C<InactiveBorder>, C<InactiveCaption>, C<InactiveCaptionText>,
C<InfoBackground>, C<InfoText>, C<Menu>, C<MenuText>, C<Scrollbar>,
C<ThreeDDarkShadow>, C<ThreeDFace>, C<ThreeDHighlight>, C<ThreeDLightShadow>,
C<ThreeDShadow>, C<Window>, C<WindowFrame>, C<WindowText> (these are deprecated
in CSS3)
=head1 SEE ALSO
Graphics-VTK
view release on metacpan or search on metacpan
examples/old_examples/graphics/Decimate.pl view on Meta::CPAN
#
$MW->title("vtk Decimator v1.0");
$MW->{'.mbar'} = $MW->Frame('-relief','raised','-bd',2);
$MW->{'.mbar'}->pack('-side','top','-fill','x');
#
$MW->{'.mbar.file'} = $MW->{'.mbar'}->Menubutton('-text','File');
$MW->{'.mbar.edit'} = $MW->{'.mbar'}->Menubutton('-text','Edit');
$MW->{'.mbar.view'} = $MW->{'.mbar'}->Menubutton('-text','View');
$MW->{'.mbar.options'} = $MW->{'.mbar'}->Menubutton('-text','Options');
$MW->{'.mbar.help'} = $MW->{'.mbar'}->Menubutton('-text','Help');
foreach $_ (($MW->{'.mbar.file'},$MW->{'.mbar.edit'},$MW->{'.mbar.view'},$MW->{'.mbar.options'}))
{
$_->pack('-side','left');
}
$MW->{'.mbar.help'}->pack('-side','right');
Groonga-HTTP
view release on metacpan or search on metacpan
docs/assets/javascripts/bootstrap.js view on Meta::CPAN
var $parent = selector && $(selector)
return $parent && $parent.length ? $parent : $this.parent()
}
function clearMenus(e) {
if (e && e.which === 3) return
$(backdrop).remove()
$(toggle).each(function () {
var $this = $(this)
var $parent = getParent($this)
docs/assets/javascripts/bootstrap.js view on Meta::CPAN
if ($this.is('.disabled, :disabled')) return
var $parent = getParent($this)
var isActive = $parent.hasClass('open')
clearMenus()
if (!isActive) {
if ('ontouchstart' in document.documentElement && !$parent.closest('.navbar-nav').length) {
// if mobile we use a backdrop because click events don't delegate
$(document.createElement('div'))
.addClass('dropdown-backdrop')
.insertAfter($(this))
.on('click', clearMenus)
}
var relatedTarget = { relatedTarget: this }
$parent.trigger(e = $.Event('show.bs.dropdown', relatedTarget))
docs/assets/javascripts/bootstrap.js view on Meta::CPAN
// APPLY TO STANDARD DROPDOWN ELEMENTS
// ===================================
$(document)
.on('click.bs.dropdown.data-api', clearMenus)
.on('click.bs.dropdown.data-api', '.dropdown form', function (e) { e.stopPropagation() })
.on('click.bs.dropdown.data-api', toggle, Dropdown.prototype.toggle)
.on('keydown.bs.dropdown.data-api', toggle, Dropdown.prototype.keydown)
.on('keydown.bs.dropdown.data-api', '.dropdown-menu', Dropdown.prototype.keydown)
Gtk-Perl
view release on metacpan or search on metacpan
Gnome/samples/app-helper.pl view on Meta::CPAN
my @menu_info = ({type => 'subtree',
label => '_File',
subtree => [{type => 'subtree',
label => '_Foo',
pixmap_type => 'stock',
pixmap_info => 'Menu_New',
subtree => [{type => 'item',
label => '_Quux'},
{type => 'item',
label => '_Argh'}]},
{type => 'item',
label => '_Bar',
pixmap_type => 'stock',
pixmap_info => 'Menu_About'},
{type => 'item',
label => 'B_az',
pixmap_type => 'stock',
pixmap_info => 'Menu_Quit',
# example code with user data...
# note that you get the user data first
# and the object last unlike signals...
callback => [sub { warn "GOTO DATA: $_[0]\n"; Gtk->main_quit }, "user data"]
}]},
Gtk
view release on metacpan or search on metacpan
GtkTypes.pm view on Meta::CPAN
@Gtk::Box::ISA = 'Gtk::Container';
@Gtk::Button::ISA = 'Gtk::Container';
@Gtk::ButtonBox::ISA = 'Gtk::Box';
@Gtk::CList::ISA = 'Gtk::Container';
@Gtk::CheckButton::ISA = 'Gtk::ToggleButton';
@Gtk::CheckMenuItem::ISA = 'Gtk::MenuItem';
@Gtk::ColorSelection::ISA = 'Gtk::VBox';
@Gtk::ColorSelectionDialog::ISA = 'Gtk::Window';
@Gtk::Combo::ISA = 'Gtk::HBox';
@Gtk::Container::ISA = 'Gtk::Widget';
@Gtk::Curve::ISA = 'Gtk::DrawingArea';
GtkTypes.pm view on Meta::CPAN
@Gtk::InputDialog::ISA = 'Gtk::Dialog';
@Gtk::Item::ISA = 'Gtk::Bin';
@Gtk::Label::ISA = 'Gtk::Misc';
@Gtk::List::ISA = 'Gtk::Container';
@Gtk::ListItem::ISA = 'Gtk::Item';
@Gtk::Menu::ISA = 'Gtk::MenuShell';
@Gtk::MenuBar::ISA = 'Gtk::MenuShell';
@Gtk::MenuItem::ISA = 'Gtk::Item';
@Gtk::MenuShell::ISA = 'Gtk::Container';
@Gtk::Misc::ISA = 'Gtk::Widget';
@Gtk::Notebook::ISA = 'Gtk::Container';
@Gtk::OptionMenu::ISA = 'Gtk::Button';
@Gtk::Paned::ISA = 'Gtk::Container';
@Gtk::Pixmap::ISA = 'Gtk::Misc';
@Gtk::Preview::ISA = 'Gtk::Widget';
@Gtk::ProgressBar::ISA = 'Gtk::Widget';
@Gtk::RadioButton::ISA = 'Gtk::CheckButton';
@Gtk::RadioMenuItem::ISA = 'Gtk::CheckMenuItem';
@Gtk::Range::ISA = 'Gtk::Widget';
@Gtk::Ruler::ISA = 'Gtk::Widget';
@Gtk::Scale::ISA = 'Gtk::Range';
@Gtk::Scrollbar::ISA = 'Gtk::Range';
@Gtk::ScrolledWindow::ISA = 'Gtk::Container';
Gtk2-AppIndicator
view release on metacpan or search on metacpan
lib/Gtk2/AppIndicator.pm view on Meta::CPAN
# $status_icon->set_icon_name_active("an_icon_name");
# $status_icon->set_icon_name_attention("an_other_icon_name");
# $status_icon->set_icon_name_passive("an_other_icon_name");
# Add a menu to the indicator
my $menu=Gtk2::Menu->new();
my $showcp=Gtk2::CheckMenuItem->new_with_mnemonic("_Show My App");
$showcp->set_active(1);
$showcp->signal_connect("toggled",sub { hide_show($window,$showcp); });
my $quit=Gtk2::MenuItem->new_with_mnemonic("_Quit");
$quit->signal_connect("activate",sub { Gtk->main_quit(); });
$menu->append($showcp);
$menu->append(Gtk2::SeparatorMenuItem->new());
$menu->append($quit);
$status_icon->set_menu($menu);
# Show our icon and set the state
$menu->show_all();
( run in 1.056 second using v1.01-cache-2.11-cpan-49f99fa48dc )