From 1daa4ee6c55e28445944941f14adb1316166d191 Mon Sep 17 00:00:00 2001
From: Przemyslaw Czerpak <druzus@priv.onet.pl>
Date: Sun, 7 Mar 2010 11:02:01 +0000
Subject: [PATCH] 2010-03-07 12:00 UTC+0100 Przemyslaw Czerpak
 (druzus/at/priv.onet.pl)   * harbour/contrib/xhb/tframe.prg     % small
 optimization

---
 harbour/ChangeLog              |  4 ++++
 harbour/contrib/xhb/tframe.prg | 16 ++++++----------
 2 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 608fa7ec52..4a06985490 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,10 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2010-03-07 12:00 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/contrib/xhb/tframe.prg
+    % small optimization
+
 2010-03-07 11:47 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
   * src/vm/hvm.c
     ! Adjustment to symEval declaration after last change.
diff --git a/harbour/contrib/xhb/tframe.prg b/harbour/contrib/xhb/tframe.prg
index adec612b35..6b56e95192 100644
--- a/harbour/contrib/xhb/tframe.prg
+++ b/harbour/contrib/xhb/tframe.prg
@@ -110,12 +110,10 @@ METHOD StartSet( aRows, aCols, onLoad, onUnload ) CLASS THtmlFrameSet
       cStr += ' rows="'
 
       FOR EACH cItem in aRows
-
-         IF cItem:__enumIndex() < Len( aRows )
-            cStr += cItem + ","
-         ELSE
-            cStr += cItem
+         IF cItem:__enumIndex() > 1
+            cStr += ","
          ENDIF
+         cStr += cItem
       NEXT
 
       cStr += '"'
@@ -126,12 +124,10 @@ METHOD StartSet( aRows, aCols, onLoad, onUnload ) CLASS THtmlFrameSet
       cStr += ' cols="'
 
       FOR EACH cItem IN aCols
-
-         IF cItem:__enumIndex() < Len( aCols )
-            cStr += cItem + ","
-         ELSE
-            cStr += cItem
+         IF cItem:__enumIndex() > 1
+            cStr += ","
          ENDIF
+         cStr += cItem
       NEXT
 
       cStr += '"'