diff options
Diffstat (limited to 'testautomation/spreadsheet/tools/includes/c_tool_options.inc')
| -rwxr-xr-x | testautomation/spreadsheet/tools/includes/c_tool_options.inc | 101 |
1 files changed, 101 insertions, 0 deletions
diff --git a/testautomation/spreadsheet/tools/includes/c_tool_options.inc b/testautomation/spreadsheet/tools/includes/c_tool_options.inc new file mode 100755 index 000000000000..fcebcb67f74d --- /dev/null +++ b/testautomation/spreadsheet/tools/includes/c_tool_options.inc @@ -0,0 +1,101 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +'* +'* Copyright 2008 by Sun Microsystems, Inc. +'* +'* OpenOffice.org - a multi-platform office productivity suite +'* +'* $RCSfile: c_tool_options.inc,v $ +'* +'* $Revision: 1.1 $ +'* +'* last change: $Author: jsi $ $Date: 2008-06-16 08:06:10 $ +'* +'* 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 : oliver.craemer@sun.com +'* +'* short description : Tools for Tools::Options dialog +'* +'************************************************************************ +'* +' #1 subSetConversionMicrosoftOLE +'* +'\*********************************************************************** + +sub subSetConversionMicrosoftOLE ( OPTIONAL sConversionType as STRING ) +'///<u><b>Routine to adjust the behaviour of Tools::Options::Load/Save::Microsoft Office</b></u>/// +'///<b>Possible Keys for 'sConversionType' are:</b>/// +'///<ul> +'///<li>RESET (or omitted): Uncheck all boxes (default in a freshly installed OOo))</li>/// +'///<li>ALL: Check all boxes</li>/// +'///<li>LOAD: Check all boxes for loading MS OLE objects (left side), uncheck all boxes for saving</li>/// +'///<li>SAVE: Check all boxes for saving MS OLE objects (right side), uncheck all boxes for loading</li>/// +'///<li>For other values the subroutine will exit</li>/// +'///</ul> +'///<b>Action:</b>/// +'///<ul> + '///<li>Convert omitted 'sConversionType' to RESET</li>/// + if IsMissing ( sConversionType ) then + sConversionType = "RESET" + end if + dim iPosInAuswahl as INTEGER + dim iExtraToggle as INTEGER + + '///<li>Determine value of 'iExtraToggle' for known keys</li>/// + select case sConversionType + case "RESET" : iExtraToggle = 1 + case "ALL" : iExtraToggle = 2 + case "LOAD" : iExtraToggle = 3 + case "SAVE" : iExtraToggle = 4 + case else + warnlog "Unknown keyword for paramter -> Exit the subroutine" + qaErrorLog "Valid keywords are RESET, ALL, LOAD and SAVE!" + exit sub + end select + + '///<li>Invoke Tools::Options</li>/// + ToolsOptions + '///<li>Go to tabpage Load/Save::Microsoft Office</li>/// + call hToolsOptions ( "LOADSAVE" , "MICROSOFTOFFICE" ) + '///<li>Go to top entry in listbox</li>/// + Auswahl.TypeKeys( "<PageUp>" ) + + '///<li>Toggle (in a tricky way) to a defined state of checkboxes</li>/// + for iPosInAuswahl = 1 to 4 + while NOT Auswahl.IsChecked + Auswahl.TypeKeys ( "<Space>" ) + wend + while Auswahl.IsChecked + Auswahl.TypeKeys ( "<Space>" ) + wend + '///<li>Toggle to desired state of boxes</li>/// + Auswahl.TypeKeys ( "<Space>" , iExtraToggle ) + '///<li>Go one entry down in list box</li>/// + Auswahl.TypeKeys ( "<Down>" ) + '///<li>Loop for all lines</li>/// + next iPosInAuswahl + + '///<li>Quit dialog</li>/// + Kontext "OptionenDLG" + OptionenDLG.Ok + '///</ul> +end sub |