see plug-ins/perl/Changes

This commit is contained in:
Marc Lehmann
1999-05-03 19:29:05 +00:00
parent 030009d780
commit a5d2c6d2bd
45 changed files with 456 additions and 455 deletions

View File

@ -10,22 +10,22 @@ sub query {
sub net {
# simple benchmark ;)
$img=new Gimp::Image(600,300,RGB);
# the is the same as $img = new Image(600,300,RGB)
$bg=$img->layer_new(30,20,RGB_IMAGE,"Background",100,NORMAL_MODE);
$bg->add_layer(1);
new Gimp::Display($img);
for $i (0..255) {
Palette->set_background([$i,255-$i,$i]);
$bg->edit_fill;
Display->displays_flush ();
}
# Gimp::Net::server_quit; # kill the gimp-perl-server-extension (ugly name)
}