note description: "Summary description for {NS_OBJECT_API}." author: "Daniel Furrer" date: "$Date$" revision: "$Revision$" class NS_OBJECT_API feature -- Identifying classes frozen class_ (a_object: POINTER): POINTER external "C inline use " alias "return [(NSObject*)$a_object class];" end feature -- Managing Reference Counts frozen retain_count (a_item_ptr: POINTER): NATURAL_64 -- require -- a_item_ptr_not_null: a_item_ptr /= default_pointer external "C inline use " alias "return [(NSObject *) $a_item_ptr retainCount];" end frozen release (a_item_ptr: POINTER) -- require -- a_item_ptr_not_null: a_item_ptr /= default_pointer external "C inline use " alias "[(NSObject *) $a_item_ptr release];" end frozen retain (a_item_ptr: POINTER) -- require -- a_item_ptr_not_null: a_item_ptr /= default_pointer external "C inline use " alias "[(NSObject *) $a_item_ptr retain];" end end