diff --git a/uppdev/ShowQtf/ShowQtf.h b/uppdev/ShowQtf/ShowQtf.h
new file mode 100644
index 000000000..1feb82768
--- /dev/null
+++ b/uppdev/ShowQtf/ShowQtf.h
@@ -0,0 +1,21 @@
+#ifndef _ShowQtf_ShowQtf_h
+#define _ShowQtf_ShowQtf_h
+
+#include <CtrlLib/CtrlLib.h>
+
+using namespace Upp;
+
+class ShowQtf : public TopWindow {
+	DocEdit      text;
+	RichTextCtrl qtf;
+	Splitter     split;
+	
+	void Text();
+	
+public:
+	typedef ShowQtf CLASSNAME;
+	ShowQtf();
+};
+
+#endif
+
diff --git a/uppdev/ShowQtf/ShowQtf.upp b/uppdev/ShowQtf/ShowQtf.upp
new file mode 100644
index 000000000..dd4adb0b2
--- /dev/null
+++ b/uppdev/ShowQtf/ShowQtf.upp
@@ -0,0 +1,10 @@
+uses
+	CtrlLib;
+
+file
+	ShowQtf.h,
+	main.cpp;
+
+mainconfig
+	"" = "GUI";
+
diff --git a/uppdev/ShowQtf/init b/uppdev/ShowQtf/init
new file mode 100644
index 000000000..7dc9bb7e8
--- /dev/null
+++ b/uppdev/ShowQtf/init
@@ -0,0 +1,4 @@
+#ifndef _ShowQtf_icpp_init_stub
+#define _ShowQtf_icpp_init_stub
+#include "CtrlLib/init"
+#endif
diff --git a/uppdev/ShowQtf/main.cpp b/uppdev/ShowQtf/main.cpp
new file mode 100644
index 000000000..35930ea53
--- /dev/null
+++ b/uppdev/ShowQtf/main.cpp
@@ -0,0 +1,19 @@
+#include "ShowQtf.h"
+
+void ShowQtf::Text()
+{
+	qtf <<= ~text;
+}
+
+ShowQtf::ShowQtf()
+{
+	text <<= THISBACK(Text);
+	split.Vert(text, qtf);
+	Add(split.SizePos());
+}
+
+GUI_APP_MAIN
+{
+	ShowQtf().Run();
+}
+