Gtk-Perl
view release on metacpan or search on metacpan
Bonobo/xs/BonoboWindow.xs view on Meta::CPAN
bonobo_window_deregister_component (win, name)
Gnome::BonoboWindow win
char * name
CORBA::Object
bonobo_window_component_get (win, name)
Gnome::BonoboWindow win
char * name
void
bonobo_window_add_popup (win, popup, path)
Gnome::BonoboWindow win
Gtk::Menu popup
char * path
void
bonobo_window_remove_popup (win, path)
Gnome::BonoboWindow win
char * path
#endif
Glade/samples/test.glade view on Meta::CPAN
<widget>
<class>GtkNotebook</class>
<name>notebook1</name>
<can_focus>True</can_focus>
<show_tabs>True</show_tabs>
<show_border>True</show_border>
<tab_pos>GTK_POS_TOP</tab_pos>
<scrollable>False</scrollable>
<tab_hborder>2</tab_hborder>
<tab_vborder>2</tab_vborder>
<popup_enable>False</popup_enable>
<child>
<padding>0</padding>
<expand>True</expand>
<fill>True</fill>
</child>
<widget>
<class>GtkGammaCurve</class>
<name>gammacurve1</name>
<curve_type>GTK_CURVE_TYPE_SPLINE</curve_type>
Gnome/xs/GnomeDateEdit.xs view on Meta::CPAN
RETVAL = (GnomeDateEdit*)(gnome_date_edit_new(the_time, show_time, use_24_format));
OUTPUT:
RETVAL
void
gnome_date_edit_set_time(gde, the_time)
Gnome::DateEdit gde
time_t the_time
void
gnome_date_edit_set_popup_range(gde, low_hour, up_hour)
Gnome::DateEdit gde
int low_hour
int up_hour
time_t
gnome_date_edit_get_date(gde)
Gnome::DateEdit gde
#endif
Gtk/gtk-0.99.defs view on Meta::CPAN
(selection-notify GDK_SELECTION_NOTIFY)
(other-event GDK_OTHER_EVENT))
(define-enum GdkFillRule
(even-odd-rule GDK_EVEN_ODD_RULE)
(winding-rule GDK_WINDING_RULE))
(define-enum GtkWindowType
(toplevel GTK_WINDOW_TOPLEVEL)
(dialog GTK_WINDOW_DIALOG)
(popup GTK_WINDOW_POPUP))
(define-enum GtkStateType
(normal GTK_STATE_NORMAL)
(active GTK_STATE_ACTIVE)
(prelight GTK_STATE_PRELIGHT)
(selected GTK_STATE_SELECTED)
(insensitive GTK_STATE_INSENSITIVE))
(define-enum GtkDirectionType
(tab-forward GTK_DIR_TAB_FORWARD)
Gtk/gtk-0.99.defs view on Meta::CPAN
(define-func gtk_widget_activate
none
((GtkWidget widget)))
(define-func gtk_widget_reparent
none
((GtkWidget widget)
(GtkWidget new_parent)))
(define-func gtk_widget_popup
none
((GtkWidget widget)
(int x)
(int y)))
(define-func gtk_widget_basic
bool
((GtkWidget widget)))
(define-func gtk_widget_grab_focus
Gtk/gtk-0.99.defs view on Meta::CPAN
(define-func gtk_item_toggle
none
((GtkItem item)))
;;;; GtkCombo
(define-object GtkCombo (GtkHBox)
(fields
(GtkWidget entry)
(GtkWidget button)
(GtkWidget popup)
(GtkWidget popwin)
(GtkWidget list)))
(define-func gtk_combo_new
GtkWidget
())
(define-func gtk_combo_set_value_in_list
none
((GtkCombo combo)
Gtk/gtk-0.99.defs view on Meta::CPAN
none
((GtkMenu menu)
(GtkWidget child)))
(define-func gtk_menu_insert
none
((GtkMenu menu)
(GtkWidget child)
(int position)))
(define-func gtk_menu_popup_interp
none
((GtkMenu menu)
(GtkWidget parent_menu_shell)
(GtkWidget parent_menu_item)
(int button)
(int activate_time)))
(define-func gtk_menu_popdown
none
((GtkMenu menu)))
Gtk/gtk-0.99.defs view on Meta::CPAN
(define-func gtk_notebook_set_scrollable
none
((GtkNotebook notebook)
(int scrollable)))
(define-func gtk_notebook_set_tab_border
none
((GtkNotebook notebook)
(int border_width)))
(define-func gtk_notebook_popup_enable
none
((GtkNotebook notebook)))
(define-func gtk_notebook_popup_disable
none
((GtkNotebook notebook)))
;; Editable
(define-object GtkEditable (GtkWidget))
;; Entry
Gtk/objects.pod view on Meta::CPAN
=over 4
=item * undef B<switch-page> (Gtk::Notebook, gpointer, unsigned)
=back
=head2 Arguments
=over 4
=item * B<enable_popup> (bool) [writable, readable]
=item * B<homogeneous> (bool) [writable, readable]
=item * B<page> (integer) [writable, readable]
=item * B<scrollable> (bool) [writable, readable]
=item * B<show_border> (bool) [writable, readable]
=item * B<show_tabs> (bool) [writable, readable]
Gtk/objects.pod view on Meta::CPAN
=item isearch-forward
=item italic-off
=item italic-on
=item italic-toggle
=item paste
=item popup-menu
=item property-dialog
=item redo
=item search
=item search-regex
=item selection-move-bod
Gtk/objects.pod view on Meta::CPAN
=item paragraph-style-itemdotted
=item paragraph-style-itemroman
=item paragraph-style-normal
=item paragraph-style-pre
=item paste
=item popup-menu
=item properties-dialog
=item redo
=item remove-link
=item search
=item search-incremental-backward
Gtk/objects.pod view on Meta::CPAN
=item none
=back
=head2 Gtk::WindowType
=over 4
=item dialog
=item popup
=item toplevel
=back
=head2 PanelOrientType
=over 4
=item down
Gtk/samples/gslide.pl view on Meta::CPAN
foreach $index ( sort {$a <=> $b} keys %slides) {
$mi = new Gtk::MenuItem($slides{$index});
$mi->show;
$mi->signal_connect('activate', sub {
$i = $index;
$started = 0;
Gtk->main_quit;
});
$m->append($mi);
}
$m->popup(undef, undef, 3, 0, undef);
}
__DATA__
################# load needed resources
eval $fsize = int ($height*.6)
eval $fssize = int ($height*.35)
eval $fixedsize = int ($height*.3)
eval $imsize = int ($height*.25)
# eval $title = "Gtk+ e Perl"
image tcl Xcamel.gif
Gtk/samples/oldtest.pl view on Meta::CPAN
} else {
hide $button;
}
}
sub create_shapes {
$root_win = Gtk::Gdk::Window->new_foreign(Gtk::Gdk->ROOT_WINDOW());
if (not defined $modeller) {
$modeller = shape_create_icon("Modeller.xpm", 440, 140, 0,0, -popup);
$modeller->signal_connect("destroy", \&Gtk::Widget::destroyed, \$modeller);
} else {
destroy $modeller;
}
if (not defined $sheets) {
$sheets = shape_create_icon("FilesQueue.xpm", 580,170, 0,0, -popup);
$sheets->signal_connect("destroy", \&Gtk::Widget::destroyed, \$sheets);
} else {
destroy $sheets;
}
if (not defined $rings) {
$rings = shape_create_icon("3DRings.xpm", 460, 270, 25,25, -toplevel);
$rings->signal_connect("destroy", \&Gtk::Widget::destroyed, \$rings);
} else {
destroy $rings;
Gtk/samples/oldtest.pl view on Meta::CPAN
sub scrollable_notebook {
my($button, $notebook) = @_;
$notebook->set_show_tabs(1);
$notebook->set_scrollable(1);
if ($notebook->children == 5) {
create_pages($notebook, 6, 15);
}
}
sub notebook_popup {
my($button, $notebook) = @_;
if ($button->active) {
$notebook->popup_enable;
} else {
$notebook->popup_disable;
}
}
sub create_notebook {
my($box1, $box2, $button, $separator, $notebook, $omenu, $menu, $submenu, $menuitem, $group, $transparent);
if (not defined $notebook_window) {
$notebook_window = new Gtk::Window -toplevel;
$notebook_window->signal_connect("destroy", \&Gtk::Widget::destroyed, \$notebook_window);
Gtk/samples/oldtest.pl view on Meta::CPAN
$menu->append($menuitem);
$menuitem->show;
$menuitem = new Gtk::RadioMenuItem "Scrollable", $menuitem;
$menuitem->signal_connect("activate", \&scrollable_notebook, $notebook);
$menu->append($menuitem);
$menuitem->show;
$omenu->set_menu($menu);
$box2->pack_start($omenu, 0, 0, 0);
$button = new Gtk::CheckButton "enable popup menu";
$box2->pack_start($button, 0, 0, 0);
$button->signal_connect("clicked", \¬ebook_popup, $notebook);
$box2 = new Gtk::HBox 0, 10;
$box2->border_width(10);
$box1->pack_start($box2, 0, 1, 0);
$button = new Gtk::Button "close";
$button->signal_connect("clicked", sub {$notebook_window->destroy});
$box2->pack_start($button, 1, 1, 0);
$button->can_default(1);
$button->grab_default;
Gtk/samples/test.pl view on Meta::CPAN
} else {
hide $button;
}
}
sub create_shapes {
$root_win = Gtk::Gdk::Window->new_foreign(Gtk::Gdk->ROOT_WINDOW());
if (not defined $modeller) {
$modeller = shape_create_icon("xpm/Modeller.xpm", 440, 140, 0,0, -popup);
$modeller->signal_connect("destroy", \&Gtk::Widget::destroyed, \$modeller);
} else {
destroy $modeller;
}
if (not defined $sheets) {
$sheets = shape_create_icon("xpm/FilesQueue.xpm", 580,170, 0,0, -popup);
$sheets->signal_connect("destroy", \&Gtk::Widget::destroyed, \$sheets);
} else {
destroy $sheets;
}
if (not defined $rings) {
$rings = shape_create_icon("xpm/3DRings.xpm", 460, 270, 25,25, -toplevel);
$rings->signal_connect("destroy", \&Gtk::Widget::destroyed, \$rings);
} else {
destroy $rings;
Gtk/samples/test.pl view on Meta::CPAN
sub notebook_scrollable {
my( $button, $notebook ) = @_;
$notebook->set_show_tabs( 1 );
$notebook->set_scrollable( 1 );
if ( $notebook->children == 5 ) {
notebook_create_pages( $notebook, 6, 15 );
}
}
sub notebook_popup {
my( $button, $notebook ) = @_;
if ( $button->active ) {
$notebook->popup_enable;
} else {
$notebook->popup_disable;
}
}
sub create_notebook {
my(
$box1,
$box2,
$button,
$separator,
$notebook,
Gtk/samples/test.pl view on Meta::CPAN
$menu->append($menuitem);
$menuitem->show;
$menuitem = new Gtk::RadioMenuItem "Scrollable", $menuitem;
$menuitem->signal_connect("activate", \¬ebook_scrollable, $notebook);
$menu->append($menuitem);
$menuitem->show;
$omenu->set_menu($menu);
$box2->pack_start($omenu, 0, 0, 0);
$button = new Gtk::CheckButton "Enable popup menu";
$box2->pack_start($button, 0, 0, 0);
$button->signal_connect("clicked", \¬ebook_popup, $notebook);
$box2 = new Gtk::HBox 0, 10;
$box2->border_width(10);
$box1->pack_start($box2, 0, 1, 0);
$button = new Gtk::Button( 'Close' );
$button->signal_connect( 'clicked', sub { $notebook_window->destroy } );
$box2->pack_start( $button, 1, 1, 0 );
$button->can_default( 1 );
$button->grab_default;
Gtk/samples/testdnd.pl view on Meta::CPAN
my ($widget, $context, $data, $info, $time) = @_;
if ($info == TARGET_ROOTWIN) {
print ("I was dropped on the rootwin\n");
} else {
$data->set ($data->target, 8, "I'm Data!");
}
}
#/* The following is a rather elaborate example demonstrating/testing
# * changing of the window heirarchy during a drag - in this case,
# * via a "spring-loaded" popup window.
# */
$popup_window = undef;
$popped_up = 0;
$in_popup = 0;
$popdown_timer = 0;
$popup_timer = 0;
sub popdown_cb
{
$popdown_timer = 0;
$popup_window->hide();
$popped_up = 0;
return 0;
}
sub popup_motion
{
my ($widget, $context, $x, $y, $time) = @_;
if (!$in_popup)
{
$in_popup = 1;
if ($popdown_timer)
{
print ("removed popdown\n");
Gtk->timeout_remove ($popdown_timer);
$popdown_timer = 0;
}
}
return 1;
}
sub popup_leave {
my ($widget, $context, $time) = @_;
if ($in_popup)
{
$in_popup = 0;
if ($popdown_timer)
{
print ("added popdown\n");
$popdown_timer = Gtk->timeout_add (500, \&popdown_cb);
}
}
}
sub popup_cb {
if (!$popped_up)
{
if (!$popup_window)
{
my ($button, $table, $i, $j);
$popup_window = new Gtk::Window('popup');
$popup_window->set_position('mouse');
$table = new Gtk::Table (3,3, 0);
for ($i=0; $i<3; $i++) {
for ($j=0; $j<3; $j++)
{
$button = new Gtk::Button ("$i,$j");
$table->attach ($button, $i, $i+1, $j, $j+1,
['expand','fill'],['expand','fill'], 0, 0);
$button->drag_dest_set ('all', ['copy', 'move'],
@target_table[0..1]); # no rootwin
$button->signal_connect ("drag_motion", \&popup_motion);
$button->signal_connect ("drag_leave", \&popup_leave);
}
}
$table->show_all ();
$popup_window->add($table);
}
$popup_window->show;
$popped_up = 1;
}
$popdown_timer = Gtk->timeout_add (500, \&popdown_cb);
print ("added popdown\n");
$popup_timer = 0;
return 0;
}
sub popsite_motion {
my ($widget, $context, $x, $y, $time) = @_;
if (!$popup_timer) {
$popup_timer = Gtk->timeout_add (500, \&popup_cb);
}
return 1;
}
sub popsite_leave {
my ($widget, $context, $time) = @_;
if ($popup_timer)
{
Gtk->timeout_remove ($popup_timer);
$popup_timer = 0;
}
}
sub source_drag_data_delete {
my ($widget, $context, $data) = @_;
print ("Delete the data!\n");
}
init Gtk;
Gtk/xs/GtkItemFactory.xs view on Meta::CPAN
gtk_item_factory_delete_item(item_factory, path)
Gtk::ItemFactory item_factory
char * path
void
gtk_item_factory_delete_entry(item_factory, entry)
Gtk::ItemFactory item_factory
Gtk::ItemFactory::Entry entry
void
gtk_item_factory_popup(item_factory, x, y, mouse_button, time)
Gtk::ItemFactory item_factory
unsigned int x
unsigned int y
unsigned int mouse_button
unsigned int time
# gtk_item_factory_set_translate_func
#endif
Gtk/xs/GtkMenu.xs view on Meta::CPAN
void
gtk_menu_insert(menu, child, position)
Gtk::Menu menu
Gtk::Widget child
int position
#ARG: $func subroutine (subroutine to handle positioning of the menu: it gets the widget, the x and y coordinates; it should return the x, y coordinates)
#ARG: ... list (additional arguments that are passed to $func after the widget)
void
gtk_menu_popup(menu, parent_menu_shell, parent_menu_item, button, activate_time, func=0, ...)
Gtk::Menu menu
Gtk::Widget_OrNULL parent_menu_shell
Gtk::Widget_OrNULL parent_menu_item
int button
int activate_time
SV * func
CODE:
{
AV * args = newAV();
int i;
if (func && SvOK(func)) {
PackCallbackST(args, 5);
gtk_menu_popup(menu, parent_menu_shell, parent_menu_item, menu_pos_func,
(void*)args, button, activate_time);
} else {
gtk_menu_popup(menu, parent_menu_shell, parent_menu_item, NULL,
NULL, button, activate_time);
}
}
void
gtk_menu_popdown(menu)
Gtk::Menu menu
ALIAS:
Gtk::Menu::popdown = 0
Gtk/xs/GtkNotebook.xs view on Meta::CPAN
gtk_notebook_set_tab_border(notebook, border)
Gtk::Notebook notebook
int border
void
gtk_notebook_set_scrollable(notebook, scrollable=TRUE)
Gtk::Notebook notebook
bool scrollable
void
gtk_notebook_popup_enable(notebook)
Gtk::Notebook notebook
void
gtk_notebook_popup_disable(notebook)
Gtk::Notebook notebook
Gtk::PositionType
gtk_notebook_tab_pos(notebook)
Gtk::Notebook notebook
CODE:
RETVAL = notebook->tab_pos;
OUTPUT:
RETVAL
Gtk/xs/GtkWidget.xs view on Meta::CPAN
gtk_widget_event(widget, event)
Gtk::Widget widget
Gtk::Gdk::Event event
void
gtk_widget_reparent(widget, reparent)
Gtk::Widget widget
Gtk::Widget reparent
void
gtk_widget_popup(widget, x, y)
Gtk::Widget widget
int x
int y
SV *
gtk_widget_intersect(widget, area)
Gtk::Widget widget
Gtk::Gdk::Rectangle area
CODE:
{
GtkGLArea/Glut.pm view on Meta::CPAN
sub _NewMenuID {
return ++$mid;
}
@window = ();
@menu = ();
$current = undef;
$currentgl = undef;
$currentmenu = undef;
$popupwindow = undef;
$idle = undef;
$idlecb = undef;
@initialSize = (300, 30);
@initialPos = (-1, -1);
$initialMode = ( GLUT_RGB | GLUT_SINGLE | GLUT_DEPTH );
sub glutInitWindowSize ($$) {
@initialSize = @_;
}
GtkGLArea/Glut.pm view on Meta::CPAN
local($current,$currentgl) = ($g->{data}, $g);
$currentgl->begingl;
my($i) = $current->{menu}->[$e->{button}];
return if not defined $i or not defined $menu[$i];
$m = _generateMenu($menu[$i]);
$popupwindow = $current;
_invoke($current->{menustate}, 1);
$m->popup(undef, undef, $e->{'button'}, $e->{'time'});
}
sub _menu {
my($widget,$menu,$value) = @_;
$currentgl->endgl if defined $currentgl;
$currentmenu = $menu;
local($current,$currentgl) = ($popupwindow, $popupwindow->{glarea});
$currentgl->begingl;
&{$menu->{callback}->[0]}($value);
}
sub glutCreateWindow ($) {
my($title) = @_;
my($w) = (new Gtk::Window -toplevel);
GtkHTML/pkg.defs view on Meta::CPAN
(downcase-word GTK_HTML_COMMAND_DOWNCASE_WORD)
(spell-suggest GTK_HTML_COMMAND_SPELL_SUGGEST)
(spell-personal-dictionary-add GTK_HTML_COMMAND_SPELL_PERSONAL_DICTIONARY_ADD)
(spell-session-dictionary-add GTK_HTML_COMMAND_SPELL_SESSION_DICTIONARY_ADD)
(search GTK_HTML_COMMAND_SEARCH)
(search-incremental-forward GTK_HTML_COMMAND_SEARCH_INCREMENTAL_FORWARD)
(search-incremental-backward GTK_HTML_COMMAND_SEARCH_INCREMENTAL_BACKWARD)
(search-regex GTK_HTML_COMMAND_SEARCH_REGEX)
(focus-forward GTK_HTML_COMMAND_FOCUS_FORWARD)
(focus-backward GTK_HTML_COMMAND_FOCUS_BACKWARD)
(popup-menu GTK_HTML_COMMAND_POPUP_MENU)
(properties-dialog GTK_HTML_COMMAND_PROPERTIES_DIALOG)
(cursor-forward GTK_HTML_COMMAND_CURSOR_FORWARD)
(cursor-backward GTK_HTML_COMMAND_CURSOR_BACKWARD))
( run in 3.187 seconds using v1.01-cache-2.11-cpan-364913b4093 )