Changeset 596 for trunk/src/get_field.m

Timestamp:

Mar 30, 2013, 11:34:27 AM (11 years ago)

Author:

sommeria

Message:

corrections done in civ

File:

• trunk/src/get_field.m (modified) (1 diff)

trunk/src/get_field.m

@@ -1042 +1042 @@
 delete(handles.get_field)
 
-
-
-% %------------------------------------------------------------------------
-% function mouse_up_gui(ggg,eventdata,handles)
-% %------------------------------------------------------------------------
-% if isequal(get(ggg,'SelectionType'),'alt') 
-%     message='';  
-%     global CurData
-%     inputfield=get(handles.inputfile,'String');
-%     if exist(inputfield,'file')
-%         CurData=nc2struct(inputfield);
-%     else
-%         CurData=get(ggg,'UserData');% get_field opened from a input field, not a file
-%     end
-%   %%%% TODO: put the matalb command window in front
-%     evalin('base','global CurData')%make CurData global in the workspace
-%     evalin('base','CurData') %display CurData in the workspace
-% end
-
-%------------------------------------------------------------------------
-% --- Executes on selection change in ACTION.
-%------------------------------------------------------------------------
-function ACTION_Callback(hObject, eventdata, handles)
-global nb_builtin
-list_ACTION=get(handles.ACTION,'String');% list menu fields
-index_ACTION=get(handles.ACTION,'Value');% selected string index
-ACTION= list_ACTION{index_ACTION}; % selected string
-list_func_handles=get(handles.ACTION,'UserData');% get list of function handles (full address of the function, including name and path)
-ff=functions(list_func_handles{end});
-% add a new function to the menu
-if isequal(ACTION,'more...')
-    [FileName, PathName] = uigetfile( ...
-       {'*.m', ' (*.m)';
-        '*.m',  '.m files '; ...
-        '*.*', 'All Files (*.*)'}, ...
-        'Pick a file',ff.file);
-    if length(FileName)<2
-        return
-    end
-    [pp,ACTION,ext_fct]=fileparts(FileName);
-    if ~isequal(ext_fct,'.m')
-        msgbox_uvmat('ERROR','a Matlab function .m must be introduced');
-        return
-    end
-
-    % insert the choice in the action menu
-   menu_str=update_menu(handles.ACTION,ACTION);%new action menu in which the new item has been appended if needed
-   index_ACTION=get(handles.ACTION,'Value');% currently selected index in the list
-   addpath(PathName)
-   list_func_handles{index_ACTION}=str2func(ACTION);% create the function handle corresponding to the newly seleced function
-   set(handles.ACTION,'UserData',list_func_handles)
-   set(handles.path_action,'enable','inactive')% indicate that the current path is accessible (not 'off')
-   %list_path{index_ACTION}=PathName;
-   if length(menu_str)>nb_builtin+5;
-       nbremove=length(menu_str)-nb_builtin-5;
-       menu_str(nb_builtin+1:end-5)=[];
-       list_func_handles(nb_builtin+1:end-4)=[];
-       index_ACTION=index_ACTION-nbremove;
-       set(handles.ACTION,'Value',index_ACTION)
-       set(handles.ACTION,'String',menu_str)
-   end   
-   %record the current menu in personal file profil_perso
-   dir_perso=prefdir;
-   profil_perso=fullfile(dir_perso,'uvmat_perso.mat');
-   get_field_fct={};
-   for ilist=nb_builtin+1:length(menu_str)-1
-       ff=functions(list_func_handles{ilist});
-       get_field_fct{ilist-nb_builtin}=ff.file;
-   end
-   if exist(profil_perso,'file')
-        save(profil_perso,'get_field_fct','-append')
-   else
-     txt=ver('MATLAB');
-    Release=txt.Release;
-       relnumb=str2num(Release(3:4));
-        if relnumb >= 14
-            save(profil_perso,'get_field_fct','-V6')
-        else
-            save(profil_perso, 'get_field_fct')
-        end
-   end
-end
-
-%check the current path to the selected function
-h_fun=list_func_handles{index_ACTION};
-if isa(h_fun,'function_handle')
-    func=functions(h_fun);
-    set(handles.path_action,'String',fileparts(func.file)); %show the path to the senlected function
-    GUI_input=h_fun();%handles.figure1 =handles of the GUI get_field
-else
-    set(handles.path_action,'String','')
-    msgbox_uvmat('ERROR','unknown path to ACTION function, reload it')
-    return
-end
-
-%prepare the GUI options for the selected ACTION
-test_1Dplot=0;
-test_scalar=0;
-test_vector=0;
-if iscell(GUI_input)
-    for ilist=1:size(GUI_input,1)
-        switch GUI_input{ilist,1}
-                           %RootFile always visible
-            case 'CheckPlot1D'   
-                 test_1Dplot=isequal(GUI_input{ilist,2},'on');
-            case 'CheckScalar'
-                 test_scalar=isequal(GUI_input{ilist,2},'on');   
-            case 'CheckVector'   
-                 test_vector=isequal(GUI_input{ilist,2},'on'); 
-        end
-    end
-end
-set(handles.CheckPlot1D,'Value',test_1Dplot);
-set(handles.CheckScalar,'Value',test_scalar); 
-set(handles.CheckVector,'Value',test_vector);
-CheckPlot1D_Callback(hObject, eventdata, handles)
-CheckScalar_Callback(hObject, eventdata, handles)
-CheckVector_Callback(hObject, eventdata, handles)
-
-
-%-----------------------------------------------------
-% --- browse existing figures
-%-----------------------------------------------------
-function browse_fig(menu_handle)
-hh=findobj(allchild(0),'Type','figure');
-ilist=0;
-list={};
-for ifig=1:length(hh)  %look for all existing figures
-    name=get(hh(ifig),'Name');
-     if ~strcmp(name,'uvmat')&& ~strcmp(name,'view_field') %case of uvmat GUI
-        hchild=get(hh(ifig),'children');% look for axes contained in each figure
-        nbaxe=0;
-        for ichild=1:length(hchild)           
-            Type=get(hchild(ichild),'Type');
-            Tag=get(hchild(ichild),'Tag');
-            if isequal(Type,'axes')
-                if ~isequal(Tag,'Colorbar')& ~isequal(Tag,'legend')% don't select colorbars for plotting
-                     nbaxe=nbaxe+1;%count the existing axis
-                end 
-            end
-        end    
-        if nbaxe==1
-             ilist=ilist+1;%add a line in the list of axis
-            list{ilist,1}=num2str(hh(ifig));
-        elseif nbaxe>1
-            for iaxe=1:nbaxe
-               ilist=ilist+1;%add a line in the list of axis
-               list{ilist,1}=[num2str(hh(ifig)) '_' num2str(iaxe)];
-            end
-        end
-     end
-end
-list=['uvmat';list];
-set(menu_handle,'Value',1)
-set(menu_handle,'String',list)
-
-
-%-----------------------------------------------------
-function list_fig_Callback(hObject, eventdata, handles)
-%-----------------------------------------------------
-list_fig=get(handles.list_fig,'String');
-fig_val=get(handles.list_fig,'Value');
-plot_fig=list_fig{fig_val};
-if strcmp(plot_fig,'view_field')
-%     huvmat=findobj(allchild(0),'name','uvmat');
-%     if ~isempty(huvmat)
-%         uistack(huvmat,'top')
-%     end    
-else%if ~isequal(plot_fig,'new fig...') & ~isequal(plot_fig,'uvmat')
-    sep=regexp(plot_fig,'_');
-    if ~isempty(sep)
-        plot_fig=plot_fig([1:sep-1]);
-    end
-    if ishandle(str2num(plot_fig))
-        figure(str2num(plot_fig))% display existing figure
-    else
-        browse_fig(handles.list_fig); %reset the current list of figures
-    end
-end