Commit 4f1e315a authored by Marc Lehmann's avatar Marc Lehmann
Browse files

see plug-ins/perl/Changes

parent bacd04b4
......@@ -24,6 +24,10 @@ Revision history for Gimp-Perl extension.
- try to get rid of -Wall, if possible.
- shield more sections against -w dumbness.
- updated many of seth's scripts.
- added cs and no translations.
- skip t/run when no DISPLAY set.
- modernize parasite-editor to use Gimp::basewidget.
- modified all custom widgets to work with the next Gtk release.
1.17 Wed Nov 24 21:25:19 CET 1999
- re-fitted i18n translation for most plug-ins.
......
......@@ -122,6 +122,9 @@ examples/bricks
examples/dataurl
examples/colorhtml
pxgettext
po/ChangeLog
po/gimp-perl.pot
po/de.po
po/it.po
po/cs.po
po/no.po
......@@ -18,53 +18,35 @@ API generalization
firetext! AND _grayscale_ for map_gradient(!)
script-fu 4.9 vs. 3.3
xachvision
billboard
fit-text
olof
* improve PDB explorer
* input image arguments
* find_next_guide is a lousy interface. => just do num_guides
bugs
* document on_xxx functions and regiter_callback
* make test should not be run without DISPLAY
* document on_xxx functions and register_callback
* fix Gimp::Feature::missing => on_query-dir!
[DONE] * put libs last, ignore gtk-config brokenness
* update logulator
[KILL] * update frosty-logo.scm t-o-p-logo.scm starscape-logo.scm starburst-logo.scm
[DONE] * rate-limiting for gimp_message BEFORE 1.2
* on-query => remove gimp::fu parasite(?)
* bricks requires disable for pattern(?)
* better default argument-handlign via a "massage_args" callback from Gimp/UI/interact?
* installation & Feature system (?)
* map_to_gradient does not work on GRAYA thingies. Argh.
[KILL] * perl_require_pv with _59?
* scroll behaviour, use clist instead of list?
* document Gimp::PDL and rect2, ...2 functions!
* document Gimp:PDL!!!
* Kommandozeilenmodus(!).
[KILL] * don't start gimp in cmdline mode and error.
* KILL :auto from default(!)
* Kommandozeilenmodus(!). (???)
[DONE] * KILL :auto from default(!)
* auto-flush of gdrawable when merge_shadow(?)
* gimp-piddle must be written back automatically on destroy, if changed
[KILL] * possibly rename "Brush Selection" to "Paint Settings"
* gimp-tile set dirty automatically(!)
* perl module install dependency
* $Config{cc} might not understand Gimps CFLAGS (-mpentium).
* wait for working gimp_file_load (or do it myself?)
[KILL] * perl module install dependency
[KILL] * $Config{cc} might not understand Gimps CFLAGS (-mpentium).
[KILL] * wait for working gimp_file_load (or do it myself?)
* get rid of xs_exit. please please fuck me plenty.
* create gimpstyle.pod
important issues
[DONE] * improve PDB explorer
[DONE] * input image arguments
* find_next_guide is a lousy interface. => just do num_guides
* constant names (RADIO) automatically into help strings!
[KILL] * gimpdoc with caching & [DONE]exampling ;--->
* migrate BOOT: into INIT() (forgot why but important for B)
* gimp_progress_done, gimp_progress_close
* maybe implement --enable-perl=runtime-only?
......@@ -77,17 +59,16 @@ important issues
* change set_usize to something else..
* Gimp::IO (?)
* install scripts in share/
[KILL] * register dummy function to calm gimp down (really??)
* gimp->object_id, drawable_object_id remove!
* vamp up homepage
* Gimp::ping
* allow plug-ins to register with only a drawable argument(!)
* gradient button
* implement Perl-Server RSET and shared lock(!)
[KILL] * implement Perl-Server RSET and shared lock(!)
* weighted movement in drawing tools
* --function localfunc to select one of the registered scripts
* create working progress when Net and $verbose
* Gimp::Fu::command(?)
[KILL] * Gimp::Fu::command(?)
* default parameters at end(!)
* try to deduce default parameters
......
......@@ -127,6 +127,7 @@ sub GTK_OBJECT_GET_ARG {
}
sub GTK_OBJECT_INIT {
shift unless ref $self; # care for "old" Gtk modules
my $self = shift;
(my $label = new Gtk::Label "")->show;
$self->add($label);
......
......@@ -306,6 +306,9 @@ sub do_idle {
$idle=Gtk->idle_add(\&idle) unless $idle;
}
eval "use Gtk::Keysyms ()";
$Gtk::Keysyms{Tab} ||= 0xFF09;
sub inputline {
my $e = new Gtk::Entry;
$e->set_text("");
......@@ -318,8 +321,7 @@ sub inputline {
$e->signal_connect("key_press_event",sub {
undef $last_arg;
do_idle;
# GDK_Tab = 0xFF09
if ($_[1]->{keyval} == 0xFF09) {
if ($_[1]->{keyval} == $Gtk::Keysyms{Tab}) {
$_[0]->signal_emit_stop_by_name('key_press_event');
do_completion;
1;
......
......@@ -295,14 +295,10 @@ register "extension_parasite_editor",
package ParasiteEditor;
use Gtk;
use base Gtk::Dialog;
use Gimp::basewidget Gtk::Dialog;
my $init;
init_add Gtk sub { Gtk::Dialog->register_subtype(ParasiteEditor) };
sub GTK_CLASS_INIT { };
sub unformat {
my $self=shift;
$self->{data_} = $self->{unformat}->($self->{-data}->get_chars(0,-1)) if $self->{unformat};
......@@ -328,6 +324,7 @@ sub undirty {
}
sub GTK_OBJECT_INIT {
shift unless ref $self; # care for "old" Gtk modules
my $self = shift;
@{$self}{qw(find_func attach_func detach_func current parasite)}=@$init;
@{$self}{qw(name flags data)}=
......@@ -397,7 +394,7 @@ sub GTK_OBJECT_INIT {
sub new {
$init=\@_;
new Gtk::Widget shift;
Gtk::Object::new shift;
}
package main;
......
......@@ -28,9 +28,6 @@ msgstr ""
msgid "<Image>/Filters/Logulator/Blended"
msgstr "<Image>/Filtry/Logultor/Rozosteno"
msgid "<Image>/Filters/Render/Fit Text"
msgstr "<Image>/Filtry/Vpoty/Pasovan text"
msgid "Help for "
msgstr "Npovda pro "
......@@ -88,9 +85,13 @@ msgstr "<Toolbox>/Roz
msgid "xlfd_unpack: unmatched XLFD '$fontname'\n"
msgstr ""
#, fuzzy
msgid "<Image>/Filters/Noise/Xach Vision..."
msgstr "<Image>/Filtry/Kombinace/Film..."
msgid ""
"$function: function name contains unusual characters, good style is to use "
"only 0-9, a-z and _"
"$function: function name contains unusual characters, good style is to use only "
"0-9, a-z and _"
msgstr ""
msgid "Help"
......@@ -146,10 +147,6 @@ msgstr ""
msgid "Internal error: unable to convert reference in sv2net, please report!"
msgstr ""
#, fuzzy
msgid "<Image>/Guides/Perl-o-tine"
msgstr "<Image>/Soubor/Tisk..."
msgid "Synopsis"
msgstr ""
......@@ -163,10 +160,6 @@ msgstr ""
msgid "Restore values to the previous ones"
msgstr ""
#, fuzzy
msgid "<Image>/Filters/Animation/Apply Perl Expression"
msgstr "<Image>/Filtry/Animace/Optimalizace animace"
#, fuzzy
msgid "<Image>/Select/Triangle"
msgstr "<Image>/Vbr/Do cesty"
......@@ -203,13 +196,12 @@ msgid "<Image>/Filters/Web/Webify"
msgstr "<Image>/Filtry/Mapovn/Rozmznut..."
msgid ""
"malformed paramdef, expected [PARAM_TYPE,\"NAME\",\"DESCRIPTION\"] or "
"PARAM_TYPE"
"malformed paramdef, expected [PARAM_TYPE,\"NAME\",\"DESCRIPTION\"] or PARAM_TYPE"
msgstr ""
msgid ""
"gimp_pixel_rgns_register supports only 1, 2 or 3 arguments, upgrade to "
"gimp-1.1 and report this error"
"gimp_pixel_rgns_register supports only 1, 2 or 3 arguments, upgrade to gimp-1.1 "
"and report this error"
msgstr ""
msgid "last argument to gimp_pattern_select_widget must be scalar ref"
......@@ -255,10 +247,6 @@ msgstr "Zav
msgid "unable to open $rgb_db_path"
msgstr "nepodailo se otevt rouru"
#, fuzzy
msgid "<Image>/Filters/Noise/Xach Vision"
msgstr "<Image>/Filtry/Kombinace/Film..."
#, fuzzy
msgid "<Image>/Filters/Colors/Map To Gradient"
msgstr "<Image>/Filtry/Barvy/Mapovn/Barevn mapovn..."
......@@ -270,21 +258,25 @@ msgstr "<Image>/Filtry/V
msgid "<Image>/Filters/Logulator/Basic I"
msgstr "<Image>/Filtry/Logultor/Zkladn I"
msgid "required callback 'run' not found\n"
msgstr ""
msgid "function name contains dashes instead of underscores"
msgstr ""
msgid ""
"$function: argument name '$p->[1]' contains illegal characters, only 0-9, "
"a-z and _ allowed"
msgid "required callback 'query' not found\n"
msgstr ""
msgid ""
"Expected an INT32 but got '%s'. Add '*1' if you really intend to pass in a "
"string"
"$function: argument name '$p->[1]' contains illegal characters, only 0-9, a-z "
"and _ allowed"
msgstr ""
msgid ""
"invalid GIMP_HOST: 'spawn' is not a valid connection method for the server"
"Expected an INT32 but got '%s'. Add '*1' if you really intend to pass in a string"
msgstr ""
msgid "invalid GIMP_HOST: 'spawn' is not a valid connection method for the server"
msgstr ""
msgid "unable to open Gimp::Net communications socket\n"
......@@ -320,8 +312,8 @@ msgid "authorization required for tcp connections"
msgstr ""
msgid ""
"Expected an INT32 but got '%s'. Maybe you meant '%s' instead and forgot to "
"'use strict'"
"Expected an INT32 but got '%s'. Maybe you meant '%s' instead and forgot to 'use "
"strict'"
msgstr ""
#, fuzzy
......@@ -361,8 +353,7 @@ msgstr ""
msgid "trying to start gimp with options \"$opt\"\n"
msgstr ""
msgid ""
"menupath _must_ start with <Image>, <Toolbox>, <Load>, <Save> or <None>!"
msgid "menupath _must_ start with <Image>, <Toolbox>, <Load>, <Save> or <None>!"
msgstr ""
#, fuzzy
......@@ -432,9 +423,6 @@ msgstr ""
msgid "accepting connections on port $port"
msgstr ""
msgid "required callback '$cb' not found\n"
msgstr ""
msgid "Internal error: Gimp::Net #100, please report!"
msgstr ""
......@@ -456,6 +444,10 @@ msgstr ""
msgid "<Image>/Filters/Logulator/Newsprint text"
msgstr "<Image>/Filtry/Logultor/Novinov text"
#, fuzzy
msgid "<Image>/Filters/Render/Fit Text..."
msgstr "<Image>/Filtry/Vpoty/Pasovan text"
msgid "$_: illegal switch, try $0 --help\n"
msgstr ""
......@@ -478,6 +470,10 @@ msgstr "<Image>/Filtry/Mapov
msgid "<Image>/Filters/Logulator/Starscape"
msgstr "<Image>/Filtry/Logultor/Rozmznut..."
#, fuzzy
msgid "<Image>/Filters/Apply Perl Expression..."
msgstr "<Image>/Filtry/Animace/Optimalizace animace"
#, fuzzy
msgid "gimp procedure '%s' not found"
msgstr "Znakov sada '%s' nebyla nalezena.%s"
......@@ -577,8 +573,7 @@ msgid ""
" -gimp <anything> used internally only\n"
" -h | -help | --help | -? print some help\n"
" -v | --verbose be more verbose in what you do\n"
" --host|--tcp HOST[:PORT] connect to HOST (optionally using "
"PORT)\n"
" --host|--tcp HOST[:PORT] connect to HOST (optionally using PORT)\n"
" (for more info, see Gimp::Net(3))\n"
msgstr ""
"Uit: $0 [gimp-argumenty..] [argumenty-rozhran..] [argumenty-skriptu..]\n"
......@@ -586,15 +581,13 @@ msgstr ""
" -gimp <cokoli> pouze pro vnitn pouit\n"
" -h | -help | --help | -? vype nejakou npovdu\n"
" -v | --verbose vypisuje bli informace o innosti\n"
" --host|--tcp HOST[:PORT] spojen s HOSTem (voliteln pout "
"PORT)\n"
" --host|--tcp HOST[:PORT] spojen s HOSTem (voliteln pout PORT)\n"
" (vce informac viz Gimp::Net(3))\n"
msgid "too many arguments"
msgstr "pli mnoho argument"
msgid ""
"dimension mismatch, pdl has dimension %d but at most %d dimensions allowed"
msgid "dimension mismatch, pdl has dimension %d but at most %d dimensions allowed"
msgstr ""
msgid "Load"
......@@ -655,14 +648,13 @@ msgstr ""
msgid "get current background colour from the gimp"
msgstr ""
msgid "<Toolbox>/Xtns/Render/Font Table"
msgstr "<Toolbox>/Roz./Vpoty/Tabulka psma"
msgid ""
"Internal error: asked to deobjectify an object not in the cache, please "
"report!"
"Internal error: asked to deobjectify an object not in the cache, please report!"
msgstr ""
msgid "<Toolbox>/Xtns/Render/Font Table"
msgstr "<Toolbox>/Roz./Vpoty/Tabulka psma"
msgid "No horizontal or vertical guides found. Aborted."
msgstr ""
......@@ -747,6 +739,10 @@ msgstr "Copyright :"
msgid "<Toolbox>/Xtns/Render/Bricks"
msgstr "/Roz./Vpoty/Loga"
#, fuzzy
msgid "<Image>/Filters/Render/Burst..."
msgstr "<Image>/Filtry/Vpoty/Burst..."
msgid "WARNING: client disconnected while holding an active lock\n"
msgstr ""
......@@ -840,9 +836,6 @@ msgstr "Maska obr
msgid "<Image>/Filters/Logulator/Chalk"
msgstr "<Image>/Filtry/Logultor/"
msgid "<Image>/Filters/Misc/Burst"
msgstr "<Image>/Filtry/Rzn/Pronikn"
msgid ""
"$function: calling $AUTOLOAD without specifying the :auto import tag is "
"deprecated!\n"
......@@ -867,8 +860,7 @@ msgstr "G"
msgid "internal error (please report): too many main arguments"
msgstr ""
msgid ""
"pixel size mismatch, pdl has %d channel pixels but %d channels are required"
msgid "pixel size mismatch, pdl has %d channel pixels but %d channels are required"
msgstr ""
#, fuzzy
......@@ -894,14 +886,17 @@ msgstr "Verzi "
msgid "<Image>/Filters/Animation/Animate Cells"
msgstr "<Image>/Filtry/Animace/Optimalizace animace"
msgid "$function: argument/return value '$p->[1]' has illegal type '$p->[0]'"
msgstr ""
#, fuzzy
msgid "<Image>/View/3D Surface"
msgstr "<Image>/Video/Smazat polka"
msgid "$function: argument/return value '$p->[1]' has illegal type '$p->[0]'"
msgid "function '$exe' not found in this script (must be one of "
msgstr ""
msgid "function '$exe' not found in this script (must be one of "
msgid "required callback 'net' not found\n"
msgstr ""
#, fuzzy
......@@ -1033,5 +1028,9 @@ msgstr ""
msgid "not enough"
msgstr ""
#, fuzzy
msgid "<Image>/Filters/Web/Perl-o-tine..."
msgstr "<Image>/Soubor/Tisk..."
msgid "accepting connections on $unix_path"
msgstr ""
......@@ -30,9 +30,6 @@ msgstr "$s: kein integer\n"
msgid "<Image>/Filters/Logulator/Blended"
msgstr "<Image>/Filter/"
msgid "<Image>/Filters/Render/Fit Text"
msgstr "<Image>/Filter/Render/Text Einpassen"
msgid "Help for "
msgstr "Hilfe fr "
......@@ -94,6 +91,10 @@ msgstr "<Toolbox>/Xtn/Erzeuge/Pixelgenerator"
msgid "xlfd_unpack: unmatched XLFD '$fontname'\n"
msgstr ""
#, fuzzy
msgid "<Image>/Filters/Noise/Xach Vision..."
msgstr "<Image>/Filter/"
msgid ""
"$function: function name contains unusual characters, good style is to use only "
"0-9, a-z and _"
......@@ -150,9 +151,6 @@ msgstr ""
msgid "Internal error: unable to convert reference in sv2net, please report!"
msgstr ""
msgid "<Image>/Guides/Perl-o-tine"
msgstr ""
msgid "Synopsis"
msgstr ""
......@@ -165,9 +163,6 @@ msgstr "Konnte Gimp::Drawable nicht in Gimp::GDrawable konvertieren (id %d)"
msgid "Restore values to the previous ones"
msgstr "Parameter auf vorherige Werte zurcksetzen"
msgid "<Image>/Filters/Animation/Apply Perl Expression"
msgstr ""
msgid "<Image>/Select/Triangle"
msgstr ""
......@@ -249,10 +244,6 @@ msgstr "Schlie
msgid "unable to open $rgb_db_path"
msgstr "Konnte $rgb_db_path nicht ffnen"
#, fuzzy
msgid "<Image>/Filters/Noise/Xach Vision"
msgstr "<Image>/Filter/"
msgid "<Image>/Filters/Colors/Map To Gradient"
msgstr ""
......@@ -263,9 +254,15 @@ msgstr "<Image>/Filter/Render/Add Glow"
msgid "<Image>/Filters/Logulator/Basic I"
msgstr "<Image>/Filter/"
msgid "required callback 'run' not found\n"
msgstr ""
msgid "function name contains dashes instead of underscores"
msgstr "Funktionsname enthlt Minuszeichen anstatt Unterstrichen"
msgid "required callback 'query' not found\n"
msgstr ""
msgid ""
"$function: argument name '$p->[1]' contains illegal characters, only 0-9, a-z "
"and _ allowed"
......@@ -410,9 +407,6 @@ msgstr "Argument inkompatibel mit Typ IMAGE"
msgid "accepting connections on port $port"
msgstr "Akzeptiere Verbindungen auf port $port"
msgid "required callback '$cb' not found\n"
msgstr ""
msgid "Internal error: Gimp::Net #100, please report!"
msgstr ""
......@@ -432,6 +426,10 @@ msgstr ""
msgid "<Image>/Filters/Logulator/Newsprint text"
msgstr "<Image>/Filter/"
#, fuzzy
msgid "<Image>/Filters/Render/Fit Text..."
msgstr "<Image>/Filter/Render/Text Einpassen"
msgid "$_: illegal switch, try $0 --help\n"
msgstr "$_: Unbekannter Schlater, wie wr's mit $0 --help stattdessen?\n"
......@@ -454,6 +452,10 @@ msgstr "<Image>/Filter/"
msgid "<Image>/Filters/Logulator/Starscape"
msgstr "<Image>/Filter/"
#, fuzzy
msgid "<Image>/Filters/Apply Perl Expression..."
msgstr "<Image>/Filter/"
msgid "gimp procedure '%s' not found"
msgstr "Gimp-Funktion '%s' nicht gefunden"
......@@ -617,13 +619,13 @@ msgstr "Die Farbangabe hat einen falschen Typ"
msgid "get current background colour from the gimp"
msgstr "bernehme die aktuelle Hintergrundfarbe von Gimp"
msgid "<Toolbox>/Xtns/Render/Font Table"
msgstr "<Toolbox>/Xtn/Erzeuge/Fonttabelle"
msgid ""
"Internal error: asked to deobjectify an object not in the cache, please report!"
msgstr ""
msgid "<Toolbox>/Xtns/Render/Font Table"
msgstr "<Toolbox>/Xtn/Erzeuge/Fonttabelle"
msgid "No horizontal or vertical guides found. Aborted."
msgstr ""
......@@ -703,6 +705,10 @@ msgstr ""
msgid "<Toolbox>/Xtns/Render/Bricks"
msgstr "<Toolbox>/Xtn/Erzeuge/Yin-Yang"
#, fuzzy
msgid "<Image>/Filters/Render/Burst..."
msgstr "<Image>/Filter/"
msgid "WARNING: client disconnected while holding an active lock\n"
msgstr ""
......@@ -789,9 +795,6 @@ msgstr "Befehl"
msgid "<Image>/Filters/Logulator/Chalk"
msgstr "<Image>/Filter/"
msgid "<Image>/Filters/Misc/Burst"
msgstr "<Image>/Filter/Verschiedenes/Ausbruch"
msgid ""
"$function: calling $AUTOLOAD without specifying the :auto import tag is "
"deprecated!\n"
......@@ -838,15 +841,18 @@ msgstr "Datum/Version"
msgid "<Image>/Filters/Animation/Animate Cells"
msgstr ""
msgid "<Image>/View/3D Surface"
msgid "$function: argument/return value '$p->[1]' has illegal type '$p->[0]'"
msgstr ""
msgid "$function: argument/return value '$p->[1]' has illegal type '$p->[0]'"
msgid "<Image>/View/3D Surface"
msgstr ""
msgid "function '$exe' not found in this script (must be one of "
msgstr ""
msgid "required callback 'net' not found\n"
msgstr ""
msgid "<Image>/Filters/Render/Highlight Edges"
msgstr ""
......@@ -963,9 +969,16 @@ msgstr "PDB-Buch - Edition 'Olof' (immer noch Alpha)"
msgid "not enough"
msgstr "nicht gengend"
#, fuzzy
msgid "<Image>/Filters/Web/Perl-o-tine..."
msgstr "<Image>/Filter/"
msgid "accepting connections on $unix_path"
msgstr "Akzeptiere Verbindungen auf $unix_path"
#~ msgid "<Image>/Filters/Misc/Burst"
#~ msgstr "<Image>/Filter/Verschiedenes/Ausbruch"
#~ msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Particle Trace"
#~ msgstr "<Toolbox>/Xtns/Perl-Fu/Logos/Particle Trace"
......
......@@ -29,9 +29,6 @@ msgstr ""
msgid "<Image>/Filters/Logulator/Blended"
msgstr ""
msgid "<Image>/Filters/Render/Fit Text"
msgstr ""
msgid "Help for "
msgstr ""
......@@ -89,6 +86,9 @@ msgstr ""
msgid "xlfd_unpack: unmatched XLFD '$fontname'\n"
msgstr ""
msgid "<Image>/Filters/Noise/Xach Vision..."
msgstr ""
msgid ""
"$function: function name contains unusual characters, good style is to use only "
"0-9, a-z and _"
......@@ -142,9 +142,6 @@ msgstr ""
msgid "Internal error: unable to convert reference in sv2net, please report!"
msgstr ""
msgid "<Image>/Guides/Perl-o-tine"
msgstr ""
msgid "Synopsis"
msgstr ""
......@@ -157,9 +154,6 @@ msgstr ""
msgid "Restore values to the previous ones"
msgstr ""
msgid "<Image>/Filters/Animation/Apply Perl Expression"
msgstr ""
msgid "<Image>/Select/Triangle"
msgstr ""
......@@ -239,9 +233,6 @@ msgstr ""
msgid "unable to open $rgb_db_path"
msgstr ""
msgid "<Image>/Filters/Noise/Xach Vision"
msgstr ""
msgid "<Image>/Filters/Colors/Map To Gradient"
msgstr ""
......@@ -251,9 +242,15 @@ msgstr ""
msgid "<Image>/Filters/Logulator/Basic I"
msgstr ""
msgid "required callback 'run' not found\n"
msgstr ""
msgid "function name contains dashes instead of underscores"
msgstr ""
msgid "required callback 'query' not found\n"
msgstr ""
msgid ""
"$function: argument name '$p->[1]' contains illegal characters, only 0-9, a-z "
"and _ allowed"
......@@ -389,9 +386,6 @@ msgstr ""
msgid "accepting connections on port $port"
msgstr ""
msgid "required callback '$cb' not found\n"