0001 function vb_input_settings_update_gui(data) 0002 0003 H = data.H; 0004 N = get(H.name_listbox, 'Value'); 0005 if ~isempty(N) 0006 value = vb_input_settings_get_prop(data.def{N}, 'value'); 0007 if ~isstr(value) && ~iscellstr(value) && isnumeric(value) 0008 value = num2str(value); 0009 end 0010 set(H.value_listbox, 'String', value, 'Value', 1); 0011 0012 help = vb_input_settings_get_prop(data.def{N}, 'help'); 0013 if ~isstr(help) || isempty(help) 0014 help = ''; 0015 end 0016 set(H.description_edit, 'String', help); 0017 end