note description: "Auto-generated Objective-C wrapper class" date: "$Date$" revision: "$Revision$" class CA_LAYER_UTILS inherit NS_OBJECT_UTILS redefine wrapper_objc_class_name, is_subclass_instance end feature -- CALayer layer: detachable NS_OBJECT -- Auto generated Objective-C wrapper. local result_pointer: POINTER l_objc_class: OBJC_CLASS do create l_objc_class.make_with_name (get_class_name) check l_objc_class_registered: l_objc_class.registered end result_pointer := objc_layer (l_objc_class.item) if result_pointer /= default_pointer then if attached objc_get_eiffel_object (result_pointer) as existing_eiffel_object then check attached {like layer} existing_eiffel_object as valid_result then Result := valid_result end else check attached {like layer} new_eiffel_object (result_pointer, True) as valid_result_pointer then Result := valid_result_pointer end end end end default_value_for_key_ (a_key: detachable NS_STRING): detachable NS_OBJECT -- Auto generated Objective-C wrapper. local result_pointer: POINTER l_objc_class: OBJC_CLASS a_key__item: POINTER do if attached a_key as a_key_attached then a_key__item := a_key_attached.item end create l_objc_class.make_with_name (get_class_name) check l_objc_class_registered: l_objc_class.registered end result_pointer := objc_default_value_for_key_ (l_objc_class.item, a_key__item) if result_pointer /= default_pointer then if attached objc_get_eiffel_object (result_pointer) as existing_eiffel_object then check attached {like default_value_for_key_} existing_eiffel_object as valid_result then Result := valid_result end else check attached {like default_value_for_key_} new_eiffel_object (result_pointer, True) as valid_result_pointer then Result := valid_result_pointer end end end end needs_display_for_key_ (a_key: detachable NS_STRING): BOOLEAN -- Auto generated Objective-C wrapper. local l_objc_class: OBJC_CLASS a_key__item: POINTER do if attached a_key as a_key_attached then a_key__item := a_key_attached.item end create l_objc_class.make_with_name (get_class_name) check l_objc_class_registered: l_objc_class.registered end Result := objc_needs_display_for_key_ (l_objc_class.item, a_key__item) end default_action_for_key_ (a_event: detachable NS_STRING): detachable CA_ACTION_PROTOCOL -- Auto generated Objective-C wrapper. local result_pointer: POINTER l_objc_class: OBJC_CLASS a_event__item: POINTER do if attached a_event as a_event_attached then a_event__item := a_event_attached.item end create l_objc_class.make_with_name (get_class_name) check l_objc_class_registered: l_objc_class.registered end result_pointer := objc_default_action_for_key_ (l_objc_class.item, a_event__item) if result_pointer /= default_pointer then if attached objc_get_eiffel_object (result_pointer) as existing_eiffel_object then check attached {like default_action_for_key_} existing_eiffel_object as valid_result then Result := valid_result end else check attached {like default_action_for_key_} new_eiffel_object (result_pointer, True) as valid_result_pointer then Result := valid_result_pointer end end end end feature {NONE} -- CALayer Externals objc_layer (a_class_object: POINTER): POINTER -- Auto generated Objective-C wrapper. external "C inline use " alias "[ return (EIF_POINTER)[(Class)$a_class_object layer]; ]" end objc_default_value_for_key_ (a_class_object: POINTER; a_key: POINTER): POINTER -- Auto generated Objective-C wrapper. external "C inline use " alias "[ return (EIF_POINTER)[(Class)$a_class_object defaultValueForKey:$a_key]; ]" end objc_needs_display_for_key_ (a_class_object: POINTER; a_key: POINTER): BOOLEAN -- Auto generated Objective-C wrapper. external "C inline use " alias "[ return [(Class)$a_class_object needsDisplayForKey:$a_key]; ]" end objc_default_action_for_key_ (a_class_object: POINTER; a_event: POINTER): POINTER -- Auto generated Objective-C wrapper. external "C inline use " alias "[ return (EIF_POINTER)[(Class)$a_class_object defaultActionForKey:$a_event]; ]" end feature {NONE} -- Implementation wrapper_objc_class_name: STRING -- The class name used for classes of the generated wrapper classes. do Result := "CALayer" end is_subclass_instance: BOOLEAN -- do Result := False end end