dnrops
/
gimp
mirror of https://github.com/GNOME/gimp.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

see plug-ins/perl/Changes

This commit is contained in:
Marc Lehmann 1999-06-29 20:31:07 +00:00
parent 199c43272d
commit 88d2b4ab61
6 changed files with 36 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
plug-ins/perl/Changes
View File

@ -1,5 +1,9 @@
Revision history for Gimp-Perl extension.
1.095 Tue Jun 29 01:22:01 CEST 1999
- finally cut support for gimp-1.0.2 and gtk-1.0,
fix the underscore confusion in Gimp/Net.pm.
1.094 Fri Jun 25 01:21:17 CEST 1999
- finally(?) fixed the runmode confusion by making these constants
magic. Also hopefully fixed the error message.

2
plug-ins/perl/Gimp.pm
View File

@ -13,7 +13,7 @@ use subs qw(init end lock unlock canonicalize_color);
require DynaLoader;
@ISA=qw(DynaLoader);
$VERSION = 1.094;
$VERSION = 1.095;
@_param = qw(
PARAM_BOUNDARY PARAM_CHANNEL PARAM_COLOR PARAM_DISPLAY PARAM_DRAWABLE

62
plug-ins/perl/Gimp/Fu.pm
View File

@ -289,37 +289,33 @@ sub interact($$$$@) {
&new_PF_STRING;
} elsif($type == PF_FONT) {
if ($Gimp::UI::gtk_10) {
&new_PF_STRING;
} else {
my $fs=new Gtk::FontSelectionDialog "Font Selection Dialog ($desc)";
my $def = "-*-helvetica-medium-r-normal-*-24-*-*-*-p-*-iso8859-1";
my $val;
my $l=new Gtk::Label "!error!";
my $setval = sub {
$val=$_[0];
unless (defined $val && $fs->set_font_name ($val)) {
warn "illegal default font description for $function: $val\n" if defined $val;
$val=$def;
$fs->set_font_name ($val);
}
my($n,$t)=Gimp::xlfd_size($val);
$l->set((split(/-/,$val))[2]."\@$n".($t ? "p" : ""));
};
$fs->ok_button->signal_connect("clicked",sub {$setval->($fs->get_font_name); $fs->hide});
$fs->cancel_button->signal_connect("clicked",sub {$fs->hide});
push(@setvals,$setval);
push(@getvals,sub { $val });
$a=new Gtk::Button;
$a->add($l);
$a->signal_connect("clicked", sub { show $fs });
}
my $fs=new Gtk::FontSelectionDialog "Font Selection Dialog ($desc)";
my $def = "-*-helvetica-medium-r-normal-*-24-*-*-*-p-*-iso8859-1";
my $val;
my $l=new Gtk::Label "!error!";
my $setval = sub {
$val=$_[0];
unless (defined $val && $fs->set_font_name ($val)) {
warn "illegal default font description for $function: $val\n" if defined $val;
$val=$def;
$fs->set_font_name ($val);
}
my($n,$t)=Gimp::xlfd_size($val);
$l->set((split(/-/,$val))[2]."\@$n".($t ? "p" : ""));
};
$fs->ok_button->signal_connect("clicked",sub {$setval->($fs->get_font_name); $fs->hide});
$fs->cancel_button->signal_connect("clicked",sub {$fs->hide});
push(@setvals,$setval);
push(@getvals,sub { $val });
$a=new Gtk::Button;
$a->add($l);
$a->signal_connect("clicked", sub { show $fs });
} elsif($type == PF_SPINNER) {
my $adj = _new_adjustment ($value,$extra);
$a=new Gtk::SpinButton $adj,1,0;
@ -1175,11 +1171,7 @@ EOF
};
sub logo {
if ($Gimp::UI::gtk_10) {
new Gtk::Label "Gimp-Perl";
} else {
&logo_xpm;
}
&logo_xpm;
}
sub logo_xpm {

2
plug-ins/perl/Gimp/Net.pm
View File

@ -170,7 +170,7 @@ sub start_server {
"--no-splash",
@args,
"-b",
"(extension_perl_server $args)",
"(extension-perl-server $args)",
"(gimp_quit 0)",
"(gimp-quit 0)";
}

4
plug-ins/perl/Gimp/UI.pm
View File

@ -4,8 +4,6 @@ use Carp;
use Gimp ();
use Gtk;
$gtk_10 = Gtk->major_version==1 && Gtk->minor_version==0;
$VERSION = $Gimp::VERSION;
=head1 NAME
@ -170,7 +168,7 @@ sub GTK_OBJECT_INIT {
$l->selection and
$self->set_preview($l->selection->children->get);
});
$gtk_10 ? $s->add ($l) : $s->add_with_viewport ($l);
$s->add_with_viewport ($l);
my $button = new Gtk::Button "OK";
signal_connect $button "clicked", sub {

4
plug-ins/perl/etc/configure.in
View File

@ -18,8 +18,8 @@ AC_ARG_WITH(libs, [ --with-libs=DIR Additionally search for librarie
AC_PATH_PROGS(GIMP,gimp)
AM_PATH_GIMP(1.0.2,, AC_MSG_ERROR(
** unable to find gimp, make sure it's in your path (version 1.0.2+ required!)
AM_PATH_GIMP(1.0.4,, AC_MSG_ERROR(
** unable to find gimp, make sure it's in your path (version 1.0.4+ required!)
** You can get the Gimp from ftp://ftp.gimp.org/pub/gimp.
))