Commit 286b4477 authored by Marc Lehmann's avatar Marc Lehmann
Browse files

see plug-ins/perl/Changes

parent d084a746
......@@ -2,6 +2,9 @@ Revision history for Gimp-Perl extension.
- updated configure to require 1.0.2
- added some more scripts to the dist
- brushes are no longer shown inverted
- belp button && logo for Gimp::Fu. the first doesn't work properly
and the second is ugly. feel free to send me a better version.
1.048 Fri Nov 13 20:39:52 CET 1998
- Gimp::Fu::save_image now correctly respects the quality setting
......
......@@ -169,15 +169,16 @@ sub interact($$$@) {
$t = new Gtk::Tooltips;
$w = new Gtk::Dialog;
set_title $w "$0";
set_title $w $0;
(my $h = new Gtk::HBox 0,2)->show;
$h->add(new Gtk::Label wrap_text($blurb,40))->show;
(my $p = new Gtk::Button "Help")->show;
$h->add($p);
my $h = new Gtk::HBox 0,2;
$h->add(new Gtk::Label wrap_text($blurb,40));
$w->vbox->pack_start($h,1,1,0);
realize $h;
my $l = logo($h);
$h->add($l);
($g = new Gtk::Table scalar@types,2,0)->show;
$g = new Gtk::Table scalar@types,2,0;
$g->border_width(4);
$w->vbox->pack_start($g,1,1,0);
......@@ -212,7 +213,7 @@ sub interact($$$@) {
my $def = "-*-courier-helvetica-o-normal--34-*-*-*-*-*-*-*";
my $val;
(my $l=new Gtk::Label "!error!")->show;
my $l=new Gtk::Label "!error!";
my $setval = sub {
$val=$_[0];
unless (defined $val && $fs->set_font_name ($val)) {
......@@ -251,21 +252,21 @@ sub interact($$$@) {
} elsif($type == PF_COLOR) {
$a=new Gtk::HBox (0,5);
(my $b=new Gtk::ColorSelectButton -width => 90, -height => 18)->show;
my $b=new Gtk::ColorSelectButton -width => 90, -height => 18;
$a->pack_start ($b,1,1,0);
$value = [216, 152, 32] unless defined $value;
push(@setvals,sub{$b->color(join " ",@{Gimp::canonicalize_color $_[0]})});
push(@getvals,sub{[split ' ',$b->color]});
set_tip $t $b,$desc;
(my $c = new Gtk::Button "FG")->show;
my $c = new Gtk::Button "FG";
signal_connect $c "clicked", sub {
$b->color(join " ",@{Gimp::Palette->get_foreground});
};
set_tip $t $c,"get current foreground colour from the gimp";
$a->pack_start ($c,1,1,0);
(my $d = new Gtk::Button "BG")->show;
my $d = new Gtk::Button "BG";
signal_connect $d "clicked", sub {
$b->color(join " ",@{Gimp::Palette->get_background});
};
......@@ -280,14 +281,14 @@ sub interact($$$@) {
} elsif($type == PF_IMAGE) {
my $res;
$a=new Gtk::HBox (0,5);
(my $b=new Gtk::OptionMenu)->show;
my $b=new Gtk::OptionMenu;
$b->set_menu(new Gimp::UI::ImageMenu(sub {1},-1,$res));
$a->pack_start ($b,1,1,0);
push(@setvals,sub{});
push(@getvals,sub{$res});
set_tip $t $b,$desc;
# (my $c = new Gtk::Button "Load")->show;
# my $c = new Gtk::Button "Load";
# signal_connect $c "clicked", sub {$res = 2; main_quit Gtk};
## $g->attach($c,1,2,$res,$res+1,{},{},4,2);
# $a->pack_start ($c,1,1,0);
......@@ -341,20 +342,32 @@ sub interact($$$@) {
$label=new Gtk::Label $label;
$label->set_alignment(0,0.5);
show $label;
$g->attach($label,0,1,$res,$res+1,{},{},4,2);
$a && do {
set_tip $t $a,$desc;
show $a;
$g->attach($a,1,2,$res,$res+1,["expand","fill"],["expand","fill"],4,2);
};
$res++;
}
(my $v=new Gtk::HBox 0,5)->show;
$button = new Gtk::Button "Help";
$g->attach($button,0,1,$res,$res+1,{},{},4,2);
signal_connect $button "clicked", sub {
my $helpwin = new Gtk::Dialog;
set_title $helpwin $0;
$helpwin->vbox->add(new Gtk::Label "Blurb:\n".wrap_text($blurb,40)
."\n\nHelp:\n".wrap_text($help,40));
my $button = new Gtk::Button "Close";
signal_connect $button "clicked",sub { hide $helpwin };
$helpwin->action_area->add($button);
show_all $helpwin;
};
my $v=new Gtk::HBox 0,5;
$g->attach($v,1,2,$res,$res+1,{},{},4,2);
($button = new Gtk::Button "Defaults")->show;
$button = new Gtk::Button "Defaults";
signal_connect $button "clicked", sub {
for my $i (0..$#defaults) {
$setvals[$i]->($defaults[$i]);
......@@ -363,7 +376,7 @@ sub interact($$$@) {
set_tip $t $button,"Reset all values to their default";
$v->add($button);
($button = new Gtk::Button "Previous")->show;
$button = new Gtk::Button "Previous";
signal_connect $button "clicked", sub {
for my $i (0..$#lastvals) {
$setvals[$i]->($lastvals[$i]);
......@@ -379,16 +392,14 @@ sub interact($$$@) {
$w->action_area->pack_start($button,1,1,0);
can_default $button 1;
grab_default $button;
show $button;
$button = new Gtk::Button "Cancel";
signal_connect $button "clicked", sub {hide $w; main_quit Gtk};
$w->action_area->pack_start($button,1,1,0);
show $button;
$res=0;
show $w;
show_all $w;
main Gtk;
$w->destroy;
......@@ -923,6 +934,44 @@ EOF
sub logo {
new Gtk::Pixmap(Gtk::Gdk::Pixmap->create_from_xpm_d($_[0]->window,$_[0]->style->black,
#%XPM:logo%
'79 33 25 1', ' c None', '. c #020204', '+ c #848484', '@ c #444444',
'# c #C3C3C4', '$ c #252524', '% c #A5A5A4', '& c #646464', '* c #E4E4E4',
'= c #171718', '- c #989898', '; c #585858', '> c #D7D7D7', ', c #383838',
'\' c #B8B8B8', ') c #787878', '! c #F7F7F8', '~ c #0B0B0C', '{ c #8C8C8C',
'] c #4C4C4C', '^ c #CCCCCC', '/ c #2C2C2C', '( c #ABABAC', '_ c #6C6C6C',
': c #EBEBEC',
' ',
' ]&@;% ',
' ;]_ ]];{_,&( ^{__{^ #);^ ',
' ]);;+;) ,//,@;@@)_ #_......_^ (..; ',
' ;-\'\'@];@ /$=$/@_@;& #]........]\' ^..{ ',
' @@_+%-,,] ,/$///_^)&@; -...{^>+./( \'*^! {{ ##( ##\' {{ ##( ',
' ;))@/; //]);/$]_(\');] %,..+ ^*! #/,{ #,/%&..@*&..,^ >,,(;..,^ ',
' /,)];]] ,/],+%;_%-#!#()_ \'...> >)_)_))\'\'.._ (..=~...=.~..; ^..=....=> ',
' ,]]&;;] /@;->>+-+{(\'\'-+] #...# #.....=\'\'..) \'..]*\'..$>>../-^..$##,..- ',
' @_{@/, @$@_^*>(_;_&;{);\'] \'~..> ^,,/../-\'.._ (..{ ^..; \'=./-^..% #..& ',
' ,&);,& ,])-^:>#%#%+;)>->] ;..) >(..; \'..) \'..- #.._ -=./-^..( ^..& ',
' ,&&%]-&/]]_::^\'#--(#!:#:]& ^...)^#-~..# \'.._ (..% #.._ %=./-^..,>*;..+ ',
' ,/&%;{%;//_#^#+%+{%#!:-#%]] -........{ \'..) \'..% #.._ %=./-^..~....~* ',
' ;$@%+)#)@$/-\')%-+-)+^#@;)@, #@..../\' #~~) \'~~% #~=_ -/~,-^..)/..=\' ',
' ,@+(\'#);,={)]%^);@;&@=]] , %#\'#^( (%( (% %%( (%% ^..{>### ',
' ,@)^#;,/={)_\'-;///$$=;@ ,, ^..{ ',
' ],&)_=$==/])\'+),],,/$)@ @, %(\'((\'((\' ^..{ ',
' @@]/=====@-)-]$$, ]_/ , %=~~=~==& >%%^ ',
' =$@/@,@]/]$=/ ])$ & {{{{ %=====~=_ \'-{% ',
' ,$// /$/@ /$, $,, %;@,,,;{> (\'\'\'\'\'\'\'\' #~.$- ',
' //=/ $,/; $,, @@ ($......,> #~.${ ',
' /$, /,,, @@ ,, %$..],...{ ^~.$- ',
' ], ]@] )& , ($..>({..; #\'+)\'^ ^#\'*>(-!~.${ ',
' @, -- (; @ %$..^({..] *,..../* ^.._,.$!~.$- ',
' _, @\' ;\' ) %$..@@...)!@.$#(=.; ^..~.~,!~.${ ',
' ]/ ]) - ] ($......=>^..;--@.~^>...(^#:~.$- ',
' ; ;-__ ; ($../,])> %........#>..@( #~.${ ',
' _ )* ] %$..>{ \'..->^*>>\'>..; #~.$- ',
' ) &&+ _ %$..\' >=.]>>)&^ ^..; #~.${ ',
' ;- @;];] &- ($..\' \'~.....+ ^..; #~.$- ',
' \') ]_& @ __ %{))# >_@,;\' >)+( #+){ ',
' &% @; '
#%XPM%
))
}
......
......@@ -249,11 +249,12 @@ sub set_preview {
($name,$opacity,$spacing,$mode,$w,$h,$mask)=Gimp->brushes_get_brush_data ($name);
}
$mask=pack("C*",@$mask);
$xor="\xff" x $w;
hide $p;
my $l=length($mask);
$p->size ($w, $h);
while(--$h) {
$p->draw_row (substr ($mask, $w*$h), 0, $h, $w);
$p->draw_row (substr ($mask, $w*$h) ^ $xor, 0, $h, $w);
}
$p->draw(undef);
show $p;
......
......@@ -48,4 +48,3 @@ examples/homepage-logo.pl
examples/windy.pl
examples/prep4gif.pl
examples/ditherize.pl
......@@ -3,40 +3,50 @@ up-to-date and may not even be readable ;)
shortcuts (don't ask)
gimp -b "(extension-perl-server 0 0 0)"
gimp ~/pix/ka001.jpg -b "(extension-perl-server 0 0 0)"
file:///usr/app/lib/perl5/site_perl/i686-linux/PDL/HtmlDocs/
bugs
[DONE] * gimptool 1.0 doesn't support -n or --noui
* perl_fu_webify in homepage-logo.pl
* save_image should be called for non-null return values
* drawable is compatible to layer AND VICE VERSA (convert_sv2gimp)
* enable t/run.t again (but how? different solutions
[????] * save_image should be called for non-null return values
[DONE] * drawable is compatible to layer AND VICE VERSA (convert_sv2gimp)
[DONE] * enable t/run.t again (but how? different solutions
for gimp-1.0 and gimp-1.1???)
* wait for working gimp_file_load (or do it myself?)
* block display_new &c when Net
* Gimp::import should croak on import "garbage".
* memory leak on croak()? de-croakify the code!
[DONE] * block display_new &c when Net and --noui
* Gimp::import should croak on importing "garbage".
[DONE] * memory leak on croak()? de-croakify the code!
important issues
* gimp_blend && 15 doesn't work
* wamp up homepage
* --ui and --noui for Gimp::Fu
* [PF_CUSTOM]
* Gimp::ping
[DONE] * Gimp::Net::get_connection ();
[DONE] * Gimp::Net::set_connection ($conn);
* clean up PKG_ANY vs. PKG_REAL_DRAWABLE
* allow plug-ins to register with only a drawable argument(!)
(fix this in Gimp)
* provide propper overwriting in Gimp::Net::pixel-_rgn ;(
[DONE] * gimp_blend && 15 doesn't work
* gradient button
* implement Perl-Server RSET and shared lock(!)
[DONE] * Gimp::lock && unlock
[DONE] * do not special-case INT32 in convert_sv2gimp
* substr 4th argument form for Net:: -> require 5.005!!!! DO IT!
* substr 4th argument form for Net:: -> require 5.005!!!! DO IT! PLEASE!!!!
* use Gimp qw(GIMP_HOST=jfjf)???
* brushes look inverted
[DONE] * brushes are inverted
* zero-copy PDL support
[DONE] * gimp_init, gimp_deinit
[DONE] * duplicate HAVE_VPRINTF in gimp
[DONE] * get rid of superfluous image arguments
* weighted movement in drawing tools
* -DMIN_PERL_DEFINE
* --function localfunc to select one of the registered scripts
* brush etc. buttons (maybe use gimp's interface, but
only when local(?))
* help button ;)
[DONE] * help button ;)
* create working progress when Net and $verbose
* require Storable soon(!)
* Gimp::Fu::command(?)
......
use Test;
BEGIN {
plan tests => 2;
}
END {
ok(0) unless $loaded;
}
use Gimp qw(:consts);
use Gimp::Lib;
$loaded = 1;
ok(1);
ok(SHARPEN,1);
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