Fix 4049 "Bold the lines with assigned hotkey"

diff --git a/clawsker b/clawsker
index e8956d71fff87ca85b361380a9277d740b049d15..3f3fb1a8eb68aba5a40a470059dfa36b355ff0f3 100755 (executable)
--- a/clawsker
+++ b/clawsker
@@ -2325,8 +2325,10 @@ sub new_hotkeys_list {
         0, _("Menu path"), new_hotkeys_list_label (),
         sub {
             my ($col, $renderer, $model, $iter, $data) = @_;
+            my $hkey = $model->get_value ($iter, C_HOTKEY);
+            my $weight = ($hkey ne '""')? 'weight="bold"': '';
             $renderer->set_property (
-                'markup' => '<span size="smaller">'
+                'markup' => "<span size=\"smaller\" $weight>"
                             . $model->get_value ($iter, C_LABEL)
                             . '</span>');
             my $bgcol = row_background_color (