From 342135d728d26b31123bcb9f003329a629212c0a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=E4=BE=9D=E7=91=AA=E8=B2=93?= Date: Fri, 9 Sep 2016 15:06:01 +0800 Subject: [PATCH] Renamed the project from Stats to StatTool. --- 1CorRel.vb | 2 +- 2PTTest.vb | 2 +- 3ITTest.vb | 2 +- 4ANOVA.vb | 2 +- 5Chi2GoF.vb | 2 +- 9Utils.vb | 4 ++-- 6 files changed, 7 insertions(+), 7 deletions(-) diff --git a/1CorRel.vb b/1CorRel.vb index 011311d..8342040 100644 --- a/1CorRel.vb +++ b/1CorRel.vb @@ -24,7 +24,7 @@ Sub subRunCorrelation As Object Dim oSheet As Object, mRanges As Object Dim sExisted As String, nResult As Integer - DialogLibraries.loadLibrary "Stats" + DialogLibraries.loadLibrary "StatTool" ' Asks the user for the data range oRange = fnAskDataRange (ThisComponent) diff --git a/2PTTest.vb b/2PTTest.vb index 142f8cc..3bf7ebe 100644 --- a/2PTTest.vb +++ b/2PTTest.vb @@ -24,7 +24,7 @@ Sub subRunPairedTTest As Object Dim oSheet As Object, mRanges As Object Dim sExisted As String, nResult As Integer - DialogLibraries.loadLibrary "Stats" + DialogLibraries.loadLibrary "StatTool" ' Asks the user for the data range oRange = fnAskDataRange (ThisComponent) diff --git a/3ITTest.vb b/3ITTest.vb index 8ce16e6..ef2eab1 100644 --- a/3ITTest.vb +++ b/3ITTest.vb @@ -24,7 +24,7 @@ Sub subRunIndependentTTest As Object Dim oSheet As Object, mRanges As Object Dim sExisted As String, nResult As Integer - DialogLibraries.loadLibrary "Stats" + DialogLibraries.loadLibrary "StatTool" ' Asks the user for the data range oRange = fnAskDataRange (ThisComponent) diff --git a/4ANOVA.vb b/4ANOVA.vb index 11738de..abb8a93 100644 --- a/4ANOVA.vb +++ b/4ANOVA.vb @@ -24,7 +24,7 @@ Sub subRunANOVA As Object Dim oSheet As Object, mRanges As Object Dim sExisted As String, nResult As Integer - DialogLibraries.loadLibrary "Stats" + DialogLibraries.loadLibrary "StatTool" ' Asks the user for the data range oRange = fnAskDataRange (ThisComponent) diff --git a/5Chi2GoF.vb b/5Chi2GoF.vb index c2816c1..0a8d4b9 100644 --- a/5Chi2GoF.vb +++ b/5Chi2GoF.vb @@ -24,7 +24,7 @@ Sub subRunChi2GoodnessOfFit As Object Dim oSheet As Object, mRanges As Object Dim sExisted As String, nResult As Integer - DialogLibraries.loadLibrary "Stats" + DialogLibraries.loadLibrary "StatTool" ' Asks the user for the data range oRange = fnAskDataRange (ThisComponent) diff --git a/9Utils.vb b/9Utils.vb index b9b466c..6cb439d 100644 --- a/9Utils.vb +++ b/9Utils.vb @@ -93,7 +93,7 @@ Function fnSpecifyData (oRange As Object, sPrompt1 As String, sPrompt2 As String Next nI ' Runs the dialog - oDialog = CreateUnoDialog (DialogLibraries.Stats.Dlg2SpecData) + oDialog = CreateUnoDialog (DialogLibraries.StatTool.Dlg2SpecData) oTextModel = oDialog.getControl ("txtPrompt1").getModel oTextModel.setPropertyValue ("Label", sPrompt1) oListModel1 = oDialog.getControl ("lstData1").getModel @@ -143,7 +143,7 @@ Function fnAskDataRange (oDoc As Object) As Object ' Loop until we finds good data Do While sPrompt <> "" ' Runs the dialog - oDialog = CreateUnoDialog (DialogLibraries.Stats.Dlg1AskRange) + oDialog = CreateUnoDialog (DialogLibraries.StatTool.Dlg1AskRange) oTextModel = oDialog.getControl ("txtPrompt").getModel oTextModel.setPropertyValue ("Label", sPrompt) oEditModel = oDialog.getControl ("edtCellsData").getModel