diff options
| author | Paul Buetow <paul@buetow.org> | 2012-06-23 11:06:59 +0200 |
|---|---|---|
| committer | Paul Buetow <paul@buetow.org> | 2012-06-23 11:06:59 +0200 |
| commit | 33bf4dfb13fabf0440807e37e92e4ca9281a9f13 (patch) | |
| tree | 50a79b737b5ae8382daddaebef03e5b76a28536b /lib/Loadbars/Main.pm | |
| parent | b08d152c8a36b0d7db943f819059f705663f756e (diff) | |
re-add --title option
Diffstat (limited to 'lib/Loadbars/Main.pm')
| -rw-r--r-- | lib/Loadbars/Main.pm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/lib/Loadbars/Main.pm b/lib/Loadbars/Main.pm index 199a2e4..68a114e 100644 --- a/lib/Loadbars/Main.pm +++ b/lib/Loadbars/Main.pm @@ -294,8 +294,16 @@ sub loop ($@) { my $num_stats = 1; $C{width} = $C{barwidth}; + my $title = do { + if (defined $C{title}) { + $C{title}; + } else { + 'Loadbars ' . get_version . ' (press h for help on stdout)'; + } + }; + my $app = SDL::App->new( - -title => 'Loadbars ' . get_version . ' (press h for help on stdout)', + -title => $title, -icon_title => Loadbars::Constants->VERSION, -width => $C{width}, -height => $C{height}, |