mirror of https://github.com/GNOME/gimp.git
see plug-ins/perl/Changes
This commit is contained in:
parent
199c43272d
commit
88d2b4ab61
|
@ -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.
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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 {
|
||||
|
|
|
@ -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,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 {
|
||||
|
|
|
@ -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.
|
||||
))
|
||||
|
||||
|
|
Loading…
Reference in New Issue