From cf582bd6281a5acd98c34286fb1c2dc970a5b104 Mon Sep 17 00:00:00 2001
From: cxl <cxl@f0d560ea-af0d-0410-9eb7-867de7ffcac7>
Date: Mon, 2 Nov 2009 16:54:23 +0000
Subject: [PATCH] reference: SelectFile example

git-svn-id: svn://ultimatepp.org/upp/trunk@1675 f0d560ea-af0d-0410-9eb7-867de7ffcac7
---
 reference/SelectFile/SelectFile.upp | 11 +++++++++++
 reference/SelectFile/init           |  4 ++++
 reference/SelectFile/main.cpp       | 22 ++++++++++++++++++++++
 3 files changed, 37 insertions(+)
 create mode 100644 reference/SelectFile/SelectFile.upp
 create mode 100644 reference/SelectFile/init
 create mode 100644 reference/SelectFile/main.cpp

diff --git a/reference/SelectFile/SelectFile.upp b/reference/SelectFile/SelectFile.upp
new file mode 100644
index 000000000..ebd307700
--- /dev/null
+++ b/reference/SelectFile/SelectFile.upp
@@ -0,0 +1,11 @@
+description "Demostrates the usage of FileSel Select* family of functions and classes\377";
+
+uses
+	CtrlLib;
+
+file
+	main.cpp;
+
+mainconfig
+	"" = "GUI";
+
diff --git a/reference/SelectFile/init b/reference/SelectFile/init
new file mode 100644
index 000000000..0928b063c
--- /dev/null
+++ b/reference/SelectFile/init
@@ -0,0 +1,4 @@
+#ifndef _SelectFile_icpp_init_stub
+#define _SelectFile_icpp_init_stub
+#include "CtrlLib/init"
+#endif
diff --git a/reference/SelectFile/main.cpp b/reference/SelectFile/main.cpp
new file mode 100644
index 000000000..07969bb44
--- /dev/null
+++ b/reference/SelectFile/main.cpp
@@ -0,0 +1,22 @@
+#include <CtrlLib/CtrlLib.h>
+
+using namespace Upp;
+
+GUI_APP_MAIN
+{
+	PromptOK(DeQtf(SelectFileOpen("Text files\t*.txt\nAll files\t*.*")));
+
+	PromptOK(DeQtf(SelectFileSaveAs("Text files\t*.txt\nAll files\t*.*")));
+	
+	SelectFileIn in("Text files\t*.txt");
+	if(in) {
+		int n = 0;
+		while(!in.IsEof()) {
+			in.GetLine();
+			n++;
+		}
+		PromptOK("There is " + AsString(n) + " lines in the file.");
+	}
+	
+	PromptOK("[{1} \1" + SelectLoadFile("Text files\t*.txt"));
+}