 	sorted-list (SortedList. event-list nil)
       
 	column-property-accessor
-	(proxy 
-	    [IColumnPropertyAccessor]
-	    []
-	  ;; IColumnAccessor<T>
-	  (^Object getDataValue [^Mutable rowObject columnIndex] (.get ^Getter (nth getters columnIndex) (.getDatum rowObject)))
-	  (getColumnCount [] (count property-names))
-	  ;; public void setDataValue(T rowObject, int columnIndex, Object newValue);
+	(reify 
+	 IColumnPropertyAccessor
+	 ;; IColumnAccessor<T>
+	 (getDataValue [_ rowObject columnIndex] (.get ^Getter (nth getters columnIndex) (.getDatum rowObject)))
+	 (getColumnCount [_] (count property-names))
+	 ;; public void setDataValue(T rowObject, int columnIndex, Object newValue);
       
-	  ;;IColumnPropertyResolver 
-	  (^String getColumnProperty [columnIndex] (nth property-names columnIndex))
-	  (getColumnIndex [^String propertyName] (property-name-to-index propertyName))
-	  )
+	 ;;IColumnPropertyResolver 
+	 (getColumnProperty [_ columnIndex] (nth property-names columnIndex))
+	 (^int getColumnIndex [_ ^String propertyName] (property-name-to-index propertyName))
+	 )
 
 	config-registry (ConfigRegistry.)
 	body-data-provider (ListDataProvider. sorted-list column-property-accessor)

	  (.addConfiguration (DefaultSelectionStyleConfiguration.))
	  (.configure)
	  
	  ;;(.addLayerListener (proxy [ILayerListener][](handleLayerEvent [event] (handle-layer-event sorted-list nattable event data-layer drilldown-fn))))

	  (.setLayoutData (GridData. (SWT/FILL) (SWT/FILL) true true))
	  (.pack))))))

	blink-layer (BlinkLayer.
		     glazed-lists-event-layer
		     body-data-provider
		     (reify IRowIdAccessor (^Serializable getRowId [_ row] (.get pk-getter (.getDatum row))))
		     column-property-accessor
		     config-registry)
	dummy (do
		(.registerConfigAttribute config-registry 
					  (BlinkConfigAttributes/BLINK_RESOLVER)
					  (reify
					   IBlinkingCellResolver
					   (resolve [_ cell configRegistry oldValue newValue] (into-array String ["up"]))
					   (resolve [_ oldValue newValue] (into-array String ["up"])))
					  (DisplayMode/NORMAL))


		(.registerConfigAttribute 
		 config-registry
		 (CellConfigAttributes/CELL_STYLE)
