Changeset 363 for trunk/src/civ.m
- Timestamp:
- Jan 10, 2012, 9:13:31 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/src/civ.m
r362 r363 23 23 %TODO: search range 24 24 25 % Last Modified by GUIDE v2.5 0 8-Jan-2012 11:00:1325 % Last Modified by GUIDE v2.5 09-Jan-2012 20:42:45 26 26 % Begin initialization code - DO NOT EDIT 27 27 gui_Singleton = 1; … … 619 619 ValueCiv1=1; 620 620 end 621 set(handles. txt_SubdirCiv1,'String',listdir{ValueCiv1})621 set(handles.SubdirCiv1,'String',listdir{ValueCiv1}) 622 622 ValueCiv2=get(handles.ListSubdirCiv2,'Value'); 623 623 if ValueCiv2>numel(listdir) 624 624 ValueCiv2=1; 625 625 end 626 set(handles. txt_SubdirCiv2,'String',listdir{ValueCiv2})626 set(handles.SubdirCiv2,'String',listdir{ValueCiv2}) 627 627 else 628 628 ValueCiv1=Value; 629 629 ValueCiv2=Value; 630 set(handles. txt_SubdirCiv1,'String',listdir{Value})631 set(handles. txt_SubdirCiv2,'String',listdir{Value})630 set(handles.SubdirCiv1,'String',listdir{Value}) 631 set(handles.SubdirCiv2,'String',listdir{Value}) 632 632 end 633 633 set(handles.ListSubdirCiv1,'Value',ValueCiv1) … … 636 636 set(handles.ListSubdirCiv2,'String',[listdir;'new...']) 637 637 if isempty(listdir) 638 set(handles. txt_SubdirCiv1,'String','CIV')639 set(handles. txt_SubdirCiv2,'String','CIV')638 set(handles.SubdirCiv1,'String','CIV') 639 set(handles.SubdirCiv2,'String','CIV') 640 640 end 641 641 … … 664 664 %------------------------------------------------------------------------ 665 665 % --- Executes on carriage return on the subdir checkciv1 edit window 666 function txt_SubdirCiv1_Callback(hObject, eventdata, handles)667 %------------------------------------------------------------------------ 668 SubDir=get(handles. txt_SubdirCiv1,'String');666 function SubdirCiv1_Callback(hObject, eventdata, handles) 667 %------------------------------------------------------------------------ 668 SubDir=get(handles.SubdirCiv1,'String'); 669 669 menu_str=get(handles.ListSubdirCiv1,'String');% read the list of subdirectories for update 670 670 ichoice=find(strcmp(SubDir,menu_str),1); … … 676 676 set(handles.ListSubdirCiv1,'Value',ilist)% select the selected subdir in the menu 677 677 if get(handles.CheckCiv1,'Value')% if Civ1 is performed 678 set(handles. txt_SubdirCiv2,'String',SubDir);% set by default civ2 directory the same as civ1678 set(handles.SubdirCiv2,'String',SubDir);% set by default civ2 directory the same as civ1 679 679 set(handles.ListSubdirCiv2,'Value',ilist) 680 680 else % if Civ1 data already exist … … 687 687 %------------------------------------------------------------------------ 688 688 % --- Executes on carriage return on the SubDir checkciv1 edit window 689 function txt_SubdirCiv2_Callback(hObject, eventdata, handles)690 %------------------------------------------------------------------------ 691 SubDir=get(handles. txt_SubdirCiv1,'String');689 function SubdirCiv2_Callback(hObject, eventdata, handles) 690 %------------------------------------------------------------------------ 691 SubDir=get(handles.SubdirCiv1,'String'); 692 692 menu_str=get(handles.ListSubdirCiv2,'String');% read the list of subdirectories for update 693 693 ichoice=find(strcmp(SubDir,menu_str),1); … … 762 762 end 763 763 set(handles.PairIndices,'Visible','on') 764 set(handles. txt_SubdirCiv1,'Visible','on')764 set(handles.SubdirCiv1,'Visible','on') 765 765 set(handles.ListSubdirCiv1,'Visible','on') 766 766 if ~opening … … 773 773 set(handles.TitlePairCiv2,'Visible','on') 774 774 set(handles.TitleSubdirCiv2,'Visible','on') 775 set(handles. txt_SubdirCiv2,'Visible','on')775 set(handles.SubdirCiv2,'Visible','on') 776 776 set(handles.ListSubdirCiv2,'Visible','on') 777 777 set(handles.ListPairCiv2,'Visible','on') … … 784 784 else 785 785 set(handles.TitleSubdirCiv2,'Visible','off') 786 set(handles. txt_SubdirCiv2,'Visible','off')786 set(handles.SubdirCiv2,'Visible','off') 787 787 set(handles.ListSubdirCiv2,'Visible','off') 788 788 set(handles.ListPairCiv2,'Visible','off') … … 1692 1692 end 1693 1693 end 1694 Param=rmfield(Param,'status'); 1695 Param=rmfield(Param,'xml'); 1694 1696 t=struct2xml(Param); 1697 t=set(t,1,'Name','CivDoc');% set the head label 1695 1698 save(t,[namedoc '.xml']); %save GUI parameters as xml file 1696 1699 saveas(gcbf,namefigfull);%save the interface with name namefigfull (A CHANGER EN FICHIER .xml) … … 1934 1937 1935 1938 %check dir 1936 subdir_civ1=get(handles. txt_SubdirCiv1,'String');%subdirectory subdir_civ1 for the netcdf output data1937 subdir_civ2=get(handles. txt_SubdirCiv2,'String');1939 subdir_civ1=get(handles.SubdirCiv1,'String');%subdirectory subdir_civ1 for the netcdf output data 1940 subdir_civ2=get(handles.SubdirCiv2,'String'); 1938 1941 if isequal(subdir_civ1,''),subdir_civ1='CIV'; end% put default subdir 1939 1942 if isequal(subdir_civ2,''),subdir_civ2=subdir_civ1; end% put default subdir … … 1985 1988 end 1986 1989 1987 %create the new txt_SubdirCiv11990 %create the new SubdirCiv1 1988 1991 if ~exist(fullfile(Path_ima,subdir_civ1_new),'dir') 1989 1992 % cd(Path_ima); … … 2028 2031 end 2029 2032 end 2030 %create the new txt_SubdirCiv12033 %create the new SubdirCiv1 2031 2034 if ~exist(fullfile(Path_ima,subdir_civ1_new),'dir') 2032 2035 % cd(Path_ima); … … 2210 2213 end 2211 2214 subdir_civ2=subdir_civ2_new; 2212 %create the new txt_SubdirCiv12215 %create the new SubdirCiv1 2213 2216 if ~exist(fullfile(Path_ima,subdir_civ2_new),'dir') 2214 2217 [xx,m2]=mkdir(subdir_civ2_new); … … 2384 2387 end 2385 2388 end 2386 set(handles. txt_SubdirCiv1,'String',subdir_civ1);%update the edit box2387 set(handles. txt_SubdirCiv2,'String',subdir_civ2);%update the edit box2389 set(handles.SubdirCiv1,'String',subdir_civ1);%update the edit box 2390 set(handles.SubdirCiv2,'String',subdir_civ2);%update the edit box 2388 2391 browse.nom_type_nc=nom_type_nc; 2389 2392 set(handles.RootName,'UserData',browse); %update the nomenclature type for uvmat … … 2962 2965 2963 2966 %% reads .nc subdirectoy and image numbers from the interface 2964 subdir_civ1=get(handles. txt_SubdirCiv1,'String');%subdirectory subdir_civ1 for the netcdf data2965 subdir_civ2=get(handles. txt_SubdirCiv2,'String');%subdirectory subdir_civ2 for the netcdf data2967 subdir_civ1=get(handles.SubdirCiv1,'String');%subdirectory subdir_civ1 for the netcdf data 2968 subdir_civ2=get(handles.SubdirCiv2,'String');%subdirectory subdir_civ2 for the netcdf data 2966 2969 ref_i=str2double(get(handles.ref_i,'String')); 2967 2970 if isequal(mode,'pair j1-j2')%|isequal(mode,'st_pair j1-j2') … … 3193 3196 % 3194 3197 % %reads .nc subdirectory and image numbers from the interface 3195 % subdir_civ1=get(handles. txt_SubdirCiv1,'String');%subdirectory subdir_civ1 for the netcdf data3196 % subdir_civ2=get(handles. txt_SubdirCiv2,'String');%subdirectory subdir_civ2 for the netcdf data3198 % subdir_civ1=get(handles.SubdirCiv1,'String');%subdirectory subdir_civ1 for the netcdf data 3199 % subdir_civ2=get(handles.SubdirCiv2,'String');%subdirectory subdir_civ2 for the netcdf data 3197 3200 % ref_i=str2double(get(handles.ref_i,'String')); 3198 3201 % if isequal(mode,'pair j1-j2')%|isequal(mode,'st_pair j1-j2') … … 3611 3614 nbslice=1; 3612 3615 3613 % subdir=get(handles. txt_SubdirCiv1,'String');3616 % subdir=get(handles.SubdirCiv1,'String'); 3614 3617 [Path,Name]=fileparts(filebase); 3615 3618 if ~isdir(Path) … … 3707 3710 end 3708 3711 end 3709 set(handles. txt_SubdirCiv1,'String',SubDir);3712 set(handles.SubdirCiv1,'String',SubDir); 3710 3713 errormsg=find_netcpair_civ(handles,1); 3711 3714 if ~isempty(errormsg) … … 3728 3731 end 3729 3732 end 3730 set(handles. txt_SubdirCiv2,'String',SubDir);3733 set(handles.SubdirCiv2,'String',SubDir); 3731 3734 3732 3735 %------------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.