package org.simantics.databoard.forms;

import java.util.ArrayList;
import java.util.List;

import org.eclipse.jface.window.Window;
import org.eclipse.swt.SWT;
import org.eclipse.swt.custom.CTabFolder;
import org.eclipse.swt.custom.CTabItem;
import org.eclipse.swt.events.SelectionAdapter;
import org.eclipse.swt.events.SelectionEvent;
import org.eclipse.swt.graphics.Color;
import org.eclipse.swt.layout.GridData;
import org.eclipse.swt.layout.GridLayout;
import org.eclipse.swt.widgets.Button;
import org.eclipse.swt.widgets.Combo;
import org.eclipse.swt.widgets.Composite;
import org.eclipse.swt.widgets.Control;
import org.eclipse.swt.widgets.DirectoryDialog;
import org.eclipse.swt.widgets.Event;
import org.eclipse.swt.widgets.FileDialog;
import org.eclipse.swt.widgets.Group;
import org.eclipse.swt.widgets.Label;
import org.eclipse.swt.widgets.Listener;
import org.eclipse.swt.widgets.Shell;
import org.eclipse.swt.widgets.Text;
import org.simantics.databoard.Accessors;
import org.simantics.databoard.Bindings;
import org.simantics.databoard.accessor.Accessor;
import org.simantics.databoard.accessor.BooleanAccessor;
import org.simantics.databoard.accessor.RecordAccessor;
import org.simantics.databoard.accessor.StringAccessor;
import org.simantics.databoard.accessor.UnionAccessor;
import org.simantics.databoard.accessor.error.AccessorConstructionException;
import org.simantics.databoard.accessor.error.AccessorException;
import org.simantics.databoard.accessor.error.ReferenceException;
import org.simantics.databoard.accessor.reference.ChildReference;
import org.simantics.databoard.accessor.reference.LabelReference;
import org.simantics.databoard.binding.Binding;
import org.simantics.databoard.binding.NumberBinding;
import org.simantics.databoard.binding.RecordBinding;
import org.simantics.databoard.binding.StringBinding;
import org.simantics.databoard.binding.UnionBinding;
import org.simantics.databoard.binding.error.BindingException;
import org.simantics.databoard.binding.mutable.TaggedObject;
import org.simantics.databoard.parser.repository.DataTypeSyntaxError;
import org.simantics.databoard.type.BooleanType;
import org.simantics.databoard.type.Component;
import org.simantics.databoard.type.Datatype;
import org.simantics.databoard.type.NumberType;
import org.simantics.databoard.type.RecordType;
import org.simantics.databoard.type.StringType;
import org.simantics.databoard.type.UnionType;
import org.simantics.databoard.util.Bean;
import org.simantics.databoard.util.StringUtil;
import org.simantics.databoard.util.URIUtil;

/**
 * Databoard form creates SWT user interface from databoard record type.
 * 
 * See DataboardFormExample for example usage.
 *
 * @author toni.kalajainen@semantum.fi
 */
public class DataboardForm {	

	public static final Datatype TEXTBOX;
	public static final Datatype PASSWORD;
	
	public int column1Width = -1;
	
	private RecordType allfields = new RecordType();
	
	/**
	 * Make file type
	 * 
	 * @param namesAndExts array of names and extensions
	 * @param exts
	 * @return
	 */
	public static StringType fileSaveDialog(String...namesAndExts)
	{		
	    StringType result = new StringType();
	    result.metadata.put("style", "filesave");
		    
	    StringBuilder sb1 = new StringBuilder();
	    StringBuilder sb2 = new StringBuilder();
	    
	    for (int i=0; i<namesAndExts.length; i++) {
	    	StringBuilder sb = (i%2==0?sb1:sb2);
	    	int j = i/2;
	    	if (j>0) sb.append(','); 
	    	sb.append(namesAndExts[i]);
	    }
	    
		result.metadata.put("filetypes", sb1.toString());
	    result.metadata.put("fileexts", sb2.toString());
	    return result;
	}

	/**
	 * Make file type
	 * 
	 * @param namesAndExts array of names and extensions
	 * @param exts
	 * @return
	 */
	public static StringType fileOpenDialog(String...namesAndExts)
	{		
	    StringType result = new StringType();
	    result.metadata.put("style", "fileopen");
		    
	    StringBuilder sb1 = new StringBuilder();
	    StringBuilder sb2 = new StringBuilder();
	    
	    for (int i=0; i<namesAndExts.length; i++) {
	    	StringBuilder sb = (i%2==0?sb1:sb2);
	    	int j = i/2;
	    	if (j>0) sb.append(','); 
	    	sb.append(namesAndExts[i]);
	    }
	    
		result.metadata.put("filetypes", sb1.toString());
	    result.metadata.put("fileexts", sb2.toString());
	    return result;
	}
	
	public static StringType directoryDialog()
	{		
	    StringType result = new StringType();
	    result.metadata.put("style", "directory");
	    return result;
	}
	
	public DataboardForm() {
	}
	
	public void setFirstColumnWidth(int width) {
		column1Width = width;
	}
	
	
	/**
	 * Validate the fields for valid values.
	 * StringTypes can be restricted with regular expressions.
	 * NumberTypes with value ranges.
	 * 
	 * @param composite
	 * @return list of problems
	 */
	public List<Problem> validate( Composite composite ) {
		List<Problem> result = new ArrayList<Problem>();
		_validateFields(composite, result);
		return result;
	}
	
	public static List<String> toStrings(List<Problem> problems) {
		List<String> result = new ArrayList<String>( problems.size() );
		for (Problem p : problems) result.add(p.error);
		return result;
	}
	
	public static class Problem extends Bean {
		/** Reference to the field with problem */
		public String fieldReference;
		/** The field with problem */
		public transient Control control;
		/** The validation error */
		public String error;
	}

	protected void _validateFields( Control control, List<Problem> result )
	{
		// Read this control
		Object data = control.getData();
		if ( data != null && data instanceof String ) {
			String refStr = (String) data;
			ChildReference ref = ChildReference.parsePath( refStr);
			if ( ref != null ) {
				try {
					Datatype fieldType = allfields.getChildType( ref );
					
					// Read Combo Union
					if ( fieldType instanceof UnionType && control instanceof Combo ) {
						// Nothing to validate
					} else

					// Read Radio Union
					if ( fieldType instanceof UnionType && control instanceof Composite ) {
						// Nothing to validate
					} else
					
					// Read Boolean
					if ( fieldType instanceof BooleanType && control instanceof Button ) {
						// Nothing to validate
					} else

					// Text + Dialog button
					if ( fieldType instanceof RecordType && control instanceof Text ) {
						try {
							Text text = (Text) control;
							RecordBinding fieldBinding = Bindings.getMutableBinding(fieldType);
							Object value = parse(fieldBinding, text.getText());
							fieldBinding.assertInstaceIsValid( value );
						} catch (BindingException er) {
							Problem problem = new Problem();
							if ( er.getCause()!=null ) {
								problem.error = er.getCause().getMessage();
							} else {
								problem.error = er.getMessage();
							}
							problem.fieldReference = refStr;
							problem.control = control;
							result.add( problem );
						}						
						
					} else
						
					// Read Text
					if ( fieldType instanceof StringAccessor && control instanceof Text ) {
						try {
							Text text = (Text) control;
							StringBinding binding = Bindings.getBinding(fieldType);
							Object value = binding.create(text.getText());
							binding.assertInstaceIsValid( value );
						} catch (BindingException er) {
							Problem problem = new Problem();
							if ( er.getCause()!=null ) {
								problem.error = er.getCause().getMessage();
							} else {
								problem.error = er.getMessage();
							}
							problem.fieldReference = refStr;
							problem.control = control;
							result.add( problem );
						}						
					} else
					
					// Read Numbers
					if ( fieldType instanceof NumberType && control instanceof Text ) {
						try {
							Text text = (Text) control;
							NumberBinding binding = Bindings.getBinding(fieldType);
							Object value = binding.create(text.getText());
							binding.assertInstaceIsValid( value );
						} catch (BindingException er) {
							Problem problem = new Problem();
							if ( er.getCause()!=null && er.getCause() instanceof NumberFormatException) {
								NumberFormatException nfe = (NumberFormatException) er.getCause();
								problem.error = nfe.getMessage();
							} else {
								problem.error = er.getMessage();
							}
							problem.fieldReference = refStr;
							problem.control = control;
							result.add( problem );
						}						
					}
					
				} catch (AccessorConstructionException e) {
					Problem problem = new Problem();
					problem.error = e.getMessage();
					problem.fieldReference = refStr;
					problem.control = control;
					result.add( problem );
				}
			}
		}
		
		// Recursion
		if ( control instanceof Composite ) {
			Composite composite = (Composite) control;
			for (Control child : composite.getChildren()) 
			{
				_validateFields(child, result);
			}
		}
		
	}
	
	public RecordType type() {
		return allfields;
	}

	/**
	 * Find control by reference 
	 * @param control
	 * @param ref
	 * @return control or null
	 */
	public Control getControl( Control control, ChildReference ref )
	{
		return getControl( control, ref.toPath() );
	}
	
	/**
	 * Find control by reference. 
	 * 
	 * @param composite
	 * @param ref
	 * @return control or null
	 */
	public Control getControl( Control control, String ref )
	{
		Object data = control.getData();
		if ( data != null && data instanceof String && data.equals(ref)) return control;
			
		// Recursion
		if ( control instanceof Composite ) {
			Composite composite = (Composite) control;
			for (Control child : composite.getChildren()) 
			{
				Control result = getControl(child, ref);
				if ( result != null ) return result;
			}
		}
		return null;
	}
	
	/**
	 * Reads values of fields into a record
	 * 
	 * @param composite the composite that holds the widgets
	 * @param binding record binding
	 * @param dst the record where values are read to
	 * @throws BindingException
	 * @throws AccessorConstructionException 
	 * @throws AccessorException 
	 */
	public void readFields( Composite composite, RecordBinding binding, Object dst)
	throws BindingException, AccessorConstructionException, AccessorException
	{
		RecordAccessor ra = Accessors.getAccessor(binding, dst);
		_readFields(composite, ra);
	}
	
	protected void _readFields( Control control, RecordAccessor ra ) 
	throws AccessorException, BindingException
	{
		// Read this control
		Object data = control.getData();
		if ( data != null && data instanceof String ) {
			ChildReference ref = ChildReference.parsePath( (String) data);
			if ( ref != null ) {
				try {
					Accessor fieldAccessor = ra.getComponent( ref );
					
					// Read Combo Union
					if ( fieldAccessor instanceof UnionAccessor && control instanceof Combo ) {
						UnionAccessor sa = (UnionAccessor) fieldAccessor;
						Combo combo = (Combo) control;
						String text = combo.getText();
						int tag = sa.type().getComponentIndex2(text);
						Datatype tagType = sa.type().components[tag].type;
						Binding tagBinding = Bindings.getBinding(tagType);
						Object defaultValue = tagBinding.createDefault();									
						sa.setComponentValue(tag, tagBinding, defaultValue);
					} else

					// Read Radio Union
					if ( fieldAccessor instanceof UnionAccessor && control instanceof Composite ) {
						Composite radioComposite = (Composite) control;
						for (Control c : radioComposite.getChildren()) {
							if ( c instanceof Button && ((Button)c).getSelection() ) {
								Object data2 = c.getData();
								if (data2==null) continue;
								String name = getName( data2.toString() );
								if ( name==null ) continue;
								
								UnionAccessor sa = (UnionAccessor) fieldAccessor;
								int tag = sa.type().getComponentIndex2( name );
								if ( tag>=0 ) {
									Datatype tagType = sa.type().components[tag].type;
									Binding tagBinding = Bindings.getBinding(tagType);
									Object defaultValue = tagBinding.createDefault();									
									sa.setComponentValue(tag, tagBinding, defaultValue);
									break;
								}
							}
						}
					} else
					
					// Read Boolean
					if ( fieldAccessor instanceof BooleanAccessor && control instanceof Button ) {
						BooleanAccessor sa = (BooleanAccessor) fieldAccessor;
						sa.setValue(((Button)control).getSelection());
					} else

					// Read Text + Dialog Button
					if ( fieldAccessor instanceof RecordAccessor && control instanceof Text ) {
						RecordAccessor raa = (RecordAccessor) fieldAccessor;
						Text text = (Text) control;
						RecordBinding fieldBinding = Bindings.getMutableBinding( raa.type() );
						Object value = parse( fieldBinding, text.getText() );
						raa.setValue(fieldBinding, value);
					} else
						
					// Read Text
					if ( fieldAccessor instanceof StringAccessor && control instanceof Text ) {
						StringAccessor sa = (StringAccessor) fieldAccessor;
						sa.setValue(((Text)control).getText());
					} else
					
					// Read Numbers
					if ( fieldAccessor.type() instanceof NumberType && control instanceof Text ) {
						NumberBinding binding = Bindings.getBinding( fieldAccessor.type() );
						Object value = binding.create( ((Text)control).getText() );
						fieldAccessor.setValue(binding, value);
					}
					
				} catch (AccessorConstructionException e) {
					//e.printStackTrace();
				}
			}
		}
		
		// Recursion
		if ( control instanceof Composite ) {
			Composite composite = (Composite) control;
			for (Control child : composite.getChildren()) 
			{
				_readFields(child, ra);
			}
		}
	}

	public void writeFields( Composite composite, RecordBinding binding, Object src)
			throws AccessorException, BindingException, AccessorConstructionException
	{
		RecordAccessor ra = Accessors.getAccessor(binding, src);
		_writeFields(composite, ra);
	}
	
