--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/m-toolbox/classes/@constructor/cb_selectSet.m	Wed Nov 23 19:22:13 2011 +0100
@@ -0,0 +1,27 @@
+function cb_selectSet(varargin)
+  
+  myh = varargin{1};
+  mainfig = varargin{end};
+
+  % get class
+  h = findobj(mainfig.handle, 'Tag', 'ClassSelect');
+  classes = get(h, 'String');
+  cl = classes{get(h, 'Value')};
+    
+  % get set
+  h = findobj(mainfig.handle, 'Tag', 'SetSelect');
+  sets = get(h, 'String');
+  sset = sets{get(h, 'Value')};
+
+  % get plist 
+  cmdstr = [cl '.getInfo(''' cl ''', ''' sset ''')' ];
+  ii = eval(cmdstr);
+  pl = ii.plists;
+  
+  % make command
+  cmd = [cl '(' string(pl) ')'];
+  
+  ch = findobj(mainfig.handle, 'Tag', 'ConstructorDisplay');
+  set(ch, 'String', cmd);
+  
+end