OpenCores
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/] [graph.pl] - Diff between revs 38 and 42

Go to most recent revision | Show entire file | Details | Blame | View Log

Rev 38 Rev 42
Line 329... Line 329...
                my $setting = def_image_button('icons/setting.png',undef,TRUE);
                my $setting = def_image_button('icons/setting.png',undef,TRUE);
                my $save = def_image_button('icons/save.png',undef,TRUE);
                my $save = def_image_button('icons/save.png',undef,TRUE);
                my $scale= $self->object_get_attribute("${graph_id}_graph_scale",undef);
                my $scale= $self->object_get_attribute("${graph_id}_graph_scale",undef);
                $scale = 5 if(!defined $scale);
                $scale = 5 if(!defined $scale);
                $minues -> signal_connect("clicked" => sub{
                $minues -> signal_connect("clicked" => sub{
                        $self->object_add_attribute("${graph_id}_graph_scale",undef,$scale+0.5);
                        $self->object_add_attribute("${graph_id}_graph_scale",undef,$scale*1.05);
                        set_gui_status($self,"ref",1);
                        set_gui_status($self,"ref",1);
                });
                });
 
 
                $plus  -> signal_connect("clicked" => sub{
                $plus  -> signal_connect("clicked" => sub{
                        $self->object_add_attribute("${graph_id}_graph_scale",undef,$scale-0.5) if( $scale>0.5);
                        $self->object_add_attribute("${graph_id}_graph_scale",undef,$scale*0.95) if( $scale>0.5);
                        set_gui_status($self,"ref",5);
                        set_gui_status($self,"ref",5);
                });
                });
 
 
                $setting -> signal_connect("clicked" => sub{
                $setting -> signal_connect("clicked" => sub{
                        get_graph_setting ($self,\@ginfo);
                        get_graph_setting ($self,\@ginfo);
Line 593... Line 593...
                my $setting = def_image_button('icons/setting.png',undef,TRUE);
                my $setting = def_image_button('icons/setting.png',undef,TRUE);
                my $save = def_image_button('icons/save.png',undef,TRUE);
                my $save = def_image_button('icons/save.png',undef,TRUE);
 
 
 
 
                $minues -> signal_connect("clicked" => sub{
                $minues -> signal_connect("clicked" => sub{
                        $self->object_add_attribute("${graph_id}_graph_scale",undef,$scale+0.5);
                        $self->object_add_attribute("${graph_id}_graph_scale",undef,$scale*1.05);
                        set_gui_status($self,"ref",1);
                        set_gui_status($self,"ref",1);
                });
                });
                set_tip($minues, "Zoom out");
                set_tip($minues, "Zoom out");
 
 
                $plus  -> signal_connect("clicked" => sub{
                $plus  -> signal_connect("clicked" => sub{
                        $self->object_add_attribute("${graph_id}_graph_scale",undef,$scale-0.5) if( $scale>0.5);
                        $self->object_add_attribute("${graph_id}_graph_scale",undef,$scale*0.95) if( $scale>0.5);
                        set_gui_status($self,"ref",5);
                        set_gui_status($self,"ref",5);
                });
                });
                set_tip($plus, "Zoom in");
                set_tip($plus, "Zoom in");
 
 
                $setting -> signal_connect("clicked" => sub{
                $setting -> signal_connect("clicked" => sub{

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.