diff options
Diffstat (limited to 'src')
| -rwxr-xr-x | src/ivycontrolpanel | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/src/ivycontrolpanel b/src/ivycontrolpanel index 0bbc4d4..e8f1b47 100755 --- a/src/ivycontrolpanel +++ b/src/ivycontrolpanel @@ -363,6 +363,21 @@ $pausebtn->configure(-command => \&pause); IvyIO::bind_for_play_event(\&display_play); IvyIO::bind_for_pause_event(\&display_pause); +# Lower button +#--------------------------------------------------------------------------------- + +my $lowerbmp = $mw->Bitmap('lower', -file => Tk::findINC('lower.bmp'), + -background => $bg, + -foreground => $hlbg); + +$x = $width - $dxright/2 - $fm_w - 90*$coef; + +my $button_lower = $fm1->Button( + @buttonattr, + -image => $lowerbmp, + )->place(-x => $x, -y => $y ); + +$button_lower->configure( -command => sub { $mw->lower();}); # Quit button #--------------------------------------------------------------------------------- |