From 692a0346c56cc253599301a298ec65cd0fcf1693 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 19 Aug 2011 13:33:19 +0000
Subject: [PATCH] android-sdk: Minor improvements

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1817 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 bindings/android-sdk/android_sdk_bindings_gen.pas | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/bindings/android-sdk/android_sdk_bindings_gen.pas b/bindings/android-sdk/android_sdk_bindings_gen.pas
index d5e73f7f5..f5a7c6b9b 100644
--- a/bindings/android-sdk/android_sdk_bindings_gen.pas
+++ b/bindings/android-sdk/android_sdk_bindings_gen.pas
@@ -60,7 +60,9 @@ begin
   ADest.Add('');
   ADest.Add('interface');
   ADest.Add('');
-  ADest.Add('uses javalang, androidpipescomm;');
+  ADest.Add('uses SysUtils, javalang, androidpipescomm;');
+  ADest.Add('');
+  ADest.Add('{$INTERFACES CORBA}');
   ADest.Add('');
   ADest.Add('type');
   ADest.Add('');
@@ -326,7 +328,7 @@ begin
     if AIsInterface then
       lParentClassName := 'IJavaInterface'
     else
-      lParentClassName := 'TInterfacedObject';
+      lParentClassName := 'TJavaObject';
 
   if AIsInterface then
     FPasOutputClasses.Add(Format('  %s = interface(%s)', [FClassNamePas, lParentClassName]))