… | |
… | |
1610 | sub media_window { |
1610 | sub media_window { |
1611 | my $vb = new CFPlus::UI::VBox; |
1611 | my $vb = new CFPlus::UI::VBox; |
1612 | |
1612 | |
1613 | $vb->add (new CFPlus::UI::FancyFrame |
1613 | $vb->add (new CFPlus::UI::FancyFrame |
1614 | label => "Currently playing music", |
1614 | label => "Currently playing music", |
|
|
1615 | child => new CFPlus::UI::ScrolledWindow scroll_x => 1, scroll_y => 0, |
1615 | child => ($MUSIC_PLAYING_WIDGET = new CFPlus::UI::Label ellipsise => 0), |
1616 | child => ($MUSIC_PLAYING_WIDGET = new CFPlus::UI::Label ellipsise => 0, fontsize => 0.8), |
1616 | ); |
1617 | ); |
1617 | |
1618 | |
1618 | $vb->add (new CFPlus::UI::FancyFrame |
1619 | $vb->add (new CFPlus::UI::FancyFrame |
1619 | label => "Other media used in this session", |
1620 | label => "Other media used in this session", |
|
|
1621 | expand => 1, |
1620 | child => ($LICENSE_WIDGET = new CFPlus::UI::TextScroller |
1622 | child => ($LICENSE_WIDGET = new CFPlus::UI::TextScroller |
1621 | expand => 1, fontsize => 0.8, padding_x => 4, padding_y => 4), |
1623 | expand => 1, fontsize => 0.8, padding_x => 4, padding_y => 4), |
1622 | ); |
1624 | ); |
1623 | |
1625 | |
1624 | $vb |
1626 | $vb |
|
|
1627 | } |
|
|
1628 | |
|
|
1629 | sub add_license { |
|
|
1630 | my ($meta) = @_; |
|
|
1631 | |
|
|
1632 | $meta = $meta->{meta} |
|
|
1633 | or return; |
|
|
1634 | |
|
|
1635 | $meta->{license} || $meta->{author} || $meta->{source} |
|
|
1636 | or return; |
|
|
1637 | |
|
|
1638 | $LICENSE_WIDGET->add_paragraph ({ |
|
|
1639 | fg => [1, 1, 1, 1], |
|
|
1640 | markup => "<small>" |
|
|
1641 | . "<b>Name:</b> " . (CFPlus::asxml $meta->{name}) . "\n" |
|
|
1642 | . "<b>Author:</b> " . (CFPlus::asxml $meta->{author}) . "\n" |
|
|
1643 | . "<b>Source:</b> " . (CFPlus::asxml $meta->{source}) . "\n" |
|
|
1644 | . "<b>License:</b> " . (CFPlus::asxml $meta->{license}) . "\n" |
|
|
1645 | . "</small>", |
|
|
1646 | }); |
|
|
1647 | $LICENSE_WIDGET->scroll_to_bottom; |
1625 | } |
1648 | } |
1626 | |
1649 | |
1627 | sub toggle_player_page { |
1650 | sub toggle_player_page { |
1628 | my ($widget) = @_; |
1651 | my ($widget) = @_; |
1629 | |
1652 | |