From 27e6270a393a866f2cf1f8723c1475a624c3c7d5 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@lazarus-ide.org>
Date: Thu, 2 Feb 2012 21:56:34 +0000
Subject: [PATCH] Declares more attributes in preparation for multiline editor
 support in Carbon

git-svn-id: trunk@35102 -
---
 .../carbon/carbonprivatecontrol.inc           | 37 +++++++++++++++++++
 1 file changed, 37 insertions(+)

diff --git a/lcl/interfaces/carbon/carbonprivatecontrol.inc b/lcl/interfaces/carbon/carbonprivatecontrol.inc
index 2779b55791..9f12f80b27 100644
--- a/lcl/interfaces/carbon/carbonprivatecontrol.inc
+++ b/lcl/interfaces/carbon/carbonprivatecontrol.inc
@@ -356,6 +356,43 @@ begin
         CFArrayAppendValue(lInputMutableArray, lOutputStr);
         lOutputStr := CFSTR('AXStyleRangeForIndex');
         CFArrayAppendValue(lInputMutableArray, lOutputStr);
+      end
+      else if lLazAXRole = larTextEditorMultiline then
+      begin
+        lOutputStr := CFSTR('AXAttributedStringForRange');
+        CFArrayAppendValue(lInputMutableArray, lOutputStr);
+        lOutputStr := CFSTR('AXBoundsForRange');
+        CFArrayAppendValue(lInputMutableArray, lOutputStr);
+        lOutputStr := CFSTR('AXInsertionPointLineNumber');
+        CFArrayAppendValue(lInputMutableArray, lOutputStr);
+        lOutputStr := CFSTR('AXLineForIndex');
+        CFArrayAppendValue(lInputMutableArray, lOutputStr);
+        lOutputStr := CFSTR('AXNumberOfCharacters');
+        CFArrayAppendValue(lInputMutableArray, lOutputStr);
+        lOutputStr := CFSTR('AXRangeForIndex');
+        CFArrayAppendValue(lInputMutableArray, lOutputStr);
+        lOutputStr := CFSTR('AXRangeForLine');
+        CFArrayAppendValue(lInputMutableArray, lOutputStr);
+        lOutputStr := CFSTR('AXRangeForPosition');
+        CFArrayAppendValue(lInputMutableArray, lOutputStr);
+        lOutputStr := CFSTR('AXRTFForRange');
+        CFArrayAppendValue(lInputMutableArray, lOutputStr);
+        lOutputStr := CFSTR('AXSelectedText');
+        CFArrayAppendValue(lInputMutableArray, lOutputStr);
+        lOutputStr := CFSTR('AXSelectedTextRange');
+        CFArrayAppendValue(lInputMutableArray, lOutputStr);
+        lOutputStr := CFSTR('AXSelectedTextRanges');
+        CFArrayAppendValue(lInputMutableArray, lOutputStr);
+        lOutputStr := CFSTR('AXSharedCharacterRange');
+        CFArrayAppendValue(lInputMutableArray, lOutputStr);
+        lOutputStr := CFSTR('AXSharedTextUIElements');
+        CFArrayAppendValue(lInputMutableArray, lOutputStr);
+        lOutputStr := CFSTR('AXStringForRange');
+        CFArrayAppendValue(lInputMutableArray, lOutputStr);
+        lOutputStr := CFSTR('AXStyleRangeForIndex');
+        CFArrayAppendValue(lInputMutableArray, lOutputStr);
+        lOutputStr := CFSTR('AXVisibleCharacterRange');
+        CFArrayAppendValue(lInputMutableArray, lOutputStr);
       end;
     end;// kEventAccessibleGetAllParameterizedAttributeNames
     kEventAccessibleGetNamedAttribute: