GUI/model_action_update_select.m

   1 function danl_action_update_select(hf, caller, types, str_name)\r
   2 % Sorry, I didn't have enough time to write nice and documented GUI code.\r
   3 \r
   4 % Toolbox for nonlinear filtering.\r
   5 % Copyright (C) 2005  Jakob Rosén <jakob.rosen@gmail.com>\r
   6 %\r
   7 % This program is free software; you can redistribute it and/or\r
   8 % modify it under the terms of the GNU General Public License\r
   9 % as published by the Free Software Foundation; either version 2\r
  10 % of the License, or (at your option) any later version.\r
  11 %\r
  12 % This program is distributed in the hope that it will be useful,\r
  13 % but WITHOUT ANY WARRANTY; without even the implied warranty of\r
  14 % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\r
  15 % GNU General Public License for more details.\r
  16 %\r
  17 % You should have received a copy of the GNU General Public License\r
  18 % along with this program; if not, write to the Free Software\r
  19 % Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.\r
  20 \r
  21 handles=guidata(hf);\r
  22 \r
  23 select_property=[caller,'_select'];\r
  24 edit_property=[caller,'_edit'];\r
  25 \r
  26 datatypes=handles.(types);\r
  27 data=handles.(caller);\r
  28 \r
  29 index=0;\r
  30 for i=1:length(datatypes)\r
  31         if isa(data,datatypes{i})\r
  32                 index=i;\r
  33                 break;\r
  34         end;\r
  35 end;\r
  36 \r
  37 set(handles.(select_property),'Value',index+1);\r
  38 if ~isempty(data); str=get(data,str_name); else; str=[]; end;\r
  39 set(handles.(edit_property),'String',str);\r
  40 \r
  41 guidata(hf,handles);\r