*** empty log message ***

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

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 \

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)