1 files changed, 50 insertions, 0 deletions
diff --git a/trunk/TAO/examples/Borland/ChatClient.cpp b/trunk/TAO/examples/Borland/ChatClient.cpp
new file mode 100644
index 00000000000..581ba38a9aa
--- /dev/null
+++ b/trunk/TAO/examples/Borland/ChatClient.cpp
@@ -0,0 +1,50 @@
+// $Id$
+//---------------------------------------------------------------------------
+#include "pch.h"
+#pragma hdrstop
+#include "ace/ace.h"
+#include "tao/corba.h"
+#include "ChatClientWnd.h"
+USEFORM("ChatClientWnd.cpp", ChatClientWindow);
+//---------------------------------------------------------------------------
+#pragma package(smart_init)
+
+void ace_init(void)
+{
+  ACE::init();
+}
+#pragma startup ace_init
+
+void ace_fini(void)
+{
+  ACE::fini();
+}
+#pragma exit ace_fini
+//---------------------------------------------------------------------------
+WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
+{
+  try
+    {
+      Application->Initialize ();
+      Application->Title = "CORBA Chat Client";
+      Application->CreateForm(__classid(TChatClientWindow), &ChatClientWindow);
+      Application->Run ();
+    }
+  catch (Exception &exception)
+    {
+      Application->ShowException (&exception);
+    }
+  catch (CORBA::Exception &exception)
+    {
+      ShowMessage (String ("CORBA exception: ") + exception._rep_id ());
+    }
+  catch (...)
+    {
+      ShowMessage ("Unknown exception");
+    }
+
+  return 0;
+}
+//---------------------------------------------------------------------------
+
+