From 23d0e32411d6f6cea011e41bd87e886521ea1107 Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Mon, 4 Jun 2012 22:43:50 +0000
Subject: [PATCH] 2012-06-05 00:43 UTC+0200 Viktor Szakats (harbour syenar.net)
   * src/rtl/radiogrp.prg     % deleted '#include "common.ch"'

  * contrib/hbtip/sessid.prg
    ! playing it safe: using simple IF/ENDIF instead of HB_DEFAULT()
      on a multi-type variable

    ; NOTE: One more implication of HB_DEFAULT vs. DEFAULT ... TO ...
            is that the default expression is always evaluated with
            the former.
---
 harbour/ChangeLog                | 12 ++++++++++++
 harbour/contrib/hbtip/sessid.prg |  2 --
 harbour/src/rtl/radiogrp.prg     | 10 ++++++++--
 3 files changed, 20 insertions(+), 4 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index ac3cc9a1eb..c9657570e0 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -16,6 +16,18 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2012-06-05 00:43 UTC+0200 Viktor Szakats (harbour syenar.net)
+  * src/rtl/radiogrp.prg
+    % deleted '#include "common.ch"'
+
+  * contrib/hbtip/sessid.prg
+    ! playing it safe: using simple IF/ENDIF instead of HB_DEFAULT()
+      on a multi-type variable
+
+    ; NOTE: One more implication of HB_DEFAULT vs. DEFAULT ... TO ...
+            is that the default expression is always evaluated with
+            the former.
+
 2012-06-05 00:18 UTC+0200 Viktor Szakats (harbour syenar.net)
   * contrib\hbblat\tests\blatcmd.prg
   * contrib\hbblat\tests\blattest.prg
diff --git a/harbour/contrib/hbtip/sessid.prg b/harbour/contrib/hbtip/sessid.prg
index c729a65bbc..c0d10facc1 100644
--- a/harbour/contrib/hbtip/sessid.prg
+++ b/harbour/contrib/hbtip/sessid.prg
@@ -60,8 +60,6 @@
  *
  */
 
-#include "common.ch"
-
 #define SID_LENGTH      25
 #define BASE_KEY_STRING "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
 #define CRC_KEY_STRING  "Ak3yStR1Ng"  // Max Length must be 10 chars
diff --git a/harbour/src/rtl/radiogrp.prg b/harbour/src/rtl/radiogrp.prg
index a5b3ebd309..25f8f2edba 100644
--- a/harbour/src/rtl/radiogrp.prg
+++ b/harbour/src/rtl/radiogrp.prg
@@ -426,7 +426,10 @@ METHOD select( xValue ) CLASS RADIOGROUP
       FOR nPos := 1 TO nLen
          IF ::aItems[ nPos ]:data == xValue
 
-            hb_default( @::xBuffer, "" )
+            IF ::xBuffer == NIL
+               ::xBuffer := ""
+            ENDIF
+
             ::changeButton( ::nValue, nPos )
 
             EXIT
@@ -439,7 +442,10 @@ METHOD select( xValue ) CLASS RADIOGROUP
 
    ELSEIF cType == "N" .AND. xValue >= 1 .AND. xValue <= ::nItemCount
 
-      hb_default( @::xBuffer, 0 )
+      IF ::xBuffer == NIL
+         ::xBuffer := 0
+      ENDIF
+
       ::changeButton( ::nValue, xValue )
 
    ENDIF