WxPerlMage

Z mj41.cz

Perl module name: wxMage

  • Perl
  • wxPerl (wxWidgets, XRC)
  • Alzabo
  • SQLite

Example

This is really functional code.

use WxMageApp::Simple;
my $wxm = WxMageApp::Simple->new() || die;
$wxm->run();
package WxMageApp::Simple;
use base qw(WxMage); 
1;
package WxMageApp::Simple::Project;
 
use strict;
use Carp qw(croak carp);
 
use base qw(WxMage::Project);
 
sub GetRawFrameConf {
    &WxMage::TS(@_) if $main::DEBUG > 3;
    my ($self) = @_;
 
    return [
        [ 'person', { 
            _default => {
                title => 'People',
            },
            add => {
                title => 'Add person',
            },
            edit => {
                title => 'Edit person',
                xrc_type => 'add',
            },
        } ],        
 
        [ 'addr',  { 
            _default => {
                title => 'Adresses',
            },
        } ],        
 
    ];
}
 
 
sub GetRawDbSchema {
    &WxMage::TS(@_) if $main::DEBUG > 3;
    my ( $self ) = @_;
 
    return [
        [ 'person', [
            [ 'id',             'int',      1                               ],
            [ 'nm',             'text',     { comment => 'name' }           ],
            [ 'snm',            'text',     { comment => 'surname' }        ],
            [ 'email',          'text',                                     ],
            [ 'icq',            'text',                                     ],
            [ 'memo',           'text',                                     ],
            [ 'id_addr',        'int',      { to => 'addr', nullable => 1, } ],
        ] ],
 
        [ 'addr', [
            [ 'id',             'int',      1                       ],
            [ 'town',           'text',                             ],
            [ 'street',         'text',                             ],
        ] ],
    ];
}
 
1;
spřízněné weby
Jazyk