Changeset 627 for trunk/src/activate.m

Timestamp:

May 3, 2013, 10:11:43 AM (11 years ago)

Author:

sommeria

Message:

a few bugs repaired, display of the local mouse indication in a separate window

File:

• trunk/src/activate.m (modified) (4 diffs)

trunk/src/activate.m

@@ -7 +7 @@
 % PanelTag: tag name of a uipanel containing the element, =[] if no panel
 % ObjectTag: tag name of the element
+% Position=[x y] coordinates set for the mouse relative to the object (default =[] corresponds to the centre [0.5 0.5]
 % Value: value set to the element, for instance string to select on a menu
 
-function activate(FigTag,PanelTag,ObjectTag,Value)
+function activate(FigTag,PanelTag,ObjectTag,Position,Value)
 hFig=findobj(allchild(0),'tag',FigTag);
 set(0,'CurrentFigure',hFig)
+% xx=double(get(hFig,'CurrentCharacter')); %get the keyboard character
+% if isequal(xx,27) % key escape
+%     pause
+% end
 handles=guidata(hFig);
 unit_0=get(0,'Unit');
 unit=get(hFig,'Unit');
 set(hFig,'Unit',unit_0)
-FramePos=get(hFig,'Position');
+FramePos=get(hFig,'Position');% position of the figure
 set(hFig,'Unit',unit)
 if isempty(PanelTag)
@@ -27 +32 @@
     FramePos=FramePos+get(hPanel,'Position');
     set(hPanel,'Unit',unit)
+end
+if ~exist('Position','var')
+    Position=[];
+end
+if isempty(Position)
+    Position=[0.5 0.5];
+end
+if ~exist('Value','var')
+    Value=[];
 end
 hObject=handles.(ObjectTag);
@@ -39 +53 @@
         end
         errormsg=fill_GUI(Param,hFig);
+        if ~isempty(errormsg)
+            disp(errormsg)
+        end
+%         if isequal(get(handles.(ObjectTag),'Style'),'pushbutton')
+%             set(handles.(ObjectTag),'Value',Value)
+%         end
     end
     unit=get(hObject,'Unit');
@@ -44 +64 @@
     Pos=get(hObject,'Position');
     set(hObject,'Unit',unit)
-    set(0,'PointerLocation',FramePos(1:2)+Pos(1:2))
-    BackgroundColor=get(hObject,'BackgroundColor');
-    set(hObject,'BackgroundColor',[1 1 0])
+    CurrentPointerLoc=get(0,'PointerLocation');
+    NewPointerLoc=FramePos(1:2)+Pos(1:2)+Position.*Pos(3:4);
+    set(0,'PointerLocation',FramePos(1:2)+Pos(1:2)+Position.*Pos(3:4))  
     for ipos=1:10
-        set(0,'PointerLocation',FramePos(1:2)+Pos(1:2)+0.5*(ipos/10)*Pos(3:4))
+        set(0,'PointerLocation',CurrentPointerLoc+0.1*ipos*(NewPointerLoc-CurrentPointerLoc))
         pause(0.2)
     end
+    if strcmp(get(hObject,'Style'),'axes')
+        mouse_down(hFig,[])
+        mouse_up(hFig,[])
+    else
+    BackgroundColor=get(hObject,'BackgroundColor');
+    set(hObject,'BackgroundColor',[1 1 0])% mark activation of the object
+    drawnow
     feval(FigTag,[ObjectTag '_Callback'],hObject,[],handles);
+        pause(2)
     set(hObject,'BackgroundColor',BackgroundColor)
+    end
 end
+%%%%text display
+if isempty(Value)
+disp(['mouse select ' ObjectTag ' in ' FigTag ' ' PanelTag])
+else
+    disp(['set ' Value ' in ' FigTag ' ' PanelTag ' ' ObjectTag])
+end