Changeset 1037 for trunk/src/uigetfile_uvmat.m

Timestamp:

May 1, 2018, 4:31:01 PM (6 years ago)

Author:

sommeria

Message:

miscellaneous adaptations to opendap

File:

• trunk/src/uigetfile_uvmat.m (modified) (3 diffs)

trunk/src/uigetfile_uvmat.m

@@ -73 +73 @@
 end
 
-hfig=findobj(allchild(0),'tag',option);
-if isempty(hfig)
+hfig=findobj(allchild(0),'tag',option);%look for existing browser fig
+if isempty(hfig)% create the browser fig if it does not exist
     set(0,'Unit','points')
     ScreenSize=get(0,'ScreenSize');% get the size of the screen, to put the fig on the upper right
@@ -149 +149 @@
 function OK_Callback(option,filter_ext,hObject,event)
 set(hObject,'backgroundColor',[1 1 0])% indicate button activation
-hfig=get(hObject,'parent');%handle of the fig
+fig_struct=get(hObject,'parent');
+if isstruct(fig_struct);%recent Matlab
+    hfig=fig_struct.Number;
+else
+    hfig=fig_struct;
+end
 htitlebox=findobj(hfig,'tag','titlebox');  % display the current dir name  
 DirName=get(htitlebox,'String');
@@ -192 +197 @@
 end
 set(hObject,'backgroundColor',[0 1 0])% indicate end button activatio
-fig_struct=get(hObject,'parent');
-if isstruct(fig_struct);%recent Matlab
-uiresume(fig_struct.Number)
-else
-   uiresume(fig_struct) 
-end
 
 %------------------------------------------------------------------------