Delete activity map from activity map file --- Syntax job_edit_act_delete(inst_id) --- History ????-??-?? Taku Yoshioka 2008-09-04 Taku Yoshioka Copyright (C) 2011, ATR All Rights Reserved. License : New BSD License(see VBMEG_LICENSE.txt)
0001 function job_edit_act_delete(inst_id) 0002 % Delete activity map from activity map file 0003 % 0004 % --- Syntax 0005 % job_edit_act_delete(inst_id) 0006 % 0007 % --- History 0008 % ????-??-?? Taku Yoshioka 0009 % 2008-09-04 Taku Yoshioka 0010 % 0011 % Copyright (C) 2011, ATR All Rights Reserved. 0012 % License : New BSD License(see VBMEG_LICENSE.txt) 0013 0014 global vbmeg_inst; 0015 if isempty(vbmeg_inst.editact{inst_id}.actfile), return; end 0016 0017 % 0018 % Global variables 0019 % 0020 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0021 actfile = vbmeg_inst.editact{inst_id}.actfile; 0022 lb1 = vbmeg_inst.editact{inst_id}.lb1; 0023 0024 % 0025 % Delete act 0026 % 0027 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0028 ix = get(lb1,'Value'); 0029 str = get(lb1,'String'); 0030 vb_rm_act(actfile,str{ix}); 0031 0032 % 0033 % Update list box 0034 % 0035 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0036 set(lb1,'Value',1); 0037 set(lb1,'String',vb_get_keyset_act(actfile));