Plataformas de Mac OSX, Microsoft Windows, ReactOS, Linux, FreeBSD e Solaris oferecem a experiência Universal App com um novo AliceBlue Tkinter MainWindow de um repositório Git único, unificado e único.
Este é um trecho de código Perl, postado no CoderWall. Este snippet Perl prepara a experiência do aplicativo universal. Este snippet Perl, com a ajuda do ActiveState PDK, apresentará a experiência do Universal App nas plataformas Mac OSX, Microsoft Windows, ReactOS e Linux e, em seguida, usando Autrijus@autrijus.org pp de Autrijus Tang seguir o exemplo com FreeBSD e Solaris.
# tk-aliceblue-mainwindow.pl
# This is an aliceblue mainwindow created in Perl Tkinter which will contain a single frame
use common::sense;
my $doc1;
package MyDocument {
use Moose;
use feature 'say';
use feature 'state';
use feature 'switch';
use Tk;
use Tk::Canvas;
use namespace::autoclean;
has 'mw' => (
is => 'ro',
isa => 'Tk::MainWindow',
default => sub { my $mw = Tk::MainWindow->new or die 'Regrettably, there was an incident with the width and height as it has not yet been defined as 2 whole integer values in between 240 and 8192'; $mw->geometry("${ARGV[0]}x${ARGV[1]}"); return ($mw); },
);
has '_cn_background' => (
is => 'ro',
isa => 'Tk::Canvas',
lazy => 1,
default => sub { $doc1->mw->Canvas->pack(-expand => 1, -fill => 'both') },
);
has '_f1' => (
is => 'ro',
isa => 'Tk::Frame',
lazy => 1,
default => sub { $doc1->_cn_background->Frame(-background => 'aliceblue')->pack(-expand => 1, -fill => 'both') },
);
# Order of Operations
sub _ooo {
my $i;
($_) = @_;
$_->_cn_background;
$_->_f1;
}
sub main {
my $i;
($_) = @_;
MainLoop;
}
__PACKAGE__->meta->make_immutable;
}
$doc1 = MyDocument->new;
$doc1->_ooo;
$doc1->main unless caller;
1;Este snippet foi digitado de uma maneira organizada. Usando isso, a experiência do aplicativo universal é, de uma forma totalmente portátil, na ponta dos seus dedos, usando o módulo GUI mais confiável do mundo para Perl. Usando treinamento acessível, de editores e professores conhecidos e confiáveis, este trecho fornece a experiência do aplicativo universal para qualquer digitador adequado para ser vendido, por sua vez, por dólares reais! Assim como o Hors D’ovres abre o apetite para uma festa, este trecho prepara a experiência do Universal App.