diff options
Diffstat (limited to 'testautomation/graphics/required')
14 files changed, 2346 insertions, 2406 deletions
diff --git a/testautomation/graphics/required/includes/global/id_001.inc b/testautomation/graphics/required/includes/global/id_001.inc index 5e2b4912f6e7..fee150c8381a 100644 --- a/testautomation/graphics/required/includes/global/id_001.inc +++ b/testautomation/graphics/required/includes/global/id_001.inc @@ -82,9 +82,9 @@ testcase tiFileSaveAs sFilter (0) = 0 ' initalize ;-)... printlog " used document: graphics\required\input\tbo_alf_.od?" - sFileName = "graphics\required\input\tbo_alf_." + ExtensionString ' this is the file with all features + sFileName = "graphics\required\input\tbo_alf_." + ExtensionString printlog "FileName is " + sFileName - sFile = "isas_" ' this is the filename of the export files + sFile = "isas_" sPath = ConvertPath ( gOfficePath + "user/work/graphics/required/"+gApplication+"\"+ gPlatform) ' this is the export path printlog "sPath is " + sPath if dir (sPath) = "" then @@ -92,7 +92,7 @@ testcase tiFileSaveAs end if printlog " deleting all files in output directory: \\user\\work\\graphics\\required\\gApplication gPlatform isas_*" - if gSamePC = TRUE then ' delete export directory + if gSamePC = TRUE then GetFileList ( sPath, sFile+"*", Exlist() ) if KillFileList ( Exlist() ) <> TRUE then Warnlog "Couldn't delete all Files in Output-Export-Directory, the followings are still there:" @@ -107,7 +107,7 @@ testcase tiFileSaveAs WaitSlot (3000) printlog "running 5 times save as with different Filters" - for i = 1 to 6 'run it 5 times + for i = 1 to 6 printlog "calling Save as Dialog" FileSaveAs WaitSlot (2000) diff --git a/testautomation/graphics/required/includes/global/id_004.inc b/testautomation/graphics/required/includes/global/id_004.inc index 42b0170fe6ef..a14912c6f141 100644 --- a/testautomation/graphics/required/includes/global/id_004.inc +++ b/testautomation/graphics/required/includes/global/id_004.inc @@ -307,11 +307,11 @@ testcase tiInsertChart InsertChart WaitSlot (2000) Kontext "Messagebox" - if Messagebox.Exists then - Warnlog Messagebox.GetText - Messagebox.OK - sleep 1 - end if + if Messagebox.Exists then + Warnlog Messagebox.GetText + Messagebox.OK + sleep 1 + end if gMouseClick 1,1 sleep 2 printlog "close application " @@ -360,17 +360,17 @@ testcase tiInsertSpreadsheet InsertSpreadsheetDraw WaitSlot (2000) Kontext "Messagebox" - if Messagebox.Exists (5) then - Warnlog Messagebox.GetText - Messagebox.OK - end if - sleep 2 - printlog "click somewhere out of the object, to deselect it " - gMouseClick 1,1 - sleep 1 - printlog "select and delete object with keys: <Tab><Delete> " - hTypekeys "<Tab><Delete>" - sleep 2 + if Messagebox.Exists (5) then + Warnlog Messagebox.GetText + Messagebox.OK + end if + sleep 2 + printlog "click somewhere out of the object, to deselect it " + gMouseClick 1,1 + sleep 1 + printlog "select and delete object with keys: <Tab><Delete> " + hTypekeys "<Tab><Delete>" + sleep 2 printlog "close application " Call hCloseDocument diff --git a/testautomation/graphics/required/includes/global/id_005.inc b/testautomation/graphics/required/includes/global/id_005.inc index 6ec5a5988235..cba38479f34b 100644 --- a/testautomation/graphics/required/includes/global/id_005.inc +++ b/testautomation/graphics/required/includes/global/id_005.inc @@ -54,7 +54,7 @@ sub id_005 call tiFormatFontwork call tiFormatGroup printlog " format->group is also modify->group " - ' tiFormatLayer ' not in impress + end sub '------------------------------------------------------------------------------ testcase tiFormatDefault diff --git a/testautomation/graphics/required/includes/global/id_006.inc b/testautomation/graphics/required/includes/global/id_006.inc index ccdfc5eb3e69..1b3a8b3c39a9 100644 --- a/testautomation/graphics/required/includes/global/id_006.inc +++ b/testautomation/graphics/required/includes/global/id_006.inc @@ -43,19 +43,21 @@ sub id_Tools call tiToolsEyedropper call tToolsOptionsTest ' global one end sub + '------------------------------------------------------------------------------- + testcase tiToolsSpellchecking if not gOOO then ' Spellcheck doesn't work in OOo builds. - '/// open application ///' + printlog "open application" Call hNewDocument - WaitSlot (2000) 'sleep 2 - '/// call subroutine 'hSetSpellHypLanguage' for setting the default language in th eoptions, to enable it for languages, which don't provide a dictionary (usually asian ones) ///' + WaitSlot (2000) + printlog " call subroutine 'hSetSpellHypLanguage' for setting the default language in th eoptions, to enable it for languages, which don't provide a dictionary (usually asian ones)" call hSetSpellHypLanguage - '/// create textframe with content ///' + printlog "create textframe with content" Call hTextrahmenErstellen ("Whaaaat", 10, 10, 30, 40) sleep 1 - '/// Tools->Spellcheck->Check ///' + printlog "Tools->Spellcheck->Check" ToolsSpellCheck WaitSlot (1000) 'sleep 1 Kontext "MessageBox" @@ -67,14 +69,14 @@ testcase tiToolsSpellchecking Kontext "Rechtschreibung" if Rechtschreibung.exists then Call DialogTest ( Rechtschreibung ) - '/// close dialog 'Spellcheck' ///' + printlog "close dialog 'Spellcheck'" Rechtschreibung.Close else warnlog " Spellcheck dialog didn't came up :-(" end if end if sleep 1 - '/// say OK to messagebox about 'Spellcheck has been completed' ///' + printlog "say OK to messagebox about 'Spellcheck has been completed'" Kontext "Messagebox" if Messagebox.exists (5) then warnlog "Shouldn't be any messagebox after pressing close in spellchecker" @@ -82,26 +84,30 @@ testcase tiToolsSpellchecking sleep (2) Kontext end if - '/// close application ///' + printlog "close application" Call hCloseDocument else goto endsub endif -endcase +endcase 'tiToolsSpellchecking + '------------------------------------------------------------------------------- + testcase tiToolsSpellcheckingAutomatic - '/// open application ///' + printlog "open application" Call hNewDocument - '/// Tools->Spellcheck->AutoSpellcheck ///' + printlog "Tools->Spellcheck->AutoSpellchec" ToolsSpellcheckAutoSpellcheck - '/// create textframe with text ///' + printlog " create textframe with text " Call hTextrahmenErstellen ("What", 10, 10, 30, 40) sleep 2 - '/// Tools->Spellcheck->AutoSpellcheck ///' + printlog "Tools->Spellcheck->AutoSpellcheck " ToolsSpellcheckAutoSpellcheck - '/// close application ///' + printlog "close application " Call hCloseDocument -endcase +endcase 'tiToolsSpellcheckingAutomatic + '------------------------------------------------------------------------------- + testcase tiToolsThesaurus Dim sWord as string Dim sExt as string @@ -164,9 +170,7 @@ testcase tiToolsThesaurus sWord = "Hello" endif end select - PrintLog "Thesaurus with 1 word: " + sWord - if( gApplication = "DRAW" ) then sExt = ".odg" elseif( Ucase(gApplication) = "IMPRESS" ) then @@ -176,7 +180,6 @@ testcase tiToolsThesaurus hFileOpenLocally( gTesttoolpath + "graphics\required\input\recht_" + iSprache + sExt) Call hTextrahmenErstellen (sWord,20,20,50,30) sleep 1 - printlog "select the word" hTypeKeys "<Home><SHIFT END>" @@ -195,132 +198,138 @@ testcase tiToolsThesaurus warnlog "the thesaurus does not appear" end if Call hCloseDocument -endcase +endcase 'tiToolsThesaurus + '------------------------------------------------------------------------------- + testcase tiToolsHyphenation - '/// open application ///' + printlog "open application " Call hNewDocument - '/// Tools->Hyphenation ///' + printlog "Tools->Hyphenation " ToolsLanguageHyphenationDraw - WaitSlot (2000) 'sleep 2 - '/// Tools->Hyphenation ///' + WaitSlot (2000) + printlog "Tools->Hyphenation " ToolsLanguageHyphenationDraw - '/// close application ///' + printlog "close application " Call hCloseDocument -endcase +endcase 'tiToolsHyphenation + '------------------------------------------------------------------------------- + testcase tiToolsAutoCorrect dim iLanguage as integer ' for resetting the language - '/// open application ///' + printlog "open application " Call hNewDocument - WaitSlot (1000) 'sleep 1 - '/// Tools->Autocorrect ///' + WaitSlot (1000) + printlog "Tools->Autocorrect " ToolsAutocorrect - WaitSlot (2000) 'sleep 1 + WaitSlot (2000) Kontext - '/// select tabpage 'Replace' ///' + printlog "select tabpage 'Replace' " Messagebox.SetPage TabErsetzung Kontext "TabErsetzung" - Call DialogTest ( TabErsetzung ) - '/// remember the language, that is selected in the 'Replacements and exceptions for Language' Listbox ///' - iLanguage = WelcheSprache.GetSelIndex - '///+ change the language to the 1st from the top ///' - WelcheSprache.Select 1 ' select language with empty list - '///+ type something into the field 'replace' ///' - Kuerzel.SetText "a" - '///+ type something into the field 'with' ///' - ErsetzenDurch.SetText "b" - '///+ click button 'new' ///' - Neu.Click - sleep 1 - '///+ click button 'delete' ///' + Call DialogTest ( TabErsetzung ) + printlog "remember the language, that is selected in the 'Replacements and exceptions for Language' Listbox " + iLanguage = WelcheSprache.GetSelIndex + printlog "+ change the language to the 1st from the top " + WelcheSprache.Select 1 ' select language with empty list + printlog "+ type something into the field 'replace' " + Kuerzel.SetText "a" + printlog "+ type something into the field 'with' " + ErsetzenDurch.SetText "b" + printlog "+ click button 'new' " + Neu.Click + sleep 1 + printlog "+ click button 'delete' " + Loeschen.Click + sleep 1 + try + printlog "+ click button 'delete' again " Loeschen.Click - sleep 1 - try - '///+ click button 'delete' again ///' - Loeschen.Click - catch - printlog "ok was CRASH before" '# - endcatch - '///+ if nothing happens it is ok, was a Crash before :-( ///' - '///+ restore cthe remembered language ///' - WelcheSprache.select (iLanguage) - Kontext - '/// select tabpage 'Exception' ///' - Messagebox.SetPage TabAusnahmen - Kontext "TabAusnahmen" - Call DialogTest ( TabAusnahmen ) - '/// type something into the field 'Abbreviations' ///' - Abkuerzungen.settext "Lala" - '///+ click button 'new' in 'Abbreviations' ///' - AbkuerzungenNeu.click - '///+ click button 'delete' in 'Abbreviations' ///' - AbkuerzungenLoeschen.click - '/// type something into the field 'Word with TWo INitial CApitals' ///' - Woerter.settext "LALA" - '///+ check the checkbox 'AutoInclude' in 'Word with TWo INitial CApitals' ///' - WoerterAutomatisch.Check - '///+ click button 'new' in 'Word with TWo INitial CApitals' ///' - WoerterNeu.click - '///+ click button 'delete' in 'Word with TWo INitial CApitals' ///' - WoerterLoeschen.click - '///+ UNcheck the checkbox 'AutoInclude' in 'Word with TWo INitial CApitals' ///' - WoerterAutomatisch.UnCheck - Kontext - '/// select tabpage 'Options' ///' - Messagebox.SetPage TabOptionen - Kontext "TabOptionen" - Call DialogTest ( TabOptionen ) - Kontext - '/// select tabpage 'Custom Quotes' ///' - Messagebox.SetPage TabLocalizedOptions - Kontext "TabLocalizedOptions" ' 1a - '/// in the part of 'single quotes': ///' - '///+ check 'replace' ///' - '///+ click 'start quote' ///' - SingleQuotesReplace.Check - SingleQuotesStart.Click - Kontext "Sonderzeichen" - Call DialogTest ( Sonderzeichen, 1 ) - '///+ cancel dialog 'start quote' ///' - Sonderzeichen.Cancel - Kontext "TabLocalizedOptions" ' 1b - '///+ click 'end quote' ///' - SingleQuotesEnd.Click - Kontext "Sonderzeichen" - Call DialogTest ( Sonderzeichen, 2 ) - '///+ cancel dialog 'end quote' ///' - Sonderzeichen.Cancel - Kontext "TabLocalizedOptions" ' 1s - '///+ click button 'default' ///' - SingleQuotesDefault.Click - - Kontext "TabLocalizedOptions" ' 2a - '/// in the part of 'double quotes': ///' - '///+ click 'start quote' ///' - DoubleQuotesStart.Click - Kontext "Sonderzeichen" - Call DialogTest ( Sonderzeichen, 3 ) - '///+ cancel dialog 'start quote' ///' - Sonderzeichen.Cancel - Kontext "TabLocalizedOptions" ' 2b - '///+ click 'end quote' ///' - DoubleQuotesEnd.Click - Kontext "Sonderzeichen" - Call DialogTest ( Sonderzeichen, 4 ) - '///+ cancel dialog 'end quote' ///' - Sonderzeichen.Cancel - Kontext "TabLocalizedOptions" ' 2s - '///+ click button 'default' ///' - DoubleQuotesDefault.Click - '///+ UNcheck 'replace' ///' - SingleQuotesReplace.UnCheck - '/// cancel dialog 'AtorCorrect' ///' - TabLocalizedOptions.cancel - '/// close application ///' + catch + printlog "ok was CRASH before" + endcatch + printlog "+ if nothing happens it is ok, was a Crash before :-( " + printlog "+ restore cthe remembered language " + WelcheSprache.select (iLanguage) + Kontext + printlog "select tabpage 'Exception' " + Messagebox.SetPage TabAusnahmen + Kontext "TabAusnahmen" + Call DialogTest ( TabAusnahmen ) + printlog "type something into the field 'Abbreviations' " + Abkuerzungen.settext "Lala" + printlog "+ click button 'new' in 'Abbreviations' " + AbkuerzungenNeu.click + printlog "+ click button 'delete' in 'Abbreviations' " + AbkuerzungenLoeschen.click + printlog "type something into the field 'Word with TWo INitial CApitals' " + Woerter.settext "LALA" + printlog "+ check the checkbox 'AutoInclude' in 'Word with TWo INitial CApitals' " + WoerterAutomatisch.Check + printlog "+ click button 'new' in 'Word with TWo INitial CApitals' " + WoerterNeu.click + printlog "+ click button 'delete' in 'Word with TWo INitial CApitals' " + WoerterLoeschen.click + printlog "+ UNcheck the checkbox 'AutoInclude' in 'Word with TWo INitial CApitals' " + WoerterAutomatisch.UnCheck + Kontext + printlog "select tabpage 'Options' " + Messagebox.SetPage TabOptionen + Kontext "TabOptionen" + Call DialogTest ( TabOptionen ) + Kontext + printlog "select tabpage 'Custom Quotes' " + Messagebox.SetPage TabLocalizedOptions + Kontext "TabLocalizedOptions" ' 1a + printlog "in the part of 'single quotes': " + printlog "+ check 'replace' " + printlog "+ click 'start quote' " + SingleQuotesReplace.Check + SingleQuotesStart.Click + Kontext "Sonderzeichen" + Call DialogTest ( Sonderzeichen, 1 ) + printlog "+ cancel dialog 'start quote' " + Sonderzeichen.Cancel + Kontext "TabLocalizedOptions" ' 1b + printlog "+ click 'end quote' " + SingleQuotesEnd.Click + Kontext "Sonderzeichen" + Call DialogTest ( Sonderzeichen, 2 ) + printlog "+ cancel dialog 'end quote' " + Sonderzeichen.Cancel + Kontext "TabLocalizedOptions" ' 1s + printlog "+ click button 'default' " + SingleQuotesDefault.Click + + Kontext "TabLocalizedOptions" ' 2a + printlog " in the part of 'double quotes': " + printlog "+ click 'start quote' " + DoubleQuotesStart.Click + Kontext "Sonderzeichen" + Call DialogTest ( Sonderzeichen, 3 ) + printlog "+ cancel dialog 'start quote' " + Sonderzeichen.Cancel + Kontext "TabLocalizedOptions" ' 2b + printlog "+ click 'end quote' " + DoubleQuotesEnd.Click + Kontext "Sonderzeichen" + Call DialogTest ( Sonderzeichen, 4 ) + printlog "+ cancel dialog 'end quote' " + Sonderzeichen.Cancel + Kontext "TabLocalizedOptions" ' 2s + printlog "+ click button 'default' " + DoubleQuotesDefault.Click + printlog "+ UNcheck 'replace' " + SingleQuotesReplace.UnCheck + printlog " cancel dialog 'AtorCorrect' " + TabLocalizedOptions.cancel + printlog " close application " Call hCloseDocument -endcase + +endcase 'tiToolsAutoCorrect '------------------------------------------------------------------------------- + testcase tChineseTranslation qaerrorlog( "#i89634# - Chinese Translation dialog does not close" ) @@ -335,139 +344,143 @@ testcase tChineseTranslation sFileName = "graphics\required\input\tchinese.odg" end if - '/// Open application ///' + printlog "Open application " Call hNewDocument - WaitSlot (2000) 'sleep 1 - '/// Save old state and Activate Support for Asian language ///' + WaitSlot (2000) + printlog "Save old state and Activate Support for Asian language " bSavedAsianSupport = ActiveDeactivateAsianSupport(TRUE) - '/// Open Document ///' + printlog "Open Document " Call hFileOpen ( ConvertPath(gTesttoolPath + sFileName) ) - '/// If write-protected - open as Temp-file ///' + printlog "If write-protected - open as Temp-file " sleep (2) Kontext "Standardbar" - if Bearbeiten.GetState(2) <> 1 then - Bearbeiten.Click '0 = not pressed. 1 = pressed. - Kontext - if Active.Exists(1) then - Active.Yes - else - warnlog "No messagebox after making document editable? - Test canceled here" - goto endsub - end if + if Bearbeiten.GetState(2) <> 1 then + Bearbeiten.Click '0 = not pressed. 1 = pressed. + Kontext + if Active.Exists(1) then + Active.Yes + else + warnlog "No messagebox after making document editable? - Test canceled here" + goto endsub end if + end if if uCase(gApplication) = "IMPRESS" then Kontext "DocumentImpress" else Kontext "DocumentDraw" end if - '/// Select all, Press RETURN to enter text in Editmode ///' - '/// Move marker to top of the text, go two steps right, mark two characters ///' + printlog "Select all, Press RETURN to enter text in Editmode " + printlog "Move marker to top of the text, go two steps right, mark two characters " EditSelectAll hTypeKeys "<RETURN>" hTypeKeys "<MOD1 HOME><RIGHT><RIGHT><SHIFT RIGHT RIGHT>" - '/// Open Chinesetranslation ///' + printlog "Open Chinesetranslation " ToolsChineseTranslation WaitSlot (2000) 'sleep 1 kontext "ChineseTranslation" - '/// Check if everything is there ///' - Call DialogTest ( ChineseTranslation ) - '/// Click on EditTerms ///' - EditTerms.Click - kontext "ChineseDictionary" - '/// Check if everything is there ///' - Call DialogTest ( ChineseDictionary ) - '/// Close dialog 'ChineseDictionary' with 'OK' ///' - ChineseDictionary.Ok + printlog " Check if everything is there " + Call DialogTest ( ChineseTranslation ) + printlog " Click on EditTerms " + EditTerms.Click + kontext "ChineseDictionary" + printlog " Check if everything is there " + Call DialogTest ( ChineseDictionary ) + printlog " Close dialog 'ChineseDictionary' with 'OK' " + ChineseDictionary.Ok kontext "ChineseTranslation" - '/// Close dialog 'Chinese' with 'OK' ///' - ChineseTranslation.OK + printlog " Close dialog 'Chinese' with 'OK' " + ChineseTranslation.OK kontext - '/// if messagebox exist, say OK; ('Spellcheck completed' or 'Word not found') ///' - if Messagebox.exists (5) then - printlog "Messagebox: "+Messagebox.gettext+"'" - Messagebox.ok - end if - '/// Restore old state for Asian language ///' + printlog " if messagebox exist, say OK; ('Spellcheck completed' or 'Word not found') " + if Messagebox.exists (5) then + printlog "Messagebox: "+Messagebox.gettext+"'" + Messagebox.ok + end if + printlog " Restore old state for Asian language " ActiveDeactivateAsianSupport(bSavedAsianSupport) - '/// Close application ///' + printlog " Close application " Call hCloseDocument -endcase + +endcase 'tChineseTranslation '------------------------------------------------------------------------------- + testcase tiToolsMacro - '/// open application ///' + printlog "open application " Call hNewDocument WaitSlot (2000) 'sleep 2 - '/// Tools->Macro ///' + printlog "Tools->Macro " ToolsMacro Kontext "Makro" - Call DialogTest ( Makro ) - '/// click button 'organizer...' ///' - Verwalten.Click - + Call DialogTest ( Makro ) + printlog "click button 'organizer...' " + Verwalten.Click Kontext - '/// switch to tabpage 'Modules' ///' - Messagebox.SetPage TabModule - Kontext "TabModule" - Call DialogTest ( TabModule ) - + printlog "switch to tabpage 'Modules' " + Messagebox.SetPage TabModule + Kontext "TabModule" + Call DialogTest ( TabModule ) Kontext - '/// switch to tabpage 'Libraries' ///' - Messagebox.SetPage TabBibliotheken - Kontext "TabBibliotheken" - Call DialogTest ( TabBibliotheken ) - '/// click lbutton 'append' ///' - Hinzufuegen.Click - Kontext "Messagebox" - if Messagebox.Exists (5) then - if Messagebox.GetRT = 304 then - Warnlog Messagebox.Gettext - Messagebox.Ok - end if - end if - Kontext "OeffnenDlg" - '/// cancel dialog 'append libraries' ///' - OeffnenDlg.Cancel - Kontext "TabBibliotheken" - '/// click button 'new' ///' - Neu.Click - kontext "NeueBibliothek" - sleep 1 'Bibliotheksname - '/// cancel dialog 'new library' ///' - NeueBibliothek.cancel - Kontext "TabBibliotheken" - '/// close dialog 'macro organizer' ///' - TabBibliotheken.Close + printlog "switch to tabpage 'Libraries' " + Messagebox.SetPage TabBibliotheken + Kontext "TabBibliotheken" + Call DialogTest ( TabBibliotheken ) + printlog "click lbutton 'append' " + Hinzufuegen.Click + Kontext "Messagebox" + if Messagebox.Exists (5) then + if Messagebox.GetRT = 304 then + Warnlog Messagebox.Gettext + Messagebox.Ok + end if + end if + Kontext "OeffnenDlg" + printlog "cancel dialog 'append libraries' " + OeffnenDlg.Cancel + Kontext "TabBibliotheken" + printlog "click button 'new' " + Neu.Click + kontext "NeueBibliothek" + sleep 1 'Bibliotheksname + printlog "cancel dialog 'new library' " + NeueBibliothek.cancel + Kontext "TabBibliotheken" + printlog "close dialog 'macro organizer' " + TabBibliotheken.Close Kontext "Makro" - '/// close dialog 'macro' ///' - Makro.Cancel - '/// close application ///' + printlog "close dialog 'macro' " + Makro.Cancel + printlog "close application " Call hCloseDocument -endcase +endcase 'tiToolsMacro + '------------------------------------------------------------------------------- + testcase tiToolsGallery - '/// open application ///' + printlog "open application " Call hNewDocument - '/// Tools->Gallery ///' + printlog "Tools->Gallery " ToolsGallery WaitSlot (2000) 'sleep 1 - '/// Tools->Gallery ///' + printlog "Tools->Gallery " ToolsGallery - '/// close application ///' + printlog "close application " Call hCloseDocument -endcase +endcase'tiToolsGallery + '------------------------------------------------------------------------------- + testcase tiToolsEyedropper - '/// open application ///' + printlog "open application " Call hNewDocument - '/// Tools->Eyedropper ///' + printlog "Tools->Eyedropper " ToolsEyedropper Kontext "Pipette" Call DialogTest (Pipette) - '/// close dialog 'Eyedropper' ///' + printlog "close dialog 'Eyedropper' " Pipette.Close sleep 1 - '/// close application ///' + printlog "close application " Call hCloseDocument -endcase +endcase 'tiToolsEyedropper diff --git a/testautomation/graphics/required/includes/global/id_007.inc b/testautomation/graphics/required/includes/global/id_007.inc index 29791d4b716f..81c265bca515 100644 --- a/testautomation/graphics/required/includes/global/id_007.inc +++ b/testautomation/graphics/required/includes/global/id_007.inc @@ -34,7 +34,6 @@ sub id_007 printLog Chr(13) + "--------- id_007 ----------" - ' in imp available via context menu, in draw via modify menu call tdModifyFlipVertikal call tdModifyFlipHorizontal @@ -56,487 +55,460 @@ sub id_007 call tdModifyCombineSplit end sub '------------------------------------------------------------------------------- -testcase tdModifyFlipVertikal - '/// open application ///' +testcase tdModifyFlipVertikal + printlog "open application" Call hNewDocument ' imp: contextmenue same SID! sleep 1 - '/// create rectangle ///' + printlog "create rectangle" Call hRechteckErstellen ( 10, 10, 20, 40 ) try - '/// imp: Kontextmenu: Flip->Vertically ///' - '///+ Modify->Flip->Vertically ///' + printlog "imp: Kontextmenu: Flip->Vertically" ContextFlipVerticalDraw Printlog "- Flip-vertical is working" catch Warnlog "- Flip-Vertical does not work" endcatch sleep 1 - '/// close application ///' + printlog "close application" Call hCloseDocument -endcase +endcase 'tdModifyFlipVertikal '------------------------------------------------------------------------------------------------------------------------------------------------ testcase tdModifyFlipHorizontal - '/// open application ///' + printlog "open application" Call hNewDocument ' imp: contextmenue same SID! WaitSlot (1000) - '/// create rectangle ///' + printlog "create rectangle" Call hRechteckErstellen ( 10, 10, 20, 40 ) try - '/// imp: Kontextmenu: Flip->Horizontally ///' - '///+ Modify->Flip->Horizontally ///' + printlog "imp: Kontextmenu: Flip->Horizontally" ContextFlipHorizontalDraw Printlog "- Flip-horizontal is working" catch Warnlog "- Flip-horizontal does not work" endcatch sleep 1 - '/// close application ///' + printlog "close application" Call hCloseDocument -endcase +endcase 'tdModifyFlipHorizontal '------------------------------------------------------------------------------------------------------------------------------------------------ testcase tdContextConvertIntoCurve - '/// open application ///' + printlog "open application" Call hNewDocument - '/// create rectangle ///' + printlog "create rectangle" Call hRechteckErstellen ( 10, 10, 20, 40 ) - '/// Modify->Convert->To Curve ///' - '///+ Modify->Convert->To Curve ///' + printlog "Modify->Convert->To Curve" ContextConvertIntoCurve WaitSlot (2000) - '/// close application ///' + printlog "close application" Call hCloseDocument -endcase +endcase 'tdContextConvertIntoCurve '------------------------------------------------------------------------------------------------------------------------------------------------ testcase tdContextConvertIntoPolygon dim iWaitIndex as integer - '/// open application ///' - Call hNewDocument ' imp: contextmenue same SID! + + printlog "open application" + Call hNewDocument InsertGraphicsFromFile Kontext "GrafikEinfuegenDlg" - '/// Check if the dialogue is there. If not - wait for maximum 10 seconds) - iWaitIndex = 0 - do while NOT GrafikEinfuegenDlg.Exists AND iWaitIndex < 10 - sleep(1) - iWaitIndex = iWaitIndex + 1 - loop - if NOT GrafikEinfuegenDlg.Exists AND iWaitIndex = 10 then - warnlog "Dialogue Insert Graphics didnt work. Ending testcase." - Call hCloseDocument - goto endsub - end if - '/// insert graphic: "global\input\graf_inp\enter.bmp" ///' - Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\enter.bmp") - Oeffnen.Click - sleep 3 - '/// Modify->Convert->To Polygon ///' - '/// Modify->Convert->To Polygon ///' - ContextConvertIntoPolygon - Kontext "InPolygonUmwandeln" - Call DialogTest (InPolygonUmwandeln) - '/// check checkbox: 'Fill holes' ///' - LoecherFuellen.Check - '/// click more in number field: 'Number of colors' ///' - Farbanzahl.More - '/// click more in number field: 'Point reductionn' ///' - Punktreduktion.More - '/// click more in number field: 'Tile size' ///' - Kachelgroesse.More - '/// click button 'Preview' ///' - Vorschau.Click - sleep 10 - '/// cancel dialog 'Convert to Polygon' ///' - InPolygonUmwandeln.Cancel - sleep (2) - '/// close application ///' + printlog "Check if the dialogue is there. If not - wait for maximum 10 seconds)" + iWaitIndex = 0 + do while NOT GrafikEinfuegenDlg.Exists AND iWaitIndex < 10 + sleep(1) + iWaitIndex = iWaitIndex + 1 + loop + if NOT GrafikEinfuegenDlg.Exists AND iWaitIndex = 10 then + warnlog "Dialogue Insert Graphics didnt work. Ending testcase." + Call hCloseDocument + goto endsub + end if + printlog "insert graphic: global\input\graf_inp\enter.bmp" + Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\enter.bmp") + Oeffnen.Click + sleep 3 + printlog "Modify->Convert->To Polygon" + ContextConvertIntoPolygon + Kontext "InPolygonUmwandeln" + Call DialogTest (InPolygonUmwandeln) + printlog "check checkbox: 'Fill holes'" + LoecherFuellen.Check + printlog "click more in number field: 'Number of colors'" + Farbanzahl.More + printlog "click more in number field: 'Point reductionn'" + Punktreduktion.More + printlog "click more in number field: 'Tile size'" + Kachelgroesse.More + printlog "click button 'Preview'" + Vorschau.Click + sleep 10 + printlog "cancel dialog 'Convert to Polygon'" + InPolygonUmwandeln.Cancel + sleep (2) + printlog "close application" Call hCloseDocument -endcase +endcase 'tdContextConvertIntoPolygon '------------------------------------------------------------------------------------------------------------------------------------------------ testcase tdContextConvertIntoContour - '/// open application ///' + printlog "open application" Call hNewDocument - '/// create rectangle ///' + printlog "create rectangle" Call hRechteckErstellen ( 10, 10, 20, 40 ) - '/// Modify->Convert->To Contour ///' - '/// Modify->Convert->To Contour ///' + printlog "Modify->Convert->To Contour" ContextConvertIntoContour WaitSlot (1000) - '/// close application ///' + printlog "close application" Call hCloseDocument -endcase +endcase 'tdContextConvertIntoContour '------------------------------------------------------------------------------------------------------------------------------------------------ testcase tdContextConvertInto3D - '/// open application ///' + printlog "open application" Call hNewDocument - '/// create rectangle ///' + printlog "create rectangle" Call hRechteckErstellen ( 10, 10, 20, 40 ) - '/// Modify->Convert->To 3D ///' - '/// Modify->Convert->To 3D ///' + printlog "Modify->Convert->To 3D" ContextConvertInto3D WaitSlot (1000) - '/// close application ///' + printlog "close application" Call hCloseDocument -endcase +endcase 'tdContextConvertInto3D '------------------------------------------------------------------------------------------------------------------------------------------------ testcase tdContextConvertIntoRotationObject - '/// open application ///' + printlog "open application" Call hNewDocument WaitSlot (1000) - '/// create rectangle ///' + printlog "create rectangle" Call hRechteckErstellen (20,20,50,50) sleep 2 - '/// Modify->Convert->To 3D Rotation Object ///' - '/// Modify->Convert->To 3D Rotation Object ///' + printlog "Modify->Convert->To 3D Rotation Object" ContextConvertInto3DRotationObject WaitSlot (1000) - '/// close application ///' + printlog "close application" Call hCloseDocument -endcase +endcase 'tdContextConvertIntoRotationObject '------------------------------------------------------------------------------------------------------------------------------------------------ testcase tdContextConvertIntoBitmap - '/// open application ///' + printlog "open application" Call hNewDocument WaitSlot (3000) InsertGraphicsFromFile WaitSlot (3000) Kontext "GrafikEinfuegenDlg" - sleep 2 - '/// insert graphic: "global\input\graf_inp\columbia.dxf" ///' - Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\columbia.dxf") - sleep 2 - Oeffnen.Click - sleep 2 - try - '/// Modify->Convert->To Bitmap ///' - ContextConvertIntoBitmap - Printlog "- Convert into bitmap is working" - catch - Warnlog "- Convert into bitmap does not work" - endcatch - '/// close application ///' + sleep 2 + printlog "insert graphic: global\input\graf_inp\columbia.dxf" + Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\columbia.dxf") + sleep 2 + Oeffnen.Click + sleep 2 + try + printlog "Modify->Convert->To Bitmap" + ContextConvertIntoBitmap + Printlog "- Convert into bitmap is working" + catch + Warnlog "- Convert into bitmap does not work" + endcatch +printlog "close application" Call hCloseDocument -endcase +endcase 'tdContextConvertIntoBitmap '------------------------------------------------------------------------------------------------------------------------------------------------ testcase tdContextConvertIntoMetaFile - '/// open application ///' + printlog "open application" Call hNewDocument WaitSlot (3000) InsertGraphicsFromFile WaitSlot (1000) kontext "Messagebox" - if Messagebox.Exists (5) Then Messagebox.OK - sleep 1 - Kontext "GrafikEinfuegenDlg" - '/// insert graphic: "global\input\graf_inp\desp.bmp" ///' - sleep 2 - Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp") - sleep 2 - Preview.Click - sleep 3 - Oeffnen.Click - sleep 5 - try - '/// Modify->Convert->To Metafile ///' - '/// Modify->Convert->To Metafile ///' - ContextConvertIntoMetafile - Printlog "- convert into meta file does work" - catch - Warnlog "- convert into meta file does not work" - endcatch - '/// close application ///' + if Messagebox.Exists (5) Then Messagebox.OK + sleep 1 + Kontext "GrafikEinfuegenDlg" + printlog "insert graphic: global\input\graf_inp\desp.bmp" + sleep 2 + Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp") + sleep 2 + Preview.Click + sleep 3 + Oeffnen.Click + sleep 5 + try + printlog "Modify->Convert->To Metafile" + printlog "Modify->Convert->To Metafile" + ContextConvertIntoMetafile + Printlog "- convert into meta file does work" + catch + Warnlog "- convert into meta file does not work" + endcatch + printlog "close application" Call hCloseDocument -endcase +endcase 'tdContextConvertIntoMetaFile '------------------------------------------------------------------------------------------------------------------------------------------------ testcase tdModifyArrange - '/// open application ///' + printlog "open application" Call hNewDocument - '/// create two rectangles ///' + printlog "create two rectangles" Call hRechteckErstellen ( 10, 10, 20, 40 ) hTypeKeys("<escape>") Call hRechteckErstellen ( 30, 30, 50, 60 ) - '/// Modify->Arrange->Bring to Front ///' - '///+ Modify->Arrange->Bring to Front ///' + printlog "Modify->Arrange->Bring to Front" FormatArrangeBringToFront WaitSlot (1000) - '/// Modify->Arrange->Bring Forward ///' - '///+ Modify->Arrange->Bring Forward ///' + printlog "Modify->Arrange->Bring Forward" ContextArrangeBringForward WaitSlot (1000) - '/// Modify->Arrange->Send Backward ///' - '///+ Modify->Arrange->Send Backward ///' + printlog "Modify->Arrange->Send Backward" ContextArrangeBringBackward WaitSlot (1000) - '/// Modify->Arrange->Send to Back ///' - '///+ Modify->Arrange->Send to Back ///' + printlog "Modify->Arrange->Send to Back" FormatArrangeSendToBack WaitSlot (1000) - '/// Edit->Select All ///' + printlog "Edit->Select All" EditSelectAll - '/// Modify->Arrange->Reverse ///' - '///+ Modify->Arrange->Reverse ///' + printlog "Modify->Arrange->Reverse" ContextArrangeReverse WaitSlot (1000) - '/// close application ///' + printlog "close application" Call hCloseDocument -endcase +endcase 'tdModifyArrange '------------------------------------------------------------------------------------------------------------------------------------------------ testcase tdModifyArrangeObjects - '/// open application ///' + printlog "open application" Call hNewDocument WaitSlot (1000) - '/// create two rectangles ///' + printlog "create two rectangles" Call hRechteckErstellen ( 20, 20, 30, 50 ) hTypeKeys("<escape>") Call hRechteckErstellen ( 30,30,50,50 ) - '/// Modify->Arrange->In Front of Object ///' - '///+ Modify->Arrange->In Front of Object ///' + printlog "Modify->Arrange->In Front of Object" ContextArrangeInFrontOfObject - '/// click on the upper left rectangle ///' + printlog "click on the upper left rectangle" gMouseClick 11,11 - '/// Modify->Arrange->Behind Object ///' - '///+ Modify->Arrange->Behind Object ///' + printlog "Modify->Arrange->Behind Object" ContextArrangeBehindObject - '/// click on the lower right rectangle ///' + printlog "click on the lower right rectangle" gMouseClick 45,45 sleep 1 - '/// close application ///' + printlog "close application" Call hCloseDocument -endcase +endcase 'tdModifyArrangeObjects '------------------------------------------------------------------------------------------------------------------------------------------------ testcase tdModifyAlignment - '/// open application ///' + printlog "open application" Call hNewDocument WaitSlot (1000) - '/// create rectangle ///' + printlog "create rectangle" Call hRechteckErstellen ( 20, 20, 30, 50 ) - '/// Modify->Alignment->Left ///' - '///+ Modify->Alignment->Left ///' + printlog "Modify->Alignment->Left" ContextAlignmentLeft WaitSlot (1000) - '/// Modify->Alignment->Centered ///' - '///+ Modify->Alignment->Centered ///' + printlog "Modify->Alignment->Centered" ContextAlignmentCentered WaitSlot (1000) - '/// Modify->Alignment->Right ///' - '///+ Modify->Alignment->Right ///' + printlog "Modify->Alignment->Right" ContextAlignmentRight WaitSlot (1000) - '/// Modify->Alignment->Top ///' - '///+ Modify->Alignment->Top ///' + printlog "Modify->Alignment->Top" ContextAlignmentTop WaitSlot (1000) - '/// Modify->Alignment->Center ///' - '///+ Modify->Alignment->Center ///' + printlog "Modify->Alignment->Center" ContextAlignmentBottom WaitSlot (1000) - '/// Modify->Alignment->Bottom ///' - '///+ Modify->Alignment->Bottom ///' + printlog "Modify->Alignment->Bottom" ContextAlignmentCenter WaitSlot (1000) - '/// close application ///' + printlog "close application" Call hCloseDocument -endcase +endcase 'tdModifyAlignment '------------------------------------------------------------------------------------------------------------------------------------------------ testcase tdContextDistribution - '/// open application ///' + printlog "open application" Call hNewDocument WaitSlot (3000) - '/// create 3 rectangles ///' + printlog "create 3 rectangles" Call sSelectEmptyLayout Call hRechteckErstellen (20,20,30,30) Call hRechteckErstellen (40,40,50,50) Call hRechteckErstellen (60,60,70,70) sleep 1 - '/// select all with keyboard: <STRG>+ <A> ///' + printlog "select all with keyboard: <STRG>+ <A>" EditSelectAll sleep 1 - '/// Modify->Distibution... ///' - '///+ Modify->Distibution... ///' + printlog "Modify->Distibution..." ContextDistribution Kontext "VerteilenDlg" - sleep 1 - Call DialogTest (VerteilenDlg) - sleep 1 - '/// check radiobutton horizontal 'Left' ///' - Links.Check - '///+ check radiobutton 'Center' ///' - MitteHorizontal.Check - '///+ check radiobutton 'spacing' ///' - AbstandHorizontal.Check - '///+ check radiobutton 'right' ///' - Rechts.Check - '///+ check radiobutton 'none' ///' - KeineHorizontal.Check - '/// check radiobutton vertical 'top' ///' - Oben.Check - '///+ check radiobutton 'center' ///' - MitteVertikal.Check - '///+ check radiobutton 'spacing' ///' - AbstandVertikal.Check - '///+ check radiobutton 'bottom' ///' - Unten.Check - '///+ check radiobutton 'none' ///' - KeineVertikal.Check - '/// cancel dialog 'Distribution' ///' - VerteilenDlg.Cancel - sleep 2 - '/// close application ///' + sleep 1 + Call DialogTest (VerteilenDlg) + sleep 1 + printlog "check radiobutton horizontal 'Left'" + Links.Check + printlog "check radiobutton 'Center'" + MitteHorizontal.Check + printlog "check radiobutton 'spacing'" + AbstandHorizontal.Check + printlog "check radiobutton 'right'" + Rechts.Check + printlog "check radiobutton 'none'" + KeineHorizontal.Check + printlog "check radiobutton vertical 'top'" + Oben.Check + printlog "check radiobutton 'center'" + MitteVertikal.Check + printlog "check radiobutton 'spacing'" + AbstandVertikal.Check + printlog "check radiobutton 'bottom'" + Unten.Check + printlog "check radiobutton 'none'" + KeineVertikal.Check + printlog "cancel dialog 'Distribution'" + VerteilenDlg.Cancel + sleep 2 + printlog "close application" Call hCloseDocument -endcase +endcase 'tdContextDistribution '------------------------------------------------------------------------------------------------------------------------------------------------ testcase tdContextDescriptionObject - '/// Open application ///' + printlog "Open application" Call hNewDocument WaitSlot (1000) - '/// create rectangle ///' + printlog "create rectangle" Call hRechteckErstellen ( 10, 10, 20, 40 ) ContextDescriptionObject Kontext "DescriptionObject" - Call DialogTest (DescriptionObject) - '/// Cancel dialog 'DescriptionObject' ///' - DescriptionObject.Cancel - '/// Close application ///' + Call DialogTest (DescriptionObject) + printlog "Cancel dialog 'DescriptionObject'" + DescriptionObject.Cancel + printlog "Close application" Call hCloseDocument -endcase +endcase 'tdContextDescriptionObject '------------------------------------------------------------------------------------------------------------------------------------------------ testcase tdContextNameObject - '/// open application ///' + printlog "open application" Call hNewDocument WaitSlot (1000) - '/// create two rectangles ///' + printlog "create two rectangles" Call hRechteckErstellen ( 20, 20, 30, 50 ) hTypeKeys("<escape>") Call hRechteckErstellen ( 30, 40, 50, 60 ) sleep 1 - '/// select both by spanning a selection with the mouse ///' + printlog "select both by spanning a selection with the mouse" gMouseMove 1,1,70,70 sleep 1 - '/// Modify->Group ///' - '///+ Modify->Group ///' + printlog "Modify->Group" FormatGroupGroup WaitSlot (1000) - '/// Modify->Name Object ///' - '///+ Modify->Name Object ///' + printlog "Modify->Name Object" ContextNameObject Kontext "NameDlgObject" - Call DialogTest (NameDlgObject) - '/// cancel dialog 'name' ///' - NameDlgObject.Cancel - '/// Modify->UnGroup ///' - '///+ Modify->UnGroup ///' - FormatUngroupDraw - '/// close application ///' + Call DialogTest (NameDlgObject) + printlog "cancel dialog 'name'" + NameDlgObject.Cancel + printlog "Modify->UnGroup" + FormatUngroupDraw + printlog "close application" Call hCloseDocument -endcase +endcase 'tdContextNameObject '------------------------------------------------------------------------------------------------------------------------------------------------ testcase tdModifyConnectBreak - '/// open application ///' + printlog "open application" Call hNewDocument Call sSelectEmptyLayout sleep 1 - '/// create two rectangles ///' + printlog "create two rectangles" Call hRechteckErstellen (10,10,30,30) Call hRechteckErstellen (35,35,50,50) sleep 1 - '/// Edit->Select All ///' + printlog "Edit->Select All" EditSelectAll - '/// Modify->Connect ///' - '///+ Modify->Connect ///' + printlog "Modify->Connect" ContextConnect sleep 1 try - '/// Modify->Break ///' - '///+ Modify->Break ///' + printlog "Modify->Break" ContextBreak catch - Warnlog "- Modify-Break does not work" + Warnlog "- Modify-Break does not work" endcatch sleep 1 - '/// close application ///' + printlog "close application" Call hCloseDocument -endcase +endcase 'tdModifyConnectBreak '------------------------------------------------------------------------------------------------------------------------------------------------ testcase tdModifyShapes - '/// open application ///' + printlog "open application" Call hNewDocument Call sSelectEmptyLayout sleep 1 - '/// create two rectangles ///' + printlog "create two rectangles" gMouseClick 50,50 Call hRechteckErstellen (30,30,50,50) Call hRechteckErstellen (60,60,80,80) sleep 1 - '/// Edit->Select All ///' + printlog "Edit->Select All" EditSelectAll sleep 1 try - '/// Modify->Shapes->Merge ///' - '///+ Modify->Shapes->Merge ///' - ModifyShapesMerge ' 1 + printlog "Modify->Shapes->Merge" + ModifyShapesMerge ' 1 WaitSlot (1000) 'sleep 1 - Printlog "- Modify-Shape merge is working" + Printlog "- Modify-Shape merge is working" catch - Warnlog "- Modify-shape merge is not working" + Warnlog "- Modify-shape merge is not working" endcatch - '/// select all and delete it ///' + printlog "select all and delete it" EditSelectAll sleep 1 hTypeKeys "<DELETE>" sleep 1 - '/// create two rectangles ///' + printlog "create two rectangles" Call hRechteckErstellen (30,30,50,50) Call hRechteckErstellen (60,60,80,80) sleep 1 - '/// Edit->Select All ///' + printlog "Edit->Select All" EditSelectAll sleep 1 try - '/// Modify->Shapes->Substract ///' - '///+ Modify->Shapes->Substract ///' - ModifyShapesSubstract ' 2 - Printlog "- Modify-shape-substract is working" + printlog "Modify->Shapes->Substract" + ModifyShapesSubstract ' 2 + Printlog "- Modify-shape-substract is working" catch - Warnlog "- Modify-shape substract is not working" + Warnlog "- Modify-shape substract is not working" endcatch sleep 1 - '/// select all and delete it ///' + printlog "select all and delete it" EditSelectAll sleep 1 hTypeKeys "<DELETE>" sleep 1 - '/// create two rectangles ///' + printlog "create two rectangles" Call hRechteckErstellen (30,30,50,50) sleep 1 Call hRechteckErstellen (60,60,80,80) @@ -544,45 +516,42 @@ testcase tdModifyShapes EditSelectall sleep 1 try - '/// Modify->Shapes->Intersect ///' - '///+ Modify->Shapes->Intersect ///' - ModifyShapesIntersect ' 3 - Printlog "- Modify-shape intersect is working" + printlog "Modify->Shapes->Intersect" + ModifyShapesIntersect ' 3 + Printlog "- Modify-shape intersect is working" catch - Warnlog "- Modify-Shape intersect is not working" + Warnlog "- Modify-Shape intersect is not working" endcatch - '/// close application ///' + printlog "close application" Call hCloseDocument -endcase +endcase 'tdModifyShapes '------------------------------------------------------------------------------------------------------------------------------------------------ testcase tdModifyCombineSplit - '/// open application ///' + printlog "open application" Call hNewDocument Call sSelectEmptyLayout sleep 1 - '/// create two rectangles ///' + printlog "create two rectangles" Call hRechteckErstellen (30,30,50,50) Call hRechteckErstellen (60,60,80,80) sleep 1 - '/// Edit->Select All ///' + printlog "Edit->Select All" EditSelectAll sleep 1 try - '/// Modify->Shapes->Combine ///' - '///+ Modify->Shapes->Combine ///' - ContextCombine - Printlog "- Modify combine is working" - '/// Modify->Shapes->Split ///' - '///+ Modify->Shapes->Split ///' - ContextSplit - Printlog "- Modify-split is working" + printlog "Modify->Shapes->Combine" + ContextCombine + Printlog "- Modify combine is working" + printlog "Modify->Shapes->Split" + ContextSplit + Printlog "- Modify-split is working" catch - Warnlog "- Modify-combine and split are not working" + Warnlog "- Modify-combine and split are not working" endcatch - '/// close application ///' + printlog "close application" Call hCloseDocument -endcase +endcase 'tdModifyCombineSplit -'------------------------------------------------------------------------------------------------------------------------------------------------ +'------------------------------------------------------------------------------------------------------------------------------------------------
\ No newline at end of file diff --git a/testautomation/graphics/required/includes/global/id_008.inc b/testautomation/graphics/required/includes/global/id_008.inc index 8848c7337dac..f88174929c1f 100644 --- a/testautomation/graphics/required/includes/global/id_008.inc +++ b/testautomation/graphics/required/includes/global/id_008.inc @@ -41,43 +41,44 @@ end sub '------------------------------------------------------------------------------- testcase tiWindowNewWindow - '/// open application ///' + printlog "open application" Call hNewDocument - '/// create rectangle ///' + printlog "create rectangle" Call hRechteckErstellen ( 10, 10, 20, 40 ) - '/// Window->New Window ///' + printlog "Window->New Window" WindowNewWindow WaitSlot (2000) - '/// close application ///' + printlog "close application" Call hCloseDocument -endcase +endcase 'tiWindowNewWindow + +'------------------------------------------------------------------------------- testcase tidWindow123 goto endsub '' testing TBO: 29.03.2002 dim iMenues as integer - '/// open application ///' + printlog "open application" Call hNewDocument - '/// create rectangle ///' + printlog "create rectangle" Call hRechteckErstellen ( 10, 10, 20, 40 ) Kontext "DocumentImpress" - DocumentImpress.UseMenu - iMenues = MenuGetItemCount - warnlog "---- Number of Main menus: " & iMenues - MenuSelect(Menugetitemid(8)) - sleep 1 - iMenues = MenuGetItemCount - printlog "---- Number of Main menus: " & iMenues - ' MenuSelect(Menugetitemid(14)) - sleep 1 - i=1 - printlog "count: " + i + "; of submenu: " + MenuGetItemCount + "; SID: " + MenuGetItemId (i) + "; Text: " + MenuGetItemText (Menugetitemid(i)) + "; Command: " + MenuGetItemCommand(Menugetitemid(i)) + "; Seperator?: " + MenuIsSeperator(i) + "; Enabled: " + MenuIsItemEnabled(Menugetitemid(i)) + "; Checked: " + MenuIsItemChecked(Menugetitemid(i)) + ";" - i=2 - printlog "count: " + i + "; of submenu: " + MenuGetItemCount + "; SID: " + MenuGetItemId (i) + "; Text: " + MenuGetItemText (Menugetitemid(i)) + "; Command: " + MenuGetItemCommand(Menugetitemid(i)) + "; Seperator?: " + MenuIsSeperator(i) + "; Enabled: " + MenuIsItemEnabled(Menugetitemid(i)) + "; Checked: " + MenuIsItemChecked(Menugetitemid(i)) + ";" - warnlog "Dynamic entries not accessible ? :-(((((" - ' i=3 - ' printlog "count: " + i + "; of submenue: " + MenuGetItemCount + "; SID: " + MenuGetItemId (i) + "; Text: " + MenuGetItemText (Menugetitemid(i)) + "; Command: " + MenuGetItemCommand(Menugetitemid(i)) + "; Seperator?: " + MenuIsSeperator(i) + "; Enabled: " + MenuIsItemEnabled(Menugetitemid(i)) + "; Checked: " + MenuIsItemChecked(Menugetitemid(i)) + ";" - '/// close application ///' + DocumentImpress.UseMenu + iMenues = MenuGetItemCount + warnlog "---- Number of Main menus: " & iMenues + MenuSelect(Menugetitemid(8)) + sleep 1 + iMenues = MenuGetItemCount + printlog "---- Number of Main menus: " & iMenues + ' MenuSelect(Menugetitemid(14)) + sleep 1 + i=1 + printlog "count: " + i + "; of submenu: " + MenuGetItemCount + "; SID: " + MenuGetItemId (i) + "; Text: " + MenuGetItemText (Menugetitemid(i)) + "; Command: " + MenuGetItemCommand(Menugetitemid(i)) + "; Seperator?: " + MenuIsSeperator(i) + "; Enabled: " + MenuIsItemEnabled(Menugetitemid(i)) + "; Checked: " + MenuIsItemChecked(Menugetitemid(i)) + ";" + i=2 + printlog "count: " + i + "; of submenu: " + MenuGetItemCount + "; SID: " + MenuGetItemId (i) + "; Text: " + MenuGetItemText (Menugetitemid(i)) + "; Command: " + MenuGetItemCommand(Menugetitemid(i)) + "; Seperator?: " + MenuIsSeperator(i) + "; Enabled: " + MenuIsItemEnabled(Menugetitemid(i)) + "; Checked: " + MenuIsItemChecked(Menugetitemid(i)) + ";" + warnlog "Dynamic entries not accessible ? :-(((((" + ' i=3 + ' printlog "count: " + i + "; of submenue: " + MenuGetItemCount + "; SID: " + MenuGetItemId (i) + "; Text: " + MenuGetItemText (Menugetitemid(i)) + "; Command: " + MenuGetItemCommand(Menugetitemid(i)) + "; Seperator?: " + MenuIsSeperator(i) + "; Enabled: " + MenuIsItemEnabled(Menugetitemid(i)) + "; Checked: " + MenuIsItemChecked(Menugetitemid(i)) + ";" + printlog "close application" Call hCloseDocument -endcase - +endcase 'tidWindow123
\ No newline at end of file diff --git a/testautomation/graphics/required/includes/global/id_009.inc b/testautomation/graphics/required/includes/global/id_009.inc index d03d99b6050c..3680dfafbc4f 100644 --- a/testautomation/graphics/required/includes/global/id_009.inc +++ b/testautomation/graphics/required/includes/global/id_009.inc @@ -43,252 +43,238 @@ sub id_009 end sub '------------------------------------------------------------------------------ -testcase tmHelpHelpAgent +testcase tmHelpHelpAgent Call hNewDocument - hTBOtypeInDoc - HelpHelpAgent ' it's just a switch sleep 2 HelpHelpAgent - Call hCloseDocument -endcase +endcase 'tmHelpHelpAgent -'...---....---.-.-.-.-.....---......--.-.-.-.....----..-........................---....... +'------------------------------------------------------------------------------ testcase tmHelpTips Call hNewDocument hTBOtypeInDoc - HelpTips Sleep 2 HelpTips - Call hCloseDocument -endcase +endcase 'tmHelpTips -'...---....---.-.-.-.-.....---......--.-.-.-.....----..-........................---....... +'------------------------------------------------------------------------------ testcase tmHelpExtendedTips Call hNewDocument hTBOtypeInDoc - HelpEntendedHelp Sleep (2) HelpEntendedHelp - Call hCloseDocument -endcase +endcase 'tmHelpExtendedTips -'...---....---.-.-.-.-.....---......--.-.-.-.....----..-........................---....... +'------------------------------------------------------------------------------ testcase tmHelpAboutStarOffice Call hNewDocument hTBOtypeInDoc - HelpAboutStarOffice Kontext "UeberStarMath" DialogTest (UeberStarMath) UeberStarMath.OK - Call hCloseDocument -endcase +endcase 'tmHelpAboutStarOffice -'...---....---.-.-.-.-.....---......--.-.-.-.....----..-........................---....... +'------------------------------------------------------------------------------ testcase tmHelpContents - goto endsub '"#i84486# - tmHelpContents outcommented due to crash." - dim i as integer + dim i as integer - '/// open application ///' - Call hNewDocument - '/// Help->Contents ///' - HelpContents - sleep(8) - kontext "StarOfficeHelp" - if Not StarOfficeHelp.Exists then - Warnlog "Help is not up!" - else - '/// get the number of entries in the listbox 'select Help modul' ///' - Printlog "HelpAbout: '" + HelpAbout.GetItemCount +"'" - '################ left half ################ - '/// on the left half of the dialog: ///' - '///+ change to the tabpage 'Contents' ///' - TabControl.SetPage ContentPage - '///+ get the number of entries in the listbox 'MAin help themes' ///' - Printlog "SearchContent: '" + SearchContent.GetItemCount + "'" - '///+ change to the tabpage 'Index' ///' - TabControl.SetPage IndexPage - '///+ get the number of entries in the listbox 'Search term' ///' - Printlog "SearchIndex: '" + SearchIndex.GetItemCount + "'" - sleep 5 - '///+ click on button 'Display' ///' - DisplayIndex.Click - sleep 5 - '///+ change to the tabpage 'Find' ///' - TabControl.SetPage FindPage - '///+ get the number of entries in the listbox 'Search term' ///' - Printlog "SearchFind: '" + SearchFind.GetItemCount + "'" - '/// If the Search-Text-Field is empty - Check that the Find-button is deactivated ///' - if SearchFind.GetSelText = "" then - if FindButton.IsEnabled then - warnlog " The Find-Button should have been inactive, but was active." - endif - else - warnlog " The Search-Text-Field shouldn't contain any text. But contained: " + SearchFind.GetSelText - endif - '/// Insert some irrelevant text to get 0 results from the search. ///' - SearchFind.SetText "Doobbidedooo" - '///+ click on button 'Find' ///' - FindButton.Click - kontext - '///+ Messagebox comes up about: 'No topics found.' say OK ///' - if (active.exists (2) )then - Printlog "active came up: '" + active.gettext + "'" - active.ok + printlog "open application" + Call hNewDocument + printlog "Help->Contents" + HelpContents + sleep(8) + kontext "StarOfficeHelp" + if Not StarOfficeHelp.Exists then + Warnlog "Help is not up!" + else + printlog "get the number of entries in the listbox 'select Help modul'" + Printlog "HelpAbout: '" + HelpAbout.GetItemCount +"'" + printlog "on the left half of the dialog:" + printlog "change to the tabpage 'Contents'" + TabControl.SetPage ContentPage + printlog "get the number of entries in the listbox 'MAin help themes'" + Printlog "SearchContent: '" + SearchContent.GetItemCount + "'" + printlog "change to the tabpage 'Index'" + TabControl.SetPage IndexPage + printlog "get the number of entries in the listbox 'Search term'" + Printlog "SearchIndex: '" + SearchIndex.GetItemCount + "'" + sleep 5 + printlog "click on button 'Display'" + DisplayIndex.Click + sleep 5 + printlog "change to the tabpage 'Find'" + TabControl.SetPage FindPage + printlog "get the number of entries in the listbox 'Search term'" + Printlog "SearchFind: '" + SearchFind.GetItemCount + "'" + printlog "If the Search-Text-Field is empty - Check that the Find-button is deactivated" + if SearchFind.GetSelText = "" then + if FindButton.IsEnabled then + warnlog " The Find-Button should have been inactive, but was active." endif - kontext "StarOfficeHelp" - '///+ check checkbox 'Complete words only' ///' - FindFullWords.Check - '///+ check checkbox 'Find in headings only' ///' - FindInHeadingsOnly.Check - '///+ get the number of entries in the listbox 'List of headings' ///' - Printlog "Result: '" + Result.GetItemCount + "'" - '///+ click on button 'Display' ///' - DisplayFind.Click - '///+ change to the tabpage 'Bookmarks' ///' - TabControl.SetPage BookmarksPage - '///+ get the number of entries in the listbox 'Bookmark list' ///' - Printlog "Bookmarks: '" + Bookmarks.GetItemCount + "'" - '///+ click on button 'Display' ///' - DisplayBookmarks.Click - '################ right half ################ - '/// on the right half of teh dialog: ///' - '################ toolbar ################ - Kontext "TB_Help" - '///+ click on button 'Hide/Show Navigation Pane' ///' - Index.Click + else + warnlog " The Search-Text-Field shouldn't contain any text. But contained: " + SearchFind.GetSelText + endif + printlog "Insert some irrelevant text to get 0 results from the search." + SearchFind.SetText "Doobbidedooo" + printlog "click on button 'Find'" + FindButton.Click + kontext + printlog "Messagebox comes up about: 'No topics found.' say OK" + if (active.exists (2) )then + Printlog "active came up: '" + active.gettext + "'" + active.ok + endif + kontext "StarOfficeHelp" + printlog "check checkbox 'Complete words only' " + FindFullWords.Check + printlog "check checkbox 'Find in headings only' " + FindInHeadingsOnly.Check + printlog "get the number of entries in the listbox 'List of headings'" + Printlog "Result: '" + Result.GetItemCount + "'" + printlog "click on button 'Display'" + DisplayFind.Click + printlog "change to the tabpage 'Bookmarks'" + TabControl.SetPage BookmarksPage + printlog "get the number of entries in the listbox 'Bookmark list'" + Printlog "Bookmarks: '" + Bookmarks.GetItemCount + "'" + printlog "click on button 'Display'" + DisplayBookmarks.Click + printlog "on the right half of teh dialog:" + Kontext "TB_Help" + printlog "click on button 'Hide/Show Navigation Pane'" + Index.Click + sleep 1 + printlog "click on button 'Hide/Show Navigation Pane'" + Index.Click + sleep 1 + printlog "click on button 'First Page'" + GoToStart.Click + sleep 1 + printlog "click on button 'Previous Page'" + Backward.Click + sleep 1 + printlog "click on button 'Next Page'" + Forward.Click + sleep 1 + printlog "click on button 'Print ...'" + PrintButton.Click + sleep (1) + kontext "Active" + if Active.Exists( 2 ) then + qaerrorlog "No default printer defined: " & Active.GetText + Active.Ok + end if + kontext "Printing" + if Printing.Exists( 2 ) then + printlog "In the dialog 'Print' press the button 'Cancel'" + Printing.cancel + else + warnlog "the Print-Dialogue didnt appear." + end if + Kontext "TB_Help" + printlog "click on button 'Add to Bookmarks ...'" + sleep 1 + SetBookmarks.Click + sleep 1 + Kontext "AddBookmark" + printlog "on the dialog 'Add to Bookmarks ...' get the text from the editfield 'Bookmark' and press button 'Cancel'" + Printlog "Bookmarkname: '" + Bookmarkname.GetText + "'" + AddBookmark.Cancel + sleep 1 + '################ help display ################ + kontext "HelpContent" + printlog "open the Context Menu of the Frame 'Help Content' and count the entries" + HelpContent.OpenContextMenu + sleep 1 + Printlog " i: " + hMenuItemGetCount + hMenuClose() + '################ right scroolbar ################ + kontext "HelpContent" + printlog "click on button 'Previous Page'" + if HelpContentUP.IsVisible then + HelpContentUP.Click sleep 1 - '///+ click on button 'Hide/Show Navigation Pane' ///' - Index.Click - sleep 1 - '///+ click on button 'First Page' ///' - GoToStart.Click - sleep 1 - '///+ click on button 'Previous Page' ///' - Backward.Click - sleep 1 - '///+ click on button 'Next Page' ///' - Forward.Click - sleep 1 - '///+ click on button 'Print ...' ///' - PrintButton.Click - sleep (1) - - kontext "Active" - if Active.Exists( 2 ) then - qaerrorlog "No default printer defined: " & Active.GetText - Active.Ok - end if - - kontext "Printing" - if Printing.Exists( 2 ) then - '/// In the dialog 'Print' press the button 'Cancel' ///' - Printing.cancel - else - warnlog "the Print-Dialogue didnt appear." - end if - Kontext "TB_Help" - '///+ click on button 'Add to Bookmarks ...' ///' - sleep 1 - SetBookmarks.Click - sleep 1 - Kontext "AddBookmark" - '///+ on the dialog 'Add to Bookmarks ...' get the text from the editfield 'Bookmark' and press button 'Cancel' ///' - Printlog "Bookmarkname: '" + Bookmarkname.GetText + "'" - AddBookmark.Cancel - sleep 1 - '################ help display ################ - kontext "HelpContent" - '///+ open the Context Menu of the Frame 'Help Content' and count the entries ///' - HelpContent.OpenContextMenu - - sleep 1 - Printlog " i: " + hMenuItemGetCount - hMenuClose() - '################ right scroolbar ################ - kontext "HelpContent" - '///+ click on button 'Previous Page' ///' - if HelpContentUP.IsVisible then - HelpContentUP.Click - sleep 1 - endif - '///+ click on button 'Navigation' ///' - if HelpContentNAVIGATION.IsVisible then - HelpContentNAVIGATION.Click - sleep 1 - endif - kontext "NavigationsFenster" - '/// on the toolbox 'Navigation' press the window close button 'X' ///' - NavigationsFenster.Close - sleep 1 - kontext "HelpContent" - '///+ click on button 'Next Page' ///' - if HelpContentDOWN.IsVisible then - HelpContentDOWN.Click - sleep 1 - endif - kontext "StarOfficeHelp" - '/// close the help with the keys [strg]+[F4] ///' - Printlog "trying to close the help now" - try - StarOfficeHelp.TypeKeys "<Mod1 F4>" ' strg F4 supported since bug #103586# - catch - Warnlog "failed to close the help window :-(" - endcatch - kontext "StarOfficeHelp" - if StarOfficeHelp.Exists then - warnlog "Help still up!" - endif - endif - '/// close application ///' - Call hCloseDocument -endcase + endif + printlog "click on button 'Navigation'" + if HelpContentNAVIGATION.IsVisible then + HelpContentNAVIGATION.Click + sleep 1 + endif + kontext "NavigationsFenster" + printlog "on the toolbox 'Navigation' press the window close button 'X'" + NavigationsFenster.Close + sleep 1 + kontext "HelpContent" + printlog "click on button 'Next Page'" + if HelpContentDOWN.IsVisible then + HelpContentDOWN.Click + sleep 1 + endif + kontext "StarOfficeHelp" + printlog "close the help with the keys [strg]+[F4]" + Printlog "trying to close the help now" + try + StarOfficeHelp.TypeKeys "<Mod1 F4>" ' strg F4 supported since bug #103586# + catch + Warnlog "failed to close the help window :-(" + endcatch + kontext "StarOfficeHelp" + if StarOfficeHelp.Exists then + warnlog "Help still up!" + endif + endif + printlog "close application" + Call hCloseDocument +endcase 'tmHelpContents -'...---....---.-.-.-.-.....---......--.-.-.-.....----..-........................---....... +'------------------------------------------------------------------------------ testcase tCheckIfTheHelpExists - '/// open application ///' - Call hNewDocument - '/// Bring up the help-window ///' - HelpContents - kontext "HelpContent" - sleep (5) - '/// Press "CTRL A" and "CTRL C" to select all and then copy it. ///' - HelpContent.TypeKeys "<MOD1 A>" - sleep (1) - HelpContent.TypeKeys "<MOD1 C>" - '/// If the clipboard now is empty, then nothing were copied, which means we have a bug. ///' - if GetClipBoard = "" then - Warnlog " No content in the Help-Content -view." - else - Printlog " The Help-Content -view contained content. Good." - endif - kontext "StarOfficeHelp" - '/// Press "CTRL F4" to close the help-window. ///' - try - StarOfficeHelp.TypeKeys "<MOD1 F4>" - catch - Warnlog " Failed to close the help window :-(" - endcatch - kontext "StarOfficeHelp" - if StarOfficeHelp.Exists then - warnlog "Help was still visible!" - endif - '/// And a dot into the main window. Making sure kontext and focus is right. ///' - hTypeKeys "." - '/// Close Application ///' - Call hCloseDocument + printlog "open application" + Call hNewDocument + printlog "Bring up the help-window" + HelpContents + kontext "HelpContent" + sleep (5) + printlog "Press CTRL A and CTRL C to select all and then copy it." + HelpContent.TypeKeys "<MOD1 A>" + sleep (1) + HelpContent.TypeKeys "<MOD1 C>" + printlog "If the clipboard now is empty, then nothing were copied, which means we have a bug." + if GetClipBoard = "" then + Warnlog "No content in the Help-Content -view." + else + Printlog "The Help-Content -view contained content. Good." + endif + kontext "StarOfficeHelp" + printlog "Press CTRL F4 to close the help-window." + try + StarOfficeHelp.TypeKeys "<MOD1 F4>" + catch + Warnlog " Failed to close the help window :-(" + endcatch + kontext "StarOfficeHelp" + if StarOfficeHelp.Exists then + warnlog "Help was still visible!" + endif + printlog "And a dot into the main window. Making sure kontext and focus is right." + hTypeKeys "." + printlog "Close Application" + Call hCloseDocument endcase 'tCheckIfTheHelpExists + +'------------------------------------------------------------------------------
\ No newline at end of file diff --git a/testautomation/graphics/required/includes/global/id_011.inc b/testautomation/graphics/required/includes/global/id_011.inc index 186c5e1b51ef..f9ad3f46378b 100644 --- a/testautomation/graphics/required/includes/global/id_011.inc +++ b/testautomation/graphics/required/includes/global/id_011.inc @@ -42,279 +42,271 @@ sub id_011 end sub '------------------------------------------------------------------------------- -testcase tiTextToolbar +testcase tiTextToolbar Dim iWaitIndex as integer Dim Zufall as integer Dim i as integer - '/// open application ///' + printlog "open application" Call hNewDocument Call sSelectEmptyLayout - - '/// create a textframe with text ///' + printlog "create a textframe with text" hTextrahmenErstellen ("This is a Text, which will be formatted in several ways", 20,20,40,80) - '/// The 'Object Toolbar' now changes ///' + printlog "The 'Object Toolbar' now changes" sleep 2 - '/// select of the text with <STRG> + <A> ///' + printlog "select of the text with <STRG> + <A>" EditSelectAll sleep 2 - '/// Call the textobjectbar from the View-Toolbars-menu ///' + printlog "Call the textobjectbar from the View-Toolbars-menu" Kontext "TextObjectbar" - if TextObjectbar.Exists <> TRUE then 'isVisible - ViewToolbarsTextFormatting - end if - WaitSlot (3000) 'sleep (3) + if TextObjectbar.Exists <> TRUE then 'isVisible + ViewToolbarsTextFormatting + end if + WaitSlot (3000) 'sleep (3) Kontext "TextObjectbar" - Printlog "- choose random font" - randomize - Zufall=((2*Rnd)+1) ' wird nicht auf den verfuegbaren bereich getreckt :-( TODO TBO! - Schriftart.GetItemcount - Schriftart.GetSelText - Schriftart.Select (Zufall) - '/// select any font you like in the listbox 'Font' on 'Object Toolbar' ///' - Printlog Schriftart.GetSelText + " chosen" - + Printlog "- choose random font" + randomize + Zufall=((2*Rnd)+1) ' wird nicht auf den verfuegbaren bereich getreckt :-( TODO TBO! + Schriftart.GetItemcount + Schriftart.GetSelText + Schriftart.Select (Zufall) + printlog "select any font you like in the listbox 'Font' on 'Object Toolbar'" + Printlog Schriftart.GetSelText + " chosen" Kontext "TextObjectbar" - sleep 2 - Printlog "- Change size of font" - '/// select any font you like in the listbox 'Size' on 'Object Toolbar' ///' - Schriftgroesse.Select (Zufall) - Printlog Schriftgroesse.GetSelText + " chosen" - + sleep 2 + Printlog "- Change size of font" + printlog "select any font you like in the listbox 'Size' on 'Object Toolbar'" + Schriftgroesse.Select (Zufall) + Printlog Schriftgroesse.GetSelText + " chosen" Kontext "TextObjectbar" - Printlog "- Font attribute bold" - '/// click button 'Bold' ///' - Fett.Click - sleep 2 - + Printlog "- Font attribute bold" + printlog "click button 'Bold'" + Fett.Click + sleep 2 Kontext "TextObjectbar" - Printlog "- Font attribute cursive" - '/// click button 'Italic' ///' - Kursiv.Click - sleep 2 - + Printlog "- Font attribute cursive" + printlog "click button 'Italic'" + Kursiv.Click + sleep 2 Kontext "TextObjectbar" - Printlog "- Font attribute cursiv" - '/// click button 'Underline' ///' - Unterstrichen.Click - sleep 2 - + Printlog "- Font attribute cursiv" + printlog "click button 'Underline'" + Unterstrichen.Click + sleep 2 Kontext "TextObjectbar" - Printlog "- font attribute color" - '/// click button 'Font Color' and tearoff the box ///' - sleep 3 - FontColorGraphics.TearOff - Kontext "TB_Farbe" - TB_Farbe.Move 20, 20 - Sleep 2 - '/// double click in the middle of the box ///' - TB_Farbe.MouseDoubleClick 50, 50 - Sleep 2 - '/// close box 'Font Color' ///' - TB_Farbe.Close + Printlog "- font attribute color" + printlog "click button 'Font Color' and tearoff the box" + sleep 3 + FontColorGraphics.TearOff + Kontext "TB_Farbe" + TB_Farbe.Move 20, 20 + Sleep 2 + printlog "double click in the middle of the box" + TB_Farbe.MouseDoubleClick 50, 50 + Sleep 2 + printlog "close box 'Font Color'" + TB_Farbe.Close Kontext "TextObjectbar" - Printlog "- Allign text left" - '/// click button 'Left' ///' - Linksbuendig.Click - sleep 2 + Printlog "- Allign text left" + printlog "click button 'Left'" + Linksbuendig.Click + sleep 2 Kontext "TextObjectbar" - Printlog "- Allign text centered" - '/// click button 'Centered' ///' - Zentriert.Click - sleep 2 + Printlog "- Allign text centered" + printlog "click button 'Centered'" + Zentriert.Click + sleep 2 Kontext "TextObjectbar" - Printlog "- align text to right" - '/// click button 'Right' ///' - Rechtsbuendig.Click - sleep 2 + Printlog "- align text to right" + printlog "click button 'Right'" + Rechtsbuendig.Click + sleep 2 Kontext "TextObjectbar" - Printlog "- Justified" - '/// click button 'Justified' ///' - Blocksatz.Click - sleep 2 + Printlog "- Justified" + printlog "click button 'Justified'" + Blocksatz.Click + sleep 2 Kontext "TextObjectbar" - if TextObjectbar.isEnabled <> TRUE then - warnlog "Couldn't access TextObjectbar - known bug with bars - FHA" - ViewToolbarsTextFormatting - end if - WaitSlot (2000) 'sleep 2 - Printlog "- Raising Font spacing" - '/// click button 'Increase Spacing' ///' - + if TextObjectbar.isEnabled <> TRUE then + warnlog "Couldn't access TextObjectbar - known bug with bars - FHA" + ViewToolbarsTextFormatting + end if + WaitSlot (2000) 'sleep 2 + Printlog "- Raising Font spacing" + printlog "click button 'Increase Spacing'" kontext "TextObjectbar" - sleep 1 - '/// Check if the bar is there. If not - wait for maximum 10 seconds) - iWaitIndex = 0 - do while NOT TextObjectbar.isEnabled AND iWaitIndex < 10 - sleep(1) - iWaitIndex = iWaitIndex + 1 - loop - if NOT TextObjectbar.isEnabled AND iWaitIndex = 10 then - warnlog "Dialogue TextObjectbar didnt work. Ending testcase." - Call hCloseDocument - goto endsub - end if - '/// Activate the Font spacing-buttons ///' - TextObjectbar.OpenContextMenu - sleep 2 - hMenuselectNr (1) - sleep 2 - hMenuItemCheck (13) - sleep 2 - TextObjectbar.OpenContextMenu - sleep 2 - hMenuselectNr (1) - sleep 2 - hMenuItemCheck (14) - sleep 2 - ZeilenabstandErhoehen.Click - sleep 2 - + sleep 1 + printlog "Check if the bar is there. If not - wait for maximum 10 seconds)" + iWaitIndex = 0 + do while NOT TextObjectbar.isEnabled AND iWaitIndex < 10 + sleep(1) + iWaitIndex = iWaitIndex + 1 + loop + if NOT TextObjectbar.isEnabled AND iWaitIndex = 10 then + warnlog "Dialogue TextObjectbar didnt work. Ending testcase." + Call hCloseDocument + goto endsub + end if + printlog "Activate the Font spacing-buttons" + TextObjectbar.OpenContextMenu + sleep 2 + hMenuselectNr (1) + sleep 2 + hMenuItemCheck (13) + sleep 2 + TextObjectbar.OpenContextMenu + sleep 2 + hMenuselectNr (1) + sleep 2 + hMenuItemCheck (14) + sleep 2 + ZeilenabstandErhoehen.Click + sleep 2 Kontext "TextObjectbar" - Printlog "- Decrease Spacing" - '/// click button 'Decrease Spacing' ///' - ZeilenabstandVerringern.Click - sleep 2 + Printlog "- Decrease Spacing" + printlog "click button 'Decrease Spacing'" + ZeilenabstandVerringern.Click + sleep 2 Kontext "TextObjectbar" - Printlog "- Numbering and Bullets" - sleep 2 - '/// click button 'Bullets On/Off' ///' - BulletsOnOff.Click - sleep 2 - '/// click button 'Bullets On/Off' ///' - BulletsOnOff.Click - '----------------------------------------------------------------------- + Printlog "- Numbering and Bullets" + sleep 2 + printlog "click button 'Bullets On/Off'" + BulletsOnOff.Click + sleep 2 + printlog "click button 'Bullets On/Off'" + BulletsOnOff.Click + '----------------------------------------------------------------------- Kontext "TextObjectBar" - Printlog "- Increase Font /Reduce Font" - sleep 2 - printlog "- Click on Increase Font" - IncreaseFont.Click - sleep 2 - printlog "- Click on Reduce Font" - ReduceFont.Click - '----------------------------------------------------------------------- + Printlog "- Increase Font /Reduce Font" + sleep 2 + printlog "- Click on Increase Font" + IncreaseFont.Click + sleep 2 + printlog "- Click on Reduce Font" + ReduceFont.Click + '----------------------------------------------------------------------- Kontext "TextObjectbar" - Printlog "- Text direction from left to right" - sleep 2 - Printlog "- click button 'Text direction from left to right'" - try - TextdirectionLeftToRight.Click - printlog "hor does work :-)" - if (gAsianSup = FALSE) then - warnlog " this doesn't have to work if asian lang support is disabled :-)" - end if - catch - if (gAsianSup = TRUE) then - warnlog "hor does NOT work :-(" - end if - endcatch - Printlog "- click button 'Text direction from top to bottom" - try - TextdirectionTopToBottom.Click - printlog "ver does work :-)" - if (gAsianSup = FALSE) then - warnlog " this doesnt have to work if asian lang support is disabled :-)" - end if - catch - if (gAsianSup = TRUE) then - warnlog "ver does NOT work :-( , AsianLanguage support is enabled !" - end if - endcatch + Printlog "- Text direction from left to right" + sleep 2 + Printlog "- click button 'Text direction from left to right'" + try + TextdirectionLeftToRight.Click + printlog "hor does work :-)" + if (gAsianSup = FALSE) then + warnlog " this doesn't have to work if asian lang support is disabled :-)" + end if + catch + if (gAsianSup = TRUE) then + warnlog "hor does NOT work :-(" + end if + endcatch + Printlog "- click button 'Text direction from top to bottom" + try + TextdirectionTopToBottom.Click + printlog "ver does work :-)" + if (gAsianSup = FALSE) then + warnlog " this doesnt have to work if asian lang support is disabled :-)" + end if + catch + if (gAsianSup = TRUE) then + warnlog "ver does NOT work :-( , AsianLanguage support is enabled !" + end if + endcatch Printlog "- open character dialog" Kontext "TextObjectbar" - sleep 2 - '/// click button 'Character' ///' - Zeichenformat.Click - sleep 2 - Kontext - Active.SetPage TabFont - Kontext "TabFont" - sleep 2 - if TabFont.Exists Then - '/// close dialog 'character' ///' - TabFont.Cancel - Printlog "- Tabfont exists" - else - Warnlog "- No dialog exists " - end if + sleep 2 + printlog "click button 'Character'" + Zeichenformat.Click + sleep 2 + Kontext + Active.SetPage TabFont + Kontext "TabFont" + sleep 2 + if TabFont.Exists Then + printlog "close dialog 'character'" + TabFont.Cancel + Printlog "- Tabfont exists" + else + Warnlog "- No dialog exists " + end if Kontext "TextObjectbar" - sleep 2 - Printlog "- call properties for paragraph using text object toolbar" - '/// click button 'Paragraph' ///' - Absatzformat.Click - sleep 2 - Kontext - Active.SetPage TabTabulator - Kontext "TabTabulator" - if TabTabulator.Exists Then - Printlog "- TabTabulator exists" - '/// close dialog 'Paragraph' ///' - TabTabulator.Cancel - else - Warnlog "- TabTabulator does not exist" - end if + sleep 2 + Printlog "- call properties for paragraph using text object toolbar" + printlog "click button 'Paragraph'" + Absatzformat.Click + sleep 2 + Kontext + Active.SetPage TabTabulator + Kontext "TabTabulator" + if TabTabulator.Exists Then + Printlog "- TabTabulator exists" + printlog "close dialog 'Paragraph'" + TabTabulator.Cancel + else + Warnlog "- TabTabulator does not exist" + end if if (UCase(gApplication)) = "IMPRESS" then ' IMPRESS only - '/// if the Application is Impress: ///' + printlog "if the Application is Impress:" Kontext "TextObjectbar" - '/// click button 'Numbering Symbols' ///' - OutlineBullet.Click - kontext - if active.exists (5) then - messagebox.SetPage TabOptionenNumerierung - kontext "TabOptionenNumerierung" - '/// cancel dialog 'Numbering/Bullets' ///' - if (TabOptionenNumerierung.exists (5) ) then - Printlog "Numbering/Bullets window came up :-)" - sleep 2 - TabOptionenNumerierung.cancel - else - warnlog "no Numbering/Bullets window came up :-(" - end if + printlog "click button 'Numbering Symbols'" + OutlineBullet.Click + kontext + if active.exists (5) then + messagebox.SetPage TabOptionenNumerierung + kontext "TabOptionenNumerierung" + printlog "cancel dialog 'Numbering/Bullets'" + if (TabOptionenNumerierung.exists (5) ) then + Printlog "Numbering/Bullets window came up :-)" sleep 2 - else - warnlog "no Numbering/Bullets window came up :-( 2" - end if + TabOptionenNumerierung.cancel + else + warnlog "no Numbering/Bullets window came up :-(" + end if + sleep 2 + else + warnlog "no Numbering/Bullets window came up :-( 2" + end if - Printlog "-change order of outline points" - sleep 3 - '/// View->Master View->Outline View ///' - ViewWorkspaceOutlineView - WaitSlot (2000) 'sleep (3) - Kontext "DocumentImpressOutlineView" - sleep 1 - '/// type something ///' - DocumentImpressOutlineView.TypeKeys "Bla bla bla <RETURN><TAB>bla bla bla bla bla <MOD1 SHIFT LEFT>" - sleep 1 - Kontext "TextObjectbar" - '/// click button 'Promote' ///' - HierachieRunter.Click - sleep 1 - Printlog "- Move back down" - '/// click button 'Denote' ///' - HierachieHoch.Click - sleep 1 - '/// click button 'Denote' ///' - HierachieHoch.Click - sleep 1 - Printlog "- Move paragraph up" - '/// click button 'Move Up', twice to get two slides ///' - AbsatzHoch.Click - sleep 1 - Printlog "- move paragraph back down and switch to drawing view" - '/// click button 'Move Down' ///' - AbsatzRunter.Click - sleep 1 + Printlog "-change order of outline points" + sleep 3 + printlog "View->Master View->Outline View" + ViewWorkspaceOutlineView + WaitSlot (2000) 'sleep (3) + Kontext "DocumentImpressOutlineView" + sleep 1 + printlog "type something" + DocumentImpressOutlineView.TypeKeys "Bla bla bla <RETURN><TAB>bla bla bla bla bla <MOD1 SHIFT LEFT>" + sleep 1 + Kontext "TextObjectbar" + printlog "click button 'Promote'" + HierachieRunter.Click + sleep 1 + Printlog "- Move back down" + printlog "click button 'Denote'" + HierachieHoch.Click + sleep 1 + printlog "click button 'Denote'" + HierachieHoch.Click + sleep 1 + Printlog "- Move paragraph up" + printlog "click button 'Move Up', twice to get two slides" + AbsatzHoch.Click + sleep 1 + Printlog "- move paragraph back down and switch to drawing view" + printlog "click button 'Move Down'" + AbsatzRunter.Click + sleep 1 Kontext "Vorschau" if Vorschau.Exists then @@ -324,80 +316,79 @@ testcase tiTextToolbar else ' DRAW only Kontext "TextObjectbar" - Printlog "- Double" - '/// click button 'Double' ///' - LineSpacing2.Click - sleep 2 + Printlog "- Double" + printlog "click button 'Double'" + LineSpacing2.Click + sleep 2 Kontext "TextObjectbar" - Printlog "- 1.5 lines" - '/// click button '1.5 lines' ///' - LineSpacing15.Click - sleep 2 + Printlog "- 1.5 lines" + printlog "click button '1.5 lines'" + LineSpacing15.Click + sleep 2 Kontext "TextObjectbar" - Printlog "- Single" - '/// click button 'Single' ///' - LineSpacing1.Click - sleep 2 + Printlog "- Single" + printlog "click button 'Single'" + LineSpacing1.Click + sleep 2 end if - '/// Check if the bar is there. If not - wait for maximum 10 seconds) + printlog "Check if the bar is there. If not - wait for maximum 10 seconds)" iWaitIndex = 0 Kontext "TextObjectbar" - do while TextObjectbar.isEnabled = FALSE AND iWaitIndex < 10 - sleep(1) - iWaitIndex = iWaitIndex + 1 - loop - if TextObjectbar.isEnabled = FALSE AND iWaitIndex = 10 then - warnlog "Dialogue TextObjectbar didnt work. Ending testcase." - Call hCloseDocument - goto endsub - end if - '/// Reset the original value of the Font spacing-buttons ///' - sleep 2 + do while TextObjectbar.isEnabled = FALSE AND iWaitIndex < 10 + sleep(1) + iWaitIndex = iWaitIndex + 1 + loop + if TextObjectbar.isEnabled = FALSE AND iWaitIndex = 10 then + warnlog "Dialogue TextObjectbar didnt work. Ending testcase." + Call hCloseDocument + goto endsub + end if + printlog "Reset the original value of the Font spacing-buttons" + sleep 2 Kontext "TextObjectbar" - TextObjectbar.OpenContextMenu - sleep 2 - hMenuselectNr (1) - sleep 2 - hMenuItemUnCheck (13) - sleep 2 - TextObjectbar.OpenContextMenu - sleep 2 - hMenuselectNr (1) - sleep 2 - hMenuItemUnCheck (14) - sleep 2 - '/// Close the TextFormatting Toolbar ///' - ViewToolbarsTextFormatting - WaitSlot (2000) 'sleep 1 - '/// Clear the document from content ///' + TextObjectbar.OpenContextMenu + sleep 2 + hMenuselectNr (1) + sleep 2 + hMenuItemUnCheck (13) + sleep 2 + TextObjectbar.OpenContextMenu + sleep 2 + hMenuselectNr (1) + sleep 2 + hMenuItemUnCheck (14) + sleep 2 + printlog "Close the TextFormatting Toolbar" + ViewToolbarsTextFormatting + WaitSlot (2000) 'sleep 1 + printlog "Clear the document from content" if (gApplication = "IMPRESS") then Kontext "DocumentImpressOutlineView" - DocumentImpressOutlineView.TypeKeys "<ESCAPE>" - EditSelectAll - DocumentImpressOutlineView.TypeKeys "<DELETE>" - sleep (3) - ViewWorkspaceDrawingView + DocumentImpressOutlineView.TypeKeys "<ESCAPE>" + EditSelectAll + DocumentImpressOutlineView.TypeKeys "<DELETE>" + sleep (3) + ViewWorkspaceDrawingView Kontext "DocumentImpress" - WaitSlot (2000) 'sleep 1 - DocumentImpress.TypeKeys "<ESCAPE>" - EditSelectAll - DocumentImpress.TypeKeys "<DELETE>" + WaitSlot (2000) 'sleep 1 + DocumentImpress.TypeKeys "<ESCAPE>" + EditSelectAll + DocumentImpress.TypeKeys "<DELETE>" else Kontext "DocumentDraw" - DocumentDraw.TypeKeys "<ESCAPE>" - EditSelectAll - DocumentDraw.TypeKeys "<DELETE>" + DocumentDraw.TypeKeys "<ESCAPE>" + EditSelectAll + DocumentDraw.TypeKeys "<DELETE>" end if Printlog "Test ended." - - '/// close application ///' + printlog "close application" Call hCloseDocument -endcase +endcase 'tiTextToolbar -'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------' +'-------------------------------------------------------------------------------' testcase tiDrawObjectBar Dim a as string @@ -405,764 +396,755 @@ testcase tiDrawObjectBar Dim i as integer Dim x as integer - '/// open application ///' + printlog "open application" Call hNewDocument - - '/// create rectangle to test the part for draw objects ///' + printlog "create rectangle to test the part for draw objects" Call hRechteckErstellen (20,20,70,70) sleep 1 - '--------------------------- format line ------------------------ Printlog "- call format line using graphic object toolbar" Kontext "DrawingObjectbar" - '/// Check if the Graphic-Toolbar is there. Which it should be. ///' - '/// If it's not - then we call it from the View-Toolbars ///' - if DrawingObjectbar.Exists = FALSE then - ViewToolbarsGraphic - end if - if DrawingObjectbar.Exists = FALSE then - warnlog "Drawing-Objectbar should have been opened, but wasnt" - ViewToolbarsGraphic - end if - - sleep 3 - '/// click button 'line' on 'Object Toolbar' ///' - Linie.Click - sleep 2 - Kontext - Active.SetPage TabLinie - Kontext "TabLinie" - if TabLinie.Exists Then - '/// cancel dialog 'line' ///' - TabLinie.Cancel - Printlog "- TabLinie exists " - else - Warnlog "- TabLinie does not exist" - end if + printlog "Check if the Graphic-Toolbar is there. Which it should be." + printlog "If it's not - then we call it from the View-Toolbars" + if DrawingObjectbar.Exists = FALSE then + ViewToolbarsGraphic + end if + if DrawingObjectbar.Exists = FALSE then + warnlog "Drawing-Objectbar should have been opened, but wasnt" + ViewToolbarsGraphic + end if + sleep 3 + printlog "click button 'line' on 'Object Toolbar'" + Linie.Click + sleep 2 + Kontext + Active.SetPage TabLinie + Kontext "TabLinie" + if TabLinie.Exists Then + printlog "cancel dialog 'line'" + TabLinie.Cancel + Printlog "- TabLinie exists " + else + Warnlog "- TabLinie does not exist" + end if '--------------------------- Linienendenstil -------------------- Printlog "- Style of line ends" Kontext "DrawingObjectbar" - sleep 1 - '/// click button 'Arrow Style' and tearoff the box ///' - Linienendenstil.TearOff - sleep 2 - Kontext "Linienenden" - if Linienenden.Exists Then - Printlog "- dialog exists" - '/// close toolbox 'arrowheads' ///' - Linienenden.Close - else - Warnlog "- Arrowheads does not exist" - end if + sleep 1 + printlog "click button 'Arrow Style' and tearoff the box" + Linienendenstil.TearOff + sleep 2 + Kontext "Linienenden" + if Linienenden.Exists Then + Printlog "- dialog exists" + printlog "close toolbox 'arrowheads'" + Linienenden.Close + else + Warnlog "- Arrowheads does not exist" + end if '--------------------------- Linienstil ------------------------- Printlog "- choose style of lines using graphic object toolbar" Kontext "DrawingObjectbar" - sleep 1 - '/// select 2nd entry from the top in listbox 'Line Style' ///' - Linienstil.Select 2 - Printlog Linienstil.GetSelText + " chosen" - '/// select last entry in listbox 'Line Style' ///' - Linienstil.Select Linienstil.GetItemCount - Printlog Linienstil.GetSelText + " chosen" - sleep 2 + sleep 1 + printlog "select 2nd entry from the top in listbox 'Line Style'" + Linienstil.Select 2 + Printlog Linienstil.GetSelText + " chosen" + printlog "select last entry in listbox 'Line Style'" + Linienstil.Select Linienstil.GetItemCount + Printlog Linienstil.GetSelText + " chosen" + sleep 2 '--------------------------- Linienbreite------------------------ Printlog "- check style of lines using graphic object toolbar" Kontext "DrawingObjectbar" - sleep 1 - a = Linienbreite.GetText - SetClipboard a - sleep 1 - '/// set 'Line Width' to "0,5" ///' - Linienbreite.SetText "0,5" - sleep 2 - '/// check if the value is accepted or not ///' - if Linienbreite.GetText = a Then - Warnlog "- changes in edit field did not happen; is: '"+Linienbreite.GetText+"', should be : '"+"0,5"+"'" - else - Printlog "- Width of lines changed" - end if + sleep 1 + a = Linienbreite.GetText + SetClipboard a + sleep 1 + printlog "set 'Line Width' to 0,5" + Linienbreite.SetText "0,5" + sleep 2 + printlog "check if the value is accepted or not" + if Linienbreite.GetText = a Then + Warnlog "- changes in edit field did not happen; is: '"+Linienbreite.GetText+"', should be : '"+"0,5"+"'" + else + Printlog "- Width of lines changed" + end if '--------------------------- Linienfarbe ------------------------ Printlog "- change line color" Kontext "DrawingObjectbar" - sleep 1 - Zaehler = Linienfarbe.GetItemCount - randomize - i = Int(Zaehler*Rnd+1) - '/// select some entry in the listbox 'Line Color' ///' - Linienfarbe.Select i - Printlog Linienfarbe.GetSelText + " chosen" + sleep 1 + Zaehler = Linienfarbe.GetItemCount + randomize + i = Int(Zaehler*Rnd+1) + printlog "select some entry in the listbox 'Line Color'" + Linienfarbe.Select i + Printlog Linienfarbe.GetSelText + " chosen" '--------------------------- Flaechenformatierung --------------- Printlog "- Call Format area using graphic object toolbar" Kontext "DrawingObjectbar" - sleep 1 - '/// click button 'Area' ///' - try - Flaeche.Click - catch - printlog "clicking on area took ages :-(" - endcatch - sleep 5 - Kontext - Active.SetPage TabArea - Kontext "TabArea" - if TabArea.Exists Then - Printlog "- TabArea exists " - '/// cancel dialog 'Area' ///' - TabArea.Cancel - else - Warnlog "- TabArea does not exist" - end if + sleep 1 + printlog "click button 'Area'" + try + Flaeche.Click + catch + printlog "clicking on area took ages :-(" + endcatch + sleep 5 + Kontext + Active.SetPage TabArea + Kontext "TabArea" + if TabArea.Exists Then + Printlog "- TabArea exists " + printlog "cancel dialog 'Area'" + TabArea.Cancel + else + Warnlog "- TabArea does not exist" + end if '--- sleep 1 Kontext "DrawingObjectbar" + sleep 1 + x = AreaStyle.GetItemCount + i = 1 + for i = i to x + AreaStyle.Select i + Printlog "Area Style: (" + i + "/" + x + ") - " + AreaStyle.GetSelText sleep 1 - x = AreaStyle.GetItemCount - i = 1 - for i = i to x - AreaStyle.Select i - Printlog "Area Style: (" + i + "/" + x + ") - " + AreaStyle.GetSelText - sleep 1 - '/// for every item in the listbox 'Area Style' select the last item in the listbox 'Area Filling' ///' - if AreaStyle.GetSelIndex > 1 then - Printlog " Area Filling " + AreaFilling.GetSelIndex + " - " + AreaFilling.GetItemCount - if (i <> 1) AND (AreaFilling.GetItemCount <> 0) then - if (AreaFilling.GetSelIndex = 0) AND (AreaFilling.GetItemCount > 0) then - printlog "default item is 0 => means nothing; NO BUG! 100909" - end if - AreaFilling.Select (AreaFilling.GetItemCount) - Printlog " Selected: " + AreaFilling.GetSelIndex + " - " + AreaFilling.GetSelText + printlog "for every item in the listbox 'Area Style' select the last item in the listbox 'Area Filling'" + if AreaStyle.GetSelIndex > 1 then + Printlog " Area Filling " + AreaFilling.GetSelIndex + " - " + AreaFilling.GetItemCount + if (i <> 1) AND (AreaFilling.GetItemCount <> 0) then + if (AreaFilling.GetSelIndex = 0) AND (AreaFilling.GetItemCount > 0) then + printlog "default item is 0 => means nothing; NO BUG! 100909" end if + AreaFilling.Select (AreaFilling.GetItemCount) + Printlog " Selected: " + AreaFilling.GetSelIndex + " - " + AreaFilling.GetSelText end if - next i + end if + next i '---------------------------- Schatten -------------------------- Printlog "- Assign shadow using graphic object toolbar" Kontext "DrawingObjectbar" - sleep 1 - '/// click button 'Shadow' ///' - Schatten.Click - sleep 1 - Printlog "- shadow assigned" + sleep 1 + printlog "click button 'Shadow'" + Schatten.Click + sleep 1 + Printlog "- shadow assigned" '---------------------------- Praesentationsflyer --------------- - '/// if Application is Impress: ///' - if (UCase(gApplication)) = "IMPRESS" then ' IMPRESS only - Printlog "- Call presentation flyer" - Kontext "CommonTaskbar" ' first check , if presentation flyer is up! if not -> make it up :-) - '///+ if 'Presentation Box' is not visible, click button 'Presentation Box on/off' ///' - if CommonTaskbar.Exists Then - printlog "- flyer is already visible :-)" - else - printlog "- flyer wasn't visible :-( -will be now!" - Kontext "DrawingObjectbar" - sleep 1 - ViewToolbarsPresentation ' put it up again! - end if - end if - '/// Make sure the Graphics-Toolbar is visible ///' - if ((UCase(gApplication)) = "IMPRESS") then ' IMPRESS only + printlog "if Application is Impress:" + if (UCase(gApplication)) = "IMPRESS" then ' IMPRESS only + Printlog "- Call presentation flyer" + Kontext "CommonTaskbar" ' first check , if presentation flyer is up! if not -> make it up :-) + printlog "if 'Presentation Box' is not visible, click button 'Presentation Box on/off'" + if CommonTaskbar.Exists Then + printlog "- flyer is already visible :-)" + else + printlog "- flyer wasn't visible :-( -will be now!" Kontext "DrawingObjectbar" - if DrawingObjectbar.isVisible = FALSE then - ViewToolbarsGraphic - end if + sleep 1 + ViewToolbarsPresentation ' put it up again! end if - '/// close application ///' + end if + printlog "Make sure the Graphics-Toolbar is visible" + if ((UCase(gApplication)) = "IMPRESS") then ' IMPRESS only + Kontext "DrawingObjectbar" + if DrawingObjectbar.isVisible = FALSE then + ViewToolbarsGraphic + end if + end if + printlog "close application" Call hCloseDocument -endcase +endcase 'tiDrawObjectBar -'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------' +'------------------------------------------------------------------------------' testcase tiGraphicsObjectBar dim i as integer - '/// open application ///' + printlog "open application" Call hNewDocument - '/// insert a graphic "global\input\graf_inp\desp.bmp" ///' + printlog "insert a graphic global\input\graf_inp\desp.bmp" hGrafikeinfuegen ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp") + sleep 1 + Kontext "GraphicObjectbar" + if GraphicObjectbar.Exists = FALSE then + ViewToolbarsPicture + end if + sleep 1 + printlog "click button 'Filter' and tearoff the box in the Objectbar" + Filter.TearOff + sleep 1 + Kontext "GraphicFilterBar" + sleep 1 + Printlog "invert" + printlog "click button 'Invert' in window 'Filters'" + Invert.Click + sleep 3 + Printlog "smooth" + printlog "click button 'Smooth' in window 'Filters'" + Smooth.Click + sleep 3 + Printlog "sharpen" + printlog "click button 'Sharpen' in window 'Filters'" + Sharpen.Click + sleep 3 + Printlog "remove noise" + printlog "click button 'RemoveNoise' in window 'Filters'" + Remove.Click + sleep 3 + Printlog "solarization" + printlog "click button 'Solarization' in window 'Filters'" + Solarization.Click + sleep 3 + Kontext "Solarization" + if Solarization.exists (5) then sleep 1 - Kontext "GraphicObjectbar" - if GraphicObjectbar.Exists = FALSE then - ViewToolbarsPicture - end if - sleep 1 - '/// click button 'Filter' and tearoff the box in the Objectbar///' - Filter.TearOff - sleep 1 - Kontext "GraphicFilterBar" - sleep 1 - Printlog "invert" - '/// click button 'Invert' in window 'Filters' ///' - Invert.Click - sleep 3 - Printlog "smooth" - '/// click button 'Smooth' in window 'Filters' ///' - Smooth.Click - sleep 3 - Printlog "sharpen" - '/// click button 'Sharpen' in window 'Filters' ///' - Sharpen.Click - sleep 3 - Printlog "remove noise" - '/// click button 'RemoveNoise' in window 'Filters' ///' - Remove.Click - sleep 3 - Printlog "solarization" - '/// click button 'Solarization' in window 'Filters' ///' - Solarization.Click - sleep 3 - Kontext "Solarization" - if Solarization.exists (5) then - sleep 1 - Call Dialogtest ( Solarization ) - sleep 1 - '/// press 'more' and 'less' in field 'Trashold Value' on dialog 'Solarization' ///' - Value.More - Value.Less - '/// check checkbox 'Invert' on dialog 'Solarization' ///' - Invert.Check - '/// close dialog 'Solarization' with OK ///' - Solarization.OK - else - warnlog "solarization didn't came up :-(" - end if - sleep 1 - Kontext "GraphicFilterBar" - sleep 1 - Printlog "aging" - '/// click button 'Aging' in window 'Filters' ///' - Aging.Click - Kontext "Aging" - sleep 1 - Call Dialogtest ( Aging ) - '/// press 'more' and 'less' in field 'Aging degree' on dialog 'Aging' ///' - AgingDegree.More - AgingDegree.Less - sleep 1 - '/// close dialog 'Aging' with OK ///' - Aging.OK - sleep 1 - Kontext "GraphicFilterBar" - sleep 1 - Printlog "poster" - '/// click button 'Posterize' in window 'Filters' ///' - Posterize.Click - sleep 1 - Kontext "Posterize" - sleep 1 - Call Dialogtest ( Posterize ) - '/// press 'more' and 'less' in field 'Aging degree' on dialog 'Posterize' ///' - PosterColors.More - PosterColors.Less - sleep 1 - '/// close dialog 'Posterize' with OK ///' - Posterize.OK - sleep 2 - kontext "GraphicFilterBar" - sleep 1 - Printlog "pop" - '/// click button 'PopArt' in window 'Filters' ///' - Art.Click - sleep 3 - Printlog "charcoal" - '/// click button 'CharcoalSketch' in window 'Filters' ///' - CharcoalSketch.Click - sleep 3 - Printlog "relief" - '/// click button 'Relief' in window 'Filters' ///' - Relief.Click - Kontext "Relief" - sleep 1 - Call Dialogtest ( Relief ) - LightSource.TypeKeys "<left><up>" - '/// close dialog 'Relief' with OK ///' - Relief.OK - sleep 3 - Kontext "GraphicFilterBar" - Printlog "mos" - '/// click button 'Mosaic' in window 'Filters' ///' - Mosaic.Click - sleep 1 - Kontext "Mosaic" - sleep 1 - Call Dialogtest ( Mosaic ) - '/// press 'more' and 'less' in field 'Width' on dialog 'Mosaic' ///' - Width.More - Width.Less - '/// press 'more' and 'less' in field 'Height' on dialog 'Mosaic' ///' - Height.More - Height.Less - '/// check checkbox 'Enhance Edges' on dialog 'Mosaic' ///' - EnhanceEdges.Check - '/// close dialog 'Mosaic' with OK ///' - Mosaic.OK - sleep 3 - Kontext "GraphicFilterBar" - '/// close dialog 'Filters' ///' - GraphicFilterBar.Close - - Kontext "GraphicObjectbar" - if GraphicObjectbar.Exists = FALSE then ViewToolbarsPicture - sleep 1 - '/// select every entry in the listbox 'Graphics mode' ///' - for i = 1 to Grafikmodus.GetItemCount - Grafikmodus.select i - sleep 1 - next i - - '/// Click on the icon for 'ColorSettings' to open the colorbar ///' - ColorSettings.Click - Kontext "ColorBar" - sleep (2) - - '/// press 'more' and 'less' in field 'Red' on colorbar ///' - try - Rotanteil.More - Rotanteil.Less - catch - warnlog "not working from testtool redvalue "+ rotanteil.GetRT - endcatch - '/// press 'more' and 'less' in field 'Green' on colorbar ///' - try - Gruenanteil.More - Gruenanteil.Less - catch - warnlog "not working from testtool Greenvalue." - endcatch - '/// press 'more' and 'less' in field 'Blue' on colorbar ///' - try - Blauanteil.More - Blauanteil.Less - catch - warnlog "not working from testtool Bluevalue." - endcatch - '/// press 'more' and 'less' in field 'Brightness' on colorbar ///' - try - Helligkeit.More - Helligkeit.Less - catch - warnlog "not working from testtool Brightness." - endcatch - '/// press 'more' and 'less' in field 'Contrast' on colorbar ///' - try - Kontrast.More - Kontrast.Less - catch - warnlog "not working from testtool Contrast." - endcatch - '/// press 'more' and 'less' in field 'Gamma' on colorbar ///' - try - Gamma.More - Gamma.Less - catch - warnlog "not working from testtool Gamma." - endcatch - - ColorBar.Close - Kontext "GraphicObjectbar" - - '/// press 'more' and 'less' in field 'Transparency' on objectbar ///' - try - Transparenz.More - Transparenz.Less - catch - warnlog "Not working from testtool Transparency." - endcatch - - '/// press button 'Crop' on objectbar ///' - Crop.click - '/// Opening Dialog via Slot - FormatCropPicture - - kontext "TabZuschneiden" - '/// check radiobutton 'Keep scale' on dialog 'Crop' ///' - GroesseBeibehalten.Check - '/// check radiobutton 'Keep Image Size' on dialog 'Crop' ///' - MassstabBeibehalten.Check - '/// press 'more' and 'less' in field 'Left' in section 'Crop' on dialog 'Crop' ///' - Links.More - Links.Less - '/// press 'more' and 'less' in field 'Right' in section 'Crop' on dialog 'Crop' ///' - Rechts.More - Rechts.Less - '/// press 'more' and 'less' in field 'Top' in section 'Crop' on dialog 'Crop' ///' - Oben.More - Oben.Less - '/// press 'more' and 'less' in field 'Bottom' in section 'Crop' on dialog 'Crop' ///' - Unten.More - Unten.Less - '/// press 'more' and 'less' in field 'Width' in section 'Scale' on dialog 'Crop' ///' - MassstabBreite.More - MassstabBreite.Less - '/// press 'more' and 'less' in field 'Height' in section 'Scale' on dialog 'Crop' ///' - MassstabHoehe.More - MassstabHoehe.Less - '/// press 'more' and 'less' in field 'Width' in section 'Image size' on dialog 'Crop' ///' - GroesseBreite.More - GroesseBreite.Less - '/// press 'more' and 'less' in field 'Height' in section 'Image size' on dialog 'Crop' ///' - GroesseHoehe.More - GroesseHoehe.Less - '/// click button 'Original Size' on dialog 'Crop' ///' - Originalgroesse.Click - '/// cancel dialog 'Crop' ///' - TabZuschneiden.Cancel + Call Dialogtest ( Solarization ) + sleep 1 + printlog " press 'more' and 'less' in field 'Trashold Value' on dialog 'Solarization'" + Value.More + Value.Less + printlog "check checkbox 'Invert' on dialog 'Solarization'" + Invert.Check + printlog "close dialog 'Solarization' with OK" + Solarization.OK + else + warnlog "solarization didn't came up :-(" + end if + sleep 1 + Kontext "GraphicFilterBar" + sleep 1 + Printlog "aging" + printlog "click button 'Aging' in window 'Filters'" + Aging.Click + Kontext "Aging" + sleep 1 + Call Dialogtest ( Aging ) + printlog " press 'more' and 'less' in field 'Aging degree' on dialog 'Aging'" + AgingDegree.More + AgingDegree.Less + sleep 1 + printlog "close dialog 'Aging' with OK" + Aging.OK + sleep 1 + Kontext "GraphicFilterBar" + sleep 1 + Printlog "poster" + printlog "click button 'Posterize' in window 'Filters'" + Posterize.Click + sleep 1 + Kontext "Posterize" + sleep 1 + Call Dialogtest ( Posterize ) + printlog " press 'more' and 'less' in field 'Aging degree' on dialog 'Posterize'" + PosterColors.More + PosterColors.Less + sleep 1 + printlog "close dialog 'Posterize' with OK" + Posterize.OK + sleep 2 + kontext "GraphicFilterBar" + sleep 1 + Printlog "pop" + printlog "click button 'PopArt' in window 'Filters'" + Art.Click + sleep 3 + Printlog "charcoal" + printlog "click button 'CharcoalSketch' in window 'Filters'" + CharcoalSketch.Click + sleep 3 + Printlog "relief" + printlog "click button 'Relief' in window 'Filters'" + Relief.Click + Kontext "Relief" + sleep 1 + Call Dialogtest ( Relief ) + LightSource.TypeKeys "<left><up>" + printlog "close dialog 'Relief' with OK" + Relief.OK + sleep 3 + Kontext "GraphicFilterBar" + Printlog "mos" + printlog "click button 'Mosaic' in window 'Filters'" + Mosaic.Click + sleep 1 + Kontext "Mosaic" + sleep 1 + Call Dialogtest ( Mosaic ) + printlog " press 'more' and 'less' in field 'Width' on dialog 'Mosaic'" + Width.More + Width.Less + printlog " press 'more' and 'less' in field 'Height' on dialog 'Mosaic'" + Height.More + Height.Less + printlog " check checkbox 'Enhance Edges' on dialog 'Mosaic'" + EnhanceEdges.Check + printlog "close dialog 'Mosaic' with OK" + Mosaic.OK + sleep 3 + Kontext "GraphicFilterBar" + printlog "close dialog 'Filters'" + GraphicFilterBar.Close + + Kontext "GraphicObjectbar" + if GraphicObjectbar.Exists = FALSE then ViewToolbarsPicture + sleep 1 + printlog "select every entry in the listbox 'Graphics mode'" + for i = 1 to Grafikmodus.GetItemCount + Grafikmodus.select i + sleep 1 + next i - '/// close application ///' + printlog " Click on the icon for 'ColorSettings' to open the colorbar" + ColorSettings.Click + Kontext "ColorBar" + sleep (2) + printlog " press 'more' and 'less' in field 'Red' on colorbar" + try + Rotanteil.More + Rotanteil.Less + catch + warnlog "not working from testtool redvalue "+ rotanteil.GetRT + endcatch + printlog " press 'more' and 'less' in field 'Green' on colorbar" + try + Gruenanteil.More + Gruenanteil.Less + catch + warnlog "not working from testtool Greenvalue." + endcatch + printlog " press 'more' and 'less' in field 'Blue' on colorbar" + try + Blauanteil.More + Blauanteil.Less + catch + warnlog "not working from testtool Bluevalue." + endcatch + printlog " press 'more' and 'less' in field 'Brightness' on colorbar" + try + Helligkeit.More + Helligkeit.Less + catch + warnlog "not working from testtool Brightness." + endcatch + printlog " press 'more' and 'less' in field 'Contrast' on colorbar" + try + Kontrast.More + Kontrast.Less + catch + warnlog "not working from testtool Contrast." + endcatch + printlog " press 'more' and 'less' in field 'Gamma' on colorbar" + try + Gamma.More + Gamma.Less + catch + warnlog "not working from testtool Gamma." + endcatch + + ColorBar.Close + Kontext "GraphicObjectbar" + + printlog " press 'more' and 'less' in field 'Transparency' on objectbar" + try + Transparenz.More + Transparenz.Less + catch + warnlog "Not working from testtool Transparency." + endcatch + + printlog "press button 'Crop' on objectbar" + Crop.click + printlog "Opening Dialog via Slot" + FormatCropPicture + + kontext "TabZuschneiden" + printlog " check radiobutton 'Keep scale' on dialog 'Crop'" + GroesseBeibehalten.Check + printlog " check radiobutton 'Keep Image Size' on dialog 'Crop'" + MassstabBeibehalten.Check + printlog " press 'more' and 'less' in field 'Left' in section 'Crop' on dialog 'Crop'" + Links.More + Links.Less + printlog " press 'more' and 'less' in field 'Right' in section 'Crop' on dialog 'Crop'" + Rechts.More + Rechts.Less + printlog " press 'more' and 'less' in field 'Top' in section 'Crop' on dialog 'Crop'" + Oben.More + Oben.Less + printlog " press 'more' and 'less' in field 'Bottom' in section 'Crop' on dialog 'Crop'" + Unten.More + Unten.Less + printlog " press 'more' and 'less' in field 'Width' in section 'Scale' on dialog 'Crop'" + MassstabBreite.More + MassstabBreite.Less + printlog " press 'more' and 'less' in field 'Height' in section 'Scale' on dialog 'Crop'" + MassstabHoehe.More + MassstabHoehe.Less + printlog " press 'more' and 'less' in field 'Width' in section 'Image size' on dialog 'Crop'" + GroesseBreite.More + GroesseBreite.Less + printlog " press 'more' and 'less' in field 'Height' in section 'Image size' on dialog 'Crop'" + GroesseHoehe.More + GroesseHoehe.Less + printlog " click button 'Original Size' on dialog 'Crop'" + Originalgroesse.Click + printlog "cancel dialog 'Crop'" + TabZuschneiden.Cancel + + printlog "close application" Call hCloseDocument -endcase +endcase 'tiGraphicsObjectBar -'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------' +'-------------------------------------------------------------------------------' testcase tiGluepointToolbar - '/// open application ///' + printlog "open application" Call hNewDocument - '/// create 2 rectangles ///' + printlog "create 2 rectangles" Call hRechteckErstellen 20,20,40,40 Call hRechteckErstellen 60,60,80,80 sleep 2 - '/// View->Toolbars->Option Bar ///' + printlog "View->Toolbars->Option Bar" ViewToolbarsOptionbar - '/// at the bottom of the office has a toolbar to appear ///' + printlog "at the bottom of the office has a toolbar to appear" sleep 2 Kontext "Optionsbar" + if Optionsbar.Exists = False Then + ViewToolbarsOptionbar + Kontext "Optionsbar" if Optionsbar.Exists = False Then - ViewToolbarsOptionbar - Kontext "Optionsbar" - if Optionsbar.Exists = False Then - warnlog "Can't open Optionsbar." - end if + warnlog "Can't open Optionsbar." end if + end if + sleep 2 + Kontext "Toolbar" + sleep 1 + printlog "click button 'Connector' on Toolbar" + Verbinder.Click + printlog "make a line with the mouse" + gMouseMove 30,30,70,70 + sleep 3 + Kontext "Toolbar" + GluePoints.Click + sleep 1 + printlog "open Glue Points Toolbar" + Kontext "Gluepointsobjectbar" + if Gluepointsobjectbar.Exists = False Then + ViewToolbarsGluepoints + end if + sleep 3 + '-------------------------------------- Klebepunkt einfuegen ---- + try + printlog "click button 'Insert Glue Point' on Objecttoolbar" + PunkteEinfuegen.Click sleep 2 - Kontext "Toolbar" - sleep 1 - '/// click button 'Connector' on Toolbar ///' - Verbinder.Click - '/// make a line with the mouse ///' - gMouseMove 30,30,70,70 - sleep 3 - Kontext "Toolbar" - GluePoints.Click - sleep 1 - '/// open Glue Points Toolbar ///' - Kontext "Gluepointsobjectbar" - if Gluepointsobjectbar.Exists = False Then - ViewToolbarsGluepoints - end if - sleep 3 - '-------------------------------------- Klebepunkt einfuegen ---- - try - '/// click button 'Insert Glue Point' on Objecttoolbar ///' - PunkteEinfuegen.Click - sleep 2 - '/// click 2 times onto the created line ///' - gMouseClick 25,30 - sleep 1 - gMouseclick 25,30 - Printlog "- insert gluepoint works" - catch - Warnlog "- gluepoint could not be insert. Following errors might have their reason here" - endcatch - sleep 3 - Kontext "Gluepointsobjectbar" - - '-------------------------------------- Links ------------------- - try - '/// click button 'Exit Direction Left' on Objecttoolbar ///' - Links.Click - Printlog "- gluepoint left works" - catch - Warnlog "- gluepoint left does not work" - endcatch - sleep 1 - '-------------------------------------- Rechts ------------------ - try - '/// click button 'Exit Direction Right' on Objecttoolbar ///' - Rechts.Click - Printlog "- gluepoint right works" - catch - Warnlog "- gluepoint right does not work" - endcatch - sleep 1 - '-------------------------------------- Oben -------------------- - try - '/// click button 'Exit Direction Top' on Objecttoolbar ///' - Oben.Click - Printlog "- gluepoint top works" - catch - Warnlog "- gluepoint top does not work" - endcatch - sleep 1 - '-------------------------------------- Unten ------------------- - try - '/// click button 'Exit Direction Bottom' on Objecttoolbar ///' - Unten.Click - Printlog "- gluepoint bottom works" - catch - Warnlog "- gluepoint bottom does not work" - endcatch - sleep 1 - '---------------------- Position an Objekt anpassen ------------- - try - '/// click button 'Glue Point Relative' on Objecttoolbar ///' - PositionAnObjektAnpassen.Click - Printlog "- align position to object works" - gMouseClick 25,30 ' if you don't click onto an existing point, the state changes back :-[ - catch - Warnlog "- align position to object does not work" - endcatch - Kontext "Gluepointsobjectbar" - sleep 1 - '------------------------------------- Horizontal links --------- - if PositionAnObjektAnpassen.exists then printlog "PositionAnObjektAnpassen = Exists" - if PositionAnObjektAnpassen.GetState(2) <> 0 then PositionAnObjektAnpassen.Click ' make unpressed! - '0 = not pressed. 1 = pressed. - sleep 2 - try - Kontext "Gluepointsobjectbar" - '/// click button 'Glue Point Horizontal Left' on Objecttoolbar ///' - HorizontalLinks.Click - Printlog "- align horizontal left works" - catch - Warnlog "- align horizontal left does not work" - PositionAnObjektAnpassen.Click ' that's the middle button, it has to be UP/not activated! - for i = 1 to Gluepointsobjectbar.GetItemCount - if (Gluepointsobjectbar.GetState ( i, 0 ) <> 0 ) then ' is no seperator - printlog "----------------------------------------------------------------------" - printlog "helpid : " + Gluepointsobjectbar.Getstate ( i, 0 ) + " number in row: " + i - printlog "itemtype: " + Gluepointsobjectbar.GetState ( i, 1 ) - printlog "state : " + Gluepointsobjectbar.GetState ( i, 2 ) - printlog "----------------------------------------------------------------------" - end if - next i - endcatch - sleep 2 - '------------------------------------- Horizontal rechts -------- - try - '/// click button 'Glue Point Horizontal Right' on Objecttoolbar ///' - HorizontalRechts.Click - Printlog "- Align horizontal right does work" - catch - Warnlog "- Align horizontal right does notwork" - endcatch - sleep 1 - '------------------------------------- Horizontal zentriert ----- - try - '/// click button 'Glue Point Horizontal Center' on Objecttoolbar ///' - HorizontalZentriert.Click - Printlog "- align horizontal center does work" - catch - Warnlog "- align horizontal center does work" - endcatch - sleep 1 - '------------------------------------- Vertikal oben ------------ - try - '/// click button 'Glue Point Vertical Top' on Objecttoolbar ///' - VertikalOben.Click - sleep 1 - Printlog "- Align vertical top does work" - catch - Warnlog "- Align vertical top does not work" - endcatch - '------------------------------------- Vertikal unten ----------- - try - '/// click button 'Glue Point Vertical Bottom' on Objecttoolbar ///' - VertikalUnten.Click - sleep 1 - printlog "- Align vertical bottom does work" - catch - Warnlog "- Align vertical bottom does not work" - endcatch - '------------------------------------- Vertikal zentriert ------- - try - '/// click button 'Glue Point Vertical Center' on Objecttoolbar ///' - VertikalZentriert.Click - sleep 1 - Printlog "- Align vertical center does work" - catch - Warnlog "- Align vertical center does not work" - endcatch - - Printlog "- End of testing gluepoints" - - '/// Close the Option Bar via View->Toolbars->Option Bar ///' + printlog "click 2 times onto the created line" + gMouseClick 25,30 + sleep 1 + gMouseclick 25,30 + Printlog "- insert gluepoint works" + catch + Warnlog "- gluepoint could not be insert. Following errors might have their reason here" + endcatch + sleep 3 + Kontext "Gluepointsobjectbar" + + '-------------------------------------- Links ------------------- + try + printlog "click button 'Exit Direction Left' on Objecttoolbar" + Links.Click + Printlog "- gluepoint left works" + catch + Warnlog "- gluepoint left does not work" + endcatch + sleep 1 + '-------------------------------------- Rechts ------------------ + try + printlog "click button 'Exit Direction Right' on Objecttoolbar" + Rechts.Click + Printlog "- gluepoint right works" + catch + Warnlog "- gluepoint right does not work" + endcatch + sleep 1 + '-------------------------------------- Oben -------------------- + try + printlog "click button 'Exit Direction Top' on Objecttoolbar" + Oben.Click + Printlog "- gluepoint top works" + catch + Warnlog "- gluepoint top does not work" + endcatch + sleep 1 + '-------------------------------------- Unten ------------------- + try + printlog "click button 'Exit Direction Bottom' on Objecttoolbar" + Unten.Click + Printlog "- gluepoint bottom works" + catch + Warnlog "- gluepoint bottom does not work" + endcatch + sleep 1 + '---------------------- Position an Objekt anpassen ------------- + try + printlog "click button 'Glue Point Relative' on Objecttoolbar" + PositionAnObjektAnpassen.Click + Printlog "- align position to object works" + gMouseClick 25,30 ' if you don't click onto an existing point, the state changes back :-[ + catch + Warnlog "- align position to object does not work" + endcatch + Kontext "Gluepointsobjectbar" + sleep 1 + '------------------------------------- Horizontal links --------- + if PositionAnObjektAnpassen.exists then printlog "PositionAnObjektAnpassen = Exists" + if PositionAnObjektAnpassen.GetState(2) <> 0 then PositionAnObjektAnpassen.Click ' make unpressed! + '0 = not pressed. 1 = pressed. + sleep 2 + try + Kontext "Gluepointsobjectbar" + printlog "click button 'Glue Point Horizontal Left' on Objecttoolbar" + HorizontalLinks.Click + Printlog "- align horizontal left works" + catch + Warnlog "- align horizontal left does not work" + PositionAnObjektAnpassen.Click ' that's the middle button, it has to be UP/not activated! + for i = 1 to Gluepointsobjectbar.GetItemCount + if (Gluepointsobjectbar.GetState ( i, 0 ) <> 0 ) then ' is no seperator + printlog "----------------------------------------------------------------------" + printlog "helpid : " + Gluepointsobjectbar.Getstate ( i, 0 ) + " number in row: " + i + printlog "itemtype: " + Gluepointsobjectbar.GetState ( i, 1 ) + printlog "state : " + Gluepointsobjectbar.GetState ( i, 2 ) + printlog "----------------------------------------------------------------------" + end if + next i + endcatch + sleep 2 + '------------------------------------- Horizontal rechts -------- + try + printlog "click button 'Glue Point Horizontal Right' on Objecttoolbar" + HorizontalRechts.Click + Printlog "- Align horizontal right does work" + catch + Warnlog "- Align horizontal right does notwork" + endcatch + sleep 1 + '------------------------------------- Horizontal zentriert ----- + try + printlog "click button 'Glue Point Horizontal Center' on Objecttoolbar" + HorizontalZentriert.Click + Printlog "- align horizontal center does work" + catch + Warnlog "- align horizontal center does work" + endcatch + sleep 1 + '------------------------------------- Vertikal oben ------------ + try + printlog "click button 'Glue Point Vertical Top' on Objecttoolbar" + VertikalOben.Click + sleep 1 + Printlog "- Align vertical top does work" + catch + Warnlog "- Align vertical top does not work" + endcatch + '------------------------------------- Vertikal unten ----------- + try + printlog "click button 'Glue Point Vertical Bottom' on Objecttoolbar" + VertikalUnten.Click + sleep 1 + printlog "- Align vertical bottom does work" + catch + Warnlog "- Align vertical bottom does not work" + endcatch + '------------------------------------- Vertikal zentriert ------- + try + printlog "click button 'Glue Point Vertical Center' on Objecttoolbar" + VertikalZentriert.Click + sleep 1 + Printlog "- Align vertical center does work" + catch + Warnlog "- Align vertical center does not work" + endcatch + Printlog "- End of testing gluepoints" + printlog "Close the Option Bar via View->Toolbars->Option Bar" ViewToolbarsOptionbar sleep 2 Kontext "Optionsbar" - if Optionsbar.Exists = True Then - warnlog "Couldnt close Optionsbar." - end if - '/// close application ///' + if Optionsbar.Exists = True Then + warnlog "Couldnt close Optionsbar." + end if + printlog "close application" Call hCloseDocument -endcase +endcase 'tiGluepointToolbar -'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------' +'----------------------------------------------------------------------------' testcase tdBezierToolbar - '/// Open the Application ///' + printlog "Open the Application" Call hNewDocument - - '/// Create a rectangle. ///' + printlog "Create a rectangle." Call hRechteckErstellen ( 10, 10, 30, 40 ) sleep (1) - - '/// Convert the recttangle to an 'Polygon-object' via the context-menu for the object ///' + printlog "Convert the recttangle to an 'Polygon-object' via the context-menu for the object" Call hOpenContextMenu - Call hMenuSelectNr (11) '/// Convert to ///' - Call hMenuSelectNr (2) '/// Polygon-object ///' + printlog "Convert to" + Call hMenuSelectNr (11) + printlog "Polygon-object" + Call hMenuSelectNr (2) sleep (1) - - '/// In the context-menu, select 'Edit Points" ///' + printlog "In the context-menu, select 'Edit Points" Call hOpenContextMenu - Call hMenuSelectNr (5) '/// Select entry nr 5 (Edit Points) ///' + printlog "Select entry nr 5 (Edit Points)" + Call hMenuSelectNr (5) sleep (2) - Kontext "Bezierobjectbar" + if Bezierobjectbar.Exists <> TRUE then + ViewToolbarsBezier + Sleep (2) if Bezierobjectbar.Exists <> TRUE then - ViewToolbarsBezier - Sleep (2) - if Bezierobjectbar.Exists <> TRUE then - warnlog "Bezierobjectbar did not show up. Check why." - end if + warnlog "Bezierobjectbar did not show up. Check why." end if + end if '----------------------------------- Punkte verschieben ------------------------------------ - '/// Select a part of the object with the keyboard ///' - hTypeKeys "<MOD1 TAB>", 4 '/// Selects the fourth vector. ///' - hTypeKeys "<RIGHT>", 40 '/// Moves the selected vector 40 steps. ///' + printlog "Select a part of the object with the keyboard" + printlog "Selects the fourth vector." + hTypeKeys "<MOD1 TAB>", 4 + printlog "Moves the selected vector 40 steps." + hTypeKeys "<RIGHT>", 40 - '/// The 'Object Toolbar' now changes ///' + printlog "The 'Object Toolbar' now changes" Kontext "Bezierobjectbar" - if Bezierobjectbar.Exists <> TRUE then - ViewToolbarsBezier - Sleep 2 - end if - if Bezierobjectbar.Exists <> TRUE then - Warnlog "The Bezier-Objectbar should have been opened, but wasnt." - ViewToolbarsBezier - Sleep 2 - end if + if Bezierobjectbar.Exists <> TRUE then + ViewToolbarsBezier + Sleep 2 + end if + if Bezierobjectbar.Exists <> TRUE then + Warnlog "The Bezier-Objectbar should have been opened, but wasnt." + ViewToolbarsBezier + Sleep 2 + end if Kontext "Bezierobjectbar" - sleep 1 - Printlog "- Move points" - '/// click button 'Move points' on 'Object Toolbar' ///' - Verschieben.Click - sleep 2 - - hTypeKeys "<MOD1 TAB>" - hTypeKeys "<MOD1 SHIFT SPACE>" '/// Marks the selected vector. ///' - hTypeKeys "<RIGHT>", 20 '/// Moves the vector 20 with "arrow right", twenty times. ///' - - Printlog "- Insert points" - '/// Click button 'Insert points' on 'Object Toolbar' ///' + sleep 1 + Printlog "- Move points" + printlog "click button 'Move points' on 'Object Toolbar'" + Verschieben.Click + sleep 2 + hTypeKeys "<MOD1 TAB>" + printlog "Marks the selected vector." + hTypeKeys "<MOD1 SHIFT SPACE>" + printlog "Moves the vector 20 with arrow right, twenty times." + hTypeKeys "<RIGHT>", 20 + + Printlog "- Insert points" + printlog "Click button 'Insert points' on 'Object Toolbar'" Kontext "Bezierobjectbar" - Einfuegen.Click - sleep 2 - Bezierobjectbar.Move 20, 20 - sleep (1) - Printlog "- Delete points" - - '/// Select another part of the object with spanning a selection with the mouse ///' - gMouseMove 25,25,45,45 - - hTypeKeys "<MOD1 TAB>", 2 '/// Select the second next vector. ///' - hTypeKeys "<MOD1 SHIFT SPACE>" '/// Mark the selected vector. ///' - hTypeKeys "<MOD1 TAB><SHIFT SPACE>" '/// Select and mark the next vector. ///' + Einfuegen.Click + sleep 2 + Bezierobjectbar.Move 20, 20 + sleep (1) + Printlog "- Delete points" + printlog "Select another part of the object with spanning a selection with the mouse" + gMouseMove 25,25,45,45 + printlog "Select the second next vector." + hTypeKeys "<MOD1 TAB>", 2 + printlog "Mark the selected vector." + hTypeKeys "<MOD1 SHIFT SPACE>" + printlog "Select and mark the next vector." + hTypeKeys "<MOD1 TAB><SHIFT SPACE>" - sleep 2 + sleep 2 Kontext "Bezierobjectbar" - sleep 2 - Printlog "- Convert into curve" - '/// click button 'convert to curve' on 'Object Toolbar' ///' - InKurve.Click - sleep 2 - Printlog "- Place edge point" - '/// click button 'corner point' on 'Object Toolbar' ///' - Ecke.Click - sleep 2 - Printlog "- Smooth transition" - '/// click button 'smooth transition' on 'Object Toolbar' ///' - Glatt.Click - sleep 2 - Printlog "- Symetric transition" - '/// click button 'symmetric transition' on 'Object Toolbar' ///' - Symmetrisch.Click - sleep 2 - - '/// Click button 'Eliminate points' on 'Object Toolbar' ///' + sleep 2 + Printlog "- Convert into curve" + printlog "click button 'convert to curve' on 'Object Toolbar'" + InKurve.Click + sleep 2 + Printlog "- Place edge point" + printlog "click button 'corner point' on 'Object Toolbar'" + Ecke.Click + sleep 2 + Printlog "- Smooth transition" + printlog "click button 'smooth transition' on 'Object Toolbar'" + Glatt.Click + sleep 2 + Printlog "- Symetric transition" + printlog "click button 'symmetric transition' on 'Object Toolbar'" + Symmetrisch.Click + sleep 2 + + printlog "Click button 'Eliminate points' on 'Object Toolbar'" Kontext "Bezierobjectbar" - PunkteReduzieren.Click - sleep 2 - - '/// Mark another point ///' - hTypeKeys "<MOD1 TAB>" - hTypeKeys "<MOD1 SHIFT SPACE>" + PunkteReduzieren.Click + sleep 2 - '/// click button 'split curve' on 'Object Toolbar' ///' + printlog "Mark another point" + hTypeKeys "<MOD1 TAB>" + hTypeKeys "<MOD1 SHIFT SPACE>" + + printlog "click button 'split curve' on 'Object Toolbar'" Kontext "Bezierobjectbar" - try - Auftrennen.Click - catch - Warnlog "- 'Break' could not be executed" - endcatch - sleep 2 + try + Auftrennen.Click + catch + Warnlog "- 'Break' could not be executed" + endcatch + sleep 2 - '/// Mark all points ///' - hTypeKeys "<MOD1 TAB>" - hTypeKeys "<MOD1 A>" + printlog "Mark all points" + hTypeKeys "<MOD1 TAB>" + hTypeKeys "<MOD1 A>" - Printlog "- Close bezier" + Printlog "- Close bezier" Kontext "Bezierobjectbar" + try + printlog "click button 'close bezier' on 'Object Toolbar'" + Schliessen.Click + catch + InKurve.Click + sleep 2 try - '/// click button 'close bezier' on 'Object Toolbar' ///' Schliessen.Click catch - InKurve.Click - sleep 2 - try - Schliessen.Click - catch - warnlog "Couldn't push button :-( can't reproduce it now, mostly seen on linux, if i loop this test, it happens only 1/5 of the time ... :-)" - endcatch + warnlog "Couldn't push button :-( can't reproduce it now, mostly seen on linux, if i loop this test, it happens only 1/5 of the time ... :-)" endcatch - sleep 2 + endcatch + sleep 2 - '/// Mark all points ///' - hTypeKeys "<MOD1 TAB>" - hTypeKeys "<MOD1 A>" + printlog "Mark all points" + hTypeKeys "<MOD1 TAB>" + hTypeKeys "<MOD1 A>" - '/// Click button 'Delete points' on 'Object Toolbar' ///' + printlog "Click button 'Delete points' on 'Object Toolbar'" Kontext "Bezierobjectbar" - Printlog "- Break curve" - if ( hClickButton( Loeschen ) = -1 ) then - warnlog( "Unable to click button <Loeschen>" ) - endif - 'try - ' Loeschen.Click - ' sleep 2 - 'catch - ' warnlog "Delete didn't work... why?" - 'endcatch + Printlog "- Break curve" + if ( hClickButton( Loeschen ) = -1 ) then + warnlog( "Unable to click button <Loeschen>" ) + endif - '/// Uncheck on the symbol 'Curve' on the toolbar 'Main Toolbar' ///' + printlog "Uncheck on the symbol 'Curve' on the toolbar 'Main Toolbar'" Kontext "Toolbar" - sleep 2 - Toolbar.OpenContextMenu ' Enable forms button in menuebar - sleep 2 - hMenuselectNr (1) - sleep 2 - hMenuItemUnCheck (7) - sleep 2 - '/// Close application ///' + sleep 2 + Toolbar.OpenContextMenu ' Enable forms button in menuebar + sleep 2 + hMenuselectNr (1) + sleep 2 + hMenuItemUnCheck (7) + sleep 2 + printlog "Close application" Call hCloseDocument -endcase +endcase 'tdBezierToolbar -'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------' +'------------------------------------------------------------------------------
\ No newline at end of file diff --git a/testautomation/graphics/required/includes/global/id_opt_1.inc b/testautomation/graphics/required/includes/global/id_opt_1.inc index 7ca61a8774b5..dcb6c38795bb 100644 --- a/testautomation/graphics/required/includes/global/id_opt_1.inc +++ b/testautomation/graphics/required/includes/global/id_opt_1.inc @@ -32,162 +32,164 @@ '\****************************************************************************** testcase tToolsOptionsDrawGeneral (sApplication as string) - dim irgendwas(9) as boolean - dim iMasseinheit as integer - dim sTabAbstand as string - dim iZeichnungsmasstab as integer - dim sTemp as string - dim iTemp as integer - dim sTemp2 as string - dim iTemp2 as integer - dim sMeasUnit as string - - hNewDocument - - printlog "save states" - ToolsOptions - hToolsOptions (sApplication,"General") - - irgendwas(1) = Schnellbearbeitung.IsChecked - irgendwas(2) = TextbereichSelektierbar.IsChecked - - irgendwas(3) = CacheFuerHintergrund.IsChecked - irgendwas(4) = KopieBeimVerschieben.IsChecked - irgendwas(5) = ObjekteImmerVerschiebbar.IsChecked - - if (gApplication = "DRAW") then - irgendwas(6) = SetzenAufKreis.IsChecked ' DRAW - iZeichnungsmasstab = Zeichnungsmasstab.GetSelIndex ' DRAW - else ' IMPRESS - irgendwas(7) = MitAutopilotStarten.IsChecked - irgendwas(8) = MitAktuellerSeite.IsChecked - irgendwas(9) = AlleAbsatzabstaendeAddieren.IsChecked - endif - - iMasseinheit = Masseinheit.GetSelIndex - sTabAbstand = Tabulatorabstand.GetText - - printlog "all states inverting" + dim irgendwas(9) as boolean + dim iMasseinheit as integer + dim sTabAbstand as string + dim iZeichnungsmasstab as integer + dim sTemp as string + dim iTemp as integer + dim sTemp2 as string + dim iTemp2 as integer + dim sMeasUnit as string - if irgendwas(1) Then Schnellbearbeitung.UnCheck Else Schnellbearbeitung.Check - if irgendwas(2) Then TextbereichSelektierbar.UnCheck Else TextbereichSelektierbar.Check - - if irgendwas(3) Then CacheFuerHintergrund.UnCheck Else CacheFuerHintergrund.Check - if irgendwas(4) Then KopieBeimVerschieben.UnCheck Else KopieBeimVerschieben.Check - if irgendwas(5) Then ObjekteImmerVerschiebbar.UnCheck Else ObjekteImmerVerschiebbar.Check - - Tabulatorabstand.ToMax - sTemp = Tabulatorabstand.GetText - Tabulatorabstand.More + hNewDocument - if (LiberalMeasurement (sTemp,Tabulatorabstand.GetText) <> TRUE) Then Warnlog "Something wrong, please check!" - Tabulatorabstand.SetText (sTabAbstand) + printlog "save states" + ToolsOptions + hToolsOptions (sApplication,"General") - if (gApplication = "DRAW") then - If ( Zeichnungsmasstab.GetItemCount <> iZeichnungsmasstab ) Then Zeichnungsmasstab.Select (Zeichnungsmasstab.GetItemCount) _ - Else Zeichnungsmasstab.Select (1) - iTemp2 = Zeichnungsmasstab.GetSelIndex - if irgendwas(6) Then SetzenAufKreis.UnCheck Else SetzenAufKreis.Check - else ' IMPRESS - if irgendwas(7) Then MitAutopilotStarten.UnCheck Else MitAutopilotStarten.Check - if irgendwas(8) Then MitAktuellerSeite.UnCheck Else MitAktuellerSeite.Check - if irgendwas(9) Then AlleAbsatzabstaendeAddieren.UnCheck Else AlleAbsatzabstaendeAddieren.Check - endif + irgendwas(1) = Schnellbearbeitung.IsChecked + irgendwas(2) = TextbereichSelektierbar.IsChecked - printlog "<Meas.Unit> interacts with <Tap stops> and vice versa" + irgendwas(3) = CacheFuerHintergrund.IsChecked + irgendwas(4) = KopieBeimVerschieben.IsChecked + irgendwas(5) = ObjekteImmerVerschiebbar.IsChecked - If ( Masseinheit.GetItemCount <> iMasseinheit ) Then Masseinheit.Select (Masseinheit.GetItemCount) _ - Else Masseinheit.Select (1) - iTemp = Masseinheit.GetSelIndex + if (gApplication = "DRAW") then + irgendwas(6) = SetzenAufKreis.IsChecked ' DRAW + iZeichnungsmasstab = Zeichnungsmasstab.GetSelIndex ' DRAW + else ' IMPRESS + irgendwas(7) = MitAutopilotStarten.IsChecked + irgendwas(8) = MitAktuellerSeite.IsChecked + irgendwas(9) = AlleAbsatzabstaendeAddieren.IsChecked + endif - sTemp = Tabulatorabstand.GetText - Tabulatorabstand.ToMax - If ( Tabulatorabstand.GetText = sTemp ) Then Tabulatorabstand.ToMin - sTemp = Tabulatorabstand.GetText + iMasseinheit = Masseinheit.GetSelIndex + sTabAbstand = Tabulatorabstand.GetText - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK + printlog "all states inverting" - printlog "Office quit - start" + if irgendwas(1) Then Schnellbearbeitung.UnCheck Else Schnellbearbeitung.Check + if irgendwas(2) Then TextbereichSelektierbar.UnCheck Else TextbereichSelektierbar.Check - ExitRestartTheOffice - printlog "opening new doc to get the Options" - Call hNewDocument - printlog "checking states" - ToolsOptions - hToolsOptions (sApplication,"General") + if irgendwas(3) Then CacheFuerHintergrund.UnCheck Else CacheFuerHintergrund.Check + if irgendwas(4) Then KopieBeimVerschieben.UnCheck Else KopieBeimVerschieben.Check + if irgendwas(5) Then ObjekteImmerVerschiebbar.UnCheck Else ObjekteImmerVerschiebbar.Check - If ( irgendwas(1) = Schnellbearbeitung.IsChecked ) Then WarnLog "Allow Quick Editing state changed" - If ( irgendwas(2) = TextbereichSelektierbar.IsChecked ) Then WarnLog "Only Text Area Selectable state changed" + Tabulatorabstand.ToMax + sTemp = Tabulatorabstand.GetText + Tabulatorabstand.More - If ( irgendwas(3) = CacheFuerHintergrund.IsChecked ) Then WarnLog "Use Background Cache state changed" - If ( irgendwas(4) = KopieBeimVerschieben.IsChecked ) Then WarnLog "Copy When Moving state changed" - If ( irgendwas(5) = ObjekteImmerVerschiebbar.IsChecked ) Then WarnLog "Objects Always Movable state changed" + if (LiberalMeasurement (sTemp,Tabulatorabstand.GetText) <> TRUE) Then Warnlog "Something wrong, please check!" + Tabulatorabstand.SetText (sTabAbstand) - if (gApplication = "DRAW") then + if (gApplication = "DRAW") then + If ( Zeichnungsmasstab.GetItemCount <> iZeichnungsmasstab ) Then + Zeichnungsmasstab.Select (Zeichnungsmasstab.GetItemCount) _ + Else Zeichnungsmasstab.Select (1) + iTemp2 = Zeichnungsmasstab.GetSelIndex + if irgendwas(6) Then SetzenAufKreis.UnCheck Else SetzenAufKreis.Check + endif + else ' IMPRESS + if irgendwas(7) Then MitAutopilotStarten.UnCheck Else MitAutopilotStarten.Check + if irgendwas(8) Then MitAktuellerSeite.UnCheck Else MitAktuellerSeite.Check + if irgendwas(9) Then AlleAbsatzabstaendeAddieren.UnCheck Else AlleAbsatzabstaendeAddieren.Check + endif + + printlog "<Meas.Unit> interacts with <Tap stops> and vice versa" + + If ( Masseinheit.GetItemCount <> iMasseinheit ) Then Masseinheit.Select (Masseinheit.GetItemCount) _ + Else Masseinheit.Select (1) + iTemp = Masseinheit.GetSelIndex + + sTemp = Tabulatorabstand.GetText + Tabulatorabstand.ToMax + If ( Tabulatorabstand.GetText = sTemp ) Then Tabulatorabstand.ToMin + sTemp = Tabulatorabstand.GetText + + Kontext "ExtrasOptionenDlg" + ExtrasOptionenDlg.OK + + printlog "Office quit - start" + + ExitRestartTheOffice + printlog "opening new doc to get the Options" + Call hNewDocument + printlog "checking states" + ToolsOptions + hToolsOptions (sApplication,"General") + + If ( irgendwas(1) = Schnellbearbeitung.IsChecked ) Then WarnLog "Allow Quick Editing state changed" + If ( irgendwas(2) = TextbereichSelektierbar.IsChecked ) Then WarnLog "Only Text Area Selectable state changed" + + If ( irgendwas(3) = CacheFuerHintergrund.IsChecked ) Then WarnLog "Use Background Cache state changed" + If ( irgendwas(4) = KopieBeimVerschieben.IsChecked ) Then WarnLog "Copy When Moving state changed" + If ( irgendwas(5) = ObjekteImmerVerschiebbar.IsChecked ) Then WarnLog "Objects Always Movable state changed" + + if (gApplication = "DRAW") then If ( Zeichnungsmasstab.GetSelIndex <> iTemp2 ) Then WarnLog "Drawing Scale state changed BUG #97391 is:"+Zeichnungsmasstab.GetSelIndex+"; should: "+iTemp2 If ( irgendwas(6) = SetzenAufKreis.IsChecked ) Then WarnLog "'Do not disort objects in curve' state changed" - else ' IMPRESS + else ' IMPRESS if ( irgendwas(7) = MitAutopilotStarten.IsChecked ) Then WarnLog "'Start with AutoPilot' state changed." -' + ' if ( irgendwas(8) = MitAktuellerSeite.IsChecked ) Then WarnLog "'Always with current page' changed" if ( irgendwas(9) = AlleAbsatzabstaendeAddieren.IsChecked ) Then WarnLog "'Add spacing between paragraphs in the current document' changed" - endif - - If ( Masseinheit.GetSelIndex <> iTemp ) Then WarnLog "Unit of Measurement state changed" - If (LiberalMeasurement (sTemp,Tabulatorabstand.GetText) <> TRUE ) Then WarnLog "Tab stops state changed - watch BugID: 82744 for Status" - - printlog "all UnCheck -> o" - - Schnellbearbeitung.UnCheck - TextbereichSelektierbar.UnCheck - - CacheFuerHintergrund.UnCheck - KopieBeimVerschieben.UnCheck - ObjekteImmerVerschiebbar.UnCheck - - if (gApplication = "DRAW") then - Zeichnungsmasstab.Select (1) - SetzenAufKreis.UnCheck - else ' IMPRESS - MitAutopilotStarten.UnCheck - MitAktuellerSeite.UnCheck - AlleAbsatzabstaendeAddieren.UnCheck - endif - - Masseinheit.Select (1) - Tabulatorabstand.ToMin - sTemp = Tabulatorabstand.GetText - printlog " More test " - Tabulatorabstand.More - if ( sTemp = Tabulatorabstand.GetText ) Then WarnLog "Tab Stops More-Button not working; stemp1: "+sTemp + " =? (2) " +Tabulatorabstand.GetText - sTemp = Tabulatorabstand.GetText - - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - - printlog "check if all UnChecked" - ToolsOptions - hToolsOptions (sApplication,"General") - - If Schnellbearbeitung.IsChecked Then WarnLog "Allow Quick Editing x" - If TextbereichSelektierbar.IsChecked Then WarnLog "Only Text Area Selectable x" - - If CacheFuerHintergrund.IsChecked Then WarnLog "Use Background Cache x" - If KopieBeimVerschieben.IsChecked Then WarnLog "Copy When Moving x" - If ObjekteImmerVerschiebbar.IsChecked Then WarnLog "Objects Always Movable x" - - if (gApplication = "DRAW") then - If ( Zeichnungsmasstab.GetSelIndex <> 1 ) Then WarnLog "'Drawing Scale' is not item 1" - If SetzenAufKreis.IsChecked Then WarnLog "'Do not disort objects in curve' x" - else ' IMPRESS - if MitAutopilotStarten.IsChecked Then WarnLog "Start with AutoPilot x" - if MitAktuellerSeite.IsChecked Then WarnLog "'Always with current page' x" - if AlleAbsatzabstaendeAddieren.IsChecked Then WarnLog "'Add spacing between paragraphs in the current document' x" - endif - - If ( Masseinheit.GetSelIndex <> 1 ) Then WarnLog "Unit of Measurement is not item 1" - If (LiberalMeasurement (sTemp,Tabulatorabstand.GetText) <> TRUE ) Then WarnLog "Tab stops is not min. is: " +Tabulatorabstand.GetText + " should: " +sTemp + endif + + If ( Masseinheit.GetSelIndex <> iTemp ) Then WarnLog "Unit of Measurement state changed" + If (LiberalMeasurement (sTemp,Tabulatorabstand.GetText) <> TRUE ) Then WarnLog "Tab stops state changed - watch BugID: 82744 for Status" + + printlog "all UnCheck -> o" + + Schnellbearbeitung.UnCheck + TextbereichSelektierbar.UnCheck + + CacheFuerHintergrund.UnCheck + KopieBeimVerschieben.UnCheck + ObjekteImmerVerschiebbar.UnCheck + + if (gApplication = "DRAW") then + Zeichnungsmasstab.Select (1) + SetzenAufKreis.UnCheck + else ' IMPRESS + MitAutopilotStarten.UnCheck + MitAktuellerSeite.UnCheck + AlleAbsatzabstaendeAddieren.UnCheck + endif + + Masseinheit.Select (1) + Tabulatorabstand.ToMin + sTemp = Tabulatorabstand.GetText + printlog " More test " + Tabulatorabstand.More + if ( sTemp = Tabulatorabstand.GetText ) Then WarnLog "Tab Stops More-Button not working; stemp1: "+sTemp + " =? (2) " +Tabulatorabstand.GetText + sTemp = Tabulatorabstand.GetText + + Kontext "ExtrasOptionenDlg" + ExtrasOptionenDlg.OK + + printlog "check if all UnChecked" + ToolsOptions + hToolsOptions (sApplication,"General") + + If Schnellbearbeitung.IsChecked Then WarnLog "Allow Quick Editing x" + If TextbereichSelektierbar.IsChecked Then WarnLog "Only Text Area Selectable x" + + If CacheFuerHintergrund.IsChecked Then WarnLog "Use Background Cache x" + If KopieBeimVerschieben.IsChecked Then WarnLog "Copy When Moving x" + If ObjekteImmerVerschiebbar.IsChecked Then WarnLog "Objects Always Movable x" + + if (gApplication = "DRAW") then + If ( Zeichnungsmasstab.GetSelIndex <> 1 ) Then WarnLog "'Drawing Scale' is not item 1" + If SetzenAufKreis.IsChecked Then WarnLog "'Do not disort objects in curve' x" + else ' IMPRESS + if MitAutopilotStarten.IsChecked Then WarnLog "Start with AutoPilot x" + if MitAktuellerSeite.IsChecked Then WarnLog "'Always with current page' x" + if AlleAbsatzabstaendeAddieren.IsChecked Then WarnLog "'Add spacing between paragraphs in the current document' x" + endif + + If ( Masseinheit.GetSelIndex <> 1 ) Then WarnLog "Unit of Measurement is not item 1" + If (LiberalMeasurement (sTemp,Tabulatorabstand.GetText) <> TRUE ) Then WarnLog "Tab stops is not min. is: " +Tabulatorabstand.GetText + " should: " +sTemp Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK @@ -198,56 +200,51 @@ testcase tToolsOptionsDrawGeneral (sApplication as string) hNewDocument printlog "set Default Tab Stop to 2,5cm" - ToolsOptions - hToolsOptions (sApplication,"General") - Masseinheit.Select (2) ' cm - sMeasUnit = GetMeasUnit(Tabulatorabstand.GetText) -' printlog "before " + Tabulatorabstand.GetText - Tabulatorabstand.SetText ("2" + GetDecimalSeperator(Tabulatorabstand.GetText) + "50"+ sMeasUnit) -' printlog "after " + Tabulatorabstand.GetText -' printlog "seperator: " + GetDecimalSeperator(Tabulatorabstand.GetText) -' printlog "generated string: " + "2" + GetDecimalSeperator(Tabulatorabstand.GetText) + "50cm" + ToolsOptions + hToolsOptions (sApplication,"General") + Masseinheit.Select (2) ' cm + sMeasUnit = GetMeasUnit(Tabulatorabstand.GetText) + ' printlog "before " + Tabulatorabstand.GetText + Tabulatorabstand.SetText ("2" + GetDecimalSeperator(Tabulatorabstand.GetText) + "50"+ sMeasUnit) + ' printlog "after " + Tabulatorabstand.GetText + ' printlog "seperator: " + GetDecimalSeperator(Tabulatorabstand.GetText) + ' printlog "generated string: " + "2" + GetDecimalSeperator(Tabulatorabstand.GetText) + "50cm" Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK printlog "creating document with tabstops and save it" - if (gApplication = "DRAW") then - kontext "Toolbar" - Textfield.Click - kontext "DocumentDraw" - hMouseClick DocumentDraw,50,50 - else - kontext "Toolbar" - Textfield.Click - kontext "DocumentImpress" - hMouseClick DocumentImpress,20,50 - endif - hTypeKeys "a<Tab>b<Tab>c<Tab>d<Tab>e<Tab>f<Tab>g<Tab>h<Tab>i<Tab>j" - - + if (gApplication = "DRAW") then + kontext "Toolbar" + Textfield.Click + kontext "DocumentDraw" + hMouseClick DocumentDraw,50,50 + else + kontext "Toolbar" + Textfield.Click + kontext "DocumentImpress" + hMouseClick DocumentImpress,20,50 + endif + hTypeKeys "a<Tab>b<Tab>c<Tab>d<Tab>e<Tab>f<Tab>g<Tab>h<Tab>i<Tab>j" if ( gApplication = "IMPRESS" ) then ExtensionString = "odp" else ExtensionString = "odg" end if - hFileSaveAsKill (gOfficePath + "user\work\tab25cm." & ExtensionString ) - - hCloseDocument - sleep (2) - + hCloseDocument + sleep (2) printlog "change tab stops" - hNewDocument + hNewDocument printlog "Changed the Default Tab Stop to 2,9cm" - ToolsOptions - hToolsOptions (sApplication,"General") - Masseinheit.Select (2) ' cm -' printlog "before " + Tabulatorabstand.GetText - Tabulatorabstand.SetText ("2" + GetDecimalSeperator(Tabulatorabstand.GetText) + "90"+sMeasUnit ) -' printlog "after " + Tabulatorabstand.GetText - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - sleep (2) + ToolsOptions + hToolsOptions (sApplication,"General") + Masseinheit.Select (2) ' cm + ' printlog "before " + Tabulatorabstand.GetText + Tabulatorabstand.SetText ("2" + GetDecimalSeperator(Tabulatorabstand.GetText) + "90"+sMeasUnit ) + ' printlog "after " + Tabulatorabstand.GetText + Kontext "ExtrasOptionenDlg" + ExtrasOptionenDlg.OK + sleep (2) @@ -271,98 +268,98 @@ testcase tToolsOptionsDrawGeneral (sApplication as string) hCloseDocument '--------------------------------------------------------------------------------- - Printlog ("'/// - all Check -> x ///") + Printlog ("all Check -> x") - printlog "Click in the open impress document to get the focus back to the document" - printlog "Otherwise it sometimes happend that the Tools/Option dialog doesn't display the correct applications" - hNewDocument - if ( sApplication = "IMPRESS") then + printlog "Click in the open impress document to get the focus back to the document" + printlog "Otherwise it sometimes happend that the Tools/Option dialog doesn't display the correct applications" + hNewDocument + if ( sApplication = "IMPRESS") then Kontext "DocumentImpress" - DocumentImpress.MouseDown(50,50) - DocumentImpress.MouseUp(50,50) - else + DocumentImpress.MouseDown(50,50) + DocumentImpress.MouseUp(50,50) + else Kontext "DocumentDraw" - DocumentDraw.MouseDown(50,50) - DocumentDraw.MouseUp(50,50) - endif + DocumentDraw.MouseDown(50,50) + DocumentDraw.MouseUp(50,50) + endif - ToolsOptions - hToolsOptions (sApplication,"General") - kontext "TabSonstigesDraw" - Schnellbearbeitung.Check - TextbereichSelektierbar.Check + ToolsOptions + hToolsOptions (sApplication,"General") + kontext "TabSonstigesDraw" + Schnellbearbeitung.Check + TextbereichSelektierbar.Check - CacheFuerHintergrund.Check - KopieBeimVerschieben.Check - ObjekteImmerVerschiebbar.Check + CacheFuerHintergrund.Check + KopieBeimVerschieben.Check + ObjekteImmerVerschiebbar.Check - if (gApplication = "DRAW") then + if (gApplication = "DRAW") then Zeichnungsmasstab.Select (2) itemp2 = Zeichnungsmasstab.GetSelIndex SetzenAufKreis.Check - else ' IMPRESS -' MitAutopilotStarten.Check + else ' IMPRESS + ' MitAutopilotStarten.Check MitAktuellerSeite.Check AlleAbsatzabstaendeAddieren.Check - endif + endif - Masseinheit.Select (2) - itemp = Masseinheit.GetSelIndex - sTemp = "3" + GetDecimalSeperator(Tabulatorabstand.GetText) + "21"+sMeasUnit - Tabulatorabstand.SetText (sTemp) + Masseinheit.Select (2) + itemp = Masseinheit.GetSelIndex + sTemp = "3" + GetDecimalSeperator(Tabulatorabstand.GetText) + "21"+sMeasUnit + Tabulatorabstand.SetText (sTemp) - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK + Kontext "ExtrasOptionenDlg" + ExtrasOptionenDlg.OK - printlog ("'/// - check if all Checked ///") - ToolsOptions - hToolsOptions (sApplication,"General") + printlog ("check if all Checked") + ToolsOptions + hToolsOptions (sApplication,"General") - If True <> Schnellbearbeitung.IsChecked Then WarnLog "Allow Quick Editing o" - If True <> TextbereichSelektierbar.IsChecked Then WarnLog "Only Text Area Selectable o" + If True <> Schnellbearbeitung.IsChecked Then WarnLog "Allow Quick Editing o" + If True <> TextbereichSelektierbar.IsChecked Then WarnLog "Only Text Area Selectable o" - If True <> CacheFuerHintergrund.IsChecked Then WarnLog "Use Background Cache o i26631" - If True <> KopieBeimVerschieben.IsChecked Then WarnLog "Copy When Moving o" - If True <> ObjekteImmerVerschiebbar.IsChecked Then WarnLog "Objects Always Movable o" + If True <> CacheFuerHintergrund.IsChecked Then WarnLog "Use Background Cache o i26631" + If True <> KopieBeimVerschieben.IsChecked Then WarnLog "Copy When Moving o" + If True <> ObjekteImmerVerschiebbar.IsChecked Then WarnLog "Objects Always Movable o" - if (gApplication = "DRAW") then - If ( Zeichnungsmasstab.GetSelIndex <> iTemp2 ) Then WarnLog "Drawing Scale is not item " + iTemp2 + " it's: " + Zeichnungsmasstab.GetSelIndex - If True <> SetzenAufKreis.IsChecked Then WarnLog "'Do not disort objects in curve' o" - else ' IMPRESS -' If True <> MitAutopilotStarten.IsChecked Then WarnLog "Start with AutoPilot o" - If True <> MitAktuellerSeite.IsChecked Then WarnLog "'Always with current page' o" - If True <> AlleAbsatzabstaendeAddieren.IsChecked Then WarnLog "'Add spacing between paragraphs in the current document' o" - endif + if (gApplication = "DRAW") then + If ( Zeichnungsmasstab.GetSelIndex <> iTemp2 ) Then WarnLog "Drawing Scale is not item " + iTemp2 + " it's: " + Zeichnungsmasstab.GetSelIndex + If True <> SetzenAufKreis.IsChecked Then WarnLog "'Do not disort objects in curve' o" + else ' IMPRESS + ' If True <> MitAutopilotStarten.IsChecked Then WarnLog "Start with AutoPilot o" + If True <> MitAktuellerSeite.IsChecked Then WarnLog "'Always with current page' o" + If True <> AlleAbsatzabstaendeAddieren.IsChecked Then WarnLog "'Add spacing between paragraphs in the current document' o" + endif - If ( Masseinheit.GetSelIndex <> iTemp ) Then WarnLog "Masseinheit is not item " + iTemp + " it's: " + Masseinheit.GetSelIndex - If (LiberalMeasurement (sTemp,Tabulatorabstand.GetText) <> TRUE ) Then WarnLog "Tab stops is not " + sTemp + " it's: " + Tabulatorabstand.GetText + If ( Masseinheit.GetSelIndex <> iTemp ) Then WarnLog "Masseinheit is not item " + iTemp + " it's: " + Masseinheit.GetSelIndex + If (LiberalMeasurement (sTemp,Tabulatorabstand.GetText) <> TRUE ) Then WarnLog "Tab stops is not " + sTemp + " it's: " + Tabulatorabstand.GetText - printlog "restore states" + printlog "restore states" - If ( irgendwas(1) = TRUE ) Then Schnellbearbeitung.Check Else Schnellbearbeitung.UnCheck - If ( irgendwas(2) = TRUE ) Then TextbereichSelektierbar.Check Else TextbereichSelektierbar.UnCheck + If ( irgendwas(1) = TRUE ) Then Schnellbearbeitung.Check Else Schnellbearbeitung.UnCheck + If ( irgendwas(2) = TRUE ) Then TextbereichSelektierbar.Check Else TextbereichSelektierbar.UnCheck - If ( irgendwas(3) = TRUE ) Then CacheFuerHintergrund.Check Else CacheFuerHintergrund.UnCheck - If ( irgendwas(4) = TRUE ) Then KopieBeimVerschieben.Check Else KopieBeimVerschieben.UnCheck - If ( irgendwas(5) = TRUE ) Then ObjekteImmerVerschiebbar.Check Else ObjekteImmerVerschiebbar.UnCheck + If ( irgendwas(3) = TRUE ) Then CacheFuerHintergrund.Check Else CacheFuerHintergrund.UnCheck + If ( irgendwas(4) = TRUE ) Then KopieBeimVerschieben.Check Else KopieBeimVerschieben.UnCheck + If ( irgendwas(5) = TRUE ) Then ObjekteImmerVerschiebbar.Check Else ObjekteImmerVerschiebbar.UnCheck - if (gApplication = "DRAW") then - Zeichnungsmasstab.Select (iZeichnungsmasstab) - If ( irgendwas(6) = TRUE ) Then SetzenAufKreis.Check Else SetzenAufKreis.UnCheck - else ' IMPRESS - if ( irgendwas(7) = TRUE ) Then MitAutopilotStarten.Check Else MitAutopilotStarten.UnCheck - if ( irgendwas(8) = TRUE ) Then MitAktuellerSeite.Check Else MitAktuellerSeite.UnCheck - if ( irgendwas(9) = TRUE ) Then AlleAbsatzabstaendeAddieren.Check Else AlleAbsatzabstaendeAddieren.UnCheck - endif + if (gApplication = "DRAW") then + Zeichnungsmasstab.Select (iZeichnungsmasstab) + If ( irgendwas(6) = TRUE ) Then SetzenAufKreis.Check Else SetzenAufKreis.UnCheck + else ' IMPRESS + if ( irgendwas(7) = TRUE ) Then MitAutopilotStarten.Check Else MitAutopilotStarten.UnCheck + if ( irgendwas(8) = TRUE ) Then MitAktuellerSeite.Check Else MitAktuellerSeite.UnCheck + if ( irgendwas(9) = TRUE ) Then AlleAbsatzabstaendeAddieren.Check Else AlleAbsatzabstaendeAddieren.UnCheck + endif - Masseinheit.Select (iMasseinheit) 'sw:ListBox:TP_LAYOUT_O - Tabulatorabstand.SetText (sTabAbstand) ' sw:MetricField:TP_LAYOUT_OPT:MF_TAB + Masseinheit.Select (iMasseinheit) 'sw:ListBox:TP_LAYOUT_O + Tabulatorabstand.SetText (sTabAbstand) ' sw:MetricField:TP_LAYOUT_OPT:MF_TAB - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK + Kontext "ExtrasOptionenDlg" + ExtrasOptionenDlg.OK - hCloseDocument + hCloseDocument endcase 'tToolsOptionsDrawGeneral '------------------------------------------------------------------------------ @@ -406,143 +403,143 @@ testcase tToolsOptionsDrawView (sApplication as string) printlog "all UnCheck -> o" - LinealeSichtbar.UnCheck - HilfslinienBeimBewegen.UnCheck - KontrolpunkteImBezierEditor.UnCheck - KonturFuerIndividuelleObjekte.UnCheck + LinealeSichtbar.UnCheck + HilfslinienBeimBewegen.UnCheck + KontrolpunkteImBezierEditor.UnCheck + KonturFuerIndividuelleObjekte.UnCheck - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK + Kontext "ExtrasOptionenDlg" + ExtrasOptionenDlg.OK - printlog "check if all UnChecked" - ToolsOptions - hToolsOptions (sApplication,"View") + printlog "check if all UnChecked" + ToolsOptions + hToolsOptions (sApplication,"View") - If LinealeSichtbar.IsChecked Then WarnLog "Rulers Visible x" - If HilfslinienBeimBewegen.IsChecked Then WarnLog "Guides When Moving x" - If KontrolpunkteImBezierEditor.IsChecked Then WarnLog "'All Control Points In B�zier Editor' x" - If KonturFuerIndividuelleObjekte.IsChecked Then WarnLog "'Contour of Each Individual Object' x" + If LinealeSichtbar.IsChecked Then WarnLog "Rulers Visible x" + If HilfslinienBeimBewegen.IsChecked Then WarnLog "Guides When Moving x" + If KontrolpunkteImBezierEditor.IsChecked Then WarnLog "'All Control Points In B�zier Editor' x" + If KonturFuerIndividuelleObjekte.IsChecked Then WarnLog "'Contour of Each Individual Object' x" - Printlog "all Check -> x" + Printlog "all Check -> x" - LinealeSichtbar.Check - HilfslinienBeimBewegen.Check - KontrolpunkteImBezierEditor.Check - KonturFuerIndividuelleObjekte.Check + LinealeSichtbar.Check + HilfslinienBeimBewegen.Check + KontrolpunkteImBezierEditor.Check + KonturFuerIndividuelleObjekte.Check - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK + Kontext "ExtrasOptionenDlg" + ExtrasOptionenDlg.OK - printlog "check if all Checked" - ToolsOptions - hToolsOptions (sApplication,"View") + printlog "check if all Checked" + ToolsOptions + hToolsOptions (sApplication,"View") - If True <> LinealeSichtbar.IsChecked Then WarnLog "Rulers Visible o" - If True <> HilfslinienBeimBewegen.IsChecked Then WarnLog "Guides When Moving o" - If True <> KontrolpunkteImBezierEditor.IsChecked Then WarnLog "'All Control Points In B�zier Editor' o" - If True <> KonturFuerIndividuelleObjekte.IsChecked Then WarnLog "'Contour of Each Individual Object' o" + If True <> LinealeSichtbar.IsChecked Then WarnLog "Rulers Visible o" + If True <> HilfslinienBeimBewegen.IsChecked Then WarnLog "Guides When Moving o" + If True <> KontrolpunkteImBezierEditor.IsChecked Then WarnLog "'All Control Points In B�zier Editor' o" + If True <> KonturFuerIndividuelleObjekte.IsChecked Then WarnLog "'Contour of Each Individual Object' o" - printlog "restore states" + printlog "restore states" - If ( irgendwas(1) = TRUE ) Then LinealeSichtbar.Check Else LinealeSichtbar.UnCheck - If ( irgendwas(2) = TRUE ) Then HilfslinienBeimBewegen.Check Else HilfslinienBeimBewegen.UnCheck - If ( irgendwas(3) = TRUE ) Then KontrolpunkteImBezierEditor.Check Else KontrolpunkteImBezierEditor.UnCheck - If ( irgendwas(4) = TRUE ) Then KonturFuerIndividuelleObjekte.Check Else KonturFuerIndividuelleObjekte.UnCheck + If ( irgendwas(1) = TRUE ) Then LinealeSichtbar.Check Else LinealeSichtbar.UnCheck + If ( irgendwas(2) = TRUE ) Then HilfslinienBeimBewegen.Check Else HilfslinienBeimBewegen.UnCheck + If ( irgendwas(3) = TRUE ) Then KontrolpunkteImBezierEditor.Check Else KontrolpunkteImBezierEditor.UnCheck + If ( irgendwas(4) = TRUE ) Then KonturFuerIndividuelleObjekte.Check Else KonturFuerIndividuelleObjekte.UnCheck - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK + Kontext "ExtrasOptionenDlg" + ExtrasOptionenDlg.OK - hCloseDocument + hCloseDocument endcase 'tToolsOptionsDrawView '-------------------------------------------------------------------------------- testcase tToolsOptionsDrawGrid (sApplication as string) - dim irgendwas(10) as boolean - dim sMetricField(7) as string ' MetricField - dim sTempMetricField(7) as string - dim iTry as integer ' some increment variable + dim irgendwas(10) as boolean + dim sMetricField(7) as string ' MetricField + dim sTempMetricField(7) as string + dim iTry as integer ' some increment variable - if ( gApplication = "IMPRESS" ) then + if ( gApplication = "IMPRESS" ) then ExtensionString = "odp" else ExtensionString = "odg" end if - hNewDocument - - printlog "save states" - ToolsOptions - hToolsOptions (sApplication,"Grid") - - irgendwas(1) = FangrasterBenutzen.IsChecked - irgendwas(2) = RasterSichtbar.IsChecked - - irgendwas(3) = AchsenSynchronisieren.IsChecked - - irgendwas(4) = AnFanglinien.IsChecked - irgendwas(5) = AnSeitenraendern.IsChecked - irgendwas(6) = AmObjektrahmen.IsChecked - irgendwas(7) = AnObjektpunkten.IsChecked - - irgendwas(8) = BeimErzeugenUndBewegen.IsChecked - irgendwas(9) = LaengereKantenlaenge.IsChecked - irgendwas(10)= BeimDrehen.IsChecked - if BeimDrehen.IsChecked then sMetricField(7) = Winkel.getText - - sMetricField(1) = RasterAufloesungXAchse.GetText - sMetricField(2) = RasterAufloesungYAchse.GetText - sMetricField(3) = RasterUnterteilungXAchse.GetText - sMetricField(4) = RasterUnterteilungYAchse.GetText - sMetricField(5) = FangenFangbereich.GetText - sMetricField(6) = Punktreduktion.GetText - - printlog "all states inverting" - - if irgendwas(1) Then FangrasterBenutzen.UnCheck Else FangrasterBenutzen.Check - if irgendwas(2) Then RasterSichtbar.UnCheck Else RasterSichtbar.Check - -' if irgendwas(3) Then AchsenSynchronisieren.UnCheck Else AchsenSynchronisieren.Check - ' this CheckBox interacts with the MetricBoxes: - AchsenSynchronisieren.UnCheck - - if irgendwas(4) Then AnFanglinien.UnCheck Else AnFanglinien.Check - if irgendwas(5) Then AnSeitenraendern.UnCheck Else AnSeitenraendern.Check - if irgendwas(6) Then AmObjektrahmen.UnCheck Else AmObjektrahmen.Check - if irgendwas(7) Then AnObjektpunkten.UnCheck Else AnObjektpunkten.Check - - if irgendwas(8) Then BeimErzeugenUndBewegen.UnCheck Else BeimErzeugenUndBewegen.Check - if irgendwas(9) Then LaengereKantenlaenge.UnCheck Else LaengereKantenlaenge.Check - if irgendwas(10)Then BeimDrehen.UnCheck Else BeimDrehen.Check - - sTempMetricField(1) = RasterAufloesungXAchse.GetText - sTempMetricField(2) = RasterAufloesungYAchse.GetText - sTempMetricField(3) = RasterUnterteilungXAchse.GetText - sTempMetricField(4) = RasterUnterteilungYAchse.GetText - sTempMetricField(5) = FangenFangbereich.GetText - sTempMetricField(6) = Punktreduktion.GetText - RasterAufloesungXAchse.ToMax - RasterAufloesungYAchse.ToMin - RasterUnterteilungXAchse.ToMin - RasterUnterteilungYAchse.ToMax - FangenFangbereich.ToMin - Punktreduktion.ToMax - If ( RasterAufloesungXAchse.GetText = sTempMetricField(1) ) Then RasterAufloesungXAchse.ToMin - If ( RasterAufloesungYAchse.GetText = sTempMetricField(2) ) Then RasterAufloesungYAchse.ToMax - If ( RasterUnterteilungXAchse.GetText = sTempMetricField(3) ) Then RasterUnterteilungXAchse.ToMax - If ( RasterUnterteilungYAchse.GetText = sTempMetricField(4) ) Then RasterUnterteilungYAchse.ToMin - If ( FangenFangbereich.GetText = sTempMetricField(5) ) Then FangenFangbereich.ToMax - If ( Punktreduktion.GetText = sTempMetricField(6) ) Then Punktreduktion.ToMin - RasterAufloesungXAchse.More ' because it must greater than the.min value for the subdivisions if they are .tomax! - RasterAufloesungXAchse.More - RasterAufloesungYAchse.More - RasterAufloesungYAchse.More - sTempMetricField(1) = RasterAufloesungXAchse.GetText - sTempMetricField(2) = RasterAufloesungYAchse.GetText - sTempMetricField(3) = RasterUnterteilungXAchse.GetText - sTempMetricField(4) = RasterUnterteilungYAchse.GetText - sTempMetricField(5) = FangenFangbereich.GetText - sTempMetricField(6) = Punktreduktion.GetText + hNewDocument + + printlog "save states" + ToolsOptions + hToolsOptions (sApplication,"Grid") + + irgendwas(1) = FangrasterBenutzen.IsChecked + irgendwas(2) = RasterSichtbar.IsChecked + + irgendwas(3) = AchsenSynchronisieren.IsChecked + + irgendwas(4) = AnFanglinien.IsChecked + irgendwas(5) = AnSeitenraendern.IsChecked + irgendwas(6) = AmObjektrahmen.IsChecked + irgendwas(7) = AnObjektpunkten.IsChecked + + irgendwas(8) = BeimErzeugenUndBewegen.IsChecked + irgendwas(9) = LaengereKantenlaenge.IsChecked + irgendwas(10)= BeimDrehen.IsChecked + if BeimDrehen.IsChecked then sMetricField(7) = Winkel.getText + + sMetricField(1) = RasterAufloesungXAchse.GetText + sMetricField(2) = RasterAufloesungYAchse.GetText + sMetricField(3) = RasterUnterteilungXAchse.GetText + sMetricField(4) = RasterUnterteilungYAchse.GetText + sMetricField(5) = FangenFangbereich.GetText + sMetricField(6) = Punktreduktion.GetText + + printlog "all states inverting" + + if irgendwas(1) Then FangrasterBenutzen.UnCheck Else FangrasterBenutzen.Check + if irgendwas(2) Then RasterSichtbar.UnCheck Else RasterSichtbar.Check + + ' if irgendwas(3) Then AchsenSynchronisieren.UnCheck Else AchsenSynchronisieren.Check + ' this CheckBox interacts with the MetricBoxes: + AchsenSynchronisieren.UnCheck + + if irgendwas(4) Then AnFanglinien.UnCheck Else AnFanglinien.Check + if irgendwas(5) Then AnSeitenraendern.UnCheck Else AnSeitenraendern.Check + if irgendwas(6) Then AmObjektrahmen.UnCheck Else AmObjektrahmen.Check + if irgendwas(7) Then AnObjektpunkten.UnCheck Else AnObjektpunkten.Check + + if irgendwas(8) Then BeimErzeugenUndBewegen.UnCheck Else BeimErzeugenUndBewegen.Check + if irgendwas(9) Then LaengereKantenlaenge.UnCheck Else LaengereKantenlaenge.Check + if irgendwas(10)Then BeimDrehen.UnCheck Else BeimDrehen.Check + + sTempMetricField(1) = RasterAufloesungXAchse.GetText + sTempMetricField(2) = RasterAufloesungYAchse.GetText + sTempMetricField(3) = RasterUnterteilungXAchse.GetText + sTempMetricField(4) = RasterUnterteilungYAchse.GetText + sTempMetricField(5) = FangenFangbereich.GetText + sTempMetricField(6) = Punktreduktion.GetText + RasterAufloesungXAchse.ToMax + RasterAufloesungYAchse.ToMin + RasterUnterteilungXAchse.ToMin + RasterUnterteilungYAchse.ToMax + FangenFangbereich.ToMin + Punktreduktion.ToMax + If ( RasterAufloesungXAchse.GetText = sTempMetricField(1) ) Then RasterAufloesungXAchse.ToMin + If ( RasterAufloesungYAchse.GetText = sTempMetricField(2) ) Then RasterAufloesungYAchse.ToMax + If ( RasterUnterteilungXAchse.GetText = sTempMetricField(3) ) Then RasterUnterteilungXAchse.ToMax + If ( RasterUnterteilungYAchse.GetText = sTempMetricField(4) ) Then RasterUnterteilungYAchse.ToMin + If ( FangenFangbereich.GetText = sTempMetricField(5) ) Then FangenFangbereich.ToMax + If ( Punktreduktion.GetText = sTempMetricField(6) ) Then Punktreduktion.ToMin + RasterAufloesungXAchse.More ' because it must greater than the.min value for the subdivisions if they are .tomax! + RasterAufloesungXAchse.More + RasterAufloesungYAchse.More + RasterAufloesungYAchse.More + sTempMetricField(1) = RasterAufloesungXAchse.GetText + sTempMetricField(2) = RasterAufloesungYAchse.GetText + sTempMetricField(3) = RasterUnterteilungXAchse.GetText + sTempMetricField(4) = RasterUnterteilungYAchse.GetText + sTempMetricField(5) = FangenFangbereich.GetText + sTempMetricField(6) = Punktreduktion.GetText Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK @@ -557,205 +554,203 @@ testcase tToolsOptionsDrawGrid (sApplication as string) ToolsOptions hToolsOptions (sApplication,"Grid") - If ( irgendwas(1) = FangrasterBenutzen.IsChecked ) Then WarnLog "Snap to Grid state changed" - If ( irgendwas(2) = RasterSichtbar.IsChecked ) Then WarnLog "Visible Grid state changed" - -' If ( irgendwas(3) = AchsenSynchronisieren.IsChecked ) Then WarnLog "Synchronize Axes state changed" - if ( AchsenSynchronisieren.IsChecked = TRUE ) Then WarnLog "Synchronize Axes state changed" - - If ( irgendwas(4) = AnFanglinien.IsChecked ) Then WarnLog "To snap lines state changed" - If ( irgendwas(5) = AnSeitenraendern.IsChecked ) Then WarnLog "To the page margins state changed" - If ( irgendwas(6) = AmObjektrahmen.IsChecked ) Then WarnLog "To object frame state changed" - If ( irgendwas(7) = AnObjektpunkten.IsChecked ) Then WarnLog "To object points state changed" - - If ( irgendwas(8) = BeimErzeugenUndBewegen.IsChecked ) Then WarnLog "When creating or moving objects state changed" - If ( irgendwas(9) = LaengereKantenlaenge.IsChecked ) Then WarnLog "Extend Edges state changed" - If ( irgendwas(10)= BeimDrehen.IsChecked ) Then WarnLog "When Rotating state changed" - - If ( RasterAufloesungXAchse.GetText <> sTempMetricField(1) ) Then WarnLog "GridResolutionXAxel state changed" - If ( RasterAufloesungYAchse.GetText <> sTempMetricField(2) ) Then WarnLog "GridResolutionYAxel state changed" - If ( RasterUnterteilungXAchse.GetText <> sTempMetricField(3) ) Then WarnLog "GridSubdivisionXAxel state changed is: "+RasterUnterteilungXAchse.GetText+"; should: "+sTempMetricField(3) - If ( RasterUnterteilungYAchse.GetText <> sTempMetricField(4) ) Then WarnLog "GridSubdivisionYAxel state changed is: "+RasterUnterteilungYAchse.GetText+"; should: "+sTempMetricField(4) - If ( FangenFangbereich.GetText <> sTempMetricField(5) ) Then WarnLog "SnapSnap range state changed" - If ( Punktreduktion.GetText <> sTempMetricField(6) ) Then WarnLog "Pointreduction state changed" - - printlog "all UnCheck -> o" - - FangrasterBenutzen.UnCheck - RasterSichtbar.UnCheck - - AchsenSynchronisieren.UnCheck - - AnFanglinien.UnCheck - AnSeitenraendern.UnCheck - AmObjektrahmen.UnCheck - AnObjektpunkten.UnCheck - - BeimErzeugenUndBewegen.UnCheck - LaengereKantenlaenge.UnCheck - BeimDrehen.UnCheck - - RasterAufloesungXAchse.ToMin - RasterAufloesungYAchse.ToMin - RasterUnterteilungXAchse.ToMin - RasterUnterteilungYAchse.ToMin - FangenFangbereich.ToMin - Punktreduktion.ToMin - sTempMetricField(1) = RasterAufloesungXAchse.GetText - sTempMetricField(2) = RasterAufloesungYAchse.GetText - sTempMetricField(3) = RasterUnterteilungXAchse.GetText - sTempMetricField(4) = RasterUnterteilungYAchse.GetText - sTempMetricField(5) = FangenFangbereich.GetText - sTempMetricField(6) = Punktreduktion.GetText - printlog "More test" - RasterAufloesungXAchse.More - RasterAufloesungYAchse.More - RasterUnterteilungXAchse.More - RasterUnterteilungYAchse.More - FangenFangbereich.More - Punktreduktion.More - if ( sTempMetricField(1) = RasterAufloesungXAchse.GetText ) Then WarnLog "GridResolutionXAxel More-Button not working" - if ( sTempMetricField(2) = RasterAufloesungYAchse.GetText ) Then WarnLog "GridResolutionYAxel More-Button not working" - if ( sTempMetricField(3) = RasterUnterteilungXAchse.GetText ) Then WarnLog "GridSubdivisionXAxel More-Button not working" - if ( sTempMetricField(4) = RasterUnterteilungYAchse.GetText ) Then WarnLog "GridSubdivisionYAxel More-Button not working" - if ( sTempMetricField(5) = FangenFangbereich.GetText ) Then WarnLog "Snap Snap Range More-Button not working" - if ( sTempMetricField(6) = Punktreduktion.GetText ) Then WarnLog "Pointreduction More-Button not working is: "+Punktreduktion.GetText - sTempMetricField(1) = RasterAufloesungXAchse.GetText - sTempMetricField(2) = RasterAufloesungYAchse.GetText - sTempMetricField(3) = RasterUnterteilungXAchse.GetText - sTempMetricField(4) = RasterUnterteilungYAchse.GetText - sTempMetricField(5) = FangenFangbereich.GetText - sTempMetricField(6) = Punktreduktion.GetText + If ( irgendwas(1) = FangrasterBenutzen.IsChecked ) Then WarnLog "Snap to Grid state changed" + If ( irgendwas(2) = RasterSichtbar.IsChecked ) Then WarnLog "Visible Grid state changed" - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK + ' If ( irgendwas(3) = AchsenSynchronisieren.IsChecked ) Then WarnLog "Synchronize Axes state changed" + if ( AchsenSynchronisieren.IsChecked = TRUE ) Then WarnLog "Synchronize Axes state changed" + + If ( irgendwas(4) = AnFanglinien.IsChecked ) Then WarnLog "To snap lines state changed" + If ( irgendwas(5) = AnSeitenraendern.IsChecked ) Then WarnLog "To the page margins state changed" + If ( irgendwas(6) = AmObjektrahmen.IsChecked ) Then WarnLog "To object frame state changed" + If ( irgendwas(7) = AnObjektpunkten.IsChecked ) Then WarnLog "To object points state changed" + + If ( irgendwas(8) = BeimErzeugenUndBewegen.IsChecked ) Then WarnLog "When creating or moving objects state changed" + If ( irgendwas(9) = LaengereKantenlaenge.IsChecked ) Then WarnLog "Extend Edges state changed" + If ( irgendwas(10)= BeimDrehen.IsChecked ) Then WarnLog "When Rotating state changed" + + If ( RasterAufloesungXAchse.GetText <> sTempMetricField(1) ) Then WarnLog "GridResolutionXAxel state changed" + If ( RasterAufloesungYAchse.GetText <> sTempMetricField(2) ) Then WarnLog "GridResolutionYAxel state changed" + If ( RasterUnterteilungXAchse.GetText <> sTempMetricField(3) ) Then WarnLog "GridSubdivisionXAxel state changed is: "+RasterUnterteilungXAchse.GetText+"; should: "+sTempMetricField(3) + If ( RasterUnterteilungYAchse.GetText <> sTempMetricField(4) ) Then WarnLog "GridSubdivisionYAxel state changed is: "+RasterUnterteilungYAchse.GetText+"; should: "+sTempMetricField(4) + If ( FangenFangbereich.GetText <> sTempMetricField(5) ) Then WarnLog "SnapSnap range state changed" + If ( Punktreduktion.GetText <> sTempMetricField(6) ) Then WarnLog "Pointreduction state changed" + + printlog "all UnCheck -> o" + + FangrasterBenutzen.UnCheck + RasterSichtbar.UnCheck + + AchsenSynchronisieren.UnCheck + + AnFanglinien.UnCheck + AnSeitenraendern.UnCheck + AmObjektrahmen.UnCheck + AnObjektpunkten.UnCheck + + BeimErzeugenUndBewegen.UnCheck + LaengereKantenlaenge.UnCheck + BeimDrehen.UnCheck + + RasterAufloesungXAchse.ToMin + RasterAufloesungYAchse.ToMin + RasterUnterteilungXAchse.ToMin + RasterUnterteilungYAchse.ToMin + FangenFangbereich.ToMin + Punktreduktion.ToMin + sTempMetricField(1) = RasterAufloesungXAchse.GetText + sTempMetricField(2) = RasterAufloesungYAchse.GetText + sTempMetricField(3) = RasterUnterteilungXAchse.GetText + sTempMetricField(4) = RasterUnterteilungYAchse.GetText + sTempMetricField(5) = FangenFangbereich.GetText + sTempMetricField(6) = Punktreduktion.GetText + printlog "More test" + RasterAufloesungXAchse.More + RasterAufloesungYAchse.More + RasterUnterteilungXAchse.More + RasterUnterteilungYAchse.More + FangenFangbereich.More + Punktreduktion.More + if ( sTempMetricField(1) = RasterAufloesungXAchse.GetText ) Then WarnLog "GridResolutionXAxel More-Button not working" + if ( sTempMetricField(2) = RasterAufloesungYAchse.GetText ) Then WarnLog "GridResolutionYAxel More-Button not working" + if ( sTempMetricField(3) = RasterUnterteilungXAchse.GetText ) Then WarnLog "GridSubdivisionXAxel More-Button not working" + if ( sTempMetricField(4) = RasterUnterteilungYAchse.GetText ) Then WarnLog "GridSubdivisionYAxel More-Button not working" + if ( sTempMetricField(5) = FangenFangbereich.GetText ) Then WarnLog "Snap Snap Range More-Button not working" + if ( sTempMetricField(6) = Punktreduktion.GetText ) Then WarnLog "Pointreduction More-Button not working is: "+Punktreduktion.GetText + sTempMetricField(1) = RasterAufloesungXAchse.GetText + sTempMetricField(2) = RasterAufloesungYAchse.GetText + sTempMetricField(3) = RasterUnterteilungXAchse.GetText + sTempMetricField(4) = RasterUnterteilungYAchse.GetText + sTempMetricField(5) = FangenFangbereich.GetText + sTempMetricField(6) = Punktreduktion.GetText + + Kontext "ExtrasOptionenDlg" + ExtrasOptionenDlg.OK - printlog "check if all UnChecked" - ToolsOptions - hToolsOptions (sApplication,"Grid") + printlog "check if all UnChecked" + ToolsOptions + hToolsOptions (sApplication,"Grid") - If FangrasterBenutzen.IsChecked Then WarnLog "Snap to Grid x" - If RasterSichtbar.IsChecked Then WarnLog "Visible Grid x" + If FangrasterBenutzen.IsChecked Then WarnLog "Snap to Grid x" + If RasterSichtbar.IsChecked Then WarnLog "Visible Grid x" - If AchsenSynchronisieren.IsChecked Then WarnLog "Synchronize Axes x" + If AchsenSynchronisieren.IsChecked Then WarnLog "Synchronize Axes x" - If AnFanglinien.IsChecked Then WarnLog "To Snap Lines x" - If AnSeitenraendern.IsChecked Then WarnLog "To The Page Margins x" - If AmObjektrahmen.IsChecked Then WarnLog "To Object Frame x" - If AnObjektpunkten.IsChecked Then WarnLog "To Object Points x" + If AnFanglinien.IsChecked Then WarnLog "To Snap Lines x" + If AnSeitenraendern.IsChecked Then WarnLog "To The Page Margins x" + If AmObjektrahmen.IsChecked Then WarnLog "To Object Frame x" + If AnObjektpunkten.IsChecked Then WarnLog "To Object Points x" - If BeimErzeugenUndBewegen.IsChecked Then WarnLog "When Creating or Moving Objects x" - If LaengereKantenlaenge.IsChecked Then WarnLog "Extend Edges x" - If BeimDrehen.IsChecked Then WarnLog "When Rotating x" + If BeimErzeugenUndBewegen.IsChecked Then WarnLog "When Creating or Moving Objects x" + If LaengereKantenlaenge.IsChecked Then WarnLog "Extend Edges x" + If BeimDrehen.IsChecked Then WarnLog "When Rotating x" - If ( RasterAufloesungXAchse.GetText <> sTempMetricField(1) ) Then WarnLog "GridResolutionXAxel is not min." - If ( RasterAufloesungYAchse.GetText <> sTempMetricField(2) ) Then WarnLog "GridResolutionYAxel is not min." - If ( RasterUnterteilungXAchse.GetText <> sTempMetricField(3) ) Then WarnLog "GridSubdivisionXAxel is not min." - If ( RasterUnterteilungYAchse.GetText <> sTempMetricField(4) ) Then WarnLog "GridSubdivisionYAxel is not min." - If ( FangenFangbereich.GetText <> sTempMetricField(5) ) Then WarnLog "Snap Snap Range is not min." - If ( Punktreduktion.GetText <> sTempMetricField(6) ) Then WarnLog "Point Reduction is not min." + If ( RasterAufloesungXAchse.GetText <> sTempMetricField(1) ) Then WarnLog "GridResolutionXAxel is not min." + If ( RasterAufloesungYAchse.GetText <> sTempMetricField(2) ) Then WarnLog "GridResolutionYAxel is not min." + If ( RasterUnterteilungXAchse.GetText <> sTempMetricField(3) ) Then WarnLog "GridSubdivisionXAxel is not min." + If ( RasterUnterteilungYAchse.GetText <> sTempMetricField(4) ) Then WarnLog "GridSubdivisionYAxel is not min." + If ( FangenFangbereich.GetText <> sTempMetricField(5) ) Then WarnLog "Snap Snap Range is not min." + If ( Punktreduktion.GetText <> sTempMetricField(6) ) Then WarnLog "Point Reduction is not min." - Printlog "all Check -> x" + Printlog "all Check -> x" - FangrasterBenutzen.Check - RasterSichtbar.Check + FangrasterBenutzen.Check + RasterSichtbar.Check - AchsenSynchronisieren.Check + AchsenSynchronisieren.Check printlog "Synchronize axes check" - RasterAufloesungXAchse.ToMax - sleep 1 - sTempMetricField(1) = RasterAufloesungXAchse.GetText - if RasterAufloesungYAchse.GetText <> sTempMetricField(1) then Warnlog "Y-axis res. differs from X-axis" - RasterUnterteilungXAchse.ToMax - sleep 1 - sTempMetricField(3) = RasterUnterteilungXAchse.GetText - if RasterUnterteilungYAchse.GetText <> sTempMetricField(3) then Warnlog "Y-axis sub. differs from X-axis" -'-------------------------------------------- - sTempMetricField(2) = RasterAufloesungYAchse.GetText - sTempMetricField(4) = RasterUnterteilungYAchse.GetText - - FangenFangbereich.Less - Punktreduktion.Less - sTempMetricField(5) = FangenFangbereich.GetText - sTempMetricField(6) = Punktreduktion.GetText - - AnFanglinien.Check - AnSeitenraendern.Check - AmObjektrahmen.Check - AnObjektpunkten.Check - - BeimErzeugenUndBewegen.Check - LaengereKantenlaenge.Check - BeimDrehen.Check - Winkel.ToMax - sTempMetricField(7) = Winkel.GetText + RasterAufloesungXAchse.ToMax + sleep 1 + sTempMetricField(1) = RasterAufloesungXAchse.GetText + if RasterAufloesungYAchse.GetText <> sTempMetricField(1) then Warnlog "Y-axis res. differs from X-axis" + RasterUnterteilungXAchse.ToMax + sleep 1 + sTempMetricField(3) = RasterUnterteilungXAchse.GetText + if RasterUnterteilungYAchse.GetText <> sTempMetricField(3) then Warnlog "Y-axis sub. differs from X-axis" + '-------------------------------------------- + sTempMetricField(2) = RasterAufloesungYAchse.GetText + sTempMetricField(4) = RasterUnterteilungYAchse.GetText + + FangenFangbereich.Less + Punktreduktion.Less + sTempMetricField(5) = FangenFangbereich.GetText + sTempMetricField(6) = Punktreduktion.GetText + + AnFanglinien.Check + AnSeitenraendern.Check + AmObjektrahmen.Check + AnObjektpunkten.Check + + BeimErzeugenUndBewegen.Check + LaengereKantenlaenge.Check + BeimDrehen.Check + Winkel.ToMax + sTempMetricField(7) = Winkel.GetText - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK + Kontext "ExtrasOptionenDlg" + ExtrasOptionenDlg.OK - printlog "check if all Checked" - ToolsOptions - hToolsOptions (sApplication,"Grid") + printlog "check if all Checked" + ToolsOptions + hToolsOptions (sApplication,"Grid") - If True <> FangrasterBenutzen.IsChecked Then WarnLog "Snap to Grid o" - If True <> RasterSichtbar.IsChecked Then WarnLog "Visible Grid o" + If True <> FangrasterBenutzen.IsChecked Then WarnLog "Snap to Grid o" + If True <> RasterSichtbar.IsChecked Then WarnLog "Visible Grid o" - If True <> AchsenSynchronisieren.IsChecked Then WarnLog "Synchronize Axes o" + If True <> AchsenSynchronisieren.IsChecked Then WarnLog "Synchronize Axes o" - If True <> AnFanglinien.IsChecked Then WarnLog "to snap lines o" - If True <> AnSeitenraendern.IsChecked Then WarnLog "to the page margins o" - If True <> AmObjektrahmen.IsChecked Then WarnLog "to object frame o" - If True <> AnObjektpunkten.IsChecked Then WarnLog "To object points o" + If True <> AnFanglinien.IsChecked Then WarnLog "to snap lines o" + If True <> AnSeitenraendern.IsChecked Then WarnLog "to the page margins o" + If True <> AmObjektrahmen.IsChecked Then WarnLog "to object frame o" + If True <> AnObjektpunkten.IsChecked Then WarnLog "To object points o" - If True <> BeimErzeugenUndBewegen.IsChecked Then WarnLog "When creating or moving objects o" - If True <> LaengereKantenlaenge.IsChecked Then WarnLog "Extend Edges o" - If True <> BeimDrehen.IsChecked Then WarnLog "When Rotating o" - If ( Winkel.GetText <> sTempMetricField(7) ) Then WarnLog "Angle is not max." + If True <> BeimErzeugenUndBewegen.IsChecked Then WarnLog "When creating or moving objects o" + If True <> LaengereKantenlaenge.IsChecked Then WarnLog "Extend Edges o" + If True <> BeimDrehen.IsChecked Then WarnLog "When Rotating o" + If ( Winkel.GetText <> sTempMetricField(7) ) Then WarnLog "Angle is not max." - If ( RasterAufloesungXAchse.GetText <> sTempMetricField(1) ) Then WarnLog "GridResolutionXAxel is not max.Bug 54934 in 01:" - If ( RasterAufloesungYAchse.GetText <> sTempMetricField(2) ) Then WarnLog "GridResolutionYAxel is not max." - If ( RasterUnterteilungXAchse.GetText <> sTempMetricField(3) ) Then WarnLog "GridSubdivisionXAxel is not max." - If ( RasterUnterteilungYAchse.GetText <> sTempMetricField(4) ) Then WarnLog "GridSubdivisionYAxel is not max." - If ( FangenFangbereich.GetText <> sTempMetricField(5) ) Then WarnLog "Snap Snap Range is not max." - If ( Punktreduktion.GetText <> sTempMetricField(6) ) Then WarnLog "Pointreduction is not max." + If ( RasterAufloesungXAchse.GetText <> sTempMetricField(1) ) Then WarnLog "GridResolutionXAxel is not max.Bug 54934 in 01:" + If ( RasterAufloesungYAchse.GetText <> sTempMetricField(2) ) Then WarnLog "GridResolutionYAxel is not max." + If ( RasterUnterteilungXAchse.GetText <> sTempMetricField(3) ) Then WarnLog "GridSubdivisionXAxel is not max." + If ( RasterUnterteilungYAchse.GetText <> sTempMetricField(4) ) Then WarnLog "GridSubdivisionYAxel is not max." + If ( FangenFangbereich.GetText <> sTempMetricField(5) ) Then WarnLog "Snap Snap Range is not max." + If ( Punktreduktion.GetText <> sTempMetricField(6) ) Then WarnLog "Pointreduction is not max." - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK + Kontext "ExtrasOptionenDlg" + ExtrasOptionenDlg.OK '------------------------------------------------------------------------------- printlog "Function Test: Grid Resolution" - printlog "gTesttoolPath + graphics\required\input\gridtst.od?" - - if ( gApplication = "IMPRESS" ) then + printlog "gTesttoolPath + graphics\required\input\gridtst.od?" + if ( gApplication = "IMPRESS" ) then ExtensionString = "odp" else ExtensionString = "odg" end if - - Call hFileOpen ( gTesttoolPath + "graphics\required\input\gridtst."+ExtensionString, False ) - sleep 5 - printlog "If write-protected - open as Temp-file" - Kontext "Standardbar" - if Bearbeiten.GetState(2) <> 1 then + Call hFileOpen ( gTesttoolPath + "graphics\required\input\gridtst."+ExtensionString, False ) + sleep 5 + printlog "If write-protected - open as Temp-file" + Kontext "Standardbar" + if Bearbeiten.GetState(2) <> 1 then Bearbeiten.Click '0 = not pressed. 1 = pressed. Kontext if Active.Exists() then - Active.Yes + Active.Yes else warnlog "No messagebox after making document editable? - Test canceled here" goto endsub endif - endif - sleep (8) - if uCase(gApplication) = "IMPRESS" then + endif + sleep (8) + if uCase(gApplication) = "IMPRESS" then Kontext "DocumentImpress" - else + else Kontext "DocumentDraw" - endif - printlog "select grafik element" - for iTry = 1 to 20 + endif + printlog "select grafik element" + for iTry = 1 to 20 try EditSelectAll printlog "EditSelectAll ready after " & iTry/10 & " seconds" @@ -769,21 +764,21 @@ testcase tToolsOptionsDrawGrid (sApplication as string) ContextPositionAndSize Kontext active.setpage TabPositionAndSize - Kontext "TabPositionAndSize" - sleep 1 - if ( StrToDouble (PositionX.GetText) <> 0 ) Then WarnLog "HorizontalBy wrong presupposition != 0" - if ( StrToDouble (Positiony.GetText) <> 0 ) Then WarnLog "VerticalBy wrong presupposition != 0" - TabPositionAndSize.Cancel - sleep (3) - - printlog "move grafik with <Alt> + <up/down>" + Kontext "TabPositionAndSize" + sleep 1 + if ( StrToDouble (PositionX.GetText) <> 0 ) Then WarnLog "HorizontalBy wrong presupposition != 0" + if ( StrToDouble (Positiony.GetText) <> 0 ) Then WarnLog "VerticalBy wrong presupposition != 0" + TabPositionAndSize.Cancel + sleep (3) + + printlog "move grafik with <Alt> + <up/down>" printlog "resulting step = defined for accessability <> one pixel with cursor traveling" - hTypeKeys "<Mod2 Down>" + hTypeKeys "<Mod2 Down>" sleep (3) - hTypeKeys "<Mod2 Right>" + hTypeKeys "<Mod2 Right>" - printlog "check if @ (1,1) Current-Measure-Unit :-)" - for iTry = 1 to 20 + printlog "check if @ (1,1) Current-Measure-Unit :-)" + for iTry = 1 to 20 try EditSelectAll printlog "EditSelectAll ready after " & iTry/10 & " seconds" @@ -792,18 +787,18 @@ testcase tToolsOptionsDrawGrid (sApplication as string) wait( 100 ) endcatch next iTry - try + try ContextPositionAndSize - catch + catch printlog "Why is format position and size not enabled ? Wrong focus?" - endcatch + endcatch Kontext active.setpage TabPositionAndSize - Kontext "TabPositionAndSize" - Printlog "X difference is: '"+StrToDouble (PositionX.GetText)+"'; "+PositionX.GetText - Printlog "Y difference is: '"+StrToDouble (PositionY.GetText)+"'; "+PositionY.GetText - TabPositionAndSize.Cancel -' sleep (3) + Kontext "TabPositionAndSize" + Printlog "X difference is: '"+StrToDouble (PositionX.GetText)+"'; "+PositionX.GetText + Printlog "Y difference is: '"+StrToDouble (PositionY.GetText)+"'; "+PositionY.GetText + TabPositionAndSize.Cancel + ' sleep (3) hCloseDocument @@ -813,27 +808,27 @@ testcase tToolsOptionsDrawGrid (sApplication as string) ToolsOptions hToolsOptions (sApplication,"Grid") - If ( irgendwas(2) = TRUE ) Then FangrasterBenutzen.Check Else FangrasterBenutzen.UnCheck - If ( irgendwas(3) = TRUE ) Then RasterSichtbar.Check Else RasterSichtbar.UnCheck - - If ( irgendwas(4) = TRUE ) Then AchsenSynchronisieren.Check Else AchsenSynchronisieren.UnCheck - - If ( irgendwas(5) = TRUE ) Then AnFanglinien.Check Else AnFanglinien.UnCheck - If ( irgendwas(6) = TRUE ) Then AnSeitenraendern.Check Else AnSeitenraendern.UnCheck - If ( irgendwas(7) = TRUE ) Then AmObjektrahmen.Check Else AmObjektrahmen.UnCheck - If ( irgendwas(8) = TRUE ) Then AnObjektpunkten.Check Else AnObjektpunkten.UnCheck - - If ( irgendwas(6) = TRUE ) Then BeimErzeugenUndBewegen.Check Else BeimErzeugenUndBewegen.UnCheck - If ( irgendwas(7) = TRUE ) Then LaengereKantenlaenge.Check Else LaengereKantenlaenge.UnCheck - If ( irgendwas(8) = TRUE ) Then BeimDrehen.Check Else BeimDrehen.UnCheck - if BeimDrehen.IsChecked then Winkel.SetText (sMetricField(7)) - - RasterAufloesungXAchse.SetText (sMetricField(1)) - RasterAufloesungYAchse.SetText (sMetricField(2)) - RasterUnterteilungXAchse.SetText (sMetricField(3)) - RasterUnterteilungYAchse.SetText (sMetricField(4)) - FangenFangbereich.SetText (sMetricField(5)) - Punktreduktion.SetText (sMetricField(6)) + If ( irgendwas(2) = TRUE ) Then FangrasterBenutzen.Check Else FangrasterBenutzen.UnCheck + If ( irgendwas(3) = TRUE ) Then RasterSichtbar.Check Else RasterSichtbar.UnCheck + + If ( irgendwas(4) = TRUE ) Then AchsenSynchronisieren.Check Else AchsenSynchronisieren.UnCheck + + If ( irgendwas(5) = TRUE ) Then AnFanglinien.Check Else AnFanglinien.UnCheck + If ( irgendwas(6) = TRUE ) Then AnSeitenraendern.Check Else AnSeitenraendern.UnCheck + If ( irgendwas(7) = TRUE ) Then AmObjektrahmen.Check Else AmObjektrahmen.UnCheck + If ( irgendwas(8) = TRUE ) Then AnObjektpunkten.Check Else AnObjektpunkten.UnCheck + + If ( irgendwas(6) = TRUE ) Then BeimErzeugenUndBewegen.Check Else BeimErzeugenUndBewegen.UnCheck + If ( irgendwas(7) = TRUE ) Then LaengereKantenlaenge.Check Else LaengereKantenlaenge.UnCheck + If ( irgendwas(8) = TRUE ) Then BeimDrehen.Check Else BeimDrehen.UnCheck + if BeimDrehen.IsChecked then Winkel.SetText (sMetricField(7)) + + RasterAufloesungXAchse.SetText (sMetricField(1)) + RasterAufloesungYAchse.SetText (sMetricField(2)) + RasterUnterteilungXAchse.SetText (sMetricField(3)) + RasterUnterteilungYAchse.SetText (sMetricField(4)) + FangenFangbereich.SetText (sMetricField(5)) + Punktreduktion.SetText (sMetricField(6)) Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK @@ -845,58 +840,58 @@ endcase 'tToolsOptionsDrawGrid testcase tToolsOptionsDrawPrint (sApplication as string) - dim irgendwas(11) as boolean - dim bRadioBut(7) as boolean ' RadioButtons - dim bTempRadioBut(7) as boolean - dim iShouldHaveBeenAMultiListBox as integer + dim irgendwas(11) as boolean + dim bRadioBut(7) as boolean ' RadioButtons + dim bTempRadioBut(7) as boolean + dim iShouldHaveBeenAMultiListBox as integer - hNewDocument + hNewDocument - printlog "save states" - ToolsOptions - hToolsOptions (sApplication,"Print") + printlog "save states" + ToolsOptions + hToolsOptions (sApplication,"Print") - Standard.Check - irgendwas(1) = Seitenname.IsChecked - irgendwas(2) = Datum.IsChecked - irgendwas(3) = Zeit.IsChecked - irgendwas(4) = AusgeblendeteSeitenDrucken.IsChecked + Standard.Check + irgendwas(1) = Seitenname.IsChecked + irgendwas(2) = Datum.IsChecked + irgendwas(3) = Zeit.IsChecked + irgendwas(4) = AusgeblendeteSeitenDrucken.IsChecked - Prospekt.Check - irgendwas(5) = Vorderseite.IsChecked - irgendwas(6) = Rueckseite.IsChecked + Prospekt.Check + irgendwas(5) = Vorderseite.IsChecked + irgendwas(6) = Rueckseite.IsChecked - irgendwas(7) = AusDruckereinstellung.IsChecked + irgendwas(7) = AusDruckereinstellung.IsChecked - bRadioBut(1) = StandardAusgabe.IsChecked - bRadioBut(2) = Graustufen.IsChecked - bRadioBut(3) = SchwarzWeiss.IsChecked - bRadioBut(4) = Standard.IsChecked - bRadioBut(5) = AnSeitengroesseAnpassen.IsChecked - bRadioBut(6) = SeitenKacheln.IsChecked + bRadioBut(1) = StandardAusgabe.IsChecked + bRadioBut(2) = Graustufen.IsChecked + bRadioBut(3) = SchwarzWeiss.IsChecked + bRadioBut(4) = Standard.IsChecked + bRadioBut(5) = AnSeitengroesseAnpassen.IsChecked + bRadioBut(6) = SeitenKacheln.IsChecked - printlog "all states inverting" + printlog "all states inverting" - Standard.Check - if irgendwas(1) Then Seitenname.UnCheck Else Seitenname.Check - if irgendwas(2) Then Datum.UnCheck Else Datum.Check - if irgendwas(3) Then Zeit.UnCheck Else Zeit.Check - if irgendwas(4) Then AusgeblendeteSeitenDrucken.UnCheck Else AusgeblendeteSeitenDrucken.Check + Standard.Check + if irgendwas(1) Then Seitenname.UnCheck Else Seitenname.Check + if irgendwas(2) Then Datum.UnCheck Else Datum.Check + if irgendwas(3) Then Zeit.UnCheck Else Zeit.Check + if irgendwas(4) Then AusgeblendeteSeitenDrucken.UnCheck Else AusgeblendeteSeitenDrucken.Check - Prospekt.Check - if irgendwas(5) Then Vorderseite.UnCheck Else Vorderseite.Check - if irgendwas(6) Then Rueckseite.UnCheck Else Rueckseite.Check + Prospekt.Check + if irgendwas(5) Then Vorderseite.UnCheck Else Vorderseite.Check + if irgendwas(6) Then Rueckseite.UnCheck Else Rueckseite.Check - if irgendwas(7) Then AusDruckereinstellung.UnCheck Else AusDruckereinstellung.Check + if irgendwas(7) Then AusDruckereinstellung.UnCheck Else AusDruckereinstellung.Check - if (StandardAusgabe.IsChecked = True) Then Graustufen.Check Else StandardAusgabe.Check - bTempRadioBut(1) = StandardAusgabe.IsChecked - bTempRadioBut(2) = Graustufen.IsChecked - bTempRadioBut(3) = SchwarzWeiss.IsChecked - if (Standard.IsChecked = True) Then AnSeitengroesseAnpassen.Check Else Standard.Check - bRadioBut(4) = Standard.IsChecked - bRadioBut(5) = AnSeitengroesseAnpassen.IsChecked - bRadioBut(6) = SeitenKacheln.IsChecked + if (StandardAusgabe.IsChecked = True) Then Graustufen.Check Else StandardAusgabe.Check + bTempRadioBut(1) = StandardAusgabe.IsChecked + bTempRadioBut(2) = Graustufen.IsChecked + bTempRadioBut(3) = SchwarzWeiss.IsChecked + if (Standard.IsChecked = True) Then AnSeitengroesseAnpassen.Check Else Standard.Check + bRadioBut(4) = Standard.IsChecked + bRadioBut(5) = AnSeitengroesseAnpassen.IsChecked + bRadioBut(6) = SeitenKacheln.IsChecked Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK @@ -910,145 +905,137 @@ testcase tToolsOptionsDrawPrint (sApplication as string) ToolsOptions hToolsOptions (sApplication,"Print") - Standard.Check - If ( irgendwas(1) = Seitenname.IsChecked ) Then WarnLog "Pagename state changed" - If ( irgendwas(2) = Datum.IsChecked ) Then WarnLog "Date state changed" - If ( irgendwas(3) = Zeit.IsChecked ) Then WarnLog "Time state changed" - If ( irgendwas(4) = AusgeblendeteSeitenDrucken.IsChecked ) Then WarnLog "Hidden Pages state changed" + Standard.Check + If ( irgendwas(1) = Seitenname.IsChecked ) Then WarnLog "Pagename state changed" + If ( irgendwas(2) = Datum.IsChecked ) Then WarnLog "Date state changed" + If ( irgendwas(3) = Zeit.IsChecked ) Then WarnLog "Time state changed" + If ( irgendwas(4) = AusgeblendeteSeitenDrucken.IsChecked ) Then WarnLog "Hidden Pages state changed" - Prospekt.Check - If ( irgendwas(5) = Vorderseite.IsChecked ) Then WarnLog "Brochure Front state changed" - If ( irgendwas(6) = Rueckseite.IsChecked ) Then WarnLog "Brochure Back state changed" + Prospekt.Check + If ( irgendwas(5) = Vorderseite.IsChecked ) Then WarnLog "Brochure Front state changed" + If ( irgendwas(6) = Rueckseite.IsChecked ) Then WarnLog "Brochure Back state changed" - If ( irgendwas(7) = AusDruckereinstellung.IsChecked ) Then WarnLog "Paper Tray From Printer Settings state changed" + If ( irgendwas(7) = AusDruckereinstellung.IsChecked ) Then WarnLog "Paper Tray From Printer Settings state changed" - If ( bTempRadioBut(1) <> StandardAusgabe.IsChecked ) Then WarnLog "Quality Default state changed" - If ( bTempRadioBut(2) <> Graustufen.IsChecked ) Then WarnLog "Quality Grayscale state changed" - If ( bTempRadioBut(3) <> SchwarzWeiss.IsChecked ) Then WarnLog "Quality Black & White state changed" - If ( bTempRadioBut(4) <> Standard.IsChecked ) Then WarnLog "Page Options Default state changed" - If ( bTempRadioBut(5) <> AnSeitengroesseAnpassen.IsChecked ) Then WarnLog "Page Options Fit to Page state changed" - If ( bTempRadioBut(6) <> SeitenKacheln.IsChecked ) Then WarnLog "Page Options Tile Pages state changed" + If ( bTempRadioBut(1) <> StandardAusgabe.IsChecked ) Then WarnLog "Quality Default state changed" + If ( bTempRadioBut(2) <> Graustufen.IsChecked ) Then WarnLog "Quality Grayscale state changed" + If ( bTempRadioBut(3) <> SchwarzWeiss.IsChecked ) Then WarnLog "Quality Black & White state changed" + If ( bTempRadioBut(4) <> Standard.IsChecked ) Then WarnLog "Page Options Default state changed" + If ( bTempRadioBut(5) <> AnSeitengroesseAnpassen.IsChecked ) Then WarnLog "Page Options Fit to Page state changed" + If ( bTempRadioBut(6) <> SeitenKacheln.IsChecked ) Then WarnLog "Page Options Tile Pages state changed" printlog "all UnCheck -> o" - Standard.Check - Seitenname.UnCheck - Datum.UnCheck - Zeit.UnCheck - AusgeblendeteSeitenDrucken.UnCheck - - Prospekt.Check - Vorderseite.UnCheck - Rueckseite.UnCheck - - AusDruckereinstellung.UnCheck - - if (Graustufen.IsChecked = True) Then SchwarzWeiss.Check Else Graustufen.Check - bTempRadioBut(1) = StandardAusgabe.IsChecked - bTempRadioBut(2) = Graustufen.IsChecked - bTempRadioBut(3) = SchwarzWeiss.IsChecked - if (AnSeitengroesseAnpassen.IsChecked = True) Then SeitenKacheln.Check Else AnSeitengroesseAnpassen.Check - bRadioBut(4) = Standard.IsChecked - bRadioBut(5) = AnSeitengroesseAnpassen.IsChecked - bRadioBut(6) = SeitenKacheln.IsChecked - - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - - printlog "check if all UnChecked" - ToolsOptions - hToolsOptions (sApplication,"Print") - - Standard.Check - If Seitenname.IsChecked Then WarnLog "Print: Page Name x" - If Datum.IsChecked Then WarnLog "Print: Date x" - If Zeit.IsChecked Then WarnLog "Print: Time x" - If AusgeblendeteSeitenDrucken.IsChecked Then WarnLog "Print: Hidden Pages x" - - Prospekt.Check - If Vorderseite.IsChecked Then WarnLog "Page options: Brochure: Front x" - If Rueckseite.IsChecked Then WarnLog "Page options: Brochure: Back x" + Standard.Check + Seitenname.UnCheck + Datum.UnCheck + Zeit.UnCheck + AusgeblendeteSeitenDrucken.UnCheck - If AusDruckereinstellung.IsChecked Then WarnLog "Page options: Paper tray from printer settings x" + Prospekt.Check + Vorderseite.UnCheck + Rueckseite.UnCheck - If ( bTempRadioBut(1) <> StandardAusgabe.IsChecked) Then WarnLog "Quality: Default state changed" - If ( bTempRadioBut(2) <> Graustufen.IsChecked ) Then WarnLog "Quality: Grayscale state changed" - If ( bTempRadioBut(3) <> SchwarzWeiss.IsChecked ) Then WarnLog "Quality: Black & White state changed" - If ( bTempRadioBut(4) <> Standard.IsChecked ) Then WarnLog "Page options: Default state changed" - If ( bTempRadioBut(5) <> AnSeitengroesseAnpassen.IsChecked ) Then WarnLog "Page options: Fit to page state changed" - If ( bTempRadioBut(6) <> SeitenKacheln.IsChecked ) Then WarnLog "Page options: Tile Pages state changed" + AusDruckereinstellung.UnCheck - Printlog "all Check -> x" + if (Graustufen.IsChecked = True) Then SchwarzWeiss.Check Else Graustufen.Check + bTempRadioBut(1) = StandardAusgabe.IsChecked + bTempRadioBut(2) = Graustufen.IsChecked + bTempRadioBut(3) = SchwarzWeiss.IsChecked + if (AnSeitengroesseAnpassen.IsChecked = True) Then SeitenKacheln.Check Else AnSeitengroesseAnpassen.Check + bRadioBut(4) = Standard.IsChecked + bRadioBut(5) = AnSeitengroesseAnpassen.IsChecked + bRadioBut(6) = SeitenKacheln.IsChecked - Standard.Check - Seitenname.Check - Datum.Check - Zeit.Check - AusgeblendeteSeitenDrucken.Check - - Prospekt.Check - Vorderseite.Check - Rueckseite.Check - - AusDruckereinstellung.Check + Kontext "ExtrasOptionenDlg" + ExtrasOptionenDlg.OK - if (SchwarzWeiss.IsChecked = True) Then StandardAusgabe.Check Else SchwarzWeiss.Check - bTempRadioBut(1) = StandardAusgabe.IsChecked - bTempRadioBut(2) = Graustufen.IsChecked - bTempRadioBut(3) = SchwarzWeiss.IsChecked - if (SeitenKacheln.IsChecked = True) Then Standard.Check Else SeitenKacheln.Check - bRadioBut(4) = Standard.IsChecked - bRadioBut(5) = AnSeitengroesseAnpassen.IsChecked - bRadioBut(6) = SeitenKacheln.IsChecked + printlog "check if all UnChecked" + ToolsOptions + hToolsOptions (sApplication,"Print") - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK + Standard.Check + If Seitenname.IsChecked Then WarnLog "Print: Page Name x" + If Datum.IsChecked Then WarnLog "Print: Date x" + If Zeit.IsChecked Then WarnLog "Print: Time x" + If AusgeblendeteSeitenDrucken.IsChecked Then WarnLog "Print: Hidden Pages x" + Prospekt.Check + If Vorderseite.IsChecked Then WarnLog "Page options: Brochure: Front x" + If Rueckseite.IsChecked Then WarnLog "Page options: Brochure: Back x" + If AusDruckereinstellung.IsChecked Then WarnLog "Page options: Paper tray from printer settings x" + If ( bTempRadioBut(1) <> StandardAusgabe.IsChecked) Then WarnLog "Quality: Default state changed" + If ( bTempRadioBut(2) <> Graustufen.IsChecked ) Then WarnLog "Quality: Grayscale state changed" + If ( bTempRadioBut(3) <> SchwarzWeiss.IsChecked ) Then WarnLog "Quality: Black & White state changed" + If ( bTempRadioBut(4) <> Standard.IsChecked ) Then WarnLog "Page options: Default state changed" + If ( bTempRadioBut(5) <> AnSeitengroesseAnpassen.IsChecked ) Then WarnLog "Page options: Fit to page state changed" + If ( bTempRadioBut(6) <> SeitenKacheln.IsChecked ) Then WarnLog "Page options: Tile Pages state changed" + + Printlog "all Check -> x" + Standard.Check + Seitenname.Check + Datum.Check + Zeit.Check + AusgeblendeteSeitenDrucken.Check + Prospekt.Check + Vorderseite.Check + Rueckseite.Check + AusDruckereinstellung.Check + if (SchwarzWeiss.IsChecked = True) Then StandardAusgabe.Check Else SchwarzWeiss.Check + bTempRadioBut(1) = StandardAusgabe.IsChecked + bTempRadioBut(2) = Graustufen.IsChecked + bTempRadioBut(3) = SchwarzWeiss.IsChecked + if (SeitenKacheln.IsChecked = True) Then Standard.Check Else SeitenKacheln.Check + bRadioBut(4) = Standard.IsChecked + bRadioBut(5) = AnSeitengroesseAnpassen.IsChecked + bRadioBut(6) = SeitenKacheln.IsChecked - printlog "check if all Checked" - ToolsOptions - hToolsOptions (sApplication,"Print") + Kontext "ExtrasOptionenDlg" + ExtrasOptionenDlg.OK - Standard.Check - If True <> Seitenname.IsChecked Then WarnLog "Print: Page name o" - If True <> Datum.IsChecked Then WarnLog "Print: Date o" - If True <> Zeit.IsChecked Then WarnLog "Print: Time o" - If True <> AusgeblendeteSeitenDrucken.IsChecked Then WarnLog "Print: Hidden pages o" + printlog "check if all Checked" + ToolsOptions + hToolsOptions (sApplication,"Print") - Prospekt.Check - If True <> Vorderseite.IsChecked Then WarnLog "Page options: Brochure: Front o" - If True <> Rueckseite.IsChecked Then WarnLog "Page options: Brochure: Back o" + Standard.Check + If True <> Seitenname.IsChecked Then WarnLog "Print: Page name o" + If True <> Datum.IsChecked Then WarnLog "Print: Date o" + If True <> Zeit.IsChecked Then WarnLog "Print: Time o" + If True <> AusgeblendeteSeitenDrucken.IsChecked Then WarnLog "Print: Hidden pages o" - If True <> AusDruckereinstellung.IsChecked Then WarnLog "Page options: Paper tray from printer settings o" + Prospekt.Check + If True <> Vorderseite.IsChecked Then WarnLog "Page options: Brochure: Front o" + If True <> Rueckseite.IsChecked Then WarnLog "Page options: Brochure: Back o" - If ( bTempRadioBut(1) <> StandardAusgabe.IsChecked) Then WarnLog "Quality: Default state changed" - If ( bTempRadioBut(2) <> Graustufen.IsChecked ) Then WarnLog "Quality: Grayscale state changed" - If ( bTempRadioBut(3) <> SchwarzWeiss.IsChecked ) Then WarnLog "Quality: Black & White state changed" - If ( bTempRadioBut(4) <> Standard.IsChecked ) Then WarnLog "Page options: Default state changed" - If ( bTempRadioBut(5) <> AnSeitengroesseAnpassen.IsChecked ) Then WarnLog "Page options: Fit to page state changed" - If ( bTempRadioBut(6) <> SeitenKacheln.IsChecked ) Then WarnLog "Page options: Tile pages state changed" + If True <> AusDruckereinstellung.IsChecked Then WarnLog "Page options: Paper tray from printer settings o" - printlog "restore states" + If ( bTempRadioBut(1) <> StandardAusgabe.IsChecked) Then WarnLog "Quality: Default state changed" + If ( bTempRadioBut(2) <> Graustufen.IsChecked ) Then WarnLog "Quality: Grayscale state changed" + If ( bTempRadioBut(3) <> SchwarzWeiss.IsChecked ) Then WarnLog "Quality: Black & White state changed" + If ( bTempRadioBut(4) <> Standard.IsChecked ) Then WarnLog "Page options: Default state changed" + If ( bTempRadioBut(5) <> AnSeitengroesseAnpassen.IsChecked ) Then WarnLog "Page options: Fit to page state changed" + If ( bTempRadioBut(6) <> SeitenKacheln.IsChecked ) Then WarnLog "Page options: Tile pages state changed" - Standard.Check - If ( irgendwas(1) = TRUE ) Then Seitenname.Check Else Seitenname.UnCheck - If ( irgendwas(2) = TRUE ) Then Datum.Check Else Datum.UnCheck - If ( irgendwas(3) = TRUE ) Then Zeit.Check Else Zeit.UnCheck - If ( irgendwas(4) = TRUE ) Then AusgeblendeteSeitenDrucken.Check Else AusgeblendeteSeitenDrucken.UnCheck + printlog "restore states" - Prospekt.Check - If ( irgendwas(5) = TRUE ) Then Vorderseite.Check Else Vorderseite.UnCheck - If ( irgendwas(6) = TRUE ) Then Rueckseite.Check Else Rueckseite.UnCheck + Standard.Check + If ( irgendwas(1) = TRUE ) Then Seitenname.Check Else Seitenname.UnCheck + If ( irgendwas(2) = TRUE ) Then Datum.Check Else Datum.UnCheck + If ( irgendwas(3) = TRUE ) Then Zeit.Check Else Zeit.UnCheck + If ( irgendwas(4) = TRUE ) Then AusgeblendeteSeitenDrucken.Check Else AusgeblendeteSeitenDrucken.UnCheck - If ( irgendwas(7) = TRUE ) Then AusDruckereinstellung.Check Else AusDruckereinstellung.UnCheck + Prospekt.Check + If ( irgendwas(5) = TRUE ) Then Vorderseite.Check Else Vorderseite.UnCheck + If ( irgendwas(6) = TRUE ) Then Rueckseite.Check Else Rueckseite.UnCheck - If ( bRadioBut(1) = TRUE ) Then StandardAusgabe.Check - If ( bRadioBut(2) = TRUE ) Then Graustufen.Check - If ( bRadioBut(3) = TRUE ) Then SchwarzWeiss.Check - Standard.Check + If ( irgendwas(7) = TRUE ) Then AusDruckereinstellung.Check Else AusDruckereinstellung.UnCheck - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK + If ( bRadioBut(1) = TRUE ) Then StandardAusgabe.Check + If ( bRadioBut(2) = TRUE ) Then Graustufen.Check + If ( bRadioBut(3) = TRUE ) Then SchwarzWeiss.Check + Standard.Check - hCloseDocument -endcase 'tToolsOptionsDrawPrint + Kontext "ExtrasOptionenDlg" + ExtrasOptionenDlg.OK + hCloseDocument +endcase 'tToolsOptionsDrawPrint
\ No newline at end of file diff --git a/testautomation/graphics/required/includes/global/id_opt_2.inc b/testautomation/graphics/required/includes/global/id_opt_2.inc index 8d38b2b9dc92..0d2f050f4916 100644 --- a/testautomation/graphics/required/includes/global/id_opt_2.inc +++ b/testautomation/graphics/required/includes/global/id_opt_2.inc @@ -37,15 +37,15 @@ testcase tToolsOptionsMeasurementUnit (sApplication as string) dim iCount2 as integer dim sUnitOptions as string dim sUnitDialog as string - + hNewDocument - sleep 1 + sleep 1 ToolsOptions hToolsOptions (sApplication,"General") iCount2 = Masseinheit.GetSelIndex printlog "current measurement unit is: " & iCount2 iCount = Masseinheit.GetItemCount - + Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK printlog "----------------------" @@ -56,14 +56,11 @@ testcase tToolsOptionsMeasurementUnit (sApplication as string) for i=1 to iCount ToolsOptions hToolsOptions (sApplication,"General") - Masseinheit.select i sUnitOptions = GetMeasUnit(Tabulatorabstand.getText) ' (1) printlog "(" + i + "/" + iCount + "): '" + Masseinheit.getSelText + "' - " + sUnitOptions + " (1)" - Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK - Format3D_Effects Kontext "Drei_D_Effekte" Geometrie.Click @@ -74,7 +71,6 @@ testcase tToolsOptionsMeasurementUnit (sApplication as string) printlog "Measurement Unit is same for Options:'" + sUnitOptions + "' and Depth:'" + getMeasUnit(Tiefe.getText) + "' (3)" endif Drei_D_Effekte.close - FormatParagraph Kontext Messagebox.SetPage TabEinzuegeUndAbstaende @@ -86,9 +82,8 @@ testcase tToolsOptionsMeasurementUnit (sApplication as string) printlog "Measurement Unit is same for Options:'" + sUnitOptions + "' and Vonlinks:'" + getMeasUnit(Vonlinks.getText) + "' Paragraph" endif TabEinzuegeUndAbstaende.cancel - next i - + printlog "Setting back measurement to " & iCount2 ToolsOptions hToolsOptions (sApplication,"General") @@ -97,4 +92,4 @@ testcase tToolsOptionsMeasurementUnit (sApplication as string) ExtrasOptionenDlg.OK hCloseDocument -endcase 'tToolsOptionsMeasurementUnit +endcase 'tToolsOptionsMeasurementUnit
\ No newline at end of file diff --git a/testautomation/graphics/required/includes/impress/im_003_.inc b/testautomation/graphics/required/includes/impress/im_003_.inc index 2674433034b9..4cdd6a595cc6 100644 --- a/testautomation/graphics/required/includes/impress/im_003_.inc +++ b/testautomation/graphics/required/includes/impress/im_003_.inc @@ -130,7 +130,9 @@ testcase tiViewPanes hMenuSelectNr (4) endcase 'tiViewPanes + '--------------------------------------------------------- + testcase tiViewMasterView printlog "open application" Call hNewDocument @@ -150,7 +152,9 @@ testcase tiViewMasterView printlog "close application " Call hCloseDocument endcase 'tiViewMasterView + '--------------------------------------------------------- + testcase tiViewSlideMaster printlog "open application with : File->Autopilot->Presentation; OK; OK " @@ -187,7 +191,9 @@ testcase tiViewSlideMaster Call hCloseDocument endcase 'tiViewSlideMaster + '-------------------------------------------------------- + testcase tiViewToolbar_1 const DEFAULT_DELAY = 3 @@ -198,7 +204,6 @@ testcase tiViewToolbar_1 dim i as integer TestFile = ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp") - printlog "open application " Call hNewDocument @@ -209,10 +214,8 @@ testcase tiViewToolbar_1 hUseAsyncSlot( "EditSelectAll" ) Kontext "DocumentImpress" DocumentImpress.typeKeys("<DELETE>",true) - printlog "Insert->Graphic... : global\input\graf_inp\desp.bmp " hUseAsyncSlot( "InsertGraphicsFromFile" ) - Kontext "GrafikEinfuegenDlg" if ( GrafikEinfuegenDlg.exists( DEFAULT_DELAY ) ) then Dateiname.SetText( TestFile ) @@ -259,4 +262,4 @@ testcase tiViewToolbar_1 printlog "close application " Call hCloseDocument -endcase 'tiViewToolbar_1 +endcase 'tiViewToolbar_1
\ No newline at end of file diff --git a/testautomation/graphics/required/includes/impress/im_005_.inc b/testautomation/graphics/required/includes/impress/im_005_.inc index 146d37c0f669..f0703913e068 100644 --- a/testautomation/graphics/required/includes/impress/im_005_.inc +++ b/testautomation/graphics/required/includes/impress/im_005_.inc @@ -43,20 +43,16 @@ testcase tiFormatModifyLayout printlog "open application " Call hNewDocument - printlog( "Format/Page" ) FormatPage - Kontext "SeitenLayout" if ( SeitenLayout.exists( 2 ) ) then DialogTest ( SeitenLayout ) - printlog "cancel dialog 'Page Setup' " hCloseDialog( SeitenLayout, "Cancel" ) else warnlog( "Dialog <SeitenLayout> did not open" ) endif - printlog "close application" Call hCloseDocument diff --git a/testautomation/graphics/required/includes/impress/im_007_.inc b/testautomation/graphics/required/includes/impress/im_007_.inc index 68d271e30d7f..3d6fcbb3f4f5 100644 --- a/testautomation/graphics/required/includes/impress/im_007_.inc +++ b/testautomation/graphics/required/includes/impress/im_007_.inc @@ -95,9 +95,10 @@ testcase tSlideShowSlideShow endcatch printlog "close application " Call hCloseDocument - endcase 'tSlideShowSlideShow + '------------------------------------------------------------------------------- + testcase tSlideShowRehearseTimings goto endsub @@ -139,11 +140,11 @@ testcase tSlideShowRehearseTimings sleep 3 printlog "close application " Call hCloseDocument - endcase 'tSlideShowRehearseTimings + '------------------------------------------------------------------------------- -testcase tSlideShowSlideShowSettings +testcase tSlideShowSlideShowSettings printlog "open application " Call hNewDocument sleep 2 @@ -270,11 +271,11 @@ testcase tSlideShowCustomSlideShow endif printlog "close application " Call hCloseDocument - endcase 'tSlideShowCustomSlideShow + '------------------------------------------------------------------------------ -testcase tSlideShowSlideTransition +testcase tSlideShowSlideTransition dim i as integer dim a as integer dim iCount as integer @@ -326,7 +327,7 @@ testcase tSlideShowSlideTransition if (OeffnenDlg.exists (5)) then printlog "Read all entries in Listbox 'File type' " for i = 1 to Dateityp.getItemCount - printlog "" + i + ":" + Dateityp.getItemText(i) + printlog i + ":" + Dateityp.getItemText(i) next i printlog "cancel dialog 'Open' " OeffnenDlg.cancel @@ -375,7 +376,9 @@ testcase tSlideShowSlideTransition Call hCloseDocument endcase 'tSlideShowSlideTransition + '------------------------------------------------------------------------------- + testcase tSlideShowShowHideSlide printlog "open application " @@ -392,7 +395,9 @@ testcase tSlideShowShowHideSlide SlideShowShowSlide printlog "close application " Call hCloseDocument -endcase +endcase 'tSlideShowShowHideSlide + +'------------------------------------------------------------------------------- testcase tSlideShowAnimation printlog "open application " @@ -478,9 +483,10 @@ testcase tSlideShowAnimation Call hCloseDocument endcase 'tSlideShowShowHideSlide + '------------------------------------------------------------------------------- -testcase tSlideShowCustomAnimation +testcase tSlideShowCustomAnimation dim bError as boolean printlog "open application" @@ -641,7 +647,9 @@ testcase tSlideShowCustomAnimation Call hCloseDocument endcase 'tSlideShowCustomAnimation + '------------------------------------------------------------------------------- + testcase tSlideShowInteraction printlog "open application " @@ -732,4 +740,4 @@ testcase tSlideShowInteraction printlog "close application " Call hCloseDocument -endcase 'tSlideShowInteraction +endcase 'tSlideShowInteraction
\ No newline at end of file diff --git a/testautomation/graphics/required/includes/impress/im_011_.inc b/testautomation/graphics/required/includes/impress/im_011_.inc index 2c505f5facc2..28e58ee2e6e7 100644 --- a/testautomation/graphics/required/includes/impress/im_011_.inc +++ b/testautomation/graphics/required/includes/impress/im_011_.inc @@ -177,4 +177,4 @@ testcase tiDiaLeiste Call hCloseDocument sleep 2 -endcase 'tiDiaLeiste +endcase 'tiDiaLeiste
\ No newline at end of file |