From 8d25b48626bcc4b4b56a6a54a67ec7c1a6121ff0 Mon Sep 17 00:00:00 2001
From: marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Wed, 14 Apr 2010 11:11:10 +0000
Subject:  * patch from Ido Kanner adding BiDi related functions, Mantis 16269

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@15142 3ad0048d-3df7-0310-abae-a5850022a9f2
---
 packages/gtk2/src/pango/pango-context.inc | 2 ++
 packages/gtk2/src/pango/pango-types.inc   | 9 +++++----
 packages/gtk2/src/pango/pangoutils.pas    | 2 ++
 3 files changed, 9 insertions(+), 4 deletions(-)

(limited to 'packages/gtk2')

diff --git a/packages/gtk2/src/pango/pango-context.inc b/packages/gtk2/src/pango/pango-context.inc
index d7e92d399f..eb6315990a 100644
--- a/packages/gtk2/src/pango/pango-context.inc
+++ b/packages/gtk2/src/pango/pango-context.inc
@@ -47,6 +47,8 @@ function pango_context_get_base_dir(context:PPangoContext):TPangoDirection; cdec
   }
 function pango_itemize(context:PPangoContext; text:Pchar; start_index:longint; length:longint; attrs:PPangoAttrList;
            cached_iter:PPangoAttrIterator):PGList; cdecl; external pangolib;
+
+
 {$endif read_interface_functions}
 
 //------------------------------------------------------------------------------
diff --git a/packages/gtk2/src/pango/pango-types.inc b/packages/gtk2/src/pango/pango-types.inc
index c01b240312..0e927ca1d1 100644
--- a/packages/gtk2/src/pango/pango-types.inc
+++ b/packages/gtk2/src/pango/pango-types.inc
@@ -20,10 +20,11 @@
 
    PPangoDirection = ^TPangoDirection;
    TPangoDirection = (
-     PANGO_DIRECTION_LTR,
-     PANGO_DIRECTION_RTL,
-     PANGO_DIRECTION_TTB_LTR,
-     PANGO_DIRECTION_TTB_RTL
+     PANGO_DIRECTION_LTR,      // A strong left-to-right direction
+     PANGO_DIRECTION_RTL,      // A strong right-to-left direction
+     PANGO_DIRECTION_TTB_LTR,  // A weak left-to-right direction
+     PANGO_DIRECTION_TTB_RTL,  // A weak right-to-left direction
+     PANGO_DIRECTION_NEUTRAL   // No direction specified
    );
 {$ENDIF read_interface_types}
 
diff --git a/packages/gtk2/src/pango/pangoutils.pas b/packages/gtk2/src/pango/pangoutils.pas
index 3975d7816a..28c3c078c6 100644
--- a/packages/gtk2/src/pango/pangoutils.pas
+++ b/packages/gtk2/src/pango/pangoutils.pas
@@ -100,6 +100,8 @@ function pango_get_lib_subdirectory:Pchar; cdecl; external pangolib;
   }
 
 function pango_log2vis_get_embedding_levels(str:Pgunichar; len:longint; pbase_dir:PPangoDirection; embedding_level_list:Pguint8):gboolean; cdecl; external pangolib;
+function pango_unichar_direction(ch : gunichar) : TPangoDirection; cdecl; external pangolib;
+function pango_find_base_dir(text : Pgchar; aLength : gint) : TPangoDirection; cdecl; external pangolib;
 function pango_get_mirror_char(ch:gunichar; mirrored_ch:Pgunichar):gboolean; cdecl; external pangolib;
 function pango_language_get_sample_string(language:PPangoLanguage):Pchar; cdecl; external pangolib;
 
-- 
cgit v1.2.1