Gtk-Perl

 view release on metacpan or  search on metacpan

Bonobo/samples/bonobo-hello.pl  view on Meta::CPAN

	$self->{button}->signal_connect('clicked', sub {$embeddable->set_text("Mandi Mandi")});
	$vbox->show_all;
	$self->set_view_frame($view_frame);
	$self = bless ($self, ref($class)||$class);
	$self->update($embeddable);
	warn "created view $self\n";
	return $self;
	
}

sub update {
	my ($view, $embeddable) = @_;
	warn "update with $embeddable->{text}\n";
	$view->{label}->set($embeddable->{text}) if ($embeddable && exists $embeddable->{text});
}

package Hello::BonoboEmbeddable;

@Hello::BonoboEmbeddable::ISA = qw(Gnome::BonoboEmbeddable);

sub new {

Gtk/GtkColorSelectButton.pm  view on Meta::CPAN

sub GTK_OBJECT_GET_ARG {
	my($self,$arg,$id) = @_;
	return join(' ',@{$self->{_color}});
}

sub new {
    my $pkg = shift;
    return new Gtk::Widget $pkg, @_;
}

sub update_color($) {
    my($this) = shift;
    
    return unless defined $this->{_preview} and defined $this->{_preview_width};
    
    my($preview, $color) = ($this->{_preview}, $this->{_color});
    my($width, $height) = ($this->{_preview_width}, $this->{_preview_height});
    
    my($buf) = pack("C3", @$color) x $width;

    for(my $i=0;$i<$height;$i++) {

Gtk/samples/gslide.pl  view on Meta::CPAN

# This is GPL'ed code.

# TITLE: Slide
# REQUIRES: Gtk GkdImlib

use Gtk;
use Gtk::Gdk::ImlibImage;
use Gtk::Keysyms;
use Getopt::Std;

sub update_all;
sub do_page;

$opt_w = 640;
$opt_h = 480;

getopts('w:h:d:');

init Gtk;
init Gtk::Gdk::ImlibImage;

Gtk/samples/gslide.pl  view on Meta::CPAN

	} elsif (/^puts\s*(\d+)\s+(\d+)\s+(.*)/) {
		$bp->draw_string($font, $gc, $1, $2, $3);
	} else {
		warn "Command not understood: $_\n"
	}
}

do_page;
Gtk->exit(0);

sub update_all {
	$win->draw_pixmap($gc, $bp, 0, 0, 0, 0, $width, $height);
}

sub do_page {
	$page = $i; # FIXME
	if ( defined $opt_d ) {
		print "Running convert ".  $win->XWINDOW . " to $opt_d\n";
		system("convert x:". $win->XWINDOW ." slide$page.$opt_d");
	}
	Gtk->main;