INTEGRATION: CWS qadev0xa (1.3.20); FILE MERGED

2003/07/04 13:57:08 cn 1.3.20.1: CHG: #110380# fix for XSortable

qadevOOo/tests/basic/mod/sc/ScCellRangeObj/sc_ScCellRangeObj.xba

@@ -7,9 +7,9 @@
 '*
 '*  $RCSfile: sc_ScCellRangeObj.xba,v $ 
 '*
-'*  $Revision: 1.3 $ 
+'*  $Revision: 1.4 $ 
 '*
-'*  last change:$Date: 2003-02-28 15:47:10 $ 
+'*  last change:$Date: 2003-08-07 15:06:54 $ 
 '*
 '*  The Contents of this file are made available subject to the terms of
 '*  either of the following licenses
@@ -122,19 +122,22 @@ End Sub
 
 Function modifyDescriptor(descr As Variant) As Variant
 On Error Goto ErrHndl
-    Dim i As Integer, oCell As Object
-
+    Dim i As Integer, n as Integer
+    Dim oCell As Object
+    Dim vFields(0) as new com.sun.star.table.TableSortField
+    
     for i = 0 to aCellSeries(0) - 1
         oCell = oObj.getCellByPosition(0, i)
         oCell.String = "" + (aCellSeries(0) - i)
+        oCell.setFormula(aCellSeries(0) - i)
     next i
-
+    'ShowNameValuePair(descr)
+    vFields(0).IsCaseSensitive = false
+    vFields(0).IsAscending = true
+    vFields(0).FieldType = com.sun.star.table.TableSortFieldType.ALPHANUMERIC    
     for i = 0 to ubound(descr)
-        if descr(i).Name = "SortAscending" then descr(i).Value = true
-        if descr(i).Name = "SortColumns" then descr(i).Value = true
-
-        if descr(i).Name = "BindFormatsToContent" then descr(i).Value = true
-        if descr(i).Name = "IsUserListEnabled" then descr(i).Value = FALSE
+        if descr(i).Name = "IsSortColumns" then descr(i).Value = false
+        if descr(i).Name = "SortFields" then descr(i).Value = vFields()
     next i
 
     modifyDescriptor() = descr
@@ -159,7 +162,7 @@ On Error Goto ErrHndl
     checkSort() = bOK
 Exit Function
 ErrHndl:
-    Out.Log("Exception in SwXTextTable.checkSort() :")
+    Out.Log("Exception in ScCellRangeObj.checkSort() :")
     Test.Exception()
 end Function