--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/m-toolbox/m/helper/keys.m	Wed Nov 23 19:22:13 2011 +0100
@@ -0,0 +1,48 @@
+function varargout = keys(varargin)
+  
+  className = varargin{1};
+  if nargin > 1
+    methodName = varargin{2}
+  else
+    methodName = className;
+  end
+  
+  cmd = sprintf('%s.getInfo(''%s'')', className, methodName);
+  ii = eval(cmd);
+  
+  out = '';
+  for kk=1:numel(ii.sets)
+    set = ii.sets{kk};
+    out = [out repmat('-', 1, length(set))];
+    out = [out sprintf('\n')];
+    out = [out sprintf('%s\n', set)];
+    out = [out repmat('-', 1, length(set))];
+    out = [out sprintf('\n')];
+    
+    pl = ii.plists(kk);
+    keys = pl.getKeys();
+    keyLine = '';
+    for ll=1:numel(keys)
+      key = keys{ll};
+      keyLine = [keyLine key];
+      if length(keyLine)>100
+        keyLine = [keyLine sprintf('\n')];
+        out = [out keyLine];
+        keyLine = '';
+      else
+        if ll < numel(keys)
+          keyLine = [keyLine ', '];
+        end
+      end
+    end
+    out = [out keyLine sprintf('\n\n')];
+    
+  end
+  
+  disp(out);
+  
+  if nargout > 0
+    varargout{1} = out;
+  end
+  
+end