| Games-Risk documentation | Contained in the Games-Risk distribution. |
Games::Risk::Tk::About - prisk about information
version 3.103040
GR::Tk::About implements a Tk window used to show the copyright and
licence of the game.
A Tk window that will be the parent of the toplevel window created. This parameter is mandatory.
Games::Risk::Tk::About->new( %opts );
Create a window showing some information about the game. See the attributes for available options.
Jerome Quelin
This software is Copyright (c) 2008 by Jerome Quelin.
This is free software, licensed under:
The GNU General Public License, Version 3, June 2007
| Games-Risk documentation | Contained in the Games-Risk distribution. |
# # This file is part of Games-Risk # # This software is Copyright (c) 2008 by Jerome Quelin. # # This is free software, licensed under: # # The GNU General Public License, Version 3, June 2007 # use 5.010; use strict; use warnings; package Games::Risk::Tk::About; BEGIN { $Games::Risk::Tk::About::VERSION = '3.103040'; } # ABSTRACT: prisk about information use Moose; use Path::Class; use Tk::Role::Dialog 1.101480; use Games::Risk; use Games::Risk::I18N qw{ T }; use Games::Risk::Resources qw{ $SHAREDIR }; with 'Tk::Role::Dialog'; # -- initialization / finalization sub _build_title { 'prisk - ' . T('about') } sub _build_icon { $SHAREDIR->file('icons', '32', 'about.png') } sub _build_header { "prisk $Games::Risk::VERSION" } sub _build_resizable { 0 } sub _build_cancel { T('Close') } sub _build_text { join "\n", T('Created by Jerome Quelin'), T('Copyright (c) 2008 Jerome Quelin, all rights reserved'), '', T('prisk is free software; you can redistribute it and/or modify it under the terms of the GPLv3.'), ; } no Moose; __PACKAGE__->meta->make_immutable; 1;
__END__