URL https://opencores.org/ocsvn/an-fpga-implementation-of-low-latency-noc-based-mpsoc/an-fpga-implementation-of-low-latency-noc-based-mpsoc/trunk

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

[/] [an-fpga-implementation-of-low-latency-noc-based-mpsoc/] [trunk/] [mpsoc/] [perl_gui/] [lib/] [perl/] [software_editor.pl] - Diff between revs 48 and 54

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();});`