--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/m-toolbox/m/gui/@jcontrol/get.m	Wed Nov 23 19:22:13 2011 +0100
@@ -0,0 +1,92 @@
+function s=get(obj, property)
+% GET method overloaded for JCONTROL class
+%
+% Examples:
+% a=get(obj)
+% a=get(obj,PropertyName);
+% 
+% If obj is a vector of JCONTROLs, a cell array will be returned
+%
+% See also: jcontrol
+%
+% -------------------------------------------------------------------------
+% Author: Malcolm Lidierth 07/07
+% Copyright © The Author & King's College London 2007
+% -------------------------------------------------------------------------
+
+% No property: list contents
+if nargin==1
+    if numel(obj)==1
+        s.hgcontainer=obj.hgcontainer;
+        s.hgcontrol=obj.hgcontrol;
+        s.hghandle=obj.hghandle;
+    else
+        display(obj);
+    end
+    return
+end
+
+% Must specify a single property
+if nargin>2
+    error('Too many input arguments');
+end
+
+% Ensure lower-case
+property=lower(property);
+
+% Vector of JCONTROLs on input
+% Call GET on each in turn returning a cell array
+if numel(obj)>1
+    if nargout>0
+        % Pre-allocate
+        s=cell(1,numel(obj));
+        for idx=1:numel(obj)
+            % Recursive call
+            s{idx}=get(obj(idx),property);
+        end
+        return
+    else
+        % Stop problems in nested gets e.g. (get(get,...)...)
+        error('Must specify a left-hand side assignment with vector input');
+    end
+end
+    
+% Check for ambiguity in property name
+if isprop(obj.hgcontainer, property) &&...
+        isprop(obj.hgcontrol, property)
+    if strcmp(property,'visible')
+        % Visible is an exception -  take this from the container, MATLAB
+        % links this property for the container and object
+        s=obj.hgcontainer.Visible;
+        return
+    else
+    error('Shared property name ''%s''\nYou must explicitly specify the target object',...
+        property);
+    end
+end
+
+% Do the work
+switch property
+    case 'hghandle'
+        s=obj.hghandle;
+    case 'hgcontainer'
+        s=obj.hgcontainer;
+    case 'hgcontrol'
+        s=obj.hgcontrol;
+    otherwise
+        if isprop(obj.hgcontainer, property)
+            % container property
+            s=obj.hgcontainer.(property);
+        elseif isprop(obj.hgcontrol, property)
+            % control property
+            s=obj.hgcontrol.(property);
+        elseif isempty(obj.hghandle)
+            % Empty -default object
+            s=[];
+        else
+            % Error
+            error('No such property');
+        end
+end
+
+end
\ No newline at end of file