From 126bb8cb6b93240bb4d3a2b816b74c286c3d422b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=B6rg=20Frings-F=C3=BCrst?= <jff@merkur>
Date: Sun, 6 Jul 2014 15:20:38 +0200
Subject: Imported Upstream version 1.7.0

---
 lib/gcstar/GCItemsLists/GCListOptions.pm | 496 +++++++++++++++++++++++++++++++
 1 file changed, 496 insertions(+)
 create mode 100644 lib/gcstar/GCItemsLists/GCListOptions.pm

(limited to 'lib/gcstar/GCItemsLists/GCListOptions.pm')

diff --git a/lib/gcstar/GCItemsLists/GCListOptions.pm b/lib/gcstar/GCItemsLists/GCListOptions.pm
new file mode 100644
index 0000000..c41084b
--- /dev/null
+++ b/lib/gcstar/GCItemsLists/GCListOptions.pm
@@ -0,0 +1,496 @@
+package GCListOptions;
+
+###################################################
+#
+#  Copyright 2005-2011 Christian Jodar
+#
+#  This file is part of GCstar.
+#
+#  GCstar is free software; you can redistribute it and/or modify
+#  it under the terms of the GNU General Public License as published by
+#  the Free Software Foundation; either version 2 of the License, or
+#  (at your option) any later version.
+#
+#  GCstar is distributed in the hope that it will be useful,
+#  but WITHOUT ANY WARRANTY; without even the implied warranty of
+#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#  GNU General Public License for more details.
+#
+#  You should have received a copy of the GNU General Public License
+#  along with GCstar; if not, write to the Free Software
+#  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
+#
+###################################################
+
+use strict;
+use Gtk2;
+
+{
+    package GCListOptionsPanel;
+    use base "Gtk2::Frame";
+    
+    sub setView
+    {
+        my ($self, $view) = @_;
+        if ((!exists $self->{currentView}) || ($view != $self->{currentView}))
+        {
+            $self->{currentView} = $view;
+            if ($self->{panel})
+            {
+                $self->{scroll}->remove($self->{scroll}->get_child);
+                $self->{panel}->destroy;
+            }
+            
+            $self->{cancel}->set_sensitive(1);
+            $self->{apply}->set_sensitive(1);
+    
+            if ($view == 0)
+            {
+                $self->{panel} = new GCEmptyOptionsPanel($self->{parent}->{model}->{preferences}, $self->{parent});
+                $self->{cancel}->set_sensitive(0);
+                $self->{apply}->set_sensitive(0);
+            }
+            elsif ($view == 1)
+            {
+                $self->{panel} = new GCImagesOptionsPanel($self->{parent}->{model}->{preferences}, $self->{parent});
+            }
+            else
+            {
+                $self->{panel} = new GCDetailedOptionsPanel($self->{parent}->{model}->{preferences}, $self->{parent});
+            }
+            $self->{scroll}->add_with_viewport($self->{panel});
+            $self->{scroll}->child->set_shadow_type('none');
+        }
+        $self->{panel}->initValues;
+    }
+    
+    sub new
+    {
+        my ($proto, $optionsManager, $parent) = @_;
+        my $class = ref($proto) || $proto;
+        
+        my $self  = $class->SUPER::new;
+        $self->{optionsManager} = $optionsManager;
+        $self->{parent} = $parent;
+        $self->{scroll} = new Gtk2::ScrolledWindow;
+        $self->{scroll}->set_policy ('automatic', 'automatic');
+        $self->{scroll}->set_shadow_type('none');
+        $self->{hboxButtons} = new Gtk2::HBox(0,0);
+        $self->{cancel} = GCButton->newFromStock('gtk-clear');
+        $self->{apply} = GCButton->newFromStock('gtk-apply');
+        
+        $self->{vbox} = new Gtk2::VBox(0,0);
+
+        $self->{hboxButtons}->pack_end($self->{apply}, 0, 0, $GCUtils::halfMargin);
+        $self->{hboxButtons}->pack_end($self->{cancel}, 0, 0, $GCUtils::halfMargin);
+        $self->add($self->{vbox});
+
+        $self->{vbox}->pack_start($self->{scroll}, 1, 1, $GCUtils::quarterMargin);
+        $self->{vbox}->pack_start($self->{hboxButtons}, 0, 0, $GCUtils::quarterMargin);
+
+        $self->{cancel}->signal_connect('clicked' => sub {
+            $self->{panel}->initValues
+                if $self->{panel};
+        });
+        $self->{apply}->signal_connect('clicked' => sub {
+            if ($self->{panel})
+            {
+                $self->{panel}->saveValues;
+                $self->{parent}->setItemsList(0, 1);
+            }
+        });
+        
+
+        bless $self, $class;
+        return $self;    
+    }
+}
+
+{
+    # Class used when there is no option
+    package GCEmptyOptionsPanel;
+    use base "Gtk2::VBox";
+    use GCStyle;
+    
+    sub initValues
+    {
+        my $self = shift;
+    }
+    sub saveValues
+    {
+        my $self = shift;
+    }
+    sub new
+    {
+        my ($proto, $optionsManager, $parent) = @_;
+        my $class = ref($proto) || $proto;
+        
+        my $self  = $class->SUPER::new(0,0);
+        bless $self, $class;
+        # TODO to be replaced with a translatable label
+        my $label = new GCLabel("No option");
+        $self->pack_start($label,1,1,0);
+        $self->show_all;
+        return $self;
+    }        
+}
+    
+{
+    # Class used to let user select images options
+    package GCImagesOptionsPanel;
+    use base "Gtk2::Table";
+    #use base "Gtk2::VBox";
+    use GCStyle;
+    
+    sub initValues
+    {
+        my $self = shift;
+        $self->{resizeImgList}->set_active($self->{optionsManager}->resizeImgList);
+        $self->{animateImgList}->set_active($self->{optionsManager}->animateImgList);
+        $self->{columns}->set_value($self->{optionsManager}->columns);
+        $self->{imgSizeOption}->setValue($self->{optionsManager}->listImgSize);
+        $self->{optionStyle}->setValue($self->{optionsManager}->listImgSkin);
+        $self->{useOverlays}->set_active($self->{optionsManager}->useOverlays);             
+        $self->{listBgPicture}->set_active($self->{optionsManager}->listBgPicture);
+        $self->activateColors(! $self->{optionsManager}->listBgPicture);
+        $self->{mlbg} = $self->{optionsManager}->listBgColor;
+        $self->{mlfg} = $self->{optionsManager}->listFgColor;
+        $self->{groupByOption}->setValue($self->{optionsManager}->groupBy);
+        $self->{secondarySortOption}->setValue($self->{optionsManager}->secondarySort);        
+    }
+    
+    sub saveValues
+    {
+        my $self = shift;
+        
+        $self->{optionsManager}->resizeImgList(($self->{resizeImgList}->get_active) ? 1 : 0);
+        $self->{optionsManager}->animateImgList(($self->{animateImgList}->get_active) ? 1 : 0);
+        $self->{optionsManager}->columns($self->{columns}->get_value);
+        $self->{optionsManager}->listImgSize($self->{imgSizeOption}->getValue);
+        $self->{optionsManager}->listImgSkin($self->{optionStyle}->getValue);
+        $self->{optionsManager}->listBgColor($self->{mlbg});
+        $self->{optionsManager}->listFgColor($self->{mlfg});
+        $self->{optionsManager}->listBgPicture(($self->{listBgPicture}->get_active) ? 1 : 0);
+        $self->{optionsManager}->useOverlays(($self->{useOverlays}->get_active) ? 1 : 0);
+        $self->{optionsManager}->groupBy($self->{groupByOption}->getValue);
+        $self->{optionsManager}->secondarySort( $self->{secondarySortOption}->getValue);
+    }
+    
+    sub changeColor
+    {
+        my ($self, $type) = @_;
+        
+        my $dialog = new Gtk2::ColorSelectionDialog($self->{lang}->{ImagesOptionsSelectColor});
+        my $vboxPicture = new Gtk2::VBox(0,0);
+        my @colors = split m/,/, $self->{'ml'.$type};
+        my $previous = new Gtk2::Gdk::Color($colors[0], $colors[1], $colors[2]);
+        $dialog->colorsel->set_current_color($previous) if $previous;
+        my $response = $dialog->run;
+        if ($response eq 'ok')
+        {
+            my $color = $dialog->colorsel->get_current_color;
+            $self->{'ml'.$type} = join ',',$color->red, $color->green, $color->blue;
+        }
+        $dialog->destroy;
+    }
+    
+    sub activateColors
+    {
+        my ($self, $value) = @_;
+        
+        $self->{labelStyle}->set_sensitive(!$value);
+        $self->{optionStyle}->set_sensitive(!$value);
+        $self->{labelBg}->set_sensitive($value);
+        $self->{buttonBg}->set_sensitive($value);
+    }
+    
+    sub new
+    {
+        my ($proto, $optionsManager, $parent) = @_;
+        my $class = ref($proto) || $proto;
+        
+        my $self  = $class->SUPER::new(14,4);
+        #my $self  = $class->SUPER::new(0,0);
+        
+        $self->{optionsManager} = $optionsManager;
+        $self->{lang} = $parent->{lang};
+
+#        $self->set_row_spacings($GCUtils::halfMargin);
+        $self->set_col_spacings($GCUtils::margin);
+        $self->set_border_width($GCUtils::margin);
+
+        $self->{labelColumns} = new GCLabel($self->{lang}->{OptionsColumns});
+        my  $adj = Gtk2::Adjustment->new(0, 1, 20, 1, 1, 0) ;
+        $self->{columns} = Gtk2::SpinButton->new($adj, 0, 0);
+
+        $self->{resizeImgList} = new Gtk2::CheckButton($self->{lang}->{ImagesOptionsResizeImgList});
+        $self->{resizeImgList}->signal_connect('clicked' => sub {
+            $self->{columns}->set_sensitive(! $self->{resizeImgList}->get_active);
+        });
+        $self->{resizeImgList}->set_active($self->{resizeImgList});
+
+        $self->{animateImgList} = new Gtk2::CheckButton($self->{lang}->{ImagesOptionsAnimateImgList});
+        $self->{animateImgList}->signal_connect('clicked' => sub {
+            $self->{columns}->set_sensitive(! $self->{animateImgList}->get_active);
+        });
+        $self->{animateImgList}->set_active($self->{animateImgList});
+
+        $self->{imgSizeLabel} = new GCLabel($self->{lang}->{ImagesOptionsSizeLabel});
+        $self->{imgSizeOption} = new GCMenuList;
+        my %imgSizes = %{$self->{lang}->{ImagesOptionsSizeList}};
+        my @imgValues = map {{value => $_, displayed => $imgSizes{$_}}}
+                                 (sort keys %imgSizes);
+        $self->{imgSizeOption}->setValues(\@imgValues);
+
+        $self->{useOverlays} = new Gtk2::CheckButton($self->{lang}->{ImagesOptionsUseOverlays});
+        $self->{useOverlays}->set_active($self->{useOverlays});
+
+        $self->{listBgPicture} = new Gtk2::CheckButton($self->{lang}->{ImagesOptionsBgPicture});
+        $self->{listBgPicture}->signal_connect('clicked' => sub {
+            $self->activateColors(! $self->{listBgPicture}->get_active);
+        });
+        
+        $self->{labelStyle} = new GCLabel($self->{lang}->{OptionsStyle});
+        $self->{optionStyle} = new GCMenuList;
+        my @styleValues;
+        foreach (@GCStyle::lists)
+        {
+            (my $displayed = $_) =~ s/_/ /g;
+            push @styleValues, {value => $_, displayed => $displayed};
+        }
+        $self->{optionStyle}->setValues(\@styleValues);
+       
+        $self->{labelBg} = new GCLabel($self->{lang}->{ImagesOptionsBg});
+        $self->{buttonBg} = new Gtk2::Button($self->{lang}->{ImagesOptionsSelectColor});
+        $parent->{tooltips}->set_tip($self->{buttonBg},
+                                     $self->{lang}->{ImagesOptionsBgTooltip});
+        $self->{buttonBg}->signal_connect('clicked' => sub {
+            $self->changeColor('bg');
+        });
+        
+        $self->{labelFg} = new GCLabel($self->{lang}->{ImagesOptionsFg});
+        $self->{buttonFg} = new Gtk2::Button($self->{lang}->{ImagesOptionsSelectColor});
+        $self->{buttonFg}->signal_connect('clicked' => sub {
+            $self->changeColor('fg');
+        });
+        $parent->{tooltips}->set_tip($self->{buttonFg},
+                                     $self->{lang}->{ImagesOptionsFgTooltip});
+
+        $self->{groupItems} = new GCLabel($self->{lang}->{DetailedOptionsGroupItems});
+        $self->{groupByOption} = new GCFieldSelector(0, undef, 1);
+        $self->{groupByOption}->setModel($parent->{model});
+        
+        $self->{secondarySort} = new GCLabel($self->{lang}->{DetailedOptionsSecondarySort});
+        $self->{secondarySortOption} = new GCFieldSelector(0, undef, 1);
+        $self->{secondarySortOption}->setModel($parent->{model});
+
+#        my $tableDisplay = new Gtk2::Table(5,2);
+#        $tableDisplay->set_row_spacings($GCUtils::halfMargin);
+#        $tableDisplay->set_col_spacings($GCUtils::margin);
+#        $tableDisplay->set_border_width($GCUtils::margin);
+        my $imagesDisplayExpander = new GCExpander($self->{lang}->{OptionsImagesDisplayGroup}, 1);
+        $self->attach($imagesDisplayExpander, 0, 4, 0, 1, 'fill', 'fill', 0, $GCUtils::quarterMargin);
+        $self->attach($self->{resizeImgList}, 2, 4, 1, 2, 'fill', 'fill', 0, $GCUtils::quarterMargin);
+        $self->attach($self->{animateImgList}, 2, 4, 2, 3, 'fill', 'fill', 0, $GCUtils::quarterMargin);
+        $self->attach($self->{labelColumns}, 2, 3, 3, 4, 'fill', 'fill', 0, $GCUtils::quarterMargin);
+        $self->attach($self->{columns}, 3, 4, 3, 4, 'fill', 'fill', 0, $GCUtils::quarterMargin);
+        $self->attach($self->{imgSizeLabel}, 2, 3, 4, 5, 'fill', 'fill', 0, $GCUtils::quarterMargin);
+        $self->attach($self->{imgSizeOption}, 3, 4, 4, 5, 'fill', 'fill', 0, $GCUtils::quarterMargin);
+        $self->attach($self->{groupItems}, 2, 3, 5, 6, 'fill', 'fill', 0, $GCUtils::quarterMargin);
+        $self->attach($self->{groupByOption}, 3, 4, 5, 6, 'fill', 'fill', 0, $GCUtils::quarterMargin);
+        $self->attach($self->{secondarySort}, 2, 3, 6, 7, 'fill', 'fill', 0, $GCUtils::quarterMargin);
+        $self->attach($self->{secondarySortOption}, 3, 4, 6, 7, 'fill', 'fill', 0, $GCUtils::quarterMargin);        
+
+        my $imagesStyleExpander = new GCExpander($self->{lang}->{OptionsImagesStyleGroup}, 1);
+        $self->attach($imagesStyleExpander, 0, 4, 8, 9, 'fill', 'fill', 0, $GCUtils::quarterMargin);
+        $self->attach($self->{useOverlays}, 2, 4, 9, 10, 'fill', 'fill', 0, $GCUtils::quarterMargin);
+        $self->attach($self->{listBgPicture}, 2, 4, 10, 11, 'fill', 'fill', 0, $GCUtils::quarterMargin);
+        $self->attach($self->{labelStyle}, 2, 3, 11, 12, 'fill', 'fill', 0, $GCUtils::quarterMargin);
+        $self->attach($self->{optionStyle}, 3, 4, 11, 12, 'fill', 'fill', 0, $GCUtils::quarterMargin);
+        $self->attach($self->{labelBg}, 2, 3, 12, 13, 'fill', 'fill', 0, $GCUtils::quarterMargin);
+        $self->attach($self->{buttonBg}, 3, 4, 12, 13, 'fill', 'fill', 0, $GCUtils::quarterMargin);
+        $self->attach($self->{labelFg}, 2, 3, 13, 14, 'fill', 'fill', 0, $GCUtils::quarterMargin);
+        $self->attach($self->{buttonFg}, 3, 4, 13, 14, 'fill', 'fill', 0, $GCUtils::quarterMargin);
+        
+        $imagesDisplayExpander->signal_connect('activate' => sub {
+            if (!$imagesDisplayExpander->get_expanded)
+            {
+                $self->{resizeImgList}->show_all;
+                $self->{labelColumns}->show_all;
+                $self->{columns}->show_all;
+                $self->{imgSizeLabel}->show_all;
+                $self->{imgSizeOption}->show_all;
+                $self->{groupItems}->show_all;
+                $self->{groupByOption}->show_all;
+                $self->{secondarySort}->show_all;
+                $self->{secondarySortOption}->show_all;
+            }
+            else
+            {
+                $self->{resizeImgList}->hide_all;
+                $self->{labelColumns}->hide_all;
+                $self->{columns}->hide_all;
+                $self->{imgSizeLabel}->hide_all;
+                $self->{imgSizeOption}->hide_all;
+                $self->{groupItems}->hide_all;
+                $self->{groupByOption}->hide_all;
+                $self->{secondarySort}->hide_all;
+                $self->{secondarySortOption}->hide_all;
+            }
+        });  
+        $imagesStyleExpander->signal_connect('activate' => sub {
+            if (!$imagesStyleExpander->get_expanded)
+            {
+                $self->{useOverlays}->show_all;
+                $self->{listBgPicture}->show_all;
+                $self->{labelStyle}->show_all;
+                $self->{optionStyle}->show_all;
+                $self->{labelBg}->show_all;
+                $self->{buttonBg}->show_all;
+                $self->{labelFg}->show_all;
+                $self->{buttonFg}->show_all;
+            }
+            else
+            {
+                $self->{useOverlays}->hide_all;
+                $self->{listBgPicture}->hide_all;
+                $self->{labelStyle}->hide_all;
+                $self->{optionStyle}->hide_all;
+                $self->{labelBg}->hide_all;
+                $self->{buttonBg}->hide_all;
+                $self->{labelFg}->hide_all;
+                $self->{buttonFg}->hide_all;
+            }
+        });
+
+        $self->show_all;
+        $imagesDisplayExpander->set_expanded(1);
+        $imagesStyleExpander->set_expanded(1);
+
+        bless ($self, $class);
+        return $self;
+    }
+}
+
+
+
+{
+    # Class used to let user select detailed options
+    package GCDetailedOptionsPanel;
+    use base "Gtk2::VBox";
+   
+    
+    sub initValues
+    {
+        my $self = shift;
+        
+        $self->{imgSizeOption}->setValue($self->{optionsManager}->detailImgSize);
+        $self->{groupByOption}->setValue($self->{optionsManager}->groupBy);
+        $self->{secondarySortOption}->setValue($self->{optionsManager}->secondarySort);
+        $self->{groupedFirst}->setValue($self->{optionsManager}->groupedFirst);
+        $self->{addCount}->setValue($self->{optionsManager}->addCount);
+        
+        my @tmpFieldsArray = split m/\|/, $self->{optionsManager}->details;
+        $self->{fieldsSelection}->setListFromIds(\@tmpFieldsArray);
+
+    }
+    
+    sub saveValues
+    {
+        my $self = shift;
+        $self->{optionsManager}->detailImgSize($self->{imgSizeOption}->getValue);
+        $self->{optionsManager}->groupBy($self->{groupByOption}->getValue);
+        $self->{optionsManager}->secondarySort($self->{secondarySortOption}->getValue);
+        $self->{optionsManager}->groupedFirst($self->{groupedFirst}->getValue);
+        $self->{optionsManager}->addCount($self->{addCount}->getValue);
+        my $details = join('|', @{$self->{fieldsSelection}->getSelectedIds});
+        $self->{optionsManager}->details($details);
+    }
+    
+    sub hideExtra
+    {
+        my $self = shift;
+
+    }
+
+    sub show
+    {
+        my $self = shift;
+
+        $self->initValues;
+        
+        my $code = $self->SUPER::show;
+        if ($code eq 'ok')
+        {
+            $self->saveValues;
+        }
+        $self->hide;
+    }
+    
+    sub new
+    {
+        my ($proto, $optionsManager, $parent, $preIdList) = @_;
+        my $class = ref($proto) || $proto;
+        my $self = $class->SUPER::new(0,0);
+
+        $self->{lang} = $parent->{lang};
+        $self->{optionsManager} = $optionsManager;
+
+        bless ($self, $class);
+
+        $self->set_border_width($GCUtils::margin);
+
+        $self->{groupItems} = new GCLabel($self->{lang}->{DetailedOptionsGroupItems});
+        $self->{groupByOption} = new GCFieldSelector(0, undef, 1);
+        $self->{groupByOption}->setModel($parent->{model});
+
+        $self->{secondarySort} = new GCLabel($self->{lang}->{DetailedOptionsSecondarySort});
+        $self->{secondarySortOption} = new GCFieldSelector(0, undef, 1);
+        $self->{secondarySortOption}->setModel($parent->{model});
+
+        $self->{groupedFirst} = new GCCheckBox($self->{lang}->{DetailedOptionsGroupedFirst});
+        $self->{addCount} = new GCCheckBox($self->{lang}->{DetailedOptionsAddCount});
+        
+        $self->{imgSizeLabel} = new GCLabel($self->{lang}->{DetailedOptionsImageSize});
+        $self->{imgSizeOption} = new GCMenuList;
+        my %imgSizes = %{$self->{lang}->{ImagesOptionsSizeList}};
+        my @imgValues = map {{value => $_, displayed => $imgSizes{$_}}}
+                                 (sort keys %imgSizes);
+        $self->{imgSizeOption}->setValues(\@imgValues);
+
+        my $preferencesExpander = new GCExpander($self->{lang}->{OptionsDetailedPreferencesGroup}, 1);
+        $self->pack_start($preferencesExpander, 0, 0, $GCUtils::quarterMargin);
+
+        my $tablePreferences = new Gtk2::Table(4, 5);
+        $tablePreferences->set_col_spacings($GCUtils::margin);
+
+        $tablePreferences->attach($self->{imgSizeLabel}, 2, 3, 1, 2, 'fill', 'fill', 0, $GCUtils::quarterMargin);
+        $tablePreferences->attach($self->{imgSizeOption}, 3, 4, 1, 2, 'fill', 'fill', 0, $GCUtils::quarterMargin);
+
+        $tablePreferences->attach($self->{groupItems}, 2, 3, 2, 3, 'fill', 'fill', 0, $GCUtils::quarterMargin);
+        $tablePreferences->attach($self->{groupByOption}, 3, 4, 2, 3, 'fill', 'fill', 0, $GCUtils::quarterMargin);
+        $tablePreferences->attach($self->{secondarySort}, 2, 3, 3, 4, 'fill', 'fill', 0, $GCUtils::quarterMargin);
+        $tablePreferences->attach($self->{secondarySortOption}, 3, 4, 3, 4, 'fill', 'fill', 0, $GCUtils::quarterMargin);
+
+        $tablePreferences->attach($self->{groupedFirst}, 2, 4, 4, 5, 'fill', 'fill', 0, $GCUtils::quarterMargin);
+        $tablePreferences->attach($self->{addCount}, 2, 4, 5, 6, 'fill', 'fill', 0, $GCUtils::quarterMargin);
+
+        $preferencesExpander->add($tablePreferences);
+
+        my $fieldsExpander = new GCExpander($self->{lang}->{DetailedOptionsFields}, 1);
+        my @tmpFieldsArray = split m/\|/, $optionsManager->details;
+        $self->{fieldsSelection} = new GCFieldsSelectionWidget($parent, \@tmpFieldsArray, 1);
+
+        $self->pack_start($fieldsExpander, 0, 0, $GCUtils::quarterMargin);
+        $fieldsExpander->add($self->{fieldsSelection});
+        $self->{fieldsSelection}->set_border_width($GCUtils::margin);
+
+        $preferencesExpander->set_expanded(1);
+        $fieldsExpander->set_expanded(1);
+
+        $self->show_all;
+        return $self;
+    }
+}
+
+1;
-- 
cgit v1.2.3