2012-10-02 11:26 UTC+0200 Viktor Szakats (harbour syenar.net)

* contrib/hbnf/popadder.prg
  * src/rtl/listbox.prg
  * src/rtl/scrollbr.prg
  * src/rtl/tmenuitm.prg
  * tests/db_brows.prg
    ! reverted to use plain Chr() for low-ASCII (0-31) drawing chars
      (hb_UTF8ToStr*() converts these to "?", which is expected)

harbour/ChangeLog

@@ -16,6 +16,15 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2012-10-02 11:26 UTC+0200 Viktor Szakats (harbour syenar.net)
+  * contrib/hbnf/popadder.prg
+  * src/rtl/listbox.prg
+  * src/rtl/scrollbr.prg
+  * src/rtl/tmenuitm.prg
+  * tests/db_brows.prg
+    ! reverted to use plain Chr() for low-ASCII (0-31) drawing chars
+      (hb_UTF8ToStr*() converts these to "?", which is expected)
+
 2012-10-02 10:58 UTC+0200 Viktor Szakats (harbour syenar.net)
   * tests/tstdspac.prg
     ! fixed two problems

harbour/contrib/hbnf/popadder.prg

@@ -252,7 +252,7 @@ FUNCTION FT_Adder()
       CASE ( nKey == 83 .OR. nKey == 115 ) .AND. lTape  // <S> Scroll tape display
          IF nTotTran > 16                  // We need to scroll
             SetColor( "GR+/W" )
-            @ 21 + nTopOS, 8 + nTapeSpace SAY hb_UTF8ToStr( " ↑↓-SCROLL  <ESC>-QUIT " )
+            @ 21 + nTopOS, 8 + nTapeSpace SAY " " + /* LOW-ASCII "↑↓" */ Chr( 24 ) + Chr( 25 ) + "-SCROLL  <ESC>-QUIT "
             SetColor( "N/W,W+/N" )
             AChoice( 5 + nTopOS, 7 + nTapeSpace, 20 + nTopOS, 32 + nTapeSpace, aTrans, .T. , ;
                "_ftAdderTapeUDF", nTotTran, 20 )
@@ -358,7 +358,7 @@ STATIC FUNCTION _ftAddScreen( aAdder )
    @  8 + nTopOS, nCol SAY "-"
    @ 13 + nTopOS, nCol SAY "+"
    @ 18 + nTopOS, nCol SAY "="
-   @ 19 + nTopOS, nCol SAY hb_UTF8ToStr( "♦" )
+   @ 19 + nTopOS, nCol SAY Chr( 4 ) /* LOW-ASCII "♦" */
    _ftSetWinColor( W_CURR, W_PROMPT )
    @ 3 + nTopOS, 6 + nAddSpace, 5 + nTopOS, 27 + nAddSpace BOX B_DOUBLE
 
@@ -1181,7 +1181,7 @@ STATIC FUNCTION _ftQuest( cMessage, xVarVal, cPict, bValid, lNoESC, nWinColor, n
    nRight      := nLeft + nWide + 4
 
    _ftPushWin( nTop, nLeft, nBottom, nRight, "QUESTION ?", iif( HB_ISSTRING( xVarVal ) ;
-      .AND. nVarLen > nWide, hb_UTF8ToStr( "← scroll →" ), NIL ), nWinColor )
+      .AND. nVarLen > nWide, /* LOW-ASCII "←" */ Chr( 27 ) + " scroll " + Chr( 26 ) /* LOW-ASCII "→" */, NIL ), nWinColor )
    DISPMESSAGE cMessage, nTop + 1, nLeft + 2, nBottom - 1, nRight - 2
 
    oNewGet := GetNew( iif( lGetOnNextLine,Row() + 1,Row() ), ;

harbour/src/rtl/listbox.prg

@@ -148,7 +148,7 @@ CREATE CLASS LISTBOX FUNCTION HBListBox
    VAR cMessage   INIT ""
    VAR nRight
    VAR bSBlock
-   VAR cStyle     INIT hb_UTF8ToStr( "▼" )
+   VAR cStyle     INIT Chr( 31 ) /* LOW-ASCII "▼" */
    VAR cTextValue INIT ""
    VAR nTop
    VAR nTopItem   INIT 0

harbour/src/rtl/scrollbr.prg

@@ -391,10 +391,10 @@ METHOD CalcThumbPos() CLASS SCROLLBAR
 
 /* New definitions for better coding. These are screen codepage dependent,
    but can be changed with the setStyle method. */
-#define SB_UPARROW      hb_UTF8ToStr( "↑" )
-#define SB_DNARROW      hb_UTF8ToStr( "↓" )
-#define SB_RIGHTARROW   hb_UTF8ToStr( "→" )
-#define SB_LEFTARROW    hb_UTF8ToStr( "←" )
+#define SB_UPARROW      Chr( 24 ) /* LOW-ASCII "↑" */
+#define SB_DNARROW      Chr( 25 ) /* LOW-ASCII "↓" */
+#define SB_RIGHTARROW   Chr( 27 ) /* LOW-ASCII "→" */
+#define SB_LEFTARROW    Chr( 26 ) /* LOW-ASCII "←" */
 
 #define SB_THUMB        hb_UTF8ToStr( "░" )
 #define SB_TRACK        hb_UTF8ToStr( "▓" )

harbour/src/rtl/tmenuitm.prg

@@ -90,7 +90,7 @@ CREATE CLASS MENUITEM FUNCTION HBMenuItem
    VAR nID
    VAR cMessage
    VAR nShortcut
-   VAR cStyle     INIT hb_UTF8ToStr( "√►" )
+   VAR cStyle     INIT hb_UTF8ToStr( "√" ) + Chr( 16 ) /* LOW-ASCII "►" */
 
 ENDCLASS
 

harbour/tests/db_brows.prg

@@ -149,7 +149,7 @@ FUNCTION DBFLIST( mslist, x1, y1, x2, y2, title, maskey )
       PRIVATE str_barbox := hb_UTF8ToStrBox( "│" )
    ENDIF
    IF !( Type( "str_bar" ) == "C" )
-      PRIVATE str_bar := hb_UTF8ToStr( "■" )
+      PRIVATE str_bar := /* LOW-ASCII "▼▲" */ Chr( 31 ) + Chr( 30 ) + hb_UTF8ToStr( "■" )
    ENDIF
    LI_Y1 := y1
    LI_X1 := x1