diff options
author | Wolfram Garten [wg] <Wolfram.Garten@oracle.com> | 2010-10-20 15:59:17 +0200 |
---|---|---|
committer | Wolfram Garten [wg] <Wolfram.Garten@oracle.com> | 2010-10-20 15:59:17 +0200 |
commit | bee2ea6aabf2c7575ef61bedc2a621d29c6167d5 (patch) | |
tree | 4d579bc7baf782bbf0fcd11fe6ad74f77b36592d | |
parent | 424081d3c899a168522ecc13436a8f18da8816f2 (diff) |
i115106,[Automation]: [Automation] General Cat 1-3 test case fixing
-rw-r--r-- | testautomation/graphics/optional/includes/global/export_graphic.inc | 72 |
1 files changed, 0 insertions, 72 deletions
diff --git a/testautomation/graphics/optional/includes/global/export_graphic.inc b/testautomation/graphics/optional/includes/global/export_graphic.inc index f4c34ec36795..ebcb1f4d8e57 100644 --- a/testautomation/graphics/optional/includes/global/export_graphic.inc +++ b/testautomation/graphics/optional/includes/global/export_graphic.inc @@ -167,78 +167,6 @@ testcase tPCT endif endif - printlog "----------3rd: exporting part of the picture and inserting into new file." - hTypeKeys ("<escape><tab>") - fGetSizeXY sx1, sY, TRUE - - if ( hCallExport( OutputGrafikTBO + "1", sFilter, TRUE ) ) then - - Kontext "PCTOptions" - printlog( "Export options dialog" ) - if ( PCTOptions.Exists( 2 ) ) then - hCloseDialog( PCTOptions, "ok" ) - else - warnlog( "No export options dialog was displayed" ) - endif - - sOutputFile = OutputGrafikTBO + "1" + sExt - if ( hWaitForOutputFile( sOutputFile ) ) then - printlog( "Close file and re-insert graphics into new document" ) - hInsertGraphicsToNewFile( sOutputFile ) ' local helper function, see bottom of this file - else - warnlog( "File was not saved: " & sOutputFile ) - endif - - bTemp = fGetSizeXY( sx1, sY, bTemp ) - if (bTemp = FALSE) then - warnlog "Selected original size NOT OK :-(" - endif - endif - - hFileReOpen( "" ) - printlog "----------4th: exporting rectangle and reload file." - hRechteckErstellen ( 10, 10, 30, 40 ) - - if ( hCallExport( OutputGrafikTBO + "2" , sFilter, TRUE ) ) then - - Kontext "PCTOptions" - printlog( "Export options dialog" ) - if ( PCTOptions.Exists( 2 ) ) then - Exportwidth.SetText "9" - if Exportmeasurement.GetSelText = "inches" then - sx1 = (Exportwidth.GetText)+ """" - printlog "sx1= " & sx1 - else - sx1 = (Exportwidth.GetText)+ "cm" - endif - - if Exportmeasurement.GetSelText = "inches" then - sY = (Exportheight.GetText)+ """" - printlog "sY= " & sY - else - sY = (Exportheight.GetText)+ "cm" - endif - hCloseDialog( PCTOptions, "ok" ) - else - warnlog( "No export options dialog was displayed" ) - endif - - sOutputFile = OutputGrafikTBO + "2" + sExt - - if ( not hWaitForOutputFile( sOutputFile ) ) then - warnlog( "File was not saved: " & sOutputFile ) - endif - - printlog( "Reload file if it exists. Warn if not" ) - hFileReOpen( sOutputFile ) - - kontext "DocumentDraw" - DocumentDraw.TypeKeys ("<escape><tab>") - ContextOriginalSize - bTemp = fGetSizeXY( sx1, sY, bTemp ) - if ( not bTemp ) then warnlog "Selected original size NOT OK :-(" - endif - call hCloseDocument endcase 'tPCT |