-#!/usr/bin/perl -w
+#!/usr/bin/perl
#
# Clawsker :: A Claws Mail Tweaker
-# Copyright 2007-2018 Ricardo Mones <ricardo@mones.org>
+# Copyright 2007-2019 Ricardo Mones <ricardo@mones.org>
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
package Clawsker;
use 5.010_000;
use strict;
+use warnings;
use utf8;
use version 0.77;
use Glib qw(TRUE FALSE);
bindtextdomain ($NAME, catdir ($PREFIX, 'share', 'locale'));
textdomain ($NAME);
}
+initialise;
sub _ {
my $str = shift;
$xl::s{l_gui_from_show},
$xl::s{h_gui_from_show},
'0=l_gui_from_show_name;1=l_gui_from_show_addr;2=l_gui_from_show_both',
- '3.7.10',
+ '3.7.10,3.17.4.44',
'0',
],
strip_off => [
$xl::s{l_col_diff_add},
$xl::s{h_col_diff_add},
'color',
- '3.8.0.54',
+ '3.8.0.54,3.17.4.35',
'#008b8b',
],
diff_del => [
$xl::s{l_col_diff_del},
$xl::s{h_col_diff_del},
'color',
- '3.8.0.54',
+ '3.8.0.54,3.17.4.35',
'#6a5acd',
],
diff_hunk => [
$xl::s{l_col_diff_hunk},
$xl::s{h_col_diff_hunk},
'color',
- '3.8.0.54',
+ '3.8.0.54,3.17.4.35',
'#a52a2a',
],
tags_bg => [
# create an about dialog
sub new_about_dialog {
my ($parent) = @_;
- my $year = '2007-2018';
+ my $year = '2007-2019';
my $holder = 'Ricardo Mones <ricardo@mones.org>';
my $url = 'http://www.claws-mail.org/clawsker.php';
my $icons = &get_app_icons;
sub main {
my $args = shift;
- initialise;
exit unless parse_command_line ($args);
Gtk3->init;
$main_window = Gtk3::Window->new ('toplevel');