FvwmPiazza

 view release on metacpan or  search on metacpan

lib/FvwmPiazza/Layouts/Columns.pm  view on Meta::CPAN

    {
	$area->redistribute_windows(n_groups=>$num_cols);
    }
    
    # Calculate the column widths
    # Don't apply the passed-in ratios if we have fewer columns
    # than the layout requires
    my @ratios = ();
    if ($num_cols == $args{max_win} and defined $options[0])
    {
        local @ARGV = @options;
        my $ratio_arg;
        my $parser = new Getopt::Long::Parser();
        if ($ARGV[0] =~ /^\d[\d:]*$/)
        {
            $ratio_arg = $options[0];
        }
        elsif (!$parser->getoptions("ratios=s" => \$ratio_arg))
        {
            $args{tiler}->debug("Columns: failed to parse options: " . join(':', @options));
            $ratio_arg = $num_cols;

lib/FvwmPiazza/Layouts/Grid.pm  view on Meta::CPAN

    # parse the options, if any
    my @options = @{$args{options}};
    my $num_cols;
    my @rat_args = ();
    my $width_ratio;
    my $height_ratio;

    # new-style
    {
        local @ARGV = @options;
        my $parser = new Getopt::Long::Parser();
        if (!$parser->getoptions("cols=n" => \$num_cols,
                                 'ratios=s@' => \@rat_args,
                                 "width_ratio=s" => \$width_ratio,
                                 "height_ratio=s" => \$height_ratio))
        {
            $args{tiler}->debug("Grid failed to parse options: " . join(':', @ARGV));
        }
        @options = @ARGV;
    }

lib/FvwmPiazza/Layouts/Matrix.pm  view on Meta::CPAN

    }
    my $area = $args{area};
    my @options = @{$args{options}};
    my $num_cols = 2;
    my @rat_args = ();
    my $width_ratio = '';
    my $height_ratio = '';
    my @row_arr = ();

    {
        local @ARGV = @options;
        my $parser = new Getopt::Long::Parser();
        if (!$parser->getoptions('cols=n' => \$num_cols,
                                 'rows=s@' => \@row_arr,
                                 'ratios=s@' => \@rat_args,
                                 "width_ratio=s" => \$width_ratio,
                                 "height_ratio=s" => \$height_ratio))
        {
            $args{tiler}->debug("Failed to parse options: " . join(':', @ARGV));
        }
        @options = @ARGV;

lib/FvwmPiazza/Layouts/Rows.pm  view on Meta::CPAN

    if ($err)
    {
        return $self->error($err);
    }
    my $area = $args{area};

    # parse the options, if any
    my @options = @{$args{options}};
    my $ratio_args;
    {
        local @ARGV = @options;
        my $parser = new Getopt::Long::Parser();
        if (!$parser->getoptions('ratios=s' => \$ratio_args))
        {
            $args{tiler}->debug("Grid failed to parse options: " . join(':', @options));
        }
        @options = @ARGV;
    }
    if (!defined $ratio_args)
    {
        $ratio_args = (@options ? shift @options : '');

lib/FvwmPiazza/Layouts/Tall.pm  view on Meta::CPAN

    # parse the options, if any
    my @options = @{$args{options}};
    my $tall_style;
    my @rat_args = ();
    my $width_ratio;
    my $height_ratio;

    {
        # new-style
        local @ARGV = @options;
        my $parser = new Getopt::Long::Parser();
        if (!$parser->getoptions(
                'variant=s' => \$tall_style,
                'ratios=s@' => \@rat_args,
                "width_ratio=s" => \$width_ratio,
                "height_ratio=s" => \$height_ratio))
        {
            $args{tiler}->debug("Failed to parse options: " . join(':', @options));
        }
        @options = @ARGV;

lib/FvwmPiazza/Layouts/Wide.pm  view on Meta::CPAN

    my $area = $args{area};

    # parse the options, if any
    my @options = @{$args{options}};
    my $wide_style;
    my @rat_args = ();
    my $width_ratio;
    my $height_ratio;

    {
        local @ARGV = @options;
        my $parser = new Getopt::Long::Parser();
        if (!$parser->getoptions(
                'variant=s' => \$wide_style,
                'ratios=s@' => \@rat_args,
                "width_ratio=s" => \$width_ratio,
                "height_ratio=s" => \$height_ratio))
        {
            $args{tiler}->debug("Failed to parse options: " . join(':', @options));
        }
        @options = @ARGV;

lib/FvwmPiazza/Tiler.pm  view on Meta::CPAN

    }

    # old-style parsing
    if (defined $options[0] and $options[0] =~ /^(\d+)$/)
    {
        $max_win = $1;
        shift @options;
    }
    else # new-style
    {
        local @ARGV = @options;
        my $parser = new Getopt::Long::Parser(
            config => [qw(pass_through)]
            );
        if (!$parser->getoptions("max_win=i" => \$max_win))
        {
            $self->debug("getopt parsing failed");
        }
        @options = @ARGV;
    }
    return ($max_win, @options);

 view all matches for this distribution
 view release on metacpan -  search on metacpan