1 files changed, 159 insertions, 0 deletions
diff --git a/TAO/tests/QtTests/client.cpp b/TAO/tests/QtTests/client.cpp
new file mode 100644
index 00000000000..0139cdf6672
--- /dev/null
+++ b/TAO/tests/QtTests/client.cpp
@@ -0,0 +1,159 @@
+// $Id$
+
+#include "testC.h"
+#include "ace/Get_Opt.h"
+#include "tao/QtResource/QtResource_Loader.h"
+
+ACE_RCSID(QtTests, client, "$Id$")
+
+#include "client.h"
+
+int
+main (int argc, char *argv[])
+{
+  QApplication app (argc, argv);
+  TAO::QtResource_Loader qt_resources (&app);
+
+  ACE_DECLARE_NEW_CORBA_ENV;
+
+  ACE_TRY
+    {
+      CORBA::ORB_var orb =
+        CORBA::ORB_init (argc, argv, "" ACE_ENV_ARG_PARAMETER);
+      ACE_TRY_CHECK;
+
+      Client client (orb.in (), app);
+
+      client.parse_args (argc, argv ACE_ENV_ARG_PARAMETER);
+      ACE_TRY_CHECK;
+
+      // Creates the Qt widgets
+      client.create_widgets (ACE_ENV_SINGLE_ARG_PARAMETER);
+      ACE_TRY_CHECK;
+
+      // This may look a bit suspect, but Qt wants the manager widget
+      // as the toplevel widget unlike Xt for display purposes.
+      app.setMainWidget (&(client.box_));
+
+      // Show them on Screen
+      client.show ();
+
+      app.exec ();
+    }
+  ACE_CATCHANY
+    {
+      ACE_PRINT_EXCEPTION (ACE_ANY_EXCEPTION, "Caught exception:");
+      return 1;
+    }
+  ACE_ENDTRY;
+  return 0;
+}
+
+Client::Client (CORBA::ORB_ptr orb,
+                QApplication &qapp)
+  : orb_ (CORBA::ORB::_duplicate (orb)),
+    qapp_ (&qapp)
+{
+}
+
+Client::~Client (void)
+{
+  delete this->slider_;
+  delete this->push_button_;
+}
+
+void
+Client::parse_args (int argc,
+                    char *argv[]
+                    ACE_ENV_ARG_DECL)
+{
+  const char *ior = "file://test.ior";
+
+  ACE_Get_Opt get_opts (argc, argv, "k:");
+  int c;
+
+  while ((c = get_opts ()) != -1)
+    switch (c)
+      {
+      case 'k':
+        ior = get_opts.opt_arg ();
+        break;
+      case '?':
+      default:
+        ACE_ERROR ((LM_ERROR,
+                    "usage:  %s "
+                    "-k <ior> "
+                    "\n",
+                    argv [0]));
+      }
+
+  CORBA::Object_var object =
+    this->orb_->string_to_object (ior ACE_ENV_ARG_PARAMETER);
+  ACE_CHECK;
+
+  this->server_ =
+    LCD_Display::_narrow (object.in () ACE_ENV_ARG_PARAMETER);
+  ACE_CHECK;
+
+  if (CORBA::is_nil(this->server_.in ()))
+    {
+      ACE_DEBUG ((LM_DEBUG,
+                  "\n The server value is nil "));
+    }
+}
+
+void
+Client::create_widgets (ACE_ENV_SINGLE_ARG_DECL_NOT_USED/*ACE_ENV_SINGLE_ARG_PARAMETER*/)
+{
+  // Ewsize the box
+  this->box_.resize (200,120);
+
+  // Make a pushbutton widget
+  ACE_NEW (this->push_button_,
+           QPushButton ("Quit",
+                        &this->box_));
+
+  // Connect the click () SIGNAL routine with the SLOT handler that we
+  // have defined
+  QObject::connect (this->push_button_,
+                    SIGNAL (clicked()),
+                    this,
+                    SLOT (shutdown_call ()));
+
+  // Create a slider widget
+  ACE_NEW (this->slider_,
+           QSlider (QSlider::Horizontal,
+                    &this->box_,
+                    "Slider"));
+
+  // Add resource for the slider
+  this->slider_->setRange (0, 99);
+  this->slider_->setValue (0);
+
+  // Connect the valuechanged SIGNAL routine with the slot that we
+  // have defined. THe slot routine would invoke the remote call.
+  QObject::connect (this->slider_,
+                    SIGNAL (valueChanged (int)),
+                    this,
+                    SLOT (remote_call (int)));
+
+}
+
+void
+Client::show (void)
+{
+  this->box_.show ();
+}
+
+void
+Client::remote_call (int val)
+{
+  this->server_->send_val (val);
+}
+
+void
+Client::shutdown_call (void)
+{
+  this->server_->shutdown ();
+}
+