… | |
… | |
753 | $table->add_at (0, 4, new CFPlus::UI::Button text => "die on click(tm)", on_activate => sub { &CFPlus::debug() } ); |
753 | $table->add_at (0, 4, new CFPlus::UI::Button text => "die on click(tm)", on_activate => sub { &CFPlus::debug() } ); |
754 | |
754 | |
755 | $table->add_at (0, 5, new CFPlus::UI::TextEdit text => "line1\0152\0153");#d# |
755 | $table->add_at (0, 5, new CFPlus::UI::TextEdit text => "line1\0152\0153");#d# |
756 | |
756 | |
757 | $table->add_at (7,7, my $t = new CFPlus::UI::Table); |
757 | $table->add_at (7,7, my $t = new CFPlus::UI::Table); |
758 | $t->add_at (0,0, new CFPlus::UI::Label text => "a", rowspan => 1, colspan => 2); |
758 | $t->add_at (0,0, new CFPlus::UI::Label text => "a a a a", rowspan => 1, colspan => 2); |
759 | $t->add_at (2,0, new CFPlus::UI::Label text => "b", rowspan => 2, colspan => 1); |
759 | $t->add_at (2,0, new CFPlus::UI::Label text => "b\nb", rowspan => 2, colspan => 1); |
760 | $t->add_at (1,2, new CFPlus::UI::Label text => "c", rowspan => 1, colspan => 2); |
760 | $t->add_at (1,2, new CFPlus::UI::Label text => "c c c c", rowspan => 1, colspan => 2); |
761 | $t->add_at (0,1, new CFPlus::UI::Label text => "d", rowspan => 2, colspan => 1); |
761 | $t->add_at (0,1, new CFPlus::UI::Label text => "d\nd", rowspan => 2, colspan => 1); |
762 | $t->add_at (1,1, new CFPlus::UI::Label text => "e"); |
762 | $t->add_at (1,1, new CFPlus::UI::Label text => "e"); |
763 | |
763 | |
764 | $table |
764 | $table |
765 | } |
765 | } |
766 | |
766 | |