0001 function job_edit_area_registration(inst_id)
0002
0003
0004
0005
0006 global vbmeg_inst;
0007
0008
0009 Iextract = vbmeg_inst.editarea{inst_id}.Iextract;
0010 areafile = vbmeg_inst.editarea{inst_id}.areafile;
0011 lb1 = vbmeg_inst.editarea{inst_id}.lb1;
0012
0013
0014 str = inputdlg('Enter key of the area', ...
0015 'Area registration',1,{'new area'});
0016 if length(str)>=1 & ~isempty(str{1}),
0017 Area.key = str{1};
0018 Area.Iextract = Iextract{1};
0019 vb_add_area(areafile,Area);
0020 end
0021
0022
0023 set(lb1,'String',vb_get_keyset_area(areafile));
0024