Changeset 710 for trunk/src/keyboard_callback.m

Timestamp:

Feb 16, 2014, 5:35:45 PM (10 years ago)

Author:

sommeria

Message:

various improvements.

File:

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

trunk/src/keyboard_callback.m

@@ -5 +5 @@
 xx=double(get(hObject,'CurrentCharacter')); %get the keyboard character
 if ~isempty(xx)
-switch xx
-    case {29,28,30,31}    %arrows for displacement
-        AxeData=get(cur_axes,'UserData');
-        if isfield(AxeData,'ZoomAxes')&&ishandle(AxeData.ZoomAxes)
-           cur_axes=AxeData.ZoomAxes;% move the field of the zoom sub-plot instead of the main axes  if it exsits
-           axes(cur_axes)
-        end
-        if ~isempty(cur_axes)
-            xlimit=get(cur_axes,'XLim');
-            ylimit=get(cur_axes,'Ylim');
-            dx=(xlimit(2)-xlimit(1))/10;
-            dy=(ylimit(2)-ylimit(1))/10;
-            if isequal(xx,29)%move arrow right
-                xlimit=xlimit+dx;
-            elseif isequal(xx,28)%move arrow left
-                xlimit=xlimit-dx;
-            elseif isequal(xx,30)%move arrow up
-                ylimit=ylimit+dy;
-            elseif isequal(xx,31)%move arrow down
-                ylimit=ylimit-dy;
+    switch xx
+        case {29,28,30,31}    %arrows for displacement
+            AxeData=get(cur_axes,'UserData');
+            if isfield(AxeData,'ZoomAxes')&&ishandle(AxeData.ZoomAxes)
+                cur_axes=AxeData.ZoomAxes;% move the field of the zoom sub-plot instead of the main axes  if it exsits
+                axes(cur_axes)
             end
-            set(cur_axes,'XLim',xlimit)
-            set(cur_axes,'YLim',ylimit)
-            hfig=hObject; %master figure
-            AxeData=get(cur_axes,'UserData');
-            if isfield(AxeData,'ParentRect')% update the position of the parent rectangle representing the field
-                hparentrect=AxeData.ParentRect;
-                rect([1 2])=[xlimit(1) ylimit(1)];
-                rect([3 4])=[xlimit(2)-xlimit(1) ylimit(2)-ylimit(1)];
-                set(hparentrect,'Position',rect)
-            elseif isfield(AxeData,'LimEditBox')&& isequal(AxeData.LimEditBox,1)% update display of the GUI containing the axis (uvmat or view_field)
-                hh=guidata(hfig);
-                if isfield(hh,'num_MinX')
-                    set(hh.num_MinX,'String',num2str(xlimit(1)))
-                    set(hh.num_MaxX,'String',num2str(xlimit(2)))
-                    set(hh.num_MinY,'String',num2str(ylimit(1)))
-                    set(hh.num_MaxY,'String',num2str(ylimit(2)))
+            if ~isempty(cur_axes)
+                xlimit=get(cur_axes,'XLim');
+                ylimit=get(cur_axes,'Ylim');
+                dx=(xlimit(2)-xlimit(1))/10;
+                dy=(ylimit(2)-ylimit(1))/10;
+                if isequal(xx,29)%move arrow right
+                    xlimit=xlimit+dx;
+                elseif isequal(xx,28)%move arrow left
+                    xlimit=xlimit-dx;
+                elseif isequal(xx,30)%move arrow up
+                    ylimit=ylimit+dy;
+                elseif isequal(xx,31)%move arrow down
+                    ylimit=ylimit-dy;
+                end
+                set(cur_axes,'XLim',xlimit)
+                set(cur_axes,'YLim',ylimit)
+                hfig=hObject; %master figure
+                AxeData=get(cur_axes,'UserData');
+                if isfield(AxeData,'ParentRect')% update the position of the parent rectangle representing the field
+                    hparentrect=AxeData.ParentRect;
+                    rect([1 2])=[xlimit(1) ylimit(1)];
+                    rect([3 4])=[xlimit(2)-xlimit(1) ylimit(2)-ylimit(1)];
+                    set(hparentrect,'Position',rect)
+                elseif isfield(AxeData,'LimEditBox')&& isequal(AxeData.LimEditBox,1)% update display of the GUI containing the axis (uvmat or view_field)
+                    hh=guidata(hfig);
+                    if isfield(hh,'num_MinX')
+                        set(hh.num_MinX,'String',num2str(xlimit(1)))
+                        set(hh.num_MaxX,'String',num2str(xlimit(2)))
+                        set(hh.num_MinY,'String',num2str(ylimit(1)))
+                        set(hh.num_MaxY,'String',num2str(ylimit(2)))
+                    end
                 end
             end
-        end
-%     case {8, 127} %if the delete or suppr key is pressed, delete the current object 
-%         currentobject=gco;
-%         huvmat=findobj(allchild(0),'tag','uvmat');
-%         hlist_object=findobj(huvmat,'Tag','list_object_1');
-%         ObjIndex=get(hlist_object,'Value');
-%         if ObjIndex>1 
-%             delete_object(ObjIndex)
-%         end
-%         if ishandle(currentobject)
-%             tag=get(currentobject,'Tag');%tag of the current selected object
-%             if isequal(tag,'proj_object')
-%                 delete_object(currentobject)
-%             end
-%         end
-    case 112%  key 'p'
-        uvmat('runplus_Callback',hObject,eventdata,handleshaxes)
-    case 109%  key 'm'
-        uvmat('runmin_Callback',hObject,eventdata,handleshaxes)
-    otherwise
-        set(handleshaxes.run0,'BackgroundColor',[1 0 1])%indicat that Run must be activated (todo: rplace by REFRESH)
+        case 112%  key 'p'
+            uvmat('runplus_Callback',hObject,eventdata,handleshaxes)
+        case 109%  key 'm'
+            uvmat('runmin_Callback',hObject,eventdata,handleshaxes)
+        otherwise
+            switch get(gco,'tag')% tag of the current edit box
+                case {'RootPath', 'SubDir','RootFile','FileExt','RootPath_1', 'SubDir_1','RootFile_1','FileExt_1'}
+                    set(handleshaxes.REFRESH,'BackgroundColor',[1 0 1])%indicat that REFRESH must be activated (intyroduce the whole series)
+                otherwise
+                    set(handleshaxes.run0,'BackgroundColor',[1 0 1])%indicat that run0 must be activated
+            end
+    end
 end
-end