Subversion Repositories an-fpga-implementation-of-low-latency-noc-based-mpsoc

#!/usr/bin/perl -w

use strict;

use warnings;

use IO::CaptureOutput qw(capture qxx qxy);

use Gtk3;

my ($screen_x,$screen_y);

sub get_default_screen_size{

        return  ($screen_x,$screen_y) if (defined $screen_x && defined $screen_y);

        my $fh= 'xrandr --current | awk \'$2~/\*/{print $1}\'' ;

        my ($stdout, $stderr, $success) = qxx( ($fh) );

        my @a = split ("\n",$stdout);

        my ($screen_x,$screen_y) = split ("x",$a[0]);

        $screen_x = 600 if(!defined $screen_x);

        $screen_y = 800 if(!defined $screen_y);

        return  ($screen_x,$screen_y);

}

my ($x,$y)  =get_default_screen_size();

print "$x,$y\n";

sub get_screen_size{

    my $screen = Gtk3::Gdk::Screen::get_default;

        my $hight = $screen->get_height();

        my $width = $screen->get_width();

        return ($width,$hight);

}

($x,$y)  =get_screen_size();

print "$x,$y\n";