Commit 94ff1382 authored by Marc Lehmann's avatar Marc Lehmann
Browse files

see plug-ins/perl/Changes

parent 9912cf4b
...@@ -21,6 +21,8 @@ Revision history for Gimp-Perl extension. ...@@ -21,6 +21,8 @@ Revision history for Gimp-Perl extension.
- experimental 5.6 thread compatibility improvements. - experimental 5.6 thread compatibility improvements.
- corrected menu hiliting problem in firetext and glowing_steel. - corrected menu hiliting problem in firetext and glowing_steel.
- add a call to gimp_plugin_add_domain to Lib.xs. - add a call to gimp_plugin_add_domain to Lib.xs.
- fix some of the bugs Raphael "reported" (missing Gtk makde Gimp::UI
crash).
1.19 Thu Jan 6 00:21:58 CET 2000 1.19 Thu Jan 6 00:21:58 CET 2000
- used N_ to mark all the menu paths, since gimp now tries to - used N_ to mark all the menu paths, since gimp now tries to
......
...@@ -24,6 +24,7 @@ API generalization ...@@ -24,6 +24,7 @@ API generalization
gimp_desaturate -> drawable gimp_desaturate -> drawable
bugs bugs
* .pot file -> add to dist.
* damnit libintl crazy shit * damnit libintl crazy shit
[DONE] * alow gimp_selection_shrink with a zero argument. [DONE] * alow gimp_selection_shrink with a zero argument.
* font_text with negative size? bug report #5523 * font_text with negative size? bug report #5523
......
...@@ -2,7 +2,6 @@ package Gimp::UI; ...@@ -2,7 +2,6 @@ package Gimp::UI;
use Gimp ('__'); use Gimp ('__');
use Gimp::Fu; use Gimp::Fu;
use Gtk;
use base 'DynaLoader'; use base 'DynaLoader';
BEGIN { BEGIN {
...@@ -47,6 +46,19 @@ reimplement all of it in perl. ...@@ -47,6 +46,19 @@ reimplement all of it in perl.
=cut =cut
if (eval { require Gtk; import Gtk (); 1 }) {
local $/;
eval <DATA>;
die $@ if $@;
close DATA;
}
1;
# All Gtk-dependent functions are put below
__DATA__
#line 58
@Gimp::UI::ImageMenu::ISA =qw(Gimp::UI); @Gimp::UI::ImageMenu::ISA =qw(Gimp::UI);
@Gimp::UI::LayerMenu::ISA =qw(Gimp::UI); @Gimp::UI::LayerMenu::ISA =qw(Gimp::UI);
@Gimp::UI::ChannelMenu::ISA =qw(Gimp::UI); @Gimp::UI::ChannelMenu::ISA =qw(Gimp::UI);
...@@ -101,7 +113,6 @@ sub new($$$$) { ...@@ -101,7 +113,6 @@ sub new($$$$) {
package Gimp::UI::PreviewSelect; package Gimp::UI::PreviewSelect;
use Gtk;
use Gimp '__'; use Gimp '__';
sub GTK_CLASS_INIT { sub GTK_CLASS_INIT {
...@@ -200,7 +211,6 @@ sub GTK_OBJECT_INIT { ...@@ -200,7 +211,6 @@ sub GTK_OBJECT_INIT {
package Gimp::UI::PatternSelect; package Gimp::UI::PatternSelect;
use Gtk;
use Gimp '__'; use Gimp '__';
use Gimp::basewidget Gtk::Button; use Gimp::basewidget Gtk::Button;
...@@ -249,7 +259,6 @@ sub set_preview { ...@@ -249,7 +259,6 @@ sub set_preview {
package Gimp::UI::BrushSelect; package Gimp::UI::BrushSelect;
use Gtk;
use Gimp '__'; use Gimp '__';
use Gimp::basewidget Gtk::Button; use Gimp::basewidget Gtk::Button;
...@@ -293,7 +302,6 @@ sub set_preview { ...@@ -293,7 +302,6 @@ sub set_preview {
package Gimp::UI::GradientSelect; package Gimp::UI::GradientSelect;
use Gtk;
use Gimp '__'; use Gimp '__';
use Gimp::basewidget Gtk::Button; use Gimp::basewidget Gtk::Button;
...@@ -325,7 +333,6 @@ sub new { ...@@ -325,7 +333,6 @@ sub new {
package Gimp::UI::ColorSelectButton; package Gimp::UI::ColorSelectButton;
use Gtk;
use Gimp '__'; use Gimp '__';
use Gimp::basewidget Gtk::Button; use Gimp::basewidget Gtk::Button;
...@@ -520,7 +527,7 @@ sub help_window(\$$$) { ...@@ -520,7 +527,7 @@ sub help_window(\$$$) {
$b->insert($font,$b->style->fg(-normal),undef,__"BLURB:\n\n$blurb\n\nHELP:\n\n$help"); $b->insert($font,$b->style->fg(-normal),undef,__"BLURB:\n\n$blurb\n\nHELP:\n\n$help");
$b->set_usize($font->string_width('M')*80,($font->ascent+$font->descent)*26); $b->set_usize($font->string_width('M')*80,($font->ascent+$font->descent)*26);
my $button = new Gtk::Button __"OK"; my $button = Gtk::Button->new(__"OK");
signal_connect $button "clicked",sub { hide $$helpwin }; signal_connect $button "clicked",sub { hide $$helpwin };
$$helpwin->action_area->add($button); $$helpwin->action_area->add($button);
......
package Gimp::basewidget; # pragma package Gimp::basewidget; # pragma
use Gimp;
use Gtk; use Gtk;
use Gimp;
$VERSION = 1.19; $VERSION = 1.19;
......
...@@ -8,18 +8,18 @@ use Gimp::Util; ...@@ -8,18 +8,18 @@ use Gimp::Util;
# These are a couple of one-liners that you might find handy. Both should # These are a couple of one-liners that you might find handy. Both should
# be undoable w/o any special magick, and work with any gimp. # be undoable w/o any special magick, and work with any gimp.
#register "layer_to_image_size", "Layer2ImageSize", "Expands layer to image size", register "layer_to_image_size", "Layer2ImageSize", "Expands layer to image size",
# "Seth Burgess", "Seth Burgess <sjburges\@gimp.org>", "1.0", "Seth Burgess", "Seth Burgess <sjburges\@gimp.org>", "1.0",
# N_"<Image>/Layers/Layer to Image Size", "RGB*, GRAY*", [ ], sub { "<None>", "*", [ ], sub {
# ($img, $layer) = @_; ($img, $layer) = @_;
# $layer->resize($img->width, $img->height, $layer->offsets); $layer->resize($img->width, $img->height, $layer->offsets);
# return(); return();
#}; };
register "center_layer", "Center Layer", register "center_layer", "Center Layer",
"Centers the current layer on the image", "Centers the current layer on the image",
"Seth Burgess", "Seth Burgess <sjburges\@gimp.org>", "Seth Burgess", "Seth Burgess <sjburges\@gimp.org>",
"1.0", N_"<Image>/Layers/Center Layer", "RGB*, GRAY*", [], sub { "1.0", N_"<Image>/Layers/Center Layer", "*", [], sub {
($img, $layer) = @_; ($img, $layer) = @_;
$layer->set_offsets(($img->width - $layer->width )/2, $layer->set_offsets(($img->width - $layer->width )/2,
($img->height - $layer->height)/2); ($img->height - $layer->height)/2);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment