let hotkey ?(editable=true) ?(expand=true) ?help ?(f=(fun _ -> ())) label v =
Hotkey_param
{
hk_label = label ;
hk_help = help ;
hk_value = v ;
hk_editable = editable ;
hk_f_apply = f ;
hk_expand = expand ;
}