URL
https://opencores.org/ocsvn/an-fpga-implementation-of-low-latency-noc-based-mpsoc/an-fpga-implementation-of-low-latency-noc-based-mpsoc/trunk
Show entire file |
Details |
Blame |
View Log
Rev 48 |
Rev 54 |
Line 53... |
Line 53... |
|
|
|
|
|
|
my $NAME = 'ProNoC';
|
my $NAME = 'ProNoC';
|
my $path = "";
|
my $path = "";
|
our $FONT_SIZE='default';
|
|
our $ICON_SIZE='default';
|
|
|
|
exit gtk_gui_run(\&software_main_stand_alone) unless caller;
|
exit gtk_gui_run(\&software_main_stand_alone) unless caller;
|
|
|
|
|
sub software_main_stand_alone(){
|
sub software_main_stand_alone(){
|
Line 67... |
Line 67... |
set_path_env();
|
set_path_env();
|
my $project_dir = get_project_dir(); #mpsoc dir addr
|
my $project_dir = get_project_dir(); #mpsoc dir addr
|
my $paths_file= "$project_dir/mpsoc/perl_gui/lib/Paths";
|
my $paths_file= "$project_dir/mpsoc/perl_gui/lib/Paths";
|
if (-f $paths_file){#} && defined $ENV{PRONOC_WORK} ) {
|
if (-f $paths_file){#} && defined $ENV{PRONOC_WORK} ) {
|
my $paths= do $paths_file;
|
my $paths= do $paths_file;
|
my %p=%{$paths};
|
set_gui_setting($paths);
|
$FONT_SIZE= $p{'GUI_SETTING'}{'FONT_SIZE'} if (defined $p{'GUI_SETTING'}{'FONT_SIZE'});
|
|
$ICON_SIZE= $p{'GUI_SETTING'}{'ICON_SIZE'} if (defined $p{'GUI_SETTING'}{'ICON_SIZE'});
|
|
}
|
}
|
|
|
set_defualt_font_size();
|
set_defualt_font_size();
|
my ($app,$table,$tview,$window) = software_main("../../../../../back/tmp",undef,) ;
|
my ($app,$table,$tview,$window) = software_main("../../../../../back/tmp",undef,) ;
|
$window->signal_connect (destroy => sub { gui_quite();});
|
$window->signal_connect (destroy => sub { gui_quite();});
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.