20 lines
303 B
Perl
Executable File
20 lines
303 B
Perl
Executable File
#!/usr/bin/env perl
|
|
use strict;
|
|
use warnings;
|
|
use utf8;
|
|
|
|
use HTTP::Soup;
|
|
use Gtk3 -init;
|
|
|
|
|
|
my $builder = Gtk3::Builder->new();
|
|
$builder->add_from_file('ui/main.xml');
|
|
|
|
my $win = $builder->get_object('window');
|
|
$win->set_title('rDrama');
|
|
$win->set_default_size(300, 500);
|
|
|
|
$win->show_all;
|
|
|
|
Gtk3->main();
|