0001 function job_edit_area_overwrite(inst_id)
0002
0003
0004
0005
0006
0007
0008
0009 global vbmeg_inst;
0010
0011
0012 job_edit_area_stack(inst_id);
0013
0014
0015 lb1 = vbmeg_inst.editarea{inst_id}.lb1;
0016 areafile = vbmeg_inst.editarea{inst_id}.areafile;
0017 Iextract = vbmeg_inst.editarea{inst_id}.Iextract;
0018 ed3 = vbmeg_inst.editarea{inst_id}.ed3;
0019
0020
0021 i = get(lb1,'Value');
0022 keyset = get(lb1,'String');
0023 Area = vb_get_area(areafile,keyset{i});
0024
0025
0026 Iextract = vbmeg_inst.editarea{inst_id}.Iextract;
0027 if size(Area.Iextract,1)==1, Area.Iextract = Area.Iextract'; end;
0028 Iextract{1} = unique([Iextract{2}; Area.Iextract]);
0029 vbmeg_inst.editarea{inst_id}.Iextract = Iextract;
0030
0031
0032 job_edit_area_update_spatialpattern(inst_id);
0033
0034
0035 set(ed3,'String',num2str(length(Iextract{1})));