1 files changed, 116 insertions, 0 deletions
diff --git a/rhtvision/examples/inplis/test.cpp b/rhtvision/examples/inplis/test.cpp
new file mode 100644
index 0000000..c92fc53
--- /dev/null
+++ b/rhtvision/examples/inplis/test.cpp
@@ -0,0 +1,116 @@
+/*
+
+  Created by L. Borobia 92-11-30
+
+  File: TEST.CPP
+
+  Testprogram to show how you can use the TInputBox.
+
+*/
+
+#include <stdio.h>
+
+#define Uses_string
+#define Uses_TProgram
+#define Uses_TApplication
+#define Uses_TRect
+#define Uses_TMenuBar
+#define Uses_TSubMenu
+#define Uses_TMenuItem
+#define Uses_TStatusLine
+#define Uses_TStatusItem
+#define Uses_TStatusDef
+#define Uses_TDeskTop
+
+#include "inplist.h"
+
+const int cmInputBox  = 100;
+
+class TMyApp : public TApplication
+ {
+  public:
+   TMyApp();
+   static TStatusLine *initStatusLine( TRect r );
+   static TMenuBar *initMenuBar( TRect r );
+   virtual void handleEvent( TEvent& event);
+   void inputBox();
+ };
+
+
+TMyApp::TMyApp() :
+    TProgInit( &TMyApp::initStatusLine,
+	       &TMyApp::initMenuBar,
+	       &TMyApp::initDeskTop
+	     )
+ {
+ }
+
+void TMyApp::handleEvent(TEvent& event)
+ {
+  TApplication::handleEvent(event);
+  if( event.what == evCommand )
+      {
+	switch( event.message.command )
+	    {
+	     case cmInputBox:
+	       inputBox();
+	      break;
+
+	     default:
+	      return;
+	    }
+	clearEvent( event );
+      }
+ }
+
+TMenuBar *TMyApp::initMenuBar( TRect r )
+ {
+  r.b.y = r.a.y + 1;
+  return new TMenuBar( r,
+     *new TSubMenu( "~D~emo", kbAltD ) +
+       *new TMenuItem( "~T~est", cmInputBox, kbNoKey, hcNoContext, "" )+
+       *new TMenuItem( "E~x~it", cmQuit, kbNoKey, hcNoContext, "Alt-X" )
+     );
+ }
+
+TStatusLine *TMyApp::initStatusLine( TRect r )
+ {
+    r.a.y = r.b.y - 1;
+    return new TStatusLine( r,
+	*new TStatusDef( 0, 0xFFFF ) +
+	    *new TStatusItem( 0, kbF10, cmMenu ) +
+	    *new TStatusItem( "~Alt-X~ Exit", kbAltX, cmQuit )
+	);
+ }
+
+void TMyApp::inputBox()
+ {
+  short i = 0;
+  const int MAXINPLN = 30;
+  ListBoxItem *v;
+  char label[MAXLABELLEN];
+  TLineCollection *list;
+  //TRect r = getExtent();
+  list = new TLineCollection(MAXINPLN,0);
+  for (i = 0; i < MAXINPLN; i++)
+   {
+    v = new ListBoxItem;
+    sprintf(label,"Label No. %d",i);
+    strcpy(v->label,label);
+    strcpy(v->value,"value");
+    list->insert(v);
+   }
+  TInputDialog *pd = new TInputDialog(TRect(0,0,50,19),"Input Box", list);
+  if (validView(pd))
+   {
+    deskTop->execView( pd );
+    CLY_destroy( pd );
+   }
+ }
+
+int main()
+ {
+  TMyApp myApp;
+  myApp.run();
+  return 0;
+ }