	void _writeFields( Control control, RecordAccessor ra )
			throws AccessorException, BindingException, AccessorConstructionException
	{
		// Read this control
		Object data = control.getData();
		if ( data != null && data instanceof String ) {
			ChildReference ref = ChildReference.parsePath( (String) data);
			if ( ref != null ) {
				try {
					Accessor fieldAccessor = ra.getComponent( ref );
					
					// Read Combo Union
					if ( fieldAccessor instanceof UnionAccessor && control instanceof Combo ) {
						UnionAccessor sa = (UnionAccessor) fieldAccessor;
						Combo combo = (Combo) control;
						int tag = sa.getTag();						
						combo.setText( sa.type().getComponent(tag).name );
					} else

					// Read Radio Union
					if ( fieldAccessor instanceof UnionAccessor && control instanceof Composite) {
						Composite radioComposite = (Composite) control;
						UnionAccessor sa = (UnionAccessor) fieldAccessor;
						int tag = sa.getTag();
						for (int i=0; i<sa.count(); i++) {
							Button button = (Button) radioComposite.getChildren()[i*2];
							button.setSelection(i==tag);
						}
					} else
					
					// Read Boolean
					if ( fieldAccessor instanceof BooleanAccessor && control instanceof Button ) {
						BooleanAccessor sa = (BooleanAccessor) fieldAccessor;
						((Button)control).setSelection(sa.getValue());
					} else

					// Write Text + Dialog Selection
					if ( fieldAccessor instanceof RecordAccessor && control instanceof Text ) {
						RecordAccessor raa = (RecordAccessor) fieldAccessor;
						Text text = (Text) control;
						RecordBinding fieldBinding = Bindings.getMutableBinding( raa.type() );
						String str = print( fieldBinding, raa.getValue(fieldBinding) );					
						text.setText( str );
					} else
						
					// Read Text
					if ( fieldAccessor instanceof StringAccessor && control instanceof Text ) {
						StringAccessor sa = (StringAccessor) fieldAccessor;
						((Text)control).setText( sa.getValue() );
					} else
					
					// Read Numbers
					if ( fieldAccessor.type() instanceof NumberType && control instanceof Text ) {
						NumberBinding binding = Bindings.getBinding( fieldAccessor.type() );
						Object value = fieldAccessor.getValue(binding);
						((Text)control).setText( binding.toString(value, true) );
					}
					
				} catch (AccessorConstructionException e) {
					//e.printStackTrace();
				}
			}
		}
		
		// Recursion
		if ( control instanceof Composite ) {
			Composite composite = (Composite) control;
			for (Control child : composite.getChildren()) 
			{
				_writeFields(child, ra);
			}
		}
		
	}
	
	public void clear( Control control ) 
	{		
		_clearFields( control );
		allfields.clear();
	}

	protected void _clearFields( Control control ) 
	{		
		// Recursion
		if ( control instanceof Composite ) {
			Composite composite = (Composite) control;
			for (Control child : composite.getChildren()) 
			{
				_clearFields(child);
				child.dispose();
			}
		}

	}
	
	/**
	 * Add a listener to all the controls that represent the data type.
	 * 
	 * @param composite the composite that holds the widgets
	 * @param binding record binding
	 * @param dst the record where values are read to
	 * @throws BindingException
	 * @throws AccessorConstructionException 
	 * @throws AccessorException 
	 */
	public void addListener( Composite composite, RecordType type, Listener listener )
	throws BindingException, AccessorConstructionException, AccessorException
	{
		_addListener(composite, type, listener );
	}
	
	protected void _addListener( Control control, Datatype type, Listener listener ) 
	throws AccessorException, BindingException
	{
		// Read this control
		Object data = control.getData();
		ChildReference ref = null;
		if ( data != null && data instanceof String ) {
			ref = ChildReference.parsePath( (String) data);
		}
			
				try {					
					Datatype fieldType = ref==null ? type : type.getChildType( ref );

					// Read Combo Union
					if ( fieldType instanceof UnionType && control instanceof Combo ) {
						control.addListener(SWT.Selection, listener);
					} else
					// Read Radio Union
					if ( fieldType instanceof UnionType && control instanceof Composite ) {
						Composite radioComposite = (Composite) control;
						for (Control c : radioComposite.getChildren()) {
							if ( c instanceof Button ) {
								c.addListener(SWT.Selection, listener);
							}
						}
					} else
					
					// Read Boolean
					if ( fieldType instanceof BooleanType && control instanceof Button ) {
						control.addListener(SWT.Selection, listener);
					} else
					
					// Read Text
					if ( fieldType instanceof StringType && control instanceof Text ) {
						control.addListener(SWT.Modify, listener);
					} else
					
					// Read Numbers
					if ( fieldType instanceof NumberType && control instanceof Text ) {
						control.addListener(SWT.Modify, listener);
					}
				
				} catch (ReferenceException re) {
				}
		
		// Recursion
		if ( control instanceof Composite ) {
			Composite composite = (Composite) control;
			for (Control child : composite.getChildren()) 
			{
				_addListener(child, type, listener);
			}
		}
	}
	
	public void addField( Composite parent, String name, Datatype fieldType )
	{
		addField(parent, fieldType, URIUtil.encodeURI(name), null);
		allfields.addComponent(name, fieldType);
	}
	
	public void addField( Composite parent, String name, Datatype fieldType, String ref )
	{
		addField(parent, fieldType, appendName(ref, name), null);
		
		RecordType root = allfields;
		if ( ref != null && !ref.isEmpty() ) {
			// find deeper root
			ChildReference path = ChildReference.parsePath(ref);
			while ( path!=null ) {
				if ( path instanceof LabelReference == false ) {
					throw new RuntimeException( "blaah" );						
				}
				LabelReference lr = (LabelReference) path;
				String label = lr.label;
				
				if ( root.hasComponent(label) ) {
					root = (RecordType) root.getComponent(label).type;
				} else {
					RecordType rt = new RecordType();
					root.addComponent(label, rt);
					root = rt;
				}
				path = path.childReference;
			}
		}
		if ( !root.hasComponent(name) ) root.addComponent(name, fieldType);		
	}
	
	
	public void addFields( Composite parent, RecordType source ) 
	{
		for (Component component : source.getComponents()) 
			addField( parent, component.name, component.type );
	}
	
