From af57f993030f49cd50a113893a81d97d4cb7ef41 Mon Sep 17 00:00:00 2001
From: Paul Tucker <ptucker@sympatico.ca>
Date: Sat, 7 Aug 1999 21:36:24 +0000
Subject: [PATCH] *** empty log message ***

---
 harbour/ChangeLog                  |  6 ++++++
 harbour/tests/working/Makefile     |  2 +-
 harbour/tests/working/cursrtst.prg | 24 ++++++++++++++++++++++++
 3 files changed, 31 insertions(+), 1 deletion(-)
 create mode 100644 harbour/tests/working/cursrtst.prg

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index d3d098e83a..0b23eab8ed 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,9 @@
+19990808-17:25 EDT Paul Tucker <ptucker@sympatico.ca>
+   * tests/working/Makefile
+     -debugger
+     +cursrtst
+   + tests/working\cursrtst.prg
+
 19990808-15:00 EDT Paul Tucker <ptucker@sympatico.ca>
    * makefile.vc
      + source/rtl/tbrowse.prg
diff --git a/harbour/tests/working/Makefile b/harbour/tests/working/Makefile
index 6a6f779b7e..4f66f78ab2 100644
--- a/harbour/tests/working/Makefile
+++ b/harbour/tests/working/Makefile
@@ -42,11 +42,11 @@ PRG_SOURCES=\
 	comments.prg \
 	copyfile.prg \
         curdirt.prg \
+        cursrtst.prg \
 	dates.prg \
 	dates2.prg \
 	dates3.prg \
 	dates4.prg \
-        debugger.prg \
 	debugtst.prg \
 	descend.prg \
 	dirtest.prg \
diff --git a/harbour/tests/working/cursrtst.prg b/harbour/tests/working/cursrtst.prg
new file mode 100644
index 0000000000..6d5266265f
--- /dev/null
+++ b/harbour/tests/working/cursrtst.prg
@@ -0,0 +1,24 @@
+/*
+ * $Id$
+ */
+
+proc main
+Local x
+? "This lists the cursor modes, along with the expected shape"
+? "Press a key after each example"
+?
+for x := 0 to 4
+  CursTest( x )
+next
+? "Note: In Windows Console mode, Special2 can not be emulated (it is 2/3 size)"
+
+SetCursor(1)
+
+Proc CursTest( nCurs )
+Local aTypes := { "None",    "Underline", "HalfBlock", "FullBlock",   "Upper Half"}
+Local aNames := { "SC_NONE", "SC_NORMAL", "SC_INSERT", "SC_SPECIAL1", "SC_SPECIAL2"}
+
+SetCursor( nCurs )
+++nCurs
+? Padr(aNames[nCurs],11), PadR(aTypes[nCurs],11), Str(SetCursor(),3)
+Inkey(0)