{\rtf1\ansi\ansicpg1252\cocoartf949\cocoasubrtf540
{\fonttbl\f0\fnil\fcharset0 Monaco;}
{\colortbl;\red255\green255\blue255;\red127\green0\blue85;\red0\green0\blue192;\red42\green0\blue255;
}
\paperw11900\paperh16840\margl1440\margr1440\vieww16220\viewh19860\viewkind0
\deftab720
\pard\pardeftab720

\f0\fs22 \cf2 public\cf0  \cf2 class\cf0  Aplicacion \cf2 implements\cf0  EntryPoint \{\
\
    \cf2 public\cf0  \cf2 void\cf0  onModuleLoad() \{\
\
	\cf2 final\cf0  DynamicForm form = \cf2 new\cf0  DynamicForm();\
	form.setMargin(10);\
	form.setAutoFocus(\cf2 true\cf0 );\
	form.setWidth(400);\
	form.setTitleWidth(100);\
\
	PickerIcon clearPicker = \cf2 new\cf0  PickerIcon(PickerIcon.\cf3 CLEAR\cf0 , \cf2 new\cf0  FormItemClickHandler() \{\
	    \cf2 public\cf0  \cf2 void\cf0  onFormItemClick(FormItemIconClickEvent event) \{\
		SC.say(\cf4 "Clear Picker clicked"\cf0 );\
	    \}\
	\});\
\
	PickerIcon searchPicker = \cf2 new\cf0  PickerIcon(PickerIcon.\cf3 SEARCH\cf0 , \cf2 new\cf0  FormItemClickHandler() \{\
	    \cf2 public\cf0  \cf2 void\cf0  onFormItemClick(FormItemIconClickEvent event) \{\
		SC.say(\cf4 "Search Picker clicked"\cf0 );\
	    \}\
	\});\
\
	PickerIcon datePicker = \cf2 new\cf0  PickerIcon(PickerIcon.\cf3 DATE\cf0 , \cf2 new\cf0  FormItemClickHandler() \{\
	    \cf2 public\cf0  \cf2 void\cf0  onFormItemClick(FormItemIconClickEvent event) \{\
		SC.say(\cf4 "Date Picker clicked"\cf0 );\
	    \}\
	\});\
\
	PickerIcon refreshPicker = \cf2 new\cf0  PickerIcon(PickerIcon.\cf3 REFRESH\cf0 , \cf2 new\cf0  FormItemClickHandler() \{\
	    \cf2 public\cf0  \cf2 void\cf0  onFormItemClick(FormItemIconClickEvent event) \{\
		SC.say(\cf4 "Refresh Picker clicked"\cf0 );\
	    \}\
	\});\
\
	TextItem pickerControls = \cf2 new\cf0  TextItem(\cf4 "pickerControls"\cf0 , \cf4 "Picker Controls"\cf0 );\
	pickerControls.setIcons(clearPicker, searchPicker, refreshPicker);\
\
	TextItem datePickerControl = \cf2 new\cf0  TextItem(\cf4 "datePicker"\cf0 , \cf4 "Date Picker"\cf0 );\
	datePickerControl.setIcons(datePicker);\
\
	TextItem refreshOnlyControl = \cf2 new\cf0  TextItem(\cf4 "refreshPicker"\cf0 , \cf4 "Refresh Picker"\cf0 );\
	refreshOnlyControl.setIcons(refreshPicker);\
\
	form.setFields(pickerControls, datePickerControl, refreshOnlyControl);\
\
	form.draw();\
    \}\
\}}