	public void addFields( Composite parent, RecordType source, String ref ) 
	{
		for (Component component : source.getComponents()) 
			addField( parent, component.name, component.type, ref );
	}
	
	
	public void addField( Composite parent, Datatype fieldType, String ref, GridData lblLayout )
	{
		if (lblLayout==null) {
			lblLayout = new GridData(SWT.LEFT, SWT.BEGINNING, false, false, 1, 1);
			if ( getDepth(ref) < 3 ) lblLayout.widthHint = column1Width;
		}		
		String fieldName = getName(ref);
		
		if (fieldType instanceof StringType) {
			Label label = new Label(parent, 0);
			label.setText(fieldName + ":");
			label.setToolTipText(fieldName);
			label.setLayoutData( lblLayout );

			addString(parent, (StringType) fieldType, ref);
			
		} else if (fieldType instanceof BooleanType) {

			Label label = new Label(parent, 0);
			label.setLayoutData( lblLayout );
			
			addBoolean(parent, (BooleanType) fieldType, ref);

		} else if (fieldType instanceof NumberType) {

			Label label = new Label(parent, 0);
			label.setText(fieldName + ":");
			label.setLayoutData( lblLayout );

			addNumber(parent, (NumberType) fieldType, ref);

		} else if (fieldType instanceof RecordType) {
			RecordType record = (RecordType) fieldType;
			String options = record.metadata.get("style");
			boolean dialog = options==null?false:options.contains("dialog");
			boolean tabbed = options==null?false:options.contains("tabbed");
			
			// Method 0: Tabbed, each field is a tab page
			if ( tabbed ) {
				Label label = new Label(parent, 0);
				label.setText(fieldName + ":");
				label.setLayoutData( lblLayout );
				
				CTabFolder folder = new CTabFolder(parent, SWT.TOP | SWT.BORDER);
				//folder.setUnselectedCloseVisible(false);
				folder.setSimple(false);
				folder.setLayout( new GridLayout(3, false) );			
				folder.setLayoutData(new GridData(SWT.FILL, SWT.FILL, true, false, 2, 1));
				
				for (int i=0; i<record.getComponentCount(); i++) {
					String childName = record.getComponent(i).name;
					Datatype childType = record.getComponentType(i);
					String childRef = appendName(ref, childName);
					if (i>0) new Label(parent, 0);
					
					CTabItem item = new CTabItem(folder, SWT.NONE);
					item.setText(childName);
					Composite composite = new Composite(folder, 0);
					composite.setLayoutData(new GridData(SWT.FILL, SWT.FILL, true, true, 2, 1));
					composite.setLayout( new GridLayout(3, false) );
					composite.setData(ref);
					
					if ( childType instanceof RecordType ) {
						addRecord( composite, (RecordType)childType, childRef);						
					} else {
						addWidget( composite, childType, childRef );
					}
					
					item.setControl( composite );
				}	
				folder.setSelection(0);

			} else
				
			// Method 1: Dialog = Label + Text + [Button]
			if ( dialog ) {
				Label label = new Label(parent, 0);
				label.setText(fieldName + ":");
				label.setLayoutData( lblLayout );
				
				final String title = fieldName;
				final Shell shell = parent.getShell();
				final RecordBinding fieldBinding = Bindings.getMutableBinding( fieldType );
				final Object fieldValue = fieldBinding.createDefaultUnchecked();
				final Text text = new Text(parent, SWT.BORDER);
				final Button select = new Button(parent, SWT.PUSH);
				text.setLayoutData( new GridData(SWT.FILL, SWT.BEGINNING, true, false, 1, 1 ) );
				text.setText( print(fieldBinding, fieldValue) );
				text.setData(ref);			
				text.addListener(SWT.Verify, new Listener() {
					public void handleEvent(Event e) {
						try {
							String newText = applyEventToString( text.getText(), e );
							Object value = parse(fieldBinding, newText);
							fieldBinding.assertInstaceIsValid( value );
							text.setBackground(null);
						} catch (BindingException er) {
							Color error = new Color(text.getDisplay(), 255, 222, 222); 
							text.setBackground(error);					
							error.dispose();
						}
					}
				});		
				
				//text.setEditable( false );
				select.setText("Select");
				select.setLayoutData(new GridData(SWT.RIGHT, SWT.BEGINNING, false, false));
				select.addSelectionListener(new SelectionAdapter() {
					public void widgetSelected(SelectionEvent e) {
						Object initialValue;
						try {
							initialValue = parse(fieldBinding, text.getText());
						} catch (BindingException e1) {
							initialValue = fieldBinding.createDefaultUnchecked();
						}
						DataboardDialog dialog = new DataboardDialog(
								shell,
								title, 
								fieldBinding, 
								initialValue);
													
						int code = dialog.open();
						if ( code == Window.OK ) {
							Object result = dialog.getResult();
							String str = print(fieldBinding, result);
							text.setText( str );
						}
					}
				});
				
			} else 

			// Method 2: Label + composite
			if ( allBooleans(record) ) {			
				Label label = new Label(parent, 0);
				label.setText(fieldName + ":");
				label.setLayoutData( lblLayout );
				
				for (int i=0; i<record.getComponentCount(); i++) {
					String childName = record.getComponent(i).name;
					Datatype childType = record.getComponentType(i);
					String childRef = appendName(ref, childName);
					if (i>0) new Label(parent, 0);
					addWidget( parent, childType, childRef );
				}		
				
			} 
			else
			
			// Method 3: Groups
			{
				Group group = new Group(parent, 0);
				group.setText(fieldName);
				group.setLayout( new GridLayout(3, false) );			
				group.setLayoutData(new GridData(SWT.FILL, SWT.FILL, true, false, 3, 1));
				group.setData(ref);
				addRecord(group, record, ref);
			}
			
		} else if (fieldType instanceof UnionType) {
			Label label = new Label(parent, 0);
			label.setText(fieldName + ":");
			label.setLayoutData( lblLayout );
			addUnion( parent, (UnionType) fieldType, ref );
		}
		
	}

	protected void addWidget(Composite parent, Datatype fieldType, String ref) {
		if (fieldType instanceof StringType) {
			addString(parent, (StringType) fieldType, ref);
		} else if (fieldType instanceof BooleanType) {
			addBoolean(parent, (BooleanType) fieldType, ref);
		} else if (fieldType instanceof NumberType) {
			addNumber(parent, (NumberType) fieldType, ref);
		} else if (fieldType instanceof RecordType) {
			RecordType rt = (RecordType) fieldType;
			Group group = new Group(parent, 0);
			String name = getName(ref);
			group.setText(name);
			group.setLayout( new GridLayout(3, false) );			
			group.setLayoutData(new GridData(SWT.FILL, SWT.FILL, true, false, 3, 1));
			group.setData(ref);
			addRecord(group, rt, ref);
		} else if (fieldType instanceof UnionType) {
			addUnion( parent, (UnionType) fieldType, ref );
		}
	}
	
	public CTabFolder addTabFolder( Composite parent, RecordType record, String ref )
	{
		CTabFolder folder = new CTabFolder(parent, SWT.TOP | SWT.BORDER);
		folder.setSimple(false);
		folder.setLayout( new GridLayout(3, false) );			
		folder.setLayoutData(new GridData(SWT.FILL, SWT.FILL, true, true, 3, 1));
		
		for (int i=0; i<record.getComponentCount(); i++) {
			String childName = record.getComponent(i).name;
			Datatype childType = record.getComponentType(i);
			String childRef = appendName(ref, childName);
			if (i>0) new Label(parent, 0);
			
			CTabItem item = new CTabItem(folder, SWT.NONE);
			item.setText(childName);
			Composite composite = new Composite(folder, 0);
			composite.setLayoutData(new GridData(SWT.FILL, SWT.FILL, true, true, 2, 1));
			composite.setLayout( new GridLayout(3, false) );
			composite.setData(ref);
			
			if ( childType instanceof RecordType ) {
				addRecord( composite, (RecordType)childType, childRef);						
			} else {
				addWidget( composite, childType, childRef );
			}
			
			item.setControl( composite );
			allfields.addComponent(childName, childType);
		}	
		folder.setSelection(0);
		return folder;
		
	}
	
	protected void addRecord( Composite parent, RecordType record, String ref )
	{
		String options = record.metadata.get("style");
		boolean dialog = options==null?false:options.contains("dialog");
		boolean tabbed = options==null?false:options.contains("tabbed");
		
		// Method 0: Tabbed, each field is a tab page
		if ( tabbed ) {
			addTabFolder( parent, record, ref );
			return;
		}
		
		// Normal Record
		GridData lblLayout = new GridData(SWT.LEFT, SWT.BEGINNING, false, false, 1, 1);
		if ( getDepth(ref) < 3 ) lblLayout.widthHint = column1Width;
			
		for (int i=0; i<record.getComponentCount(); i++) {
			String fieldName = record.getComponent(i).name;
			Datatype fieldType = record.getComponentType(i);
			String fieldRef = appendName(ref, fieldName);
			addField( parent, fieldType, fieldRef, lblLayout);
		}		
		return;
	}
		
	protected void addUnion( Composite parent, UnionType union, String ref )
	{
		if ( union.isEnumeration() ) {
			addEnum( parent, union, ref );
		} else {
			addRadio( parent, union, ref );
		}		
	}
	
	protected void addEnum( Composite parent, UnionType union, String ref )
	{
		Combo combo = new Combo(parent, SWT.READ_ONLY);
		String[] items = new String[union.getComponentCount()];
		for (int i = 0; i < items.length; i++) {
			items[i] = union.getComponent(i).name;
		}
		combo.setItems(items);
		combo.setLayoutData(new GridData(SWT.FILL, SWT.BEGINNING, true, false, 2, 1));
		combo.setData(ref);
		
		// Set default value
		UnionBinding binding = Bindings.getBinding(union);
		try {
			TaggedObject defaultOption = (TaggedObject) binding.createDefault();
			combo.setText( items[ defaultOption.tag ] );
		} catch (BindingException e) {
		}				
	}

