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/] [ColorButton.pm] - Diff between revs 43 and 48

Show entire file | Details | Blame | View Log

Rev 43 Rev 48
Line 57... Line 57... 
        $self->{blue} = 0xffff;
 
        $self->{blue} = 0xffff;
 
        $self->{label} = "Colored_button";
 
        $self->{label} = "Colored_button";
 
 
 
 
 
 
 
 
 
        my $frame = Gtk2::Frame->new;
 
        my $frame = Gtk2::Frame->new;
 
        $frame->set_border_width (3);
 
        $frame->set_border_width (0);
 
        $frame->set_shadow_type ('etched-in');
 
        $frame->set_shadow_type ('etched-in');
 
        $self->add ($frame);
 
        $self->add ($frame);
 
        $frame->show;
 
        $frame->show;
 
        my $event_box = Gtk2::EventBox->new;
 
        my $event_box = Gtk2::EventBox->new;
 
        $event_box->set_size_request (14, 14);
 
        # $event_box->set_size_request (140, 140);
 
        my $lable   = Gtk2::Label->new($self->{label});
 
        my $label   = Gtk2::Label->new($self->{label});
 
        $event_box->add($lable);
 
        $event_box->add($label);
 
 
 
 
 
        $frame->add ($event_box);
 
        $frame->add ($event_box);
 
        $event_box->show;
 
        $event_box->show;
 
        $self->{colorbox} = $event_box;
 
        $self->{colorbox} = $event_box;
 
        $self->{labelbox} = $lable;
 
        $self->{labelbox} = $label;
 
}
 
}
 
 
 
 
 
sub on_show {
 
sub on_show {
 
        my $self = shift;
 
        my $self = shift;
 
        $self->set_color (red => $self->{red},
 
        $self->set_color (red => $self->{red},
Line 88... Line 88... 
        my $self = shift;
 
        my $self = shift;
 
        my %params = @_;
 
        my %params = @_;
 
        my $color = Gtk2::Gdk::Color->new ($params{red},
 
        my $color = Gtk2::Gdk::Color->new ($params{red},
 
                                           $params{green},
 
                                           $params{green},
 
                                           $params{blue});
 
                                           $params{blue});
 
        $self->{colorbox}->get_colormap->alloc_color ($color, 0, 1);
 
     #   $self->{colorbox}->get_colormap->alloc_color ($color, 0, 1);
 
        $self->{colorbox}->modify_bg ('normal', $color);
 
        $self->{colorbox}->modify_bg ('normal', $color);
 
       # $self->{colorbox}->modify_bg ('active', $color);
 
       # $self->{colorbox}->modify_bg ('active', $color);
 
       # $self->{colorbox}->modify_bg ('prelight', $color);
 
       # $self->{colorbox}->modify_bg ('prelight', $color);
 
        $self->{red} = $params{red};
 
        $self->{red} = $params{red};
 
        $self->{green} = $params{green};
 
        $self->{green} = $params{green};

powered by: WebSVN 2.1.0

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