| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687 |
- Index: PostScript-Simple-0.07/lib/PostScript/Simple.pm
- --- PostScript-Simple-0.07/lib/PostScript/Simple.pm.orig 2005-05-04 16:42:28.187771138 +0200
- +++ PostScript-Simple-0.07/lib/PostScript/Simple.pm 2005-05-04 16:58:39.923776000 +0200
- @@ -1322,10 +1322,21 @@
-
- my ($x, $y, $r) = @_;
-
- - unless (@_ == 3)
- + if (@_ == 4)
- {
- - $self->_error("circle: wrong number of arguments");
- - return 0;
- + if (defined($opt{'filled'}))
- + {
- + $opt{'filled'} = 1;
- + }
- + else
- + {
- + $opt{'filled'} = 0;
- + }
- + }
- + elsif (@_ != 3)
- + {
- + $self->_error( "wrong number of args for line" );
- + return 0;
- }
-
- if (!$self->{usedcircle})
- @@ -1378,7 +1385,7 @@
-
- my ($x, $y, $r, $a, $text) = @_;
-
- - unless (@_ == 5) {
- + unless (@_ == 5 || @_ == 6) {
- $self->_error("circletext: wrong number of arguments");
- return 0;
- }
- @@ -1499,16 +1506,23 @@
-
- my ($x1, $y1, $x2, $y2) = @_;
-
- - unless (@_ == 4) {
- - $self->_error("box: wrong number of arguments");
- - return 0;
- + if (@_ == 5)
- + {
- + if (defined($opt{'filled'}))
- + {
- + $opt{'filled'} = 1;
- + }
- + else
- + {
- + $opt{'filled'} = 0;
- + }
- }
- -
- - if (!defined($opt{'filled'}))
- + elsif (@_ != 4)
- {
- - $opt{'filled'} = 0;
- + $self->_error( "wrong number of args for line" );
- + return 0;
- }
- -
- +
- unless ($self->{usedbox})
- {
- $self->{psfunctions} .= "/box {
- @@ -1606,7 +1616,7 @@
- %opt = %{; shift};
- }
-
- - unless ( @_ == 3 )
- + unless ( @_ == 3 || @_ == 4 )
- { # check required params first
- $self->_error("text: wrong number of arguments");
- return 0;
- @@ -1818,7 +1828,7 @@
-
- my ($file, $x1, $y1, $x2, $y2) = @_;
-
- - unless (@_ == 5) {
- + unless (@_ == 5 || @_ == 6) {
- $self->_error("importepsfile: wrong number of arguments");
- return 0;
- }
|