	protected void addRadio( Composite parent, UnionType union, String ref )
	{
		Composite composite = new Composite(parent, 0);
		composite.setLayoutData(new GridData(SWT.FILL, SWT.BEGINNING, true, false, 2, 1));
		composite.setLayout( new GridLayout(3, false) );
		composite.setData(ref);
		final int count = union.getComponentCount();
		final Composite panels[] = new Composite[count];
		final Button buttons[] = new Button[count];
		for ( int i=0; i<count; i++ ) {
			Component component = union.getComponent(i);
			String childRef = ref+"/"+URIUtil.encodeURI(component.name);
			Button b = buttons[i] = new Button(composite, SWT.RADIO);
			b.setLayoutData(new GridData(SWT.LEFT, SWT.BEGINNING, false, false, 1, 1));
			b.setText(component.name);
			b.setData(childRef);
			
			String options = union.metadata.get("style");
			boolean border = options==null?true:!options.contains("no-border");
			int style = 0;			
			if (border) style |= SWT.BORDER;
			
			Composite panel = panels[i] = new Composite(composite, style);
			panel.setLayoutData(new GridData(SWT.FILL, SWT.BEGINNING, true, false, 2, 1));
			panel.setLayout( new GridLayout(3, false) );
			panel.setData(childRef);
			
			Datatype componentType = union.getComponentType(i);
			if ( componentType instanceof RecordType ) {
				addRecord(panel, (RecordType) componentType, childRef);
			} else {
				addWidget(panel, componentType, childRef);
			}			
		}
		
		// Set default value
		UnionBinding binding = Bindings.getBinding(union);
		try {
			TaggedObject defaultOption = (TaggedObject) binding.createDefault();
			buttons[defaultOption.tag].setSelection(true);
		} catch (BindingException e) {
		}				
		
	}
	
	protected void addNumber( Composite parent, NumberType number, String ref )
	{
		String unit = number.getUnit();
		String options = number.metadata.get("style");
		boolean border = options==null?true:!options.contains("no-border");
		int style = 0;			
		if (border) style |= SWT.BORDER;
		final Text text = new Text(parent, style);
		text.setData(ref);
		text.setLayoutData(new GridData(SWT.FILL, SWT.BEGINNING, true, false, unit==null?2:1, 1));
		
		// Set default value
		final NumberBinding binding = Bindings.getBinding( number );
		try {
			text.setText( binding.createDefault().toString() );
		} catch (BindingException e) {
		}
		
		// Add validator
		text.addListener(SWT.Verify, new Listener() {
			public void handleEvent(Event e) {
				try {
					String newText = applyEventToString( text.getText(), e );
					Object value = binding.create( newText );
					binding.assertInstaceIsValid( value );
					text.setBackground(null);					
				} catch (BindingException er) {
					Color error = new Color(text.getDisplay(), 255, 222, 222); 
					text.setBackground(error);
					error.dispose();					
				}
			}});
		
		if ( unit!=null ) {
			Label unitLabel = new Label(parent, 0);
			unitLabel.setText(unit);
		}
	}
	
	static String applyEventToString(String orig, Event e) {
		if (e.character==8) {
			return orig.substring(0, e.start) + orig.substring(e.end, orig.length());
		}
		return orig.substring(0, e.start) + e.text + orig.substring(e.end, orig.length());		
	}
	
	protected void addBoolean( Composite parent, BooleanType booleanType, String ref )
	{
		Button button = new Button(parent, SWT.CHECK);
		button.setText( getName(ref) );
		button.setData(ref);
		button.setLayoutData(new GridData(SWT.FILL, SWT.BEGINNING, true, false, 2, 1));
	}
	
	protected void addString( Composite parent, StringType stringType, String ref )
	{		
		String options = stringType.metadata.get("style");
		boolean password = options==null?false:options.contains("password");
		boolean filesave = options==null?false:options.contains("filesave");
		boolean fileopen = options==null?false:options.contains("fileopen");
		boolean directory = options==null?false:options.contains("directory");
		boolean multi = options==null?false:options.contains("multi");
		boolean border = options==null?true:!options.contains("no-border");

		int style = 0;
		if (password) style |= SWT.PASSWORD;
		if (multi) style |= SWT.MULTI;
		if (border) style |= SWT.BORDER;
		final Text text = new Text(parent, style);
		text.setLayoutData( new GridData(SWT.FILL, multi?SWT.FILL:SWT.BEGINNING, true, false, filesave|fileopen|directory?1:2, 1 ) );
		text.setData(ref);

		// Set default value
		final StringBinding binding = Bindings.getBinding( stringType );
		try {
			text.setText( binding.createDefault().toString() );
		} catch (BindingException e) {
		}
		
		text.addListener(SWT.Verify, new Listener() {
			public void handleEvent(Event e) {
				try {
					String newText = applyEventToString( text.getText(), e );
					Object value = binding.create( newText );
					binding.assertInstaceIsValid( value );
					text.setBackground(null);
				} catch (BindingException er) {
					Color error = new Color(text.getDisplay(), 255, 222, 222); 
					text.setBackground(error);					
					error.dispose();
				}
			}
		});		
		if (filesave|fileopen) {
			final FileDialog fd = new FileDialog(parent.getShell(), filesave?SWT.SAVE:SWT.OPEN);
					
			String filetypesStr = stringType.metadata.get("filetypes");
			String fileextsStr = stringType.metadata.get("fileexts");
			String name = getName(ref);
			String[] filetypes = filetypesStr==null?null:(String[]) filetypesStr.split(","); 
			String[] fileexts = fileextsStr==null?null:(String[]) fileextsStr.split(",");					
			fd.setFilterNames(filetypes);
			fd.setFilterExtensions(fileexts);
			
			boolean nameMatchesExt = false;
			if ( name!=null && !name.isEmpty() ) {
				for (String fileext : fileexts) {
					nameMatchesExt |= StringUtil.simplePatternMatch(name, fileext) && !name.contains(" ");
				}
			}
			final String initialName = nameMatchesExt?name:null;
			
			Button chooseFileButton = new Button(parent, SWT.PUSH);
			chooseFileButton.setText("Select");
			chooseFileButton.setLayoutData(new GridData(SWT.RIGHT, SWT.BEGINNING, false, false));
			chooseFileButton.addSelectionListener(new SelectionAdapter() {
				public void widgetSelected(SelectionEvent e) {
					String name = text.getText();
					if ( name == null || name.isEmpty() ) name = initialName;
					if ( name!=null ) fd.setFileName( name );
					String result = fd.open();
					if (result != null)
						text.setText(result);
				}
			});
		}

		if (directory) {
			final DirectoryDialog fd = new DirectoryDialog(parent.getShell(), 0);
			String name = getName(ref);
			fd.setMessage( name );
			Button chooseDirButton = new Button(parent, SWT.PUSH);
			chooseDirButton.setText("Select");
			chooseDirButton.setLayoutData(new GridData(SWT.RIGHT, SWT.BEGINNING, false, false));
			chooseDirButton.addSelectionListener(new SelectionAdapter() {
				public void widgetSelected(SelectionEvent e) {
					String dir = text.getText();					
					fd.setFilterPath(dir);
					String result = fd.open();
					if (result != null)
						text.setText(result);
				}
			});
		}
	}

	static String appendName(String ref, String name)
	{
		return ref+"/"+URIUtil.encodeURI(name);
	}
	
	static String getName(String ref)
	{
		if ( ref==null ) return null;
		int i = ref.lastIndexOf('/');
		if (i<0) return URIUtil.decodeURI(ref);
		String namePart = ref.substring(i+1);
		return URIUtil.decodeURI(namePart);
	}
	
	static int getDepth(String ref)
	{
		int depth = 0;
		for (int i=0; i<ref.length(); i++) if ( ref.charAt(i)=='/' ) depth++;
		return depth;
	}
	
	static boolean allBooleans(RecordType rt) {
		for (Component c : rt.getComponents())
			if ( c.type instanceof BooleanType == false ) return false;
		return true;
	}
	
	static String print(RecordBinding recordBinding, Object value) {		
		if ( allBooleans(recordBinding.type() ) ) {
			StringBuilder sb = new StringBuilder();
			int j = 0;
			for ( int i = 0; i<recordBinding.getComponentCount(); i++ ) {
				try {
					boolean b = recordBinding.getBoolean(value, i);
					if ( !b ) continue;
					if ( j>0 ) sb.append(", ");
					sb.append(recordBinding.type().getComponent(i).name);
					j++;
				} catch (BindingException e) {
					continue;
				}				
			}
			return sb.toString();
		} else 
		try {
			return recordBinding.toString(value, true);
		} catch (BindingException e) {
			return e.toString();
		}
	}
	
	static Object parse(RecordBinding recordBinding, String txt) throws BindingException {
		if ( allBooleans(recordBinding.type() ) ) {
			Object result = recordBinding.createDefaultUnchecked();
			String[] tokens = txt.split(", ");
			for ( String token : tokens ) {
				if ( token.isEmpty() ) continue;
				int i = recordBinding.type().getComponentIndex2(token);
				if ( i>=0 ) {
					try {
						recordBinding.setBoolean(result, i, true);
					} catch (BindingException e) {
						throw e;
					}
				} else {
					throw new BindingException("There is no field \""+token+"\"");
				}
			}
			return result;
		} else {
			try {
				return recordBinding.parseValueDefinition(txt);
			} catch (DataTypeSyntaxError e) {
				throw new BindingException(e);
			}
			
		}
	}
	
	static {
	    PASSWORD = new StringType();
	    PASSWORD.metadata.put("style", "password");
	    
	    TEXTBOX = new StringType();
	    TEXTBOX.metadata.put("style", "multi");
	}
		
}