JHALLOCK / Gapp-0.26 / t / 121_table.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49

              
#!/usr/bin/perl -w
use strict;
use warnings;
use Test::More qw( no_plan );
use Gtk2 '-init';
use Gapp;
use_ok 'Gapp::Table';
my $t = Gapp::Table->new(
    map => '
        +--------------+>>>>>>>>>>>>+
        | 1            | 2          |
        +--------------+            |
        | 3            |            |
        +-------+------+------------+     
        > 4     | 5    | 6          |     
        >       |      +------------+     
        >       |      | 7          |     
        +-------+------+------------+     
        > 8     |      | 9          |      
        >       |      +------------+     
        >       |      | 10         |      
        >       +------+------------+      
        >       | 11                |     
        +-------+-------------------+    
    ',
    content => [
        Gapp::Label->new( text => 1 ),
        Gapp::Label->new( text => 2 ),
        Gapp::Label->new( text => 3 ),
        Gapp::Label->new( text => 4 ),
        Gapp::Label->new( text => 5 ),
        Gapp::Label->new( text => 6 ),
        Gapp::Label->new( text => 7 ),
        Gapp::Label->new( text => 8 ),
        Gapp::Label->new( text => 9 ),
        Gapp::Label->new( text => 10 ),
        Gapp::Label->new( text => 11 ),
    ]
);
ok $t, 'created table';
#Gapp::Window->new( content => [ $t ] )->show_all;
#Gtk2->main;
#
#