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

#! /usr/bin/perl -w

use strict;

use constant::boolean;

use FindBin;

use lib $FindBin::Bin;

require "widget.pl";

use POSIX qw(ceil floor);

#Declare our columns

use constant C_MARKUP               => 0;

use constant C_PIXBUF               => 1;

#Declare our IDENDTIFIER ID's

use constant ID_ICONVIEW            => 48;

sub drag_and_drop_page {

        my ($self,$tview,$name,$items_ref, $ctrl_box)=@_;

    my $vbox = def_vbox(FALSE,5);

        my $group_num=$self->object_get_attribute($name,'group_num');

        update_group_item_list($self,$group_num,$name,$items_ref);

        my $ref_source = $self->object_get_attribute("$name",'ungrouped');

    my $lb=$self->object_get_attribute($name,'lable');

    my ($win,$list_store)=create_iconview($self,"$lb",'NO', $ref_source,$name,'ungrouped',undef);

    my $table = def_table($group_num%8,$group_num/8,FALSE);

    my $dim_y = floor(sqrt($group_num));

        my $gname=$self->object_get_attribute("$name",'group_name_root');

        my $editable =$self->object_get_attribute("$name",'group_name_editble');

        my $limit=$self->object_get_attribute($name,'map_limit');

        for (my $i=0; $i<$group_num;$i++){

                        my $ref_grp = $self->object_get_attribute("$name","$gname($i)");

                my ($gwin,$list_store)=create_iconview($self,"$gname($i)",$editable,$ref_grp,$name,"$gname($i)",$limit );

                my $y= int($i/$dim_y);

                my $x= $i % $dim_y;

                $table->attach_defaults ($gwin, $x, $x+1 , $y, $y+1);

    }

   my $sw = add_widget_to_scrolled_win($table);

   my  $v_paned=gen_vpaned($win,.2,$sw);

   my  $h_paned= (defined $ctrl_box)? gen_hpaned_adj($self,$v_paned,.5,$ctrl_box, "drag.$name") : $v_paned;

$vbox->add($h_paned);

$vbox->show_all();

return $vbox;

}

sub get_item_group_name{

        my ($self,$name,$item)=@_;

        #print "($self,$name,$item)\n";

        my $group_num=$self->object_get_attribute("$name",'group_num');

        my $gname=$self->object_get_attribute("$name",'group_name_root');

        for(my $i=0;$i<$group_num;$i=$i+1){

                my $gref = $self->object_get_attribute("$name","$gname($i)");

                next if(! defined $gref);

                return $self->object_get_attribute("$name","$gname($i)".'_name') if( check_scolar_exist_in_array($item,$gref ));

        }

        return $item;

}

sub get_items_in_a_group{

        my ($self,$name,$group_name)=@_;

        my $group_num=$self->object_get_attribute("$name",'group_num');

        my $gname=$self->object_get_attribute("$name",'group_name_root');

        for(my $i=0;$i<$group_num;$i=$i+1){

                my $current_name= $self->object_get_attribute("$name","$gname($i)".'_name');

                return  $self->object_get_attribute("$name","$gname($i)") if($current_name eq $group_name );

        }

        return undef;

}

sub update_group_item_list{

        my ($self,$group_num,$name,$items_ref)=@_;

        #get the list of current items

        my @items = (defined $items_ref) ? @{$items_ref}:();

        my @items_grouped;

        my $gname=$self->object_get_attribute("$name",'group_name_root');

        #update groaped_list

        for(my $i=0;$i<$group_num;$i=$i+1){

                my $gref = $self->object_get_attribute("$name","$gname($i)");

                next if(! defined $gref);

                my @grouped =  @{$gref};

                @grouped=get_common_array(\@grouped,\@items);

                $self->object_add_attribute("$name","$gname($i)",\@grouped);

                push (@items_grouped,@grouped);

        }

        #@items_ungroaped= @items - @items_groaped

        my @items_ungrouped= get_diff_array(\@items ,\@items_grouped);

        $self->object_add_attribute("$name",'ungrouped',\@items_ungrouped);

}

sub create_iconview {

#---------------------------------------------------

#Creates an Iconview in a ScrolledWindow. This -----

#Iconview has the ability to drag items off it  -----

#---------------------------------------------------

        my ($self,$label,$editable,$ref,$name,$param,$limit)=@_;

    my $icon_string= undef;

    my $tree_model = create_iconview_model($self,$name,$ref);

    my $icon_view = gen_iconview($tree_model,C_MARKUP,C_PIXBUF);

    #Enable the IconView as a drag source

    add_drag_source($icon_view,'STRING',[],ID_ICONVIEW);

    add_drop_source($icon_view,$tree_model,$name,$param,$self,$limit);

    #This is a nice to have. It changes the drag icon to that of the

    #icon which are now selected and dragged (single selection mode)

        my $saved;

    $icon_view->signal_connect('drag-begin' => sub {

        $icon_view->selected_foreach ( sub{

                my $iter =$tree_model->get_iter($_[1]);

                                $saved=$iter;

                #set the text and pixbuf

                my $icon_pixbuf = $tree_model->get_value($iter,C_PIXBUF);

                                drag_set_icon_pixbuf($icon_view,$icon_pixbuf);

                                $icon_view->show_all();

        } );

    });

    #set up the data which needs to be fed to the drag destination (drop)

    $icon_view->signal_connect ('drag-data-get' => sub {

                return if(! defined $saved);

                $icon_string = $tree_model->get_value($saved,C_MARKUP);

                #print "\$icon_string=$icon_string\n";

                my $no_markup = $icon_string;

        $no_markup =~ s/<[^>]*>//g;

                my $gref = $self->object_get_attribute("$name",$param);

                $tree_model->remove($saved);

                source_drag_data_get(@_,$icon_string);

                my @array=remove_scolar_from_array($gref,$no_markup );

                $self->object_add_attribute("$name",$param,\@array);

                set_gui_status($self,"drag-data-get",0);

        } );

    #Standard scrolledwindow to allow growth

    my $sw = add_widget_to_scrolled_win($icon_view);

    $sw->set_policy('never','automatic');

    $sw->set_border_width(6);

    my($width,$hight)=max_win_size();

        $sw->set_size_request($width/10,$hight/10);

    my $frame = gen_frame();

        $frame->set_shadow_type ('in');

        # Animation

        $frame->add ($sw);

        #$align->add ($frame);

        my $entry=gen_entry_object($self,$name,$param."_name",$label);

        $frame->set_label_widget ($entry) if($editable eq 'YES');

        $frame->set_label_widget (gen_label_in_center($label)) unless($editable eq 'YES');

    return ($frame,$tree_model);

}

sub target_drag_data_received {

#---------------------------------------------------

#Extract the data which was set up during the  -----

#'drag-data-get' event which fired just before -----

#the 'drag-data-received' event. Also checks which--

#source supplied the data, and handle accordingly----

#---------------------------------------------------

    my ($widget, $context, $x, $y, $data, $info, $time,$ref) = @_;

        my ($target,$name,$param,$self,$limit) = @{$ref};

    my @array;

        my $icon=$self->object_get_attribute($name,'trace_icon');

        my $pixbuf = get_icon_pixbuff ($icon );

        my $no_markup = $data->get_text;

                #print Dumper ($widget, $context, $x, $y, $data, $info, $time,$no_markup);

        $no_markup =~ s/<[^>]*>//g;

        add_icon_to_tree($self,$name,$target,$no_markup) ;

        my $r=$self->object_get_attribute("$name","$param");

        @array = defined ($r)? @{$r}:();

        push (@array ,$no_markup);

        $self->object_add_attribute("$name","$param",\@array);

# check if the maximum number of dropped item is received

$limit =655350 if(!defined $limit);

if( scalar @array >= $limit){

    stop_drag_dest( $widget);

}

        call_gtk_drag_finish($context, 0, 0, $time);

   # $context->finish (0, 0, $time);

}

sub source_drag_data_get {

#---------------------------------------------------

#This sets up the data of the drag source. It is ---

#required before the 'drag-data-received' event ----

#fires which can be used to extract this data ------

#---------------------------------------------------

    my ($widget, $context, $data, $info, $time,$string) = @_;

    $data->set_text($string,-1) if defined $string;

    $data->set_text("Unknown-event-name",-1) unless defined $string;

}

sub add_icon_to_tree{

        my ($self,$name,$list_store,$val)=@_;

    my $icon=$self->object_get_attribute($name,'trace_icon');

        my $pixbuf = get_icon_pixbuff ($icon );

        #if there was a valid icon in the iconset, add it

        if( defined $pixbuf ){

            my $iter = $list_store->append;

            $list_store->set (

                        $iter,

                        C_MARKUP, "<b>$val</b>",

                        C_PIXBUF, $pixbuf,

             );

        }

}

sub stop_drag_dest {

        my $widget=shift;

        $widget->drag_dest_unset ();

}

sub add_drop_source {

        my ($widget,$target,$name,$param,$self,$limit)=@_;

        #Create a target table to receive drops

        add_drag_dest_set($widget, 'STRING',[],ID_ICONVIEW);

    #make this the drag destination (drop) for various drag sources

    my $r=$self->object_get_attribute("$name","$param");

    my    @array = defined ($r)? @{$r}:();

    # check if the maximum number of dropped item is received

        $limit =655350 if(!defined $limit);

        if( scalar @array >= $limit){

            stop_drag_dest( $widget);

        }

    #do a callback as soon as drag data is received

    my @params=($target,$name,$param,$self,$limit);

    $widget->signal_connect ('drag-data-received' => \&target_drag_data_received,\@params );

    $widget->signal_connect ('drag-data-get' => sub {

                add_drag_dest_set($widget, 'STRING',[],ID_ICONVIEW);

    });

}