note description: "Wrapper for delegate methods of NSText." author: "Daniel Furrer" date: "$Date$" revision: "$Revision$" class NS_TEXT_DELEGATE inherit NS_OBJECT feature -- Delegate Methods text_should_begin_editing (a_text_object: NS_TEXT): BOOLEAN do Result := text_field_text_should_begin_editing (cocoa_object, a_text_object.cocoa_object) end text_should_end_editing (a_text_object: NS_TEXT): BOOLEAN do Result := text_field_text_should_end_editing (cocoa_object, a_text_object.cocoa_object) end text_did_begin_editing (a_notification: NS_NOTIFICATION) do text_field_text_did_begin_editing (cocoa_object, a_notification.cocoa_object) end text_did_end_editing (a_notification: NS_NOTIFICATION) do text_field_text_did_end_editing (cocoa_object, a_notification.cocoa_object) end text_did_change (a_notification: NS_NOTIFICATION) do text_field_text_did_change (cocoa_object, a_notification.cocoa_object) end feature -- Objective-C implementation frozen text_field_text_should_begin_editing (a_text_field: POINTER; a_text_object: POINTER): BOOLEAN external "C inline use " alias "return [(NSTextField*)$a_text_field textShouldBeginEditing: $a_text_object];" end frozen text_field_text_should_end_editing (a_text_field: POINTER; a_text_object: POINTER): BOOLEAN external "C inline use " alias "return [(NSTextField*)$a_text_field textShouldEndEditing: $a_text_object];" end frozen text_field_text_did_begin_editing (a_text_field: POINTER; a_notification: POINTER) external "C inline use " alias "[(NSTextField*)$a_text_field textDidBeginEditing: $a_notification];" end frozen text_field_text_did_end_editing (a_text_field: POINTER; a_notification: POINTER) external "C inline use " alias "[(NSTextField*)$a_text_field textDidEndEditing: $a_notification];" end frozen text_field_text_did_change (a_text_field: POINTER; a_notification: POINTER) external "C inline use " alias "[(NSTextField*)$a_text_field textDidChange: $a_notification];" end end