Ticket #1290: Advanced.patch

lib/Padre/Wx/Dialog/Advanced.pm

@@ -710 +710 @@
 
     my $index          = -1;
     my $preferences    = $self->{preferences};
-    my $alternateColor = Wx::Colour->new( 0xED, 0xF5, 0xFF );
 
+    # Try to derive an alternate row colour based on the current system colour
+    my $realColor      = Wx::SystemSettings::GetColour( Wx::wxSYS_COLOUR_WINDOW );
+    # Alternate candystripe is slightly darker and blueish
+    my $alternateColor = Wx::Colour->new(
+        int($realColor->Red*0.9),
+        int($realColor->Green*0.9),
+        $realColor->Blue,
+    );
+
     my @preference_names = sort { $a cmp $b } keys %$preferences;
     if ( $self->{sortcolumn} == 1 ) {