Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Comment on

( #3333=superdoc: print w/ replies, xml ) Need Help??
This means stock images do not show in buttons unless explicitly turned on.

My take on it was it is hard to change the Label of stock image buttons, and most people wanted to be able to label their buttons as they desire. So it is turned off by default. Makes perfect sense to me.

With the way the Gtk2 themeing engine works, it is probable that it would be set in a ./gtkrc-2.0 theme setting.

#!/usr/bin/perl use warnings; use strict; use Glib qw/TRUE FALSE/; use Gtk2 '-init'; # create a new window my $window = Gtk2::Window->new('toplevel'); $window ->signal_connect( "destroy" => sub { Gtk2->main_quit; } ); my $vbox = Gtk2::VBox->new( FALSE, 0 ); $window->add($vbox); $vbox->set_border_width(2); my $button = Gtk2::Button->new_from_stock('gtk-close'); my $button1 = Gtk2::Button->new_from_stock('gtk-close'); my $button2 = Gtk2::Button->new_from_stock('gtk-close'); $button->set_label('uh oh lost icon'); #won't work # sub by muppet find_and_set_label_in ($button2->child, "This worked"); $button->signal_connect( "clicked" => \&callback, "cool button" ); $button1->signal_connect( "clicked" => \&callback, "cool button1" ); $button2->signal_connect( "clicked" => \&callback, "cool button2" ); $vbox->pack_start( $button, FALSE, FALSE, 0 ); $vbox->pack_start( $button1, FALSE, FALSE, 0 ); $vbox->pack_start( $button2, FALSE, FALSE, 0 ); $window->show_all(); Gtk2->main; ################################################## # our usual callback function sub callback { my $widget = shift; my $data = shift; printf "Hello again - %s was pressed\n", $data; } ################################################## sub find_and_set_label_in { #muppet magic my ($widget, $text) = @_; print "@_\n"; if ($widget->isa (Gtk2::Container::)) { $widget->foreach (sub { find_and_set_label_in ($_[0], $text); } +); } elsif ($widget->isa (Gtk2::Label::)) { $widget->set_text ($text); } }

I'm not really a human, but I play one on earth.
Old Perl Programmer Haiku ................... flash japh

In reply to Re: gtk2-perl: how to enable stock images in all widgets by zentara
in thread gtk2-perl: how to enable stock images in all widgets by wdef2

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":



  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • Outside of code tags, you may need to use entities for some characters:
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.
  • Log In?
    Username:
    Password:

    What's my password?
    Create A New User
    Chatterbox?
    and the web crawler heard nothing...

    How do I use this? | Other CB clients
    Other Users?
    Others examining the Monastery: (8)
    As of 2014-12-20 15:06 GMT
    Sections?
    Information?
    Find Nodes?
    Leftovers?
      Voting Booth?

      Is guessing a good strategy for surviving in the IT business?





      Results (96 votes), past polls