Changeset 627 for trunk/src/activate.m
- Timestamp:
- May 3, 2013, 10:11:43 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/src/activate.m
r620 r627 7 7 % PanelTag: tag name of a uipanel containing the element, =[] if no panel 8 8 % ObjectTag: tag name of the element 9 % Position=[x y] coordinates set for the mouse relative to the object (default =[] corresponds to the centre [0.5 0.5] 9 10 % Value: value set to the element, for instance string to select on a menu 10 11 11 function activate(FigTag,PanelTag,ObjectTag, Value)12 function activate(FigTag,PanelTag,ObjectTag,Position,Value) 12 13 hFig=findobj(allchild(0),'tag',FigTag); 13 14 set(0,'CurrentFigure',hFig) 15 % xx=double(get(hFig,'CurrentCharacter')); %get the keyboard character 16 % if isequal(xx,27) % key escape 17 % pause 18 % end 14 19 handles=guidata(hFig); 15 20 unit_0=get(0,'Unit'); 16 21 unit=get(hFig,'Unit'); 17 22 set(hFig,'Unit',unit_0) 18 FramePos=get(hFig,'Position'); 23 FramePos=get(hFig,'Position');% position of the figure 19 24 set(hFig,'Unit',unit) 20 25 if isempty(PanelTag) … … 27 32 FramePos=FramePos+get(hPanel,'Position'); 28 33 set(hPanel,'Unit',unit) 34 end 35 if ~exist('Position','var') 36 Position=[]; 37 end 38 if isempty(Position) 39 Position=[0.5 0.5]; 40 end 41 if ~exist('Value','var') 42 Value=[]; 29 43 end 30 44 hObject=handles.(ObjectTag); … … 39 53 end 40 54 errormsg=fill_GUI(Param,hFig); 55 if ~isempty(errormsg) 56 disp(errormsg) 57 end 58 % if isequal(get(handles.(ObjectTag),'Style'),'pushbutton') 59 % set(handles.(ObjectTag),'Value',Value) 60 % end 41 61 end 42 62 unit=get(hObject,'Unit'); … … 44 64 Pos=get(hObject,'Position'); 45 65 set(hObject,'Unit',unit) 46 set(0,'PointerLocation',FramePos(1:2)+Pos(1:2))47 BackgroundColor=get(hObject,'BackgroundColor');48 set( hObject,'BackgroundColor',[1 1 0])66 CurrentPointerLoc=get(0,'PointerLocation'); 67 NewPointerLoc=FramePos(1:2)+Pos(1:2)+Position.*Pos(3:4); 68 set(0,'PointerLocation',FramePos(1:2)+Pos(1:2)+Position.*Pos(3:4)) 49 69 for ipos=1:10 50 set(0,'PointerLocation', FramePos(1:2)+Pos(1:2)+0.5*(ipos/10)*Pos(3:4))70 set(0,'PointerLocation',CurrentPointerLoc+0.1*ipos*(NewPointerLoc-CurrentPointerLoc)) 51 71 pause(0.2) 52 72 end 73 if strcmp(get(hObject,'Style'),'axes') 74 mouse_down(hFig,[]) 75 mouse_up(hFig,[]) 76 else 77 BackgroundColor=get(hObject,'BackgroundColor'); 78 set(hObject,'BackgroundColor',[1 1 0])% mark activation of the object 79 drawnow 53 80 feval(FigTag,[ObjectTag '_Callback'],hObject,[],handles); 81 pause(2) 54 82 set(hObject,'BackgroundColor',BackgroundColor) 83 end 55 84 end 85 %%%%text display 86 if isempty(Value) 87 disp(['mouse select ' ObjectTag ' in ' FigTag ' ' PanelTag]) 88 else 89 disp(['set ' Value ' in ' FigTag ' ' PanelTag ' ' ObjectTag]) 90 end
Note: See TracChangeset
for help on using the changeset viewer.