… | |
… | |
751 | $table->add_at (0, 3, new CFPlus::UI::Label text => "Suppress Tooltips"); |
751 | $table->add_at (0, 3, new CFPlus::UI::Label text => "Suppress Tooltips"); |
752 | $table->add_at (1, 3, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 8; 0 }); |
752 | $table->add_at (1, 3, new CFPlus::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 8; 0 }); |
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 | |
|
|
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); |
|
|
759 | $t->add_at (2,0, new CFPlus::UI::Label text => "b", rowspan => 2, colspan => 1); |
|
|
760 | $t->add_at (1,2, new CFPlus::UI::Label text => "c", rowspan => 1, colspan => 2); |
|
|
761 | $t->add_at (0,1, new CFPlus::UI::Label text => "d", rowspan => 2, colspan => 1); |
|
|
762 | $t->add_at (1,1, new CFPlus::UI::Label text => "e"); |
756 | |
763 | |
757 | $table |
764 | $table |
758 | } |
765 | } |
759 | |
766 | |
760 | sub stats_window { |
767 | sub stats_window { |