callisto-debian/gimp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

see plug-ins/perl/Changes

Browse Source
This commit is contained in:
Marc Lehmann
1999-11-17 20:48:28 +00:00
parent 754af91ba1
commit 6e90c8de5f
12 changed files with 94 additions and 77 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
plug-ins/perl/examples/PDB
View File

@ -403,8 +403,6 @@ sub create_main {
my $b;
my $t;
parse Gtk::Rc Gimp->gtkrc;
$t = new Gtk::Tooltips;
my $w = new Gtk::Dialog;
$window = $w;
@ -492,7 +490,7 @@ register "extension_pdb_explorer",
[],
sub {
Gimp::init_gtk;
Gimp::gtk_init;
refresh;
create_main;
main Gtk;

2
plug-ins/perl/examples/bricks
View File

@ -16,7 +16,6 @@ sub do_bricks {
my ($pattern,$pattern2,$bp,$clr,$bw,$brickx,$bricky,$imgw,$imgh,$skew) = @_;
my ($image, $layer, $state, $layerpat);
$state = get_state(); # get fgcolor, etc
$imgw = abs($imgw); $imgw = 256 if (($imgw < 32) || ($imgw > 4096));
$imgh = abs($imgh); $imgh = 256 if (($imgh < 32) || ($imgh > 4096));
#print "Creating texture $imgw"."x$imgh\n";
@ -115,7 +114,6 @@ sub do_bricks {
gimp_image_remove_layer_mask ($image,$layerb,0);
gimp_channel_ops_offset ($layerpat,1,0,-1,-1);
gimp_channel_ops_offset ($layerb,1,0,-1,-1);
set_state($state); # restore color etc
$image;
}

2
plug-ins/perl/examples/gimpmagick
View File

@ -196,7 +196,7 @@ sub update_preview {
sub gimp_magick {
my ($drawable)=@_;
Gimp::init_gtk;
Gimp::gtk_init;
# generate main window
my $im = new Image::Magick;

6
plug-ins/perl/examples/parasite-editor
View File

@ -111,7 +111,7 @@ sub refresh_names {
$data->set_text ("");
$clist->freeze;
$clist->clear;
my @list = &$list_func($current);
my @list = sort &$list_func($current);
for (@list) {
$clist->append($_);
}
@ -285,7 +285,7 @@ register "extension_parasite_editor",
['gimp-1.1'],
sub {
Gimp::init_gtk;
Gimp::gtk_init;
create_main;
main Gtk;
@ -299,7 +299,7 @@ use base Gtk::Dialog;
my $init;
Gtk::Dialog->register_subtype(ParasiteEditor);
init_add Gtk sub { Gtk::Dialog->register_subtype(ParasiteEditor) };
sub GTK_CLASS_INIT { };

2
plug-ins/perl/examples/perlcc
View File

@ -98,7 +98,7 @@ sub extension_perl_control_center {
my($w,$b);
my($l,$s);
Gimp::init_gtk;
Gimp::gtk_init;
$w = new Gtk::Dialog;
$w->set_title ('Perl Control Center');