… | |
… | |
1143 | $table->add_at (0, 4, new DC::UI::Button text => "die on click(tm)", on_activate => sub { &DC::debug() } ); |
1143 | $table->add_at (0, 4, new DC::UI::Button text => "die on click(tm)", on_activate => sub { &DC::debug() } ); |
1144 | |
1144 | |
1145 | $table->add_at (0, 5, new DC::UI::TextEdit text => "line1\0152\0153");#d# |
1145 | $table->add_at (0, 5, new DC::UI::TextEdit text => "line1\0152\0153");#d# |
1146 | |
1146 | |
1147 | $table->add_at (7,7, my $t = new DC::UI::Table expand => 0); |
1147 | $table->add_at (7,7, my $t = new DC::UI::Table expand => 0); |
1148 | $t->add_at (0,0, new DC::UI::Label text => "a a a a", c_rowspan => 1, c_colspan => 2); |
1148 | $t->add_at (0,0, new DC::UI::Label text => "a a", c_rowspan => 1, c_colspan => 2); |
1149 | $t->add_at (2,0, new DC::UI::Label text => "b\nb", c_rowspan => 2, c_colspan => 1); |
1149 | $t->add_at (2,0, new DC::UI::Label text => "b\nb", c_rowspan => 2, c_colspan => 1, ellipsise => 0 ); |
1150 | $t->add_at (1,2, new DC::UI::Label text => "c c c c", c_rowspan => 1, c_colspan => 2); |
1150 | $t->add_at (1,2, new DC::UI::Label text => "c c", c_rowspan => 1, c_colspan => 2); |
1151 | $t->add_at (0,1, new DC::UI::Label text => "d\nd", c_rowspan => 2, c_colspan => 1); |
1151 | $t->add_at (0,1, new DC::UI::Label text => "d\nd", c_rowspan => 2, c_colspan => 1, ellipsise => 0 ); |
1152 | $t->add_at (1,1, new DC::UI::Label text => "e"); |
1152 | $t->add_at (1,1, new DC::UI::Label text => "e"); |
1153 | |
1153 | |
1154 | $table->add_at (7, 6, my $c = new DC::UI::Canvas); |
1154 | $table->add_at (7, 6, my $c = new DC::UI::Canvas); |
1155 | |
1155 | |
1156 | $c->add_items ({ |
1156 | $c->add_items ({ |