* added documentation

header/libTextSuite.h

@@ -466,7 +466,7 @@ lts_error_code_t            (WINAPI *lts_post_processor_destroy)
 
 lts_error_code_t            (WINAPI *lts_char_get_char_code)                    (lts_char_handle_t handle, wchar_t* value);
 lts_error_code_t            (WINAPI *lts_char_get_glyph_metric)                 (lts_char_handle_t handle, lts_glyph_metric_t* value);
-lts_error_code_t            (WINAPI *lts_char_set_glyph_metric)                 (lts_char_handle_t handle, lts_glyph_metric_t value);
+lts_error_code_t            (WINAPI *lts_char_set_glyph_metric)                 (lts_char_handle_t handle, const lts_glyph_metric_t* value);
 
 lts_error_code_t            (WINAPI *lts_get_last_error_code)                   ();
 const char*                 (WINAPI *lts_get_last_error_msg)                    ();

header/libTextSuite.hpp

@@ -1019,7 +1019,7 @@ public: /* callbacks */
     
     typedef lts::ErrorCode          (WINAPI *char_get_char_code_t)                  (lts::CharHandle handle, WideChar& value);
     typedef lts::ErrorCode          (WINAPI *char_get_glyph_metric_t)               (lts::CharHandle handle, lts::GlyphMetric& value);
-    typedef lts::ErrorCode          (WINAPI *char_set_glyph_metric_t)               (lts::CharHandle handle, lts::GlyphMetric value);
+    typedef lts::ErrorCode          (WINAPI *char_set_glyph_metric_t)               (lts::CharHandle handle, const lts::GlyphMetric& value);
 
     typedef lts::ErrorCode          (WINAPI *initialize_t)                          ();
     typedef lts::ErrorCode          (WINAPI *get_last_error_code_t)                 ();

header/ulibTextSuite.pas

@@ -433,7 +433,7 @@ type
 
   TltsCharGetCharCode               = function(aHandle: TltsCharHandle; out aValue: WideChar): TltsErrorCode; stdcall;
   TltsCharGetGlyphMetric            = function(aHandle: TltsCharHandle; out aValue: TltsGlyphMetric): TltsErrorCode; stdcall;
-  TltsCharSetGlyphMetric            = function(aHandle: TltsCharHandle; aValue: TltsGlyphMetric): TltsErrorCode; stdcall;
+  TltsCharSetGlyphMetric            = function(aHandle: TltsCharHandle; constref aValue: TltsGlyphMetric): TltsErrorCode; stdcall;
 
   TltsInitialize                    = function(): TltsErrorCode; stdcall;
   TltsGetLastErrorCode              = function(): TltsErrorCode; stdcall;

ultsChar.pas

@@ -8,9 +8,9 @@ uses
   Classes, SysUtils,
   utsTextSuite, ultsTypes;
 
-function ltsCharGetCharCode   (aHandle: TltsCharHandle; out aValue: WideChar):       TltsErrorCode; stdcall;
-function ltsCharGetGlyphMetric(aHandle: TltsCharHandle; out aValue: TtsGlyphMetric): TltsErrorCode; stdcall;
-function ltsCharSetGlyphMetric(aHandle: TltsCharHandle;     aValue: TtsGlyphMetric): TltsErrorCode; stdcall;
+function ltsCharGetCharCode   (aHandle: TltsCharHandle;      out aValue: WideChar):       TltsErrorCode; stdcall;
+function ltsCharGetGlyphMetric(aHandle: TltsCharHandle;      out aValue: TtsGlyphMetric): TltsErrorCode; stdcall;
+function ltsCharSetGlyphMetric(aHandle: TltsCharHandle; constref aValue: TtsGlyphMetric): TltsErrorCode; stdcall;
 
 implementation
 
@@ -56,7 +56,7 @@ begin
 end;
 
 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
-function ltsCharSetGlyphMetric(aHandle: TltsCharHandle; aValue: TtsGlyphMetric): TltsErrorCode; stdcall;
+function ltsCharSetGlyphMetric(aHandle: TltsCharHandle; constref aValue: TtsGlyphMetric): TltsErrorCode; stdcall;
 var
   c: TtsChar;
 begin