| … | |
… | |
| 48 | } |
48 | } |
| 49 | $self->set_arch ($arch, $self->{change_cb}); |
49 | $self->set_arch ($arch, $self->{change_cb}); |
| 50 | }); |
50 | }); |
| 51 | $invbtn->set_alignment (0, 0.5); |
51 | $invbtn->set_alignment (0, 0.5); |
| 52 | |
52 | |
| 53 | $self->pack_start (my $descbtn = Gtk2::ToggleButton->new ('show desc'), 0, 1, 0); |
|
|
| 54 | $self->pack_start (my $docal = Gtk2::Alignment->new (0, 0.5, 0, 1), 0, 1, 0); |
53 | $self->pack_start (my $docal = Gtk2::Alignment->new (0, 0.5, 0, 1), 0, 1, 0); |
| 55 | $self->pack_start (my $ntbook = $self->{ntbook} = Gtk2::Notebook->new, 1, 1, 0); |
|
|
| 56 | $self->pack_start (my $usebtn = Gtk2::ToggleButton->new ('show use'), 0, 1, 0); |
54 | $self->pack_start (my $usebtn = Gtk2::ToggleButton->new ('show use'), 0, 1, 0); |
| 57 | $self->pack_start (my $useal = Gtk2::Alignment->new (0, 0.5, 0, 1), 0, 1, 0); |
55 | $self->pack_start (my $useal = Gtk2::Alignment->new (0, 0.5, 0, 1), 0, 1, 0); |
| 58 | $descbtn->set_active (1); |
56 | $self->pack_start (my $ntbook = $self->{ntbook} = Gtk2::Notebook->new, 1, 1, 0); |
| 59 | $docal->add ($self->{doc_lbl} = Gtk2::Label->new); |
57 | $docal->add ($self->{doc_lbl} = Gtk2::Label->new); |
| 60 | $descbtn->signal_connect (toggled => sub { |
|
|
| 61 | my ($descbtn) = @_; |
|
|
| 62 | |
|
|
| 63 | $docal->remove ($_) for $docal->get_children; |
|
|
| 64 | if ($descbtn->get_active) { |
|
|
| 65 | $docal->add ($self->{doc_lbl}); |
|
|
| 66 | $self->{doc_lbl}->show; |
|
|
| 67 | } |
|
|
| 68 | }); |
|
|
| 69 | |
58 | |
| 70 | $usebtn->set_active (0); |
59 | $usebtn->set_active (0); |
| 71 | $self->{use_lbl} = Gtk2::Label->new; |
60 | $self->{use_lbl} = Gtk2::Label->new; |
| 72 | $usebtn->signal_connect (toggled => sub { |
61 | $usebtn->signal_connect (toggled => sub { |
| 73 | my ($usebtn) = @_; |
62 | my ($usebtn) = @_; |
| … | |
… | |
| 201 | # $buf->set_text ("Description:\n\n$desc\n\nUse:\n\n$use"); |
190 | # $buf->set_text ("Description:\n\n$desc\n\nUse:\n\n$use"); |
| 202 | # $tb->set_editable (0); |
191 | # $tb->set_editable (0); |
| 203 | # $tb->set_wrap_mode ('word'); |
192 | # $tb->set_wrap_mode ('word'); |
| 204 | my $desc = pseudohtml2txt $ar->{desc}; |
193 | my $desc = pseudohtml2txt $ar->{desc}; |
| 205 | my $use = pseudohtml2txt $ar->{use}; |
194 | my $use = pseudohtml2txt $ar->{use}; |
| 206 | $self->{doc_lbl}->set_text ("Description:\n\n$desc"); |
195 | $self->{doc_lbl}->set_text ($desc); |
| 207 | $self->{use_lbl}->set_text ("Use:\n\n$desc"); |
196 | $self->{use_lbl}->set_text ($use); |
| 208 | |
197 | |
| 209 | $self->{ttip}->enable; |
198 | $self->{ttip}->enable; |
| 210 | |
199 | |
| 211 | $self->show_all; |
200 | $self->show_all; |
| 212 | |
201 | |
| … | |
… | |
| 233 | $sw->add_with_viewport (my $vb = Gtk2::VBox->new); |
222 | $sw->add_with_viewport (my $vb = Gtk2::VBox->new); |
| 234 | $vb->pack_start (my $table = new Gtk2::Table (2, $cnt), 0, 1, 0); |
223 | $vb->pack_start (my $table = new Gtk2::Table (2, $cnt), 0, 1, 0); |
| 235 | |
224 | |
| 236 | my $i = 0; |
225 | my $i = 0; |
| 237 | for my $sec (@$section) { |
226 | for my $sec (@$section) { |
|
|
227 | my $key = $sec->[0]; |
|
|
228 | next if grep { $key eq $_ } qw/msg lore/; |
| 238 | my $bwid = Gtk2::EventBox->new; |
229 | my $bwid = Gtk2::EventBox->new; |
| 239 | my $al = Gtk2::Alignment->new (0.0, 0.5, 0, 1); |
230 | my $al = Gtk2::Alignment->new (0.0, 0.5, 0, 1); |
| 240 | my $key = $sec->[0]; |
|
|
| 241 | $sec = $sec->[1]; |
231 | $sec = $sec->[1]; |
| 242 | $al->add (Gtk2::Label->new (def ($sec->{name}, $key))); |
232 | $al->add (Gtk2::Label->new (def ($sec->{name}, $key))); |
| 243 | $bwid->add ($al); |
233 | $bwid->add ($al); |
| 244 | if ($sec->{desc} !~ m/^\s*$/s) { |
234 | if ($sec->{desc} !~ m/^\s*$/s) { |
| 245 | $self->{ttip}->set_tip ($bwid, $sec->{desc}); |
235 | $self->{ttip}->set_tip ($bwid, $sec->{desc}); |
