%'uigetfile_uvmat': browser faster than the Matlab fct uigetfile %------------------------------------------------------------------------ % hfig=uigetfile_uvmat(OutputDir,option) % % OUTPUT: % fileinput: detected file name, including path % % INPUT: % title: = displayed title, 'status': display advancement of a series calculation % InputDir: directory to browse at first display function fileinput=uigetfile_uvmat(title,InputName) fileinput=''; %default file selection if strcmp(title,'status_display') option='status_display'; else option='browser'; end if exist(InputName,'dir') InputDir=InputName; InputFileName=''; elseif exist(InputName,'file') [InputDir,InputFileName,Ext]=fileparts(InputName); if isempty(InputFileName)% if InputName is already the root InputFileName=InputDir; if ~isempty(strcmp (computer, {'PCWIN','PCWIN64'}))%case of Windows systems InputDir=[InputDir '\'];% append '\' for a correct action of dir InputFileName=[InputFileName '\']; end end if isdir(InputName) InputFileName=['+/' InputFileName Ext]; end else InputDir=pwd;%look in the current work directory if the input file does not exist InputFileName=''; end hfig=findobj(allchild(0),'tag',option); if isempty(hfig) set(0,'Unit','points') ScreenSize=get(0,'ScreenSize');% get the size of the screen, to put the fig on the upper right Width=350;% fig width in points (1/72 inch) Height=min(0.8*ScreenSize(4),500); Left=ScreenSize(3)- Width-40; %right edge close to the right, with margin=40 Bottom=ScreenSize(4)-Height-40; %put fig at top right hfig=figure('name',option,'tag',option,'MenuBar','none','NumberTitle','off','Unit','points','Position',[Left,Bottom,Width,Height],'UserData',InputDir); uicontrol('Style','listbox','Units','normalized', 'Position',[0.05 0.09 0.9 0.71], 'Callback', @(src,event)view_file(option,src,event),'tag','list',... 'FontUnits','points','FontSize',12); uicontrol('Style','edit','Units','normalized', 'Position', [0.05 0.87 0.9 0.1],'tag','titlebox','Max',2,... 'String',InputDir,'FontUnits','points','FontSize',12,'FontWeight','bold'); uicontrol('Style','pushbutton','Units','normalized', 'Position', [0.7 0.01 0.2 0.07],'Callback',@(src,event)close(option,src,event),... 'String','Close','FontWeight','bold','FontUnits','points','FontSize',12); uicontrol('Style','pushbutton','Tag','refresh','Units','normalized','Position', [0.1 0.01 0.2 0.07],'Callback',@refresh_GUI,... 'String','Refresh','FontWeight','bold','FontUnits','points','FontSize',12); %set(hrefresh,'UserData',StatusData) if strcmp(option,'status_display') %put a run advancement display set(hfig,'DeleteFcn',@stop_status) uicontrol('Style','frame','Units','normalized', 'Position',[0.05 0.81 0.01 0.05],'BackgroundColor',[1 0 0],'tag','waitbar'); uicontrol('Style','frame','Units','normalized', 'Position', [0.05 0.81 0.9 0.05]); else %put a title and additional pushbuttons uicontrol('Style','text','Units','normalized', 'Position', [0.15 0.81 0.8 0.03],... 'String',title,'FontUnits','points','FontSize',12,'FontWeight','bold','ForegroundColor','blue','HorizontalAlignment','left'); uicontrol('Style','pushbutton','Tag','backward','Units','normalized','Position',[0.05 0.8 0.1 0.07],... 'String','<--','FontWeight','bold','FontUnits','points','FontSize',12,'Callback',@backward); uicontrol('Style','pushbutton','Units','normalized', 'Position', [0.4 0.01 0.2 0.07],... 'String','Home','FontWeight','bold','FontUnits','points','FontSize',12,'Callback',@home_dir); end drawnow end refresh_GUI(findobj(hfig,'Tag','refresh'),InputFileName)% refresh the list of content of the current dir if ~strcmp(option,'status_display') uiwait(hfig) fileinput=get(hfig,'UserData');% retrieve the input file selection delete(hfig) end %------------------------------------------------------------------------ % --- launched by refreshing the display figure function refresh_GUI(hObject,InputFileName) %------------------------------------------------------------------------ if ~exist('InputFileName','var') InputFileName=''; end hfig=get(hObject,'parent'); DirName=get(hfig,'UserData'); ListFiles=list_files(DirName);% list the directory content hlist=findobj(hfig,'tag','list');% find the list object set(hlist,'String',ListFiles) Value=[]; if ~isempty(InputFileName) Value=find(strcmp(InputFileName,ListFiles)); end if isempty(Value) Value=1; end set(hlist,'Value',Value) if strcmp(get(hfig,'Tag'),'status_display') hseries=findobj(allchild(0),'tag','series'); hstatus=findobj(hseries,'tag','status_display'); StatusData=get(hstatus,'UserData'); TimeStart=0; if isfield(StatusData,'TimeStart') TimeStart=StatusData.TimeStart; end htitlebox=findobj(hfig,'tag','titlebox'); hlist=findobj(hfig,'tag','list'); OutputDir=get(hfig,'UserData'); testrecent=0; datnum=zeros(numel(ListDisplay),1); for ilist=1:numel(ListDisplay) ListDisplay{ilist}=ListFiles(ilist).name; if ListFiles(ilist).isdir ListDisplay{ilist}=['/' ListDisplay{ilist}]; elseif isfield(ListFiles(ilist),'datenum') datnum(ilist)=ListFiles(ilist).datenum;%only available in recent matlab versions testrecent=1; if datnum(ilist)