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/] [widget.pl] - Diff between revs 25 and 32

Rev 25	Rev 32
Line 1102...	Line 1102...
`my ($name,$path,$suffix) = fileparse("$value",qr"\..[^.]*$");`	`my ($name,$path,$suffix) = fileparse("$value",qr"\..[^.]*$");`
`$lable=gen_label_in_center($name.$suffix);`	`$lable=gen_label_in_center($name.$suffix);`

`} else {`	`} else {`
`$lable=gen_label_in_center("Selecet a $extension file");`	`$lable=gen_label_in_center("Selecet a $extension file");`
`$lable->set_markup("<span foreground= 'red' ><b>Selecet a sof file</b></span>");`	`$lable->set_markup("<span foreground= 'red' ><b>No file has been selected yet</b></span>");`
`}`	`}`
`my $entry=gen_entry();`	`my $entry=gen_entry();`
`my $browse= get_file_name($object,undef,$entry,$attribute1,$attribute2,$extension,$lable,$open_in);`	`my $browse= get_file_name($object,undef,$entry,$attribute1,$attribute2,$extension,$lable,$open_in);`
`$widget->pack_start( $lable, FALSE, FALSE, 0);`	`$widget->pack_start( $lable, FALSE, FALSE, 0);`
`$widget->pack_start( $browse, FALSE, FALSE, 0);`	`$widget->pack_start( $browse, FALSE, FALSE, 0);`