view release on metacpan or  search on metacpan

lib/Gtk2/Ex/Geo/Dialogs/Colors.pm  view on Meta::CPAN

package Gtk2::Ex::Geo::Dialogs::Colors;
# @brief 

use strict;
use warnings;
use Carp;
use Graphics::ColorUtils qw /:all/;
use Glib qw/TRUE FALSE/;
use Gtk2::Ex::Geo::Dialogs qw /:all/;
use Gtk2::Ex::Geo::Layer;

use vars qw/$MAX_INT $MAX_REAL $COLOR_CELL_SIZE/;

$MAX_INT = 999999;
$MAX_REAL = 999999999.99;
$COLOR_CELL_SIZE = 20;

# open colors dialog

sub open {
    my($self, $gui) = @_;

    my($dialog, $boot) = $self->bootstrap_dialog
	($gui, 'colors_dialog', "Colors for ".$self->name,
	 {
	     colors_dialog => [delete_event => \&cancel_colors, [$self, $gui]],
	     color_scale_button => [clicked => \&fill_color_scale_fields, [$self, $gui]],
	     color_legend_button => [clicked => \&make_color_legend, [$self, $gui]],

	     copy_colors_button => [clicked => \&copy_colors, [$self, $gui]],
	     open_colors_button => [clicked => \&open_colors_file, [$self, $gui]],
	     save_colors_button => [clicked => \&save_colors_file, [$self, $gui]],

	     edit_color_button => [clicked => \&edit_color, [$self, $gui]],
	     delete_color_button => [clicked => \&delete_color, [$self, $gui]],
	     add_color_button => [clicked => \&add_color, [$self, $gui]],

	     min_hue_button => [clicked => \&set_hue_range, [$self, $gui, 'min']],
	     max_hue_button => [clicked => \&set_hue_range, [$self, $gui, 'max']],

	     grayscale_color_button => [clicked => \&set_grayscale_color, [$self, $gui]],
	     grayscale_adjust_combobox => [changed => \&grayscale_color_changed, $self],
	     grayscale_invert_checkbutton => [toggled => \&grayscale_color_changed, $self],

	     border_color_button => [clicked => \&border_color_dialog, [$self]],

	     colors_apply_button => [clicked => \&apply_colors, [$self, $gui, 0]],
	     colors_cancel_button => [clicked => \&cancel_colors, [$self, $gui]],
	     colors_ok_button => [clicked => \&apply_colors, [$self, $gui, 1]],

	     palette_type_combobox => [changed => \&palette_type_changed, [$self, $gui]],
	     color_field_combobox => [changed => \&color_field_changed, [$self, $gui]],

	     scale_min_entry => [changed => \&color_scale_changed, [$self, $gui]],
	     scale_max_entry => [changed => \&color_scale_changed, [$self, $gui]],

	     hue_range_combobox => [changed => \&hue_changed, $self],
	     
	 },
	 [qw /palette_type_combobox color_field_combobox 
              hue_range_combobox grayscale_adjust_combobox/]
	);
    if ($boot) {
	my $combo = $dialog->get_widget('palette_type_combobox');
	my $model = $combo->get_model;
	$model->clear;
	for my $type ($self->supported_palette_types()) {
	    $model->set($model->append, 0, $type);
	}

	$combo = $dialog->get_widget('hue_range_combobox');
	$model = $combo->get_model;
	$model->clear;
	for my $type ('up to', 'down to') {
	    $model->set($model->append, 0, $type);
	}

	$combo = $dialog->get_widget('grayscale_adjust_combobox');
	$model = $combo->get_model;
	$model->clear;
	my $hash = \%Gtk2::Ex::Geo::Layer::GRAYSCALE_SUBTYPE;
	for my $type (sort {$hash->{$a} <=> $hash->{$b}} keys %$hash) {
	    $model->set($model->append, 0, $type);
	}
    }

    # back up data

    my $palette_type = $self->palette_type();
    my @single_color = $self->single_color();
    my $field = $self->color_field();
    my $grayscale_subtype = $self->grayscale_subtype();
    my $invert_scale = $self->invert_scale();
    my @grayscale_color = $self->grayscale_color();
    my @scale = $self->color_scale();
    my @hue_range = $self->hue_range;
    my $table = $self->color_table();
    my $bins = $self->color_bins();
    my @border_color = $self->border_color;

    $self->{backup}->{palette_type} = $palette_type;
    $self->{backup}->{single_color} = \@single_color;
    $self->{backup}->{field} = $field;
    $self->{backup}->{grayscale_subtype} = $grayscale_subtype;
    $self->{backup}->{invert_scale} = $invert_scale;
    $self->{backup}->{grayscale_color} = \@grayscale_color;
    $self->{backup}->{scale} = \@scale;
    $self->{backup}->{hue_range} = \@hue_range;
    $self->{backup}->{table} = $table;
    $self->{backup}->{bins} = $bins;
    $self->{backup}->{border_color} = \@border_color;

    $self->{current_coloring_type} = '';

    # set up the controllers

    $dialog->get_widget('min_hue_label')->set_text($hue_range[0]);
    $dialog->get_widget('max_hue_label')->set_text($hue_range[1]);

    my $combo = $dialog->get_widget('palette_type_combobox');
    my $i = 0;
    for my $type ($self->supported_palette_types()) {
	$combo->set_active($i), last if $type eq $palette_type;
	$i++;
    }

    $combo = $dialog->get_widget('hue_range_combobox');
    $combo->set_active($hue_range[2] == 1 ? 0 : 1);

    $combo = $dialog->get_widget('grayscale_adjust_combobox');
    $i = 0;
    my $hash = \%Gtk2::Ex::Geo::Layer::GRAYSCALE_SUBTYPE;
    for my $type (sort {$hash->{$a} <=> $hash->{$b}} keys %$hash) {
	$combo->set_active($i), last if $type eq $grayscale_subtype;
	$i++;
    }

    fill_color_field_combo($self); 

    $dialog->get_widget('scale_min_entry')->set_text($scale[0]);
    $dialog->get_widget('scale_max_entry')->set_text($scale[1]);

    my @color = rgb2hsv($self->grayscale_color());
    $color[1] *= 100;
    $color[2] *= 100;
    for (@color) {
	$_ = int($_ + 0.5);
    }
    $dialog->get_widget('grayscale_color_label')->set_text("@color");
    $dialog->get_widget('grayscale_invert_checkbutton')->set_active($invert_scale ? TRUE : FALSE);

    $dialog->get_widget('border_color_checkbutton')->set_active(@border_color > 0);
    $dialog->get_widget('border_color_label')->set_text("@border_color");

    fill_colors_treeview($self);
    return $dialog->get_widget('colors_dialog');
}

# set ups

##@ignore
sub fill_color_field_combo {
    my($self) = @_;
    my $palette_type = $self->palette_type;
    my $combo = $self->{colors_dialog}->get_widget('color_field_combobox');
    my $model = $combo->get_model;
    $model->clear;
    my $i = 0;
    my $active;
    my $color_field = $self->color_field();
    my @fields = $self->schema()->fields;
    for my $field (@fields) {
	next unless $field->{Type};
	next if $palette_type eq 'Single color';
	next if ($palette_type eq 'Grayscale' or
		 $palette_type eq 'Rainbow' or 
		 $palette_type eq 'Color bins') 
	    and not($field->{Type} eq 'Integer' or 
		    $field->{Type} eq 'Real');
	next if ($palette_type eq 'Color table' and 
		 !($field->{Type} eq 'Integer' or 
		   $field->{Type} eq 'String'));
	$model->set($model->append, 0, $field->{Name});
	$active = $i if $field->{Name} eq $self->color_field();
	$i++;
    }
    if (@fields and !defined($active)) {
	$active = 0;
	$self->color_field($fields[0]->{Name});
    }
    $combo->set_active($active) if defined $active;
}

# callbacks for edits

##@ignore
sub palette_type_changed {
    my($self, $gui) = @{$_[1]};
    my $dialog = $self->{colors_dialog};
    my $palette = get_value_from_combo($self->{colors_dialog}, 'palette_type_combobox');
    return unless $palette;
    $self->palette_type($palette);

    fill_color_field_combo($self);

    my $tv = $dialog->get_widget('colors_treeview');
    
    for my $w (qw/color_field_label color_field_combobox 
            scale_label2 scale_min_entry scale_label3 scale_max_entry color_scale_button 
                color_legend_button
            rainbow_label
            min_hue_label min_hue_button max_hue_label max_hue_button hue_range_combobox
            grayscale_label4 grayscale_color_label grayscale_color_button grayscale_adjust_combobox 
                grayscale_label5 grayscale_invert_checkbutton
            border_color_checkbutton border_color_label border_color_button
            edit_label edit_color_button delete_color_button add_color_button
            manage_label copy_colors_button open_colors_button save_colors_button/) {	
	$dialog->get_widget($w)->set_sensitive(0);
    }
    $tv->set_sensitive(0);

    return unless create_colors_treeview($self);
    
    if ($palette ne 'Single color') {
	for my $w (qw/color_field_label color_field_combobox/) {
	    $dialog->get_widget($w)->set_sensitive(1);
	}
    }
    
    if ($palette eq 'Grayscale') {
	for my $w (qw/grayscale_label4 grayscale_color_label grayscale_color_button 
                      grayscale_adjust_combobox grayscale_label5 grayscale_invert_checkbutton/) {
	    $dialog->get_widget($w)->set_sensitive(1);
	}
    } elsif ($palette eq 'Rainbow') {
	for my $w (qw/rainbow_label
                      min_hue_label min_hue_button max_hue_label max_hue_button 
                      hue_range_combobox/) {
	    $dialog->get_widget($w)->set_sensitive(1);
	}
    }
    
    if ($palette eq 'Single color') {
	for my $w (qw/edit_label edit_color_button/) {
	    $dialog->get_widget($w)->set_sensitive(1);
	}
	$tv->set_sensitive(1);
    } elsif ($palette eq 'Grayscale' or $palette eq 'Rainbow' or $palette =~ 'channel') {
	for my $w (qw/scale_label2 scale_min_entry scale_label3 scale_max_entry color_scale_button 
                      color_legend_button/) {
	    $dialog->get_widget($w)->set_sensitive(1);
	}
	$tv->set_sensitive(1);
    } elsif ($palette eq 'Color table') {
	for my $w (qw/manage_label copy_colors_button open_colors_button save_colors_button 
                      edit_label edit_color_button delete_color_button add_color_button/) {
	    $dialog->get_widget($w)->set_sensitive(1);
	}
	$tv->set_sensitive(1);
	
    } elsif ($palette eq 'Color bins') {
	for my $w (qw/manage_label copy_colors_button open_colors_button save_colors_button 
                      edit_label edit_color_button delete_color_button add_color_button/) {
	    $dialog->get_widget($w)->set_sensitive(1);
	}
	$tv->set_sensitive(1);
    }
    if ($self->has_features_with_borders) {
	for my $w (qw/border_color_checkbutton border_color_label border_color_button/) {
	    $dialog->get_widget($w)->set_sensitive(1);
	}
    }
}

##@ignore
sub color_field_changed {
    my($self, $gui) = @{$_[1]};
    my $field = get_value_from_combo($self->{colors_dialog}, 'color_field_combobox');
    return unless $field; # model is cleared
    $self->color_field($field);
    my $palette = $self->palette_type;
    if (($palette eq 'Color bins' or $palette eq 'Color table') and 
	$self->{current_coloring_type} ne current_coloring_type($self)) {
	create_colors_treeview($self);
    }
}

## @ignore
sub color_scale_changed {
    my($self, $gui) = @{$_[1]};
    my $d = $self->{colors_dialog};
    my $min = get_number_from_entry($d->get_widget('scale_min_entry'));
    my $max = get_number_from_entry($d->get_widget('scale_max_entry'));
    $self->color_scale($min, $max);
}

## @ignore
sub hue_changed {
    my(undef, $self) = @_;
    my $d = $self->{colors_dialog};
    my $min = get_number_from_entry($d->get_widget('min_hue_label'));
    my $max = get_number_from_entry($d->get_widget('max_hue_label'));
    my $dir = $d->get_widget('hue_range_combobox')->get_active == 0 ? 1 : -1; # up is 1, down is -1
    $self->hue_range($min, $max, $dir);
    create_colors_treeview($self);
}

## @ignore
sub grayscale_color_changed {
    my(undef, $self) = @_;
    my $d = $self->{colors_dialog};

    my @color = split(/ /, $self->{colors_dialog}->get_widget('grayscale_color_label')->get_text);
    if (@color > 2) {
	$color[1] /= 100;
	$color[2] /= 100;
	@color = hsv2rgb(@color);
	$self->grayscale_color(@color, 255);
    }
    $self->invert_scale($d->get_widget('grayscale_invert_checkbutton')->get_active());
    $self->grayscale_subtype(get_value_from_combo($d, 'grayscale_adjust_combobox'));

    create_colors_treeview($self);
}

# button callbacks

##@ignore
sub apply_colors {
    my($self, $gui, $close) = @{$_[1]};
    my @color = split(/ /, $self->{colors_dialog}->get_widget('border_color_label')->get_text);
    my $has_border = $self->{colors_dialog}->get_widget('border_color_checkbutton')->get_active();
    @color = () unless $has_border;
    $self->border_color(@color);
    $self->hide_dialog('colors_dialog') if $close;
    $gui->{overlay}->render;
}

##@ignore
sub cancel_colors {
    my($self, $gui);
    for (@_) {
	next unless ref eq 'ARRAY';
	($self, $gui) = @{$_};
    }
    $self->palette_type($self->{backup}->{palette_type});
    $self->single_color(@{$self->{backup}->{single_color}});
    $self->color_field($self->{backup}->{field}) if $self->{backup}->{field};
    $self->color_table($self->{backup}->{table});
    $self->color_bins($self->{backup}->{bins});
    $self->color_scale(@{$self->{backup}->{scale}});

    $self->hue_range(@{$self->{backup}->{hue_range}});

    $self->grayscale_subtype($self->{backup}->{grayscale_subtype});
    $self->invert_scale($self->{backup}->{invert_scale});
    $self->grayscale_color(@{$self->{backup}->{grayscale_color}});

    $self->border_color(@{$self->{backup}->{border_color}});

    $self->hide_dialog('colors_dialog');
    $gui->{overlay}->render;
    1;
}

##@ignore
sub copy_colors {
    my($self, $gui) = @{$_[1]};
    my $table = copy_colors_dialog($self, $gui);
    if ($table) {
	my $palette_type = $self->palette_type;
	if ($palette_type eq 'Color table') {
	    $self->color_table($table);
	} elsif ($palette_type eq 'Color bins') {
	    $self->color_bins($table);
	}
	fill_colors_treeview($self);
    }
}

##@ignore