Changeset 613 for trunk/src/uigetfile_uvmat.m

Timestamp:

Apr 19, 2013, 8:26:15 AM (11 years ago)

Author:

sommeria

Message:

a few bugs repaired, GUI sizes optimized

File:

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

trunk/src/uigetfile_uvmat.m

@@ -48 +48 @@
     uicontrol('Style','text','Units','normalized', 'Position', [0.05 0.97 0.5 0.03],'BackgroundColor',BackgroundColor,...
             'String','path:','FontUnits','points','FontSize',12,'FontWeight','bold','ForegroundColor','blue','HorizontalAlignment','left');
-    uicontrol('Style','edit','Units','normalized', 'Position', [0.05 0.89 0.9 0.08],'tag','titlebox','Max',2,'BackgroundColor',[1 1 1],...
+    uicontrol('Style','edit','Units','normalized', 'Position', [0.05 0.89 0.9 0.08],'tag','titlebox','Max',2,'BackgroundColor',[1 1 1],'Callback',@refresh_GUI,...
         'String',InputDir,'FontUnits','points','FontSize',12,'FontWeight','bold');
     uicontrol('Style','pushbutton','Tag','backward','Units','normalized','Position',[0.05 0.75 0.1 0.07],...
@@ -96 +96 @@
 end
 hfig=get(hObject,'parent');
+hlist=findobj(hfig,'tag','list');% find the list object
+set(hlist,'BackgroundColor',[1 1 0])
+drawnow
 htitlebox=findobj(hfig,'tag','titlebox');
 DirName=get(htitlebox,'String');
@@ -105 +108 @@
 hcheck_date=findobj(hfig,'tag','check_date');
 ListFiles=list_files(DirName,get(hcheck_date,'Value'),sort_option);% list the directory content
-hlist=findobj(hfig,'tag','list');% find the list object
+
 set(hlist,'String',ListFiles)
 Value=[];
@@ -115 +118 @@
 end
 set(hlist,'Value',Value)
-
+set(hlist,'BackgroundColor',[0.7 0.7 0.7])
 if strcmp(get(hfig,'Tag'),'status_display') 
     hseries=findobj(allchild(0),'tag','series');
@@ -217 +220 @@
     %         FullSelectName=fileparts(fileparts(FullSelectName));
     %     end
+    set(hObject,'BackgroundColor',[1 1 0])% paint list in yellow to indicate action
+    drawnow
     hbackward=findobj(hfig,'Tag','backward');
     set(hbackward,'UserData',DirName); %store the current dir for future backward action
@@ -225 +230 @@
     end
     hcheck_date=findobj(hfig,'tag','check_date');
+    
     ListFiles=list_files(FullSelectName,get(hcheck_date,'Value'),sort_option);% list the directory content
     set(hObject,'Value',1)
     set(hObject,'String',ListFiles)
+    set(hObject,'BackgroundColor',[0.7 0.7 0.7])
     set(htitlebox,'String',FullSelectName)% record the new dir name
 elseif exist(FullSelectName,'file')%visualise the field if it exists
@@ -288 +295 @@
 DirName=pwd;
 hfig=get(hObject,'parent');
+hlist=findobj(hfig,'tag','list');% find the list object
+set(hlist,'BackgroundColor',[1 1 0])
+drawnow
 sort_option='name';%default
 hsort_option=findobj(hfig,'tag','sort_option');
@@ -297 +307 @@
 htitlebox=findobj(hfig,'Tag','titlebox');
 set(htitlebox,'String',DirName)% record the new dir name
-hlist=findobj(hfig,'tag','list');% find the list object
+set(hlist,'Value',1)
 set(hlist,'String',ListFiles)
+set(hlist,'BackgroundColor',[0.7 0.7 0.7])
 %------------------------------------------------------------------------