diff options
Diffstat (limited to 'testautomation/global/required/includes/g_numberformatter1.inc')
| -rw-r--r-- | testautomation/global/required/includes/g_numberformatter1.inc | 787 |
1 files changed, 0 insertions, 787 deletions
diff --git a/testautomation/global/required/includes/g_numberformatter1.inc b/testautomation/global/required/includes/g_numberformatter1.inc deleted file mode 100644 index 2539e12455e5..000000000000 --- a/testautomation/global/required/includes/g_numberformatter1.inc +++ /dev/null @@ -1,787 +0,0 @@ -'encoding UTF-8 Do not remove or change this line! -'************************************************************************** -' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -' -' Copyright 2000, 2010 Oracle and/or its affiliates. -' -' OpenOffice.org - a multi-platform office productivity suite -' -' This file is part of OpenOffice.org. -' -' OpenOffice.org is free software: you can redistribute it and/or modify -' it under the terms of the GNU Lesser General Public License version 3 -' only, as published by the Free Software Foundation. -' -' OpenOffice.org is distributed in the hope that it will be useful, -' but WITHOUT ANY WARRANTY; without even the implied warranty of -' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -' GNU Lesser General Public License version 3 for more details -' (a copy is included in the LICENSE file that accompanied this code). -' -' You should have received a copy of the GNU Lesser General Public License -' version 3 along with OpenOffice.org. If not, see -' <http://www.openoffice.org/license.html> -' for a copy of the LGPLv3 License. -' -'/************************************************************************ -'* -'* owner : wolfram.garten@oracle.com -'* -'* short description : update and resouce test for numberformatter -'* -'\*********************************************************************** - -'///Setting Variables.. - - dim sSeperatorCurr as string ' which kind of Separator is used - dim iCategoryCount as integer ' number of Category entries - dim sCategoryText as string ' names of Category entries - dim sFormatText as string ' variable for format string text - dim sFormatCode as string ' variable for format code text line - dim iLanguageCount as integer ' number of language entries - dim sLanguageText as string ' name sof language entries - dim iCount as integer ' count variable for/next - dim sCell as string ' Cell-Content - -'------------------------------------------------------------------------------- - -'///Setting Preconditions for tests -sub sNumberformatterPreconditions - - printlog "Setting up some preconditions for starting the testcases now.." - - select case gApplication - case "WRITER" : - '/// Case Writer: - Kontext "DocumentWriter" - printlog "Application is " & gApplication - '/// Press CTRL+F12 to insert via shortcut a table - DocumentWriter.TypeKeys "<MOD1 F12>", true - Kontext "TabelleEinfuegenWriter" - '/// Leave the insert table dialog with OK - TabelleEinfuegenWriter.OK - printlog "Table inserted" - Kontext "DocumentWriter" - '/// Type 0 in the first cell - DocumentWriter.TypeKeys "0", true - Call sNumberformatterOpenDialog 'opening Dialog - - case "CALC" : - '/// Case Calc: - '/// Calc with Chart in inplace mode: - Kontext "DokumentChart" - if DokumentChart.Exists(1) then - printlog "Application is " & gApplication & " with inserted Chart." - DokumentChart.TypeKeys "<TAB>",2,true 'selecting data serie - '/// Opening Number Formatter Dialog using Menu - DokumentChart.UseMenu - hMenuSelectNr(5) - hMenuSelectNr(1) - Kontext - '/// Selecting correct Tab page - active.SetPage TabDataSeriesLabels - Kontext "TabDataSeriesLabels" - AsPercentage.Check - PercentageFormat.Click - Kontext "TabChartAxisNumbers" - Sourceformat.uncheck - '/// fLocaleString function gets English from t_locale_strings1.inc - Language.Select (fLocaleString ("LocaleNumFormLanEng")) - - else - '/// Calc without Chart: - Kontext "DocumentCalc" 'just Calc without Chart - printlog "Application is " & gApplication - '/// Inserting 0 in first cell - DocumentCalc.TypeKeys "0", true - DocumentCalc.TypeKeys "<RETURN>", true - DocumentCalc.TypeKeys "<UP>", true - Call sNumberformatterOpenDialog 'opening Dialog - endif - - case else : warnlog "This testcase can only be tested in Writer,Calc or Chart!" - end select -end sub - -'------------------------------------------------------------------------------- - -sub sNumberformatterOpenDialog - -select case gApplication - case "WRITER" : - '/// Case Writer: - Kontext "DocumentWriter" - '///Open Context Menu - DocumentWriter.TypeKeys "<SHIFT F10>", true - sleep (1) - '///Open Number Formatter - DocumentWriter.TypeKeys "<DOWN>",11, true - sleep (1) - DocumentWriter.TypeKeys "<RETURN>", true - sleep (1) - printlog "Opening number formatter dialog." - Kontext "TabChartAxisNumbers" - Language.Select (fLocaleString ("LocaleNumFormLanEng")) - - case "CALC" : - '/// Calc with Chart in inplace mode - Kontext "DokumentChart" - if DokumentChart.Exists(1) then - printlog "Application is " & gApplication & " with inserted Chart." - '/// Opening Numberformatter using menu - DocumentCalc.TypeKeys "<TAB>",2,true 'selecting data serie - DocumentCalc.UseMenu - hMenuSelectNr(5) - hMenuSelectNr(1) - Kontext "TabDataSeriesLabels" - AsPercentage.Check - PercentageFormat.Click - Kontext "TabChartAxisNumbers" - Sourceformat.uncheck - Language.Select (fLocaleString ("LocaleNumFormLanEng")) - - else - '/// Calc - Kontext "DocumentCalc" - '///Open Context Menu - DocumentCalc.TypeKeys "<SHIFT F10>", true - '///Open Number Format - DocumentCalc.TypeKeys "<DOWN>",3, true - DocumentCalc.TypeKeys "<RETURN>", true - Kontext - Active.SetPage TabChartAxisNumbers - printlog "Opening number formatter dialog." - Kontext "TabChartAxisNumbers" - '/// fLocaleString function gets English from t_locale_strings1.inc - Language.Select (fLocaleString ("LocaleNumFormLanEng")) - endif - - case else : warnlog "This testcase can only be tested in Writer and Calc!" - end select -end sub - -'------------------------------------------------------------------------------ - -testcase tNumberformatterPre - '/// Setting some preconditions for the testcases: - '/// Setting Measuring to cm by calling fSetMeasurementToCM - Call fSetMeasurementToCM - - '///Getting the decimal separator with GetDecimalSeperator - printlog "looking for used Separator..." - sSeperatorCurr = GetDecimalSeperator -endcase - -'------------------------------------------------------------------------------ - -testcase tNumberformatter - - - 'This part is only for testing a testrun with Chart and can be deleted when checked in!!! - 'Call hNewDocument - 'DocumentCalc.UseMenu - 'hMenuSelectNr(4) - 'hMenuSelectNr(17) - 'hMenuSelectNr(1) - 'Kontext "OLEObjektInsert" - 'OLEObjektInsert.OK - 'printlog "Chart inserted" - 'Kontext "DokumentChart" - - 'Check this one out if above is checked in: - '/// Calling new document - Call hNewDocument - - '/// Calling Subroutine for getting preconditions - Call sNumberformatterPreconditions - - Kontext "TabChartAxisNumbers" - '/// Checking if Category entries in dialog are correct - iCategoryCount = Category.GetItemCount - '/// In the Category section list box 11 entries should be available. - if iCategoryCount = 11 then - printlog "All 11 entries present." - else - warnlog "Warning: Only " & iCategoryCount & " listed!" - endif - - 'Checking if listbox comes up when switching category to Currency - '/// Select Currency in the Category section list box (entry 5) - Category.Select(5) - '/// In the Format section - '/// A drop down list box should be visible - if FormatCurrency.IsVisible then - printlog "FormatCurrency available" - else - warnlog "Drop Down listbox did not come up" - endif - - 'Checking if ZahlenFormat fits to selected Category - '/// The content should match to the category currency - FormatString.Select(1) 'selecting entry - sFormatText = FormatString.GetSelText 'getting text into variable - 'comparing - '/// Comparing with given value "-$1,234" - if sFormatText = "-$1,234" then - printlog "Text fitting to Format: " & sFormatText - else - warnlog "Text not fitting to Format: " & sFormatText - endif - - '/// Select Percent in the Category section list box - Category.Select(4) - - '/// In the Format section - '/// No drop down list box should be visible - 'Checking if NO listbox comes up when switching category to Percent - if FormatCurrency.IsVisible then - warnlog "FormatCurrency should not be available!" - else - printlog "Drop Down listbox did not come up." - endif - - '/// The content should match to the category percent - 'Checking if ZahlenFormat fits to selected Category - FormatString.Select(1) - sFormatText = FormatString.GetSelText - if sFormatText = "-13%" then - printlog "Text fitting to Format, " & sFormatText - else - warnlog "Text not fitting to Format: " & sFormatText - endif - - '/// Set the category to All - Category.Select(1) - - '/// Choose a language Lithuanian from the drop down list box for Language - Language.Select (fLocaleString ("LocaleNumFormLanLith")) - - '/// In the Category list box the entry should Number should be selected - sCategoryText = Category.GetSelIndex - if sCategoryText = 3 then '3 = number entry in Category - printlog sCategoryText & " is selected." - else - warnlog "Wrong entry selected:" & sCategoryText & "!" - endif - - '/// In the Format list box - '/// the entry Bendras should be selected - sFormatText = FormatString.GetSelText - if sFormatText = "Bendras" then - printlog sFormatText & " is selected." - else - warnlog "Wrong entry in Format box selected: " & sformatText & "!" - endif - - '/// Select the entry -1,234 (or -1.234 depending on the locale used) - FormatString.Select(4) - - '/// Does the checkbox Thousands separator get taged ? - if ThousandsSeparator.IsChecked then - printlog "Thousands Separator checked." - else - warnlog "Warning! Thousands Separator does not get checked!" - endif - - '/// Changed the format code to #,##0 (or #.##0) ? - sFormatCode = FormatCode.GetText - if sFormatCode = "#.##0" then - sFormatCode = "#,##0" - printlog "FormatCode changed to " & sFormatCode & "." - else - sFormatCode = "#.##0" - printlog "FormatCode changed to " & sFormatCode & "." - endif - - '/// Set the Language back to Default (English (USA) and choose the category Currency. - '/// Gets the string "English" from t_locale_Strings1.inc in the correct language and sets the - '/// language box to it - Language.Select (fLocaleString ("LocaleNumFormLanEng")) - printlog "Language set to Default." - Category.Select (5) - '/// Category set to Currency - printlog "Category set to Currency." - - '/// Is the fourth entry in the format string box selected ? - if FormatString.GetSelIndex = 4 then - printlog "Fourth entry selected, good." - else - warnlog "Warning! Not the fourth entry selected!" - endif - - '/// Does the Decimal Places Spinfield change to 2? - if DecimalPlaces.GetText = "2" then - printlog "Decimal places = 2, good." - else - warnlog "Warning: Decimal places is not 2!" - endif - - '/// are the check boxes Negative numbers red and Thousands separator tagged ? - if NegativNumbersRed.IsChecked then - printlog "Negative numbers red is checked." - else - warnlog "Warning: Negative numbers red is NOT checked!" - endif - - if ThousandsSeparator.IsChecked then - printlog "ThousandsSeparator is checked." - else - warnlog "Warning: ThousandsSeparator is NOT checked!" - endif - - '/// Change the Language field under Format to $ English (USA) if it is not set to this value yet. - if FormatCurrency.GetSelText = "$ " & (fLocaleString ("LocaleNumFormLanEng")) then - printlog "Format already set to English." - else - printlog "Setting Format to English..." - '/// Getting correct L10N string from global/t_local_strings1.inc - FormatCurrency.Select "$ " & (fLocaleString ("LocaleNumFormLanEng")) - endif - - '/// Compares the Format String match this one : [$$-409]#,##0.00;[RED]-[$$-409]#,##0.00 - sFormatCode = FormatCode.GetText - if sFormatCode = "[$$-409]#,##0.00;[RED]-[$$-409]#,##0.00" then - printlog "Format Code is correct: " & sFormatCode - else - warnlog "Format Code wrong: " & sFormatCode & "!" - endif - - '/// Change the Language Dropdown list box to show Dutch (Netherlands). - printlog "Selecting Dutch..." - Language.Select (fLocaleString ("LocaleNumFormLanDutch")) - - '/// Has the content of the format Listbox changed to show also Euro and Netherlands old fl currency values ? - FormatString.Select (15) - sFormatText = FormatString.GetSelText - '/// Checking for the string "fl 1.234-" - if sFormatText = "fl 1.234-" then - printlog "Format String also shows " & sFormatText - else - warnlog "Format String does not show fl 1.234- but " & sFormatText - endif - - '/// Reset the language to Default and change the Category to Date - Language.Select (fLocaleString ("LocaleNumFormLanEng")) - printlog "Language set to English." - Category.Select (6) - printlog "Category set to Currency." - - '/// Checking if the Options Decimal places, leading zeroes, negative numnbers red, - '/// thousands seperator and so on are disabled ? - if DecimalPlaces.isEnabled = False AND LeadingZeroes.isEnabled = False AND NegativNumbersRed.isEnabled = False AND ThousandsSeparator.isEnabled = False then - printlog "Options disabled." - else - warnlog "Not all options disabled!" - endif - - '/// Checking the Date formats in the format section ? - sFormatText = FormatString.GetSelText - if sFormatText = "12/31/99" then - printlog "Format is correctly set to Date, " & sFormatText - else - warnlog "Format NOT correct: " & sFormatText - endif - - '/// Change the Category to Time. Does the Format List box show time formats ? - Category.Select (7) - printlog "Category Time selected." - FormatString.Select(1) - sFormatText = FormatString.GetSelText - if sFormatText = "13:37" then - printlog "Format is correctly set to time, " & sFormatText - else - warnlog "Format NOT correct: " & sFormatText - endif - - '/// Change the Category to Scientific. Are there two formats shown ? - Category.Select (8) - printlog "Category Scientific selected." - sFormatText = FormatString.GetSelText - if FormatString.GetSelText = "-1.23E+003" then - printlog "Format is correctly set to Scientific, " & sFormatText - else - warnlog "Format NOT correct: " & sFormatText - endif - - '/// Change to the Category Fraction. Are there Fraction formats shown ? - Category.Select (9) - printlog "Category Fraction selected." - sFormatText = FormatString.GetSelText - if sFormatText = "-1234 1/8" then - printlog "Format is correctly set to Fraction, " & sFormatText - else - warnlog "Format NOT correct: " & sFormatText - endif - - '/// Change to Boolean Value. Is there one entry showing in the format section saying TRUE ? - Category.Select (10) - printlog "Category Boolean Value selected." - if FormatString.GetSelText = "TRUE" then - printlog "Format is correctly set to Boolean Value." - else - warnlog "Format NOT correct!" - endif - - '/// Change to Category Text. Is there an @-sign shown in the Format section ? - Category.Select (11) - printlog "Category Text selected." - if FormatString.GetSelText = "@" then - printlog "Format is correctly set to Text." - else - warnlog "Format NOT correct!" - endif - - '/// Closing Number Formatter Dialog - printlog "Closing number formatter dialog..." - if TabChartAxisNumbers.exists(1) then - TabChartAxisNumbers.Cancel - else - printlog "No dialog left, ok." - endif - - '/// Closing Data Series Dialog - Kontext "TabDataSeriesLabels" - printlog "Closing data series dialog..." - if TabDataSeriesLabels.exists(1) then - TabDataSeriesLabels.Cancel - else - printlog "No dialog left, ok." - endif - '/// Closing document - Call hCloseDocument -endcase - -'------------------------------------------------------------------------------- - -testcase tUserDefinedNumberformatter - '/// Open an new doc for writer and calc - '/// for chart this should be disabled - Call hNewDocument 'opening new doc - - '/// Start with the step 2. under preconditions - Call sNumberformatterPreconditions '/Calling Subroutine for getting preconditions - - '/// Change to Category User-defined - Kontext "TabChartAxisNumbers" - Language.Select (fLocaleString ("LocaleNumFormLanEng")) - Category.Select(2) - printlog "Selecting Category user-defined." - - if AddButton.IsEnabled then - warnlog "Button should be disabled!" - else - printlog "Button disabled before typing, good." - endif - - '/// Enter the following Format string into the Format code line : [~jewish]yyyy-mm-dd and click on the green confirmation hook. - FormatCode.SetText "[~jewish]yyyy-mm-dd" - printlog "Entering text in Format Code line..." - - '/// Did this Icon change from grey to green as you began typing ? - if AddButton.IsEnabled then - AddButton.Click - printlog "Add Button clicked." - else - warnlog "AddButton is not enabled." - endif - - '/// Changed the Category from User-defined to Date ? - if Category.GetSelIndex = 6 then - printlog "Category changed to Date, correct." - else - warnlog "Category must change to Date." - endif - - '/// Changed the Format Preview from 05/18/03 to 5663-02-21 ? - QAErrorLog "#i84085#-Number formatter: Preview box cannot be accessed by testool" - - '/// Change back to User-defined and select the Format entered previously. - Category.Select(2) - printlog "Changed to User-defined." - FormatString.Select(1) - 'qaerrorlog "#i83551#-Bad focus behaviour in number formatter dialog." - '/// Click on the little note button next to the format code line. Can you enter a comment now into a newly visible line under the format code line ? - EditCommentButton.Click - if Comment.IsEnabled then - printlog "Comment Field made writable." - Comment.SetText "Test-Text" - else - warnlog "Comment Field not made writable!" - endif - - '/// Can you close this line by hitting the note button again and is the comment kept ? - EditCommentButton.Click - - '/// Is the third Icon in the Format Code line (the X) colored Red ? - if RemoveButton.IsEnabled then - printlog "Remove button is active." - else - warnlog "Remove button not active!" - endif - - '/// Click on the Red X-Icon. Did the Category change to Date and the Format to the default one for the given locale (the third one from top for Englisch (USA)) ? - RemoveButton.Click - '/// Change back to the User-defined category. Is the previously created Number format still available ? - Category.Select(2) - - '/// Closing Number Formatter Dialog - printlog "Closing number formatter dialog..." - if TabChartAxisNumbers.exists(1) then - TabChartAxisNumbers.Cancel - else - printlog "No dialog left, ok." - endif - - '/// Closing Data Series Dialog - Kontext "TabDataSeriesLabels" - printlog "Closing data series dialog..." - if TabDataSeriesLabels.exists(1) then - TabDataSeriesLabels.Cancel - else - printlog "No dialog left, ok." - endif - '/// Closing Document - Call hCloseDocument -endcase - -'------------------------------------------------------------------------------- - -testcase tButtonsNumberformatter - printlog "Testing some buttons now..." - '/// Opening new document - Call hNewDocument 'opening new doc - printlog "Setting some preconditions" - Call sNumberformatterPreconditions '/Calling Subroutine for getting preconditions - '/// Number format opened - Kontext "TabChartAxisNumbers" - '/// Change to Category Date - Category.Select (6) - printlog "Changing to date..." - - '/// Click on Cancel. Does the Number formatter dialog get closed ? - TabChartAxisNumbers.Cancel 'canceling Dialog - if TabChartAxisNumbers.Exists(1) then - warnlog "Dialog should have been closed now." - else - printlog "Ok, Dialog closed." - endif - - '/// Open the Number formatter dialog again. Press the ESC key on the Keyboard. Does the dialog close ? - Call sNumberformatterOpenDialog 'opening Dialog - printlog "testing closing with ESC." - Kontext "TabChartAxisNumbers" - if TabChartAxisNumbers.Exists(1) then - printlog "Dialog should be open now." - else - warnlog "Warning, Dialog not opened." - endif - Kontext "TabChartAxisNumbers" - TabChartAxisNumbers.TypeKeys "<ESCAPE>", true 'using Escape to close the Dialog - sleep (1) - if TabchartAxisNumbers.Exists(1) then - warnlog "ESC should have closed the dialog..." - else - printlog "Fine, Dialog closed." - endif - - '/// Open the Number formatter dialog again. Change to Category Date. Click on Ok. - '/// Does the dialog close and shows the cell you have formatted the date 12/30/99 ? - Call sNumberformatterOpenDialog 'opening Dialog - printlog "Assigning date.." - Kontext "TabChartAxisNumbers" - Category.Select (6) 'category date - TabChartAxisNumbers.OK 'closing dialog - if TabChartAxisNumbers.Exists(1) then 'checking if dialog is closed - warnlog "OK should have closed the dialog..." - else - printlog "Fine, Dialog closed with ok." - endif - - select case gApplication 'opening Dialog again - case "WRITER" :Kontext "DocumentWriter" - EditSelectAll - case "CALC" :Kontext "DocumentCalc" - case "CHART" :printlog "Chart" - case else :warnlog "This onyl runs in Writer and Calc!" - exit sub - end select - - EditCopy 'getting content into clipboard - '/// Copying for comparing the content - sleep(2) - sCell = GetClipboardtext 'clipboard into variable - if sCell = "12/30/99" then - printlog "Cell is formattted correctly, " & sCell - else - warnlog "Formatting is wrong: " & sCell - endif - - select case gApplication 'for selection in Writer, different context menu - case "WRITER" :Kontext "DocumentWriter" - DocumentWriter.TypeKeys "<ESCAPE>" 'deselecting - case "CALC" :Kontext "DocumentCalc" - case "CHART" :printlog "Chart" - case else :warnlog "This onyl runs in Writer and Calc!" - exit sub - end select - - '/// Open the Number formatter dialog again. Change to Category Time. Press the RETURN Key. - '/// Does the dialog close and shows the cell you have formatted the time 12:00:00 AM ? - Call sNumberformatterOpenDialog 'opening Dialog - Kontext "TabChartAxisNumbers" - Category.Select (7) 'selecting Time - TabChartAxisNumbers.TypeKeys "<RETURN>", true - if TabChartAxisNumbers.Exists(1) then - warnlog "Return should have closed the dialog..." - else - printlog "Fine, Dialog closed with ok." - endif - - '/// Select case gApplication for selection in Writer, selecting to get content into clipboard - select case gApplication 'opening Dialog again - case "WRITER" :Kontext "DocumentWriter" - EditSelectAll - case "CALC" :Kontext "DocumentCalc" - case "CHART" :printlog "Chart" - case else :warnlog "This onyl runs in Writer and Calc!" - exit sub - end select - - EditCopy - '/// Getting content into clipboard to compare - sleep(2) - sCell = GetClipboardtext 'clipboard into variable - if sCell = "12:00:00 AM" then - printlog "Cell is formattted correctly: " & sCell - else - warnlog "Formatting is wrong: " & sCell - endif - - '/// Open the Number formatter dialog again. Change to Category Percent. - '/// The Format area shows Percent formats. Click on the Reset Button. Does the Category changes back to Time ? - - 'Resetting status for getting correct context menu - select case gApplication 'for selection in Writer, different context menu - case "WRITER" :Kontext "DocumentWriter" - DocumentWriter.TypeKeys "<ESCAPE>" 'deselecting - case "CALC" :Kontext "DocumentCalc" - case "CHART" :printlog "Chart" - case else :warnlog "This onyl runs in Writer and Calc!" - exit sub - end select - - Call sNumberformatterOpenDialog 'opening Dialog - Kontext "TabChartAxisNumbers" - Category.Select (4) 'selecting percent - printlog "Selecting percent." - FormatString.Select (1) - sFormatText = FormatString.GetSelText - if sFormatText = "-13%" then 'checking if Percent is set in format box - printlog "Fine, switched to percent, " & sFormatText - else - warnlog "Format Box shows wrong value, " & sFormatText - endif - if gApplication ="CALC" then 'checking Application for using Reset button - Zurueck.Click - if Category.GetSelIndex = 7.then - printlog "Reset to Time." - else - warnlog "Reset did not succeed!" - endif - else - Category.Select (7) 'setting the Category for other Application - endif - - TabChartAxisNumbers.OK 'closing dialog - printlog "Dialog closed." - - '/// Open the Number formatter dialog again. Change to Category Percent. - '/// The Format area shows Percent formats. Press the Keys ALT+R . Does the Category changes back to Time ? - Call sNumberformatterOpenDialog 'opening Dialog - Kontext "TabChartAxisNumbers" - Category.Select (4) 'selecting percent - FormatString.Select (1) - sFormatText = FormatString.GetSelText - if sFormatText = "-13%" then 'checking entry of Format box - printlog "Fine, switched to percent, " & sFormatText - else - warnlog "Format Box shows wrong value: " & sFormatText - endif - - if gApplication = "CALC" then - TabChartAxisNumbers.TypeKeys "<MOD2 R>", true 'using ALT+R to reset back from percent to time - if Category.GetSelIndex = 7 then - printlog "ALT-R changed back to Time." - else - warnlog "ALT-R did not change Category back to time." - endif - else - Category.Select (7) 'setting back to Time manually, no Reset button - endif - if TabChartAxisNumbers.Exists(1) then - TabChartAxisNumbers.Cancel - else - printlog "No dialog left, ok." - endif - - '///Closing Number Formatter Dialog - printlog "Closing number formatter dialog..." - if TabChartAxisNumbers.exists(1) then - TabChartAxisNumbers.Cancel - else - printlog "No dialog left, ok." - endif - - '///Closing Data Series Dialog - Kontext "TabDataSeriesLabels" - printlog "Closing data series dialog..." - if TabDataSeriesLabels.exists(1) then - TabDataSeriesLabels.Cancel - else - printlog "No dialog left, ok." - endif - Call hCloseDocument -endcase -' -'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ -' -sub sNumberformatterGetLanguage - -'/// When adapting the test for a new language you will need this script to get the names out of the language dropdown box -'/// This routine is to be run isloated from the rest, the found languages from the dropdownbox willbe written into -'/// The result file. Simply copy'n'paste the needed words into global/tools/inc/t_locale_strings1.inc -'/// The test needs to be run once after the office has bben set to the needed language -'/// This sub routine is only for getting a list of the used languages out of the Numberformatter/Language. -'/// The list depends upon the used locale and is written into the result file -'/// This is not part of the normal test run. This is for getting new languages into t_locale_strings1.inc - - Call hNewDocument 'new doc - Kontext "DocumentWriter" - '///Insert a table/// - DocumentWriter.TypeKeys "<MOD1 F12>", true - Kontext "TabelleEinfuegenWriter" - TabelleEinfuegenWriter.OK 'insert table - printlog "Table inserted" - Kontext "DocumentWriter" - DocumentWriter.TypeKeys "0", true 'insert value - Kontext "DocumentWriter" - '///Open Context Menu/// - DocumentWriter.TypeKeys "<SHIFT F10>", true 'Context menu - '///Open Number Format/// - DocumentWriter.TypeKeys "<DOWN>",11, true - DocumentWriter.TypeKeys "<RETURN>", true - printlog "Opening number formatter dialog." - Kontext "TabChartAxisNumbers" - - iLanguageCount = Language.GetItemCount 'getting number of entries - for iCount = 1 to iLanguageCount - Language.Select (iCount) - sLanguageText = Language.GetSelText - printlog sLanguageText 'printing entries - next iCount - - TabChartAxisNumbers.Close 'closing dialog - Call hCloseDocument -end sub - -'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ |