Masahisa Kamataki wrote: >> ちなみにg_option.inc、g_option2.incのバージョン、作成日付は、それぞれ、 >> 1.37、2005/12/19 07:41:49、1.21、2005/12/19 07:41:50 となっています。 > はい、そのとおりです。 :) [qa-cvs] CVS update: /qa/qatesttool/global/update/inc/ [EMAIL PROTECTED] <[EMAIL PROTECTED]> 19 December 2005 16:41 Reply-To: [EMAIL PROTECTED] To: [EMAIL PROTECTED] User: tbo Date: 05/12/18 23:41:52
Modified: /qa/qatesttool/global/update/inc/ g_option.inc, g_option2.inc Log: FIX: remove compatibility CWS fwk21 File Changes: Directory: /qa/qatesttool/global/update/inc/ ============================================ File [changed]: g_option.inc Url: http://qa.openoffice.org/source/browse/qa/qatesttool/global/update/inc/g_option.inc?r1=1.36&r2=1.37 Delta lines: +4 -18 -------------------- --- g_option.inc 5 Oct 2005 17:23:54 -0000 1.36 +++ g_option.inc 19 Dec 2005 07:41:49 -0000 1.37 @@ -5,9 +5,9 @@ '* '* $RCSfile: g_option.inc,v $ '* -'* $Revision: 1.36 $ +'* $Revision: 1.37 $ '* -'* last change: $Author: tbo $ $Date: 2005/10/05 17:23:54 $ +'* last change: $Author: tbo $ $Date: 2005/12/19 07:41:49 $ '* '* The Contents of this file are made available subject to '* the terms of GNU Lesser General Public License Version 2.1. @@ -55,13 +55,6 @@ sub tToolsOptionsTest dim sApplication as string - dim iCWSfwk21 as integer - - if (gBuild > 8961) AND (len(gMinor) > 2) then - iCWSfwk21=1 - else - iCWSfwk21=0 - endif sApplication = gApplication ' Document- and database related options are placed in the g_option2.inc library @@ -73,17 +66,10 @@ ' subroutine, in every subsection the value of 'iSectionNumber' is checked. ' The test will exist with warnlog, if iSectionNumber is 0 sErrMes = "" - if (gBuild > 8961) AND (len(gMinor) > 2) then - select case uCase(gApplication) - case "WRITER","MASTERDOC","HTMLDOKUMENT": iSectionNumber = 8 - case "IMPRESS","DRAW","MATH","CALC" : iSectionNumber = 7 - end select - else select case uCase(gApplication) case "IMPRESS","DRAW","WRITER","MASTERDOC","HTMLDOKUMENT": iSectionNumber = 8 case "MATH","CALC" : iSectionNumber = 7 end select - endif ' common testcases are placed in this library ' these tab-sets are always available: Call tToolsOptionsStarOffice @@ -103,10 +89,10 @@ iSectionNumber = 7 Call tToolsOptionsSpreadsheet gApplication = "IMPRESS" - iSectionNumber = 8-iCWSfwk21 + iSectionNumber = 7 Call tToolsOptionsPresentation gApplication = "DRAW" - iSectionNumber = 8-iCWSfwk21 + iSectionNumber = 7 Call tToolsOptionsDrawing gApplication = "MATH" iSectionNumber = 7 File [changed]: g_option2.inc Url: http://qa.openoffice.org/source/browse/qa/qatesttool/global/update/inc/g_option2.inc?r1=1.20&r2=1.21 Delta lines: +3 -10 -------------------- --- g_option2.inc 5 Oct 2005 17:23:55 -0000 1.20 +++ g_option2.inc 19 Dec 2005 07:41:50 -0000 1.21 @@ -5,9 +5,9 @@ '* '* $RCSfile: g_option2.inc,v $ '* -'* $Revision: 1.20 $ +'* $Revision: 1.21 $ '* -'* last change: $Author: tbo $ $Date: 2005/10/05 17:23:55 $ +'* last change: $Author: tbo $ $Date: 2005/12/19 07:41:50 $ '* '* The Contents of this file are made available subject to '* the terms of GNU Lesser General Public License Version 2.1. @@ -467,13 +467,6 @@ testcase tToolsOptionsDrawing dim EchteAnzahl as Integer, i as Integer dim gefunden as Boolean - dim iCWSfwk21 as integer - - if (gBuild > 8961) AND (len(gMinor) > 2) then - iCWSfwk21=1 - else - iCWSfwk21=0 - endif PrintLog "- Tools/Options/Drawing ( Extras/Optionen/Zeichnung )" if (0 = iSectionNumber) then @@ -483,7 +476,7 @@ '///- tools / options / drawing if gApplication <> "DESKTOP" then Call hNewDocument ToolsOptions - ToPosInOptionlist ( 5-iCWSfwk21 ) + ToPosInOptionlist ( 4 ) EchteAnzahl = OptionTabPageZaehler ( 4, FALSE ) for i=1 to EchteAnzahl gefunden = FALSE --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] . khirano --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]