1 files changed, 67 insertions, 0 deletions
diff --git a/tvision/examples/sdlg2/main.cpp b/tvision/examples/sdlg2/main.cpp
new file mode 100644
index 0000000..6bd2815
--- /dev/null
+++ b/tvision/examples/sdlg2/main.cpp
@@ -0,0 +1,67 @@
+/*
+
+Author:	Patrick Reilly
+Date:  	9/16/93
+
+	This is a demo program to demonstrate using the ScrollDialog (and
+ScrollGroup) classes. Released to the public domain. Use at your own risk <g>.
+
+*/
+
+#define Uses_ScrollDialog
+	#define Uses_TDialog
+#define Uses_ScrollGroup
+	#define Uses_TGroup
+
+#define Uses_TStaticText
+#define Uses_TButton
+#define Uses_TInputLine
+#define Uses_TApplication
+#define Uses_TDeskTop
+#include <tv.h>
+#include "dlg.h"
+
+class TApp : public TApplication
+{
+public:
+
+	TApp();
+};
+
+static char ctrlString[] = "Control 01";
+
+TApp::TApp() : TProgInit(initStatusLine, initMenuBar, initDeskTop)
+{
+	ScrollDialog* dlg = new ScrollDialog(TRect(0,0,40,10), "Test Dialog", sbHorBar|sbVerBar);
+	dlg->options |= ofCentered;
+	dlg->flags |= wfGrow;
+
+	for(int x = 0; x < 40; x+=2)
+		{
+		if(x%10)
+			{
+			int n = x+1;
+			ctrlString[8] = '0' + (n/10);
+			ctrlString[9] = '0' + (n%10);
+			dlg->scrollGroup->insert(new TButton(TRect(0,x,13,x+2), ctrlString,100,bfNormal));
+			}
+		else
+			dlg->scrollGroup->insert(new TInputLine(TRect(0,x,10,x+1), 20));
+		}
+	dlg->scrollGroup->selectNext(False);
+	dlg->scrollGroup->setLimit(160, 40);
+
+	if(validView(dlg) != 0)
+		{
+		deskTop->execView(dlg);
+		CLY_destroy(dlg);
+		}
+}
+
+int main()
+{
+	TApp app;
+	app.run();
+	app.shutDown();
+	return 0;
+}