fix to prev

2008-10-01 12:57:30 +00:00
parent d3c7a63353
commit 7b30a375cc
1 changed files with 2 additions and 2 deletions
--- a/harbour/contrib/hbct/ctmisc.prg
+++ b/harbour/contrib/hbct/ctmisc.prg
@@ -71,8 +71,8 @@ FUNCTION CENTER( c, n, p, lMode )
   DEFAULT c TO ""

   IF ISLOGICAL( p )
-      lMode := c
-      c := NIL
+      lMode := p
+      p := NIL
   ELSE
      DEFAULT lMode TO .F.
   ENDIF