sergiotarxz/JapaChar
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

v0.29 Adding discord community to retrieve feedback.

Browse Source
This commit is contained in:
Sergiotarxz 2024-11-13 13:49:30 +01:00
parent af6576819a
commit 2f8e992093
5 changed files with 30 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/JapaChar.pm
View File

@ -82,6 +82,11 @@ sub _build__gresources_path($self) {
return $gresources;
}
sub launch_discord($self) {
my $launcher = Gtk::UriLauncher->new( 'https://discord.gg/qsvzSJPX' );
$launcher->launch( $self->_window, undef, undef );
}
sub get_width($self) {
return $self->_window->get_property('default-width');
}

1
lib/JapaChar/Fontconfig.pm
View File

@ -14,7 +14,6 @@ use Data::Dumper;
require XSLoader;
XSLoader::load('JapaChar');
sub _font_dir($self) {
require JapaChar;
my $root = JapaChar->root;

11
lib/JapaChar/View/MainMenu.pm
View File

@ -121,6 +121,17 @@ sub run($self) {
$button_assisted_mode->set_hexpand(1);
$button_assisted_mode->set_valign('center');
$button_assisted_mode->set_halign('center');
my $button_discord_community = Gtk::Button->new_with_label('Join the discord community');
$button_discord_community->set_vexpand(1);
$button_discord_community->set_hexpand(1);
$button_discord_community->set_valign('center');
$button_discord_community->set_halign('center');
$button_discord_community->signal_connect(
clicked => sub {
$self->app->launch_discord;
}
);
$grid->attach( $button_discord_community, 0, 3, 5, 1 );
$self->app->window_set_child($grid);
}
1;

7
me.sergiotarxz.JapaChar.metainfo.xml
View File

@ -30,7 +30,12 @@
<developer_name>sergiotarxz</developer_name>
<releases>
<release version="v0.28" date="2024-11-09">
<release version="v0.29" date="2024-11-13">
<description>
<p>Adding discord community to retrieve feedback from users.</p>
</description>
</release>
<release version="v0.28" date="2024-11-10">
<description>
<p>Migrating to XS because Inline::C is giving compatibility issues.</p>
</description>

8
scripts/japchar.pl
View File

@ -4,6 +4,14 @@ use v5.38.2;
use File::Basename;
BEGIN {
open my $fh, '>&', \*STDERR;
open STDERR, '>', '/dev/null';
system 'perl', 'Build.PL';
system 'perl', 'Build', 'build';
open STDERR, '>&', $fh;
};
use blib;
use JapaChar;