Commits

wg11...@sr1-eham02-03  committed eaaf714

i114271, [Automation]: Adapt export tests to new dialogs

  • Participants
  • Parent commits 8c719a0

Comments (0)

Files changed (2)

File testautomation/graphics/optional/includes/global/export_graphic.inc

     hFileOpen( gTesttoolPath + "graphics\required\input\graphicexport." + ExtensionString )
 
     if ( hCallExport ( OutputGrafikTBO , sFilter ) ) then
-        Kontext "EPSOptionen"
-        if ( EPSOptionen.Exists( 2 ) ) then
+        Kontext "EPSOptions"
+        if ( EPSOptions.Exists( 2 ) ) then
             printlog "check if all properties have the right count, and depend on each other"
-            ' they do not affect annything, i can check (TBO)
-            ' VorschauTIF.Check
-            '  InterchangeEPSI.Check
+
             Level1.Check
-            if Farbe.IsEnabled then warnlog " :-("
-            if Graustufen.IsEnabled then warnlog " :-("
-            if LZWKodierung.IsEnabled then warnlog " :-("
-            if Keine.IsEnabled then warnlog " :-("
-            ' if (TextEinstellungen.IsEnabled <> TRUE) then warnlog " :-("
+            if Color.IsEnabled then warnlog " :-("
+            if Greyscale.IsEnabled then warnlog " :-("
+            if LZWEncoding.IsEnabled then warnlog " :-("
+            if NoneCompression.IsEnabled then warnlog " :-("
+
             Level2.Check
-            if (Farbe.IsEnabled <> TRUE) then warnlog " :-("
-            if (Graustufen.IsEnabled <> TRUE) then warnlog " :-("
-            if (LZWKodierung.IsEnabled <> TRUE) then warnlog " :-("
-            if (Keine.IsEnabled <> TRUE) then warnlog " :-("
-            ' if (TextEinstellungen.IsEnabled <> TRUE) then warnlog " :-("
-            printlog "'Color Resolution' listbox contains eight items"
-            ' x = TextEinstellungen.GetItemCount
-            ' if x <> 2 then warnlog "'TextEinstellungen' Count is wrong; should:2, is:" + x
-            ' for i = 1 to x
-            ' TextEinstellungen.Select i
-            ' sleep 1
-            ' Printlog " - " + i + ": '" +TextEinstellungen.GetSelText + "'"
-            ' next i
+            if (Color.IsEnabled <> TRUE) then warnlog " :-("
+            if (Greyscale.IsEnabled <> TRUE) then warnlog " :-("
+            if (LZWEncoding.IsEnabled <> TRUE) then warnlog " :-("
+            if (NoneCompression.IsEnabled <> TRUE) then warnlog " :-("
+
             printlog "leave dialog with cancel -> there has to be no file created!"
-            hCloseDialog( EPSOptionen, "cancel" )
+            hCloseDialog( EPSOptions, "cancel" )
 
             if ( FileExists( OutputGrafikTBO+sExt ) ) then ' inspired by bug #99932 Graphic is exported though cancel is pressed
                 warnlog "Dialog was canceled, but file got saved, too :-(  - i35177"
     printlog( "Save the file" )
     if ( hCallExport( OutputGrafikTBO, sFilter ) ) then
 
-        Kontext "EPSOptionen"
-        if ( EPSOptionen.Exists( 2 ) ) then
-            printlog "TextEinstellungen.select 2"
-            hCloseDialog( EPSOptionen, "ok" )
+        Kontext "EPSOptions"
+        if ( EPSOptions.Exists( 2 ) ) then
+            hCloseDialog( EPSOptions, "ok" )
         else
             warnlog( "No export options dialog was displayed" )
         endif
     printlog "open the document"
     sDocument = convertpath( gTesttoolPath + "graphics\required\input\graphicexport." + ExtensionString )
     hFileOpen( sDocument )
-
+    printlog "----------1st: Trying export and canceling it."
     if ( hCallExport( OutputGrafikTBO , sFilter ) ) then
-
-        Kontext "PICTOptionen"
+        Kontext "PCTOptions"
         printlog( "Export options dialog" )
-        if ( PICTOptionen.Exists( 2 ) ) then
-
-            printlog "check if all properties have the right count, and depend on each other"
-            Original.Check
-            if Breite.IsEnabled then warnlog " :-("
-            if Hoehe.IsEnabled then warnlog " :-("
-            Groesse.Check
-            Breite.More
-            Hoehe.Less
-
+        if PCTOptions.Exists(2) then
             printlog "leave dialog with cancel -> there has to be no file created!"
-            hCloseDialog( PICTOptionen, "cancel" )
-
+            hCloseDialog( PCTOptions, "cancel" )
             if ( FileExists( OutputGrafikTBO + sExt ) ) then
                 warnlog( "#i35177# - dialog <PictOptions> canceled, still the file was saved" )
             endif
             Warnlog " '" + sFilter + "'  has a problem"
             Active.OK
         end if
-
     end if
 
-    printlog " now save it realy and load the file afterwards"
+    printlog "----------2nd: now save it really and load the file afterwards"
     if ( hCallExport( OutputGrafikTBO, sFilter ) ) then
 
-        Kontext "PICTOptionen"
+        Kontext "PCTOptions"
         printlog( "Export options dialog" )
-        if ( PICTOptionen.Exists( 2 ) ) then
-            Groesse.Check
-            Breite.Less
-            Hoehe.More
-            hCloseDialog( PICTOptionen, "ok" )
+        if ( PCTOptions.Exists( 2 ) ) then
+            hCloseDialog( PCTOptions, "ok" )
         else
             warnlog( "No export options dialog was displayed" )
         endif
-
         sOutputFile = OutputGrafikTBO+sExt
-
         if ( hWaitForOutputFile( sOutputFile ) ) then
-
-            printlog( "Close file and re-insert graphics into new document" )
+            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
-
     endif
 
     hFileReOpen( sDocument )
         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 "PICTOptionen"
+        Kontext "PCTOptions"
         printlog( "Export options dialog" )
-        if ( PICTOptionen.Exists( 2 ) ) then
-            Original.Check
-            hCloseDialog( PICTOptionen, "ok" )
+        if ( PCTOptions.Exists( 2 ) ) then
+            hCloseDialog( PCTOptions, "ok" )
         else
             warnlog( "No export options dialog was displayed" )
         endif
     endif
 
     hFileReOpen( "" )
+    printlog "----------4th: exporting rectangle and reload file."
     hRechteckErstellen ( 10, 10, 30, 40 )
 
     if ( hCallExport( OutputGrafikTBO + "2" , sFilter, TRUE ) ) then
 
-        Kontext "PICTOptionen"
+        Kontext "PCTOptions"
         printlog( "Export options dialog" )
-        if ( PICTOptionen.Exists( 2 ) ) then
-            Groesse.Check
-            Breite.SetText "9"
-            Hoehe.SetText "9"
-            Groesse.Check
+        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
 
-            printlog "Check 'Size' one more time to make the change go through"
-            sx1 = Breite.GetText
-            sY = Hoehe.GetText
-            hCloseDialog( PICTOptionen, "ok" )
+            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
         if ( not bTemp ) then warnlog "Selected original size NOT OK :-("
     endif
 
-    if ( hCallExport( OutputGrafikTBO + "3", sFilter, TRUE ) ) then
-
-        Kontext "PICTOptionen"
-        printlog( "Export options dialog" )
-        if ( PICTOptionen.Exists( 2 ) ) then
-            Groesse.Check
-            sX2 = Breite.GetText
-            if (LiberalMeasurement(sx1, sX2)) <> TRUE then
-                if (val(str(StrToDouble(sx1)+5)) >= StrToDouble(sX2) ) AND (val(str(StrToDouble ( sx1 )-5)) <= StrToDouble ( sX2 )) then
-                    Printlog "Width was ok. Expected: " + sx1 + "' was: '" + sX2 + "'"
-                else
-                    warnLog "Width is different expected: '" + sx1 + "' is: '" + sX2 + "'"
-                endif
-            endif
-            sY2 = Hoehe.GetText
-            if (LiberalMeasurement(sY, sY2)) <> TRUE then
-                if ( val(str(StrToDouble(sY)+5)) >= StrToDouble(sY2) ) AND (val(str(StrToDouble ( sY )-5)) <= StrToDouble ( sY2 )) then
-                    Printlog "Height was ok. Expected: " + sY + "' was: '" + sY2 + "'"
-                else
-                    warnLog "Height is different expected: '" + sY + "' is: '" + sY2 + "'"
-                endif
-            endif
-            hCloseDialog( PICTOptionen, "cancel" )
-        else
-            warnlog( "No export options dialog was displayed" )
-        endif
-    endif
-
     call hCloseDocument
 
 endcase 'tPCT
     printlog "Save it"
     if ( hCallExport (OutputGrafikTBO , sFilter ) ) then
 
-        Kontext "PBMOptionen"
-        if ( PBMOptionen.Exists( 2 ) ) then
-            Ascii.Check
-            hCloseDialog( PBMOptionen, "ok" )
+        Kontext "PBMOptions"
+        if ( PBMOptions.Exists( 2 ) ) then
+            QualityBinary.Check
+            QualityText.Check
+            hCloseDialog( PBMOptions, "ok" )
         else
             warnlog( "No export options dialog was displayed" )
         endif
 
         printlog( "Close file and re-insert graphics into new document" )
+        sleep (1)
         hInsertGraphicsToNewFile( OutputGrafikTBO + sExt ) ' local helper function, see bottom of this file
 
     endif
     printlog "Save it"
     if ( hCallExport (OutputGrafikTBO , sFilter ) ) then
 
-        Kontext "PGMOptionen"
-        if ( PGMOptionen.Exists( 2 ) ) then
-            Ascii.Check
-            hCloseDialog( PGMOptionen, "ok" )
+        Kontext "PGMOptions"
+        if ( PGMOptions.Exists( 2 ) ) then
+            QualityBinary.Check
+            QualityText.Check
+            hCloseDialog( PGMOptions, "ok" )
         else
             warnlog( "No export options dialog was displayed" )
         endif
     printlog "Save it"
     if ( hCallExport (OutputGrafikTBO , sFilter ) ) then
 
-        Kontext "PPMOptionen"
-        if ( PPMOptionen.Exists( 2 ) ) then
-            Ascii.Check
-            hCloseDialog( PPMOptionen, "ok" )
+        Kontext "PPMOptions"
+        if ( PPMOptions.Exists( 2 ) ) then
+            QualityBinary.Check
+            QualityText.Check
+            hCloseDialog( PPMOptions, "ok" )
         else
             warnlog( "No export options dialog was displayed" )
         endif
     printlog "save it"
     if ( hCallExport( OutputGrafikTBO, sFilter ) ) then
 
-        Kontext "GIFOptionen"
-        if GIFOptionen.Exists (2) then
-            Interlace.Uncheck
-            TransparentSpeichern.UnCheck
-            hCloseDialog( GIFOptionen, "ok" )
+        Kontext "GIFOptions"
+        if GIFOptions.Exists (2) then
+            Interlaced.Uncheck
+            Transparency.UnCheck
+            hCloseDialog( GIFOptions, "ok" )
         else
             warnlog( "No export options dialog was displayed" )
         endif
 
         printlog( "Close file and re-insert graphics into new document" )
+        sleep (1)
         hInsertGraphicsToNewFile( OutputGrafikTBO + sExt ) ' local helper function, see bottom of this file
 
     endif
     printlog " save it "
     if ( hCallExport( OutputGrafikTBO , sFilter ) ) then
 
-        Kontext "JpegOptionen"
-        if ( JpegOptionen.Exists( 2 ) ) then
-            Echtfarben.Check
-            Qualitaet.ToMin
-            hCloseDialog( JpegOptionen, "ok" )
+        Kontext "JPGOptions"
+        if ( JPGOptions.Exists( 2 ) ) then
+            Quality.ToMin
+            hCloseDialog( JPGOptions, "ok" )
         else
             warnlog( "No export options dialog was displayed" )
         endif
 '*******************************************************************************
 
 function hInsertGraphicsToNewFile( sOutputFile as string )
-
+    sleep (1)
     if ( FileExists( sOutputFile ) ) then
         hFileReOpen( "" )
         Call hGrafikEinfuegen( sOutputFile )

File testautomation/graphics/optional/includes/global/export_graphic_2.inc

     hFileOpen( gTesttoolPath & "graphics\required\input\graphicexport." & ExtensionString )
 
     if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
-        Kontext "PNGOptionen"
-        if PNGOptionen.Exists (2) then
-            Kompression.ToMax
+        Kontext "PNGOptions"
+        if PNGOptions.Exists (2) then
+            Compression.ToMax
             Interlaced.UnCheck
-            PNGOptionen.OK
+            PNGOptions.OK
             iWaitIndex = 0
-            do while PNGOptionen.Exists AND iWaitIndex < 30
+            do while PNGOptions.Exists AND iWaitIndex < 30
                 sleep (1)
                 iWaitIndex = iWaitIndex + 1
             loop
 
     sFilter = "SVM - StarView Metafile (.svm)"
     sExt = ".svm"
-
+    printlog "opening test file"
     sDocument = ConvertPath ( gTesttoolPath & "graphics\required\input\graphicexport." & ExtensionString)
     hFileOpen sDocument
 
+    printlog "Trying export and canceling it.."
     if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
-        Kontext "SVMOptionen"
-        if SVMOptionen.Exists (2) then
-            Original.Check
-            if Breite.IsEnabled then
-                warnlog " :-("
-            endif
-            if Hoehe.IsEnabled then
-                warnlog " :-("
-            endif
-            Groesse.Check
-            Breite.More
-            Hoehe.Less
-            SVMOptionen.Cancel
+        Kontext "SVMOptions"
+        if SVMOptions.Exists (2) then
+            Exportwidth.More
+            Exportheight.Less
+            SVMOptions.Cancel
             sleep 5
+            printlog "Checking if directory is still empty.."
             if ( dir(OutputGrafikTBO+sExt) = "") then ' inspired by bug #99932 Graphic is exported though cancel is pressed
                 Printlog "ok :-)"
             else
             Active.OK
         end if
     end if
+
+    printlog "Doing real SVM export."
     if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
-        Kontext "SVMOptionen"
-        if SVMOptionen.Exists (2) then
-            Groesse.Check
-            Breite.Less
-            Hoehe.More
-            SVMOptionen.OK
+        Kontext "SVMOptions"
+        if SVMOptions.Exists (2) then
+            Exportwidth.Less
+            Exportheight.More
+            SVMOptions.OK
             sleep 5
         endif
         if ( dir(OutputGrafikTBO+sExt) <> "") then
         else
             warnlog "File didn't get saved :-("
         endif
-        hCloseDocument ()
-        sleep 5
-        hNewDocument()
-        sleep 5
-        Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
     endif
+    printlog "Closing TestDoc."
     hCloseDocument ()
+    sleep 5
+    printlog "Opening new doc and inserting exported file."
+    hNewDocument()
+    sleep 5
+    Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
+    printlog "Closing doc with inserted file."
+    hCloseDocument ()
+
+    printlog "Loading testdoc."
     hFileOpen (sDocument)
     sleep (10)
-
+    printlog "Making doc editable."
     call fMakeDocumentWritable
-
+    printlog "Selecting part of doc."
     hTypeKeys ("<escape><tab>")
+     printlog "getting size of part. "
     fGetSizeXY sx1, sY, TRUE
+    printlog "exporting part of doc."
     if hCallExport (OutputGrafikTBO & "1" , sFilter, TRUE ) = TRUE then
-        Kontext "SVMOptionen"
-        if SVMOptionen.Exists (2) then
-            Original.Check
-            SVMOptionen.OK
-            sleep 5
-        endif
+        Kontext "SVMOptions"
+        SVMOptions.OK
+        sleep 5
         if ( dir(OutputGrafikTBO & "1" & sExt) <> "") then
             Printlog "Ok :-) Saved as: '" & OutputGrafikTBO & "1" & sExt & "'"
         else
             warnlog "File didn't get saved :-("
         endif
+        printlog "Closing testdoc."
         hCloseDocument ()
         sleep 5
+        printlog "Opening new doc."
         hNewDocument()
         sleep 5
+        printlog "Inserting exported part of Testdoc."
         Call hGrafikEinfuegen ( OutputGrafikTBO & "1" & sExt )
         bTemp = FALSE
+        printlog "checking size of inserted file."
         fGetSizeXY sx1, sY, bTemp
         if (bTemp = FALSE) then
             warnlog "Selected original size NOT OK :-("
         endif
     endif
+    printlog "closing doc."
     hCloseDocument ()
+
+    printlog "opening new doc."
     hNewDocument()
+    printlog "inserting Rectangle."
     hRechteckErstellen ( 10, 10, 30, 40 )
+    printlog "Exporting Rectangle"
     if hCallExport (OutputGrafikTBO & "2" , sFilter, TRUE ) = TRUE then
-        Kontext "SVMOptionen"
-        if SVMOptionen.Exists (2) then
-            Groesse.Check
-            Breite.SetText "9"
-            Hoehe.SetText "9"
-            Groesse.Check 'Check to make settings go throught
-            sx1 = Breite.GetText
-            sY = Hoehe.GetText
-            SVMOptionen.OK
+        Kontext "SVMOptions"
+        if SVMOptions.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 = (Exportwidth.GetText)+ "cm"
+            endif
+            SVMOptions.OK
             sleep 5
         endif
         if ( dir(OutputGrafikTBO & "2" & sExt) <> "") then
         else
             warnlog "File didn't get saved :-("
         endif
+        printlog "Closing doc."
         hCloseDocument ()
         sleep 5
+        printlog "Opening exported rectangle."
         hFileOpen (OutputGrafikTBO & "2" & sExt)
         kontext "Filterauswahl"
         if Filterauswahl.exists then
         endif
         kontext "DocumentDraw"
         DocumentDraw.TypeKeys ("<escape><tab>")
+        printlog "Selecting and checking size.."
         ContextOriginalSize
         bTemp = FALSE
         fGetSizeXY sx1, sY, bTemp
             warnlog "Selected original size NOT OK :-("
         endif
     endif
-    if hCallExport (OutputGrafikTBO & "3" , sFilter, TRUE ) = TRUE then
-        Kontext "SVMOptionen"
-        if SVMOptionen.Exists (2) then
-            Groesse.Check
-            sX2 = Breite.GetText
-            if (LiberalMeasurement(sx1, sX2)) <> TRUE then
-                if (val(str(StrToDouble(sx1)+5)) >= StrToDouble(sX2) ) AND (val(str(StrToDouble ( sx1 )-5)) <= StrToDouble ( sX2 )) then
-                    Printlog "Width was ok. Expected: " & sx1 & "' was: '" & sX2 & "'"
-                else
-                    warnLog "Width is different expected: '" & sx1 & "' is: '" & sX2 & "'"
-                endif
-            endif
-            sY2 = Hoehe.GetText
-            if (LiberalMeasurement(sY, sY2)) <> TRUE then
-                if ( val(str(StrToDouble(sY)+5)) >= StrToDouble(sY2) ) AND (val(str(StrToDouble ( sY )-5)) <= StrToDouble ( sY2 )) then
-                    Printlog "Height was ok. Expected: " & sY & "' was: '" & sY2 & "'"
-                else
-                    warnLog "Height is different expected: '" & sY & "' is: '" & sY2 & "'"
-                endif
-            endif
-            SVMOptionen.Cancel
-            sleep 5
-        endif
-    endif
 
+    printlog "Closing doc."
     call hCloseDocument
     
 endcase 'tSVM
 
 '-------------------------------------------------------------------------------
 testcase tBMP
-qaerrorlog
+
    dim x as integer
    dim i as integer
    dim bTemp as boolean
    dim sY2 as string
    dim sDocument as string
 
-    '/// open the document
+    printlog "open the Test-document"
     sDocument = ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString)
     hFileOpen sDocument
 
-   if hCallExport (OutputGrafikTBO , "BMP - Windows Bitmap (.bmp)" ) = TRUE then
-      Kontext "BMPOptionen"
-      if BMPOptionen.Exists (2) then
-      '/// check if all properties have the right count, and depend on each other ///'
-         '/// 'Color Resolution' listbox contains eight items ///'
-         x = Farbaufloesung.GetItemCount
-         if x <> 8 then warnlog "Color Resolution Count is wrong; should be:8, is:" + x
+    printlog "Trying to export and canceling.."
+    if hCallExport (OutputGrafikTBO , "BMP - Windows Bitmap (.bmp)" ) = TRUE then
+      Kontext "BMPOptions"
+      if BMPOptions.Exists (2) then
+         x = Colordepth.GetItemCount
+         if x <> 7 then warnlog "Color Resolution Count is wrong; should be:7, is:" + x
          for i = 1 to x
-            Farbaufloesung.Select i
+            Colordepth.Select i
             sleep 1
-            Printlog " - " + i + ": '" +Farbaufloesung.GetSelText + "'"
-            '/// checkbox RLE coding has to be enabled only for '4 and 8 bit' color palettes ///'
-            if ((i > 3) AND (i < 8)) then
-               if RLEKodierung.IsEnabled <> TRUE then warnlog "'RLE coding' is not checkable :-("
-            else
-               if RLEKodierung.IsEnabled <> FALSE then warnlog "'RLE coding' is checkable :-("
-            endif
+            Printlog " - " + i + ": '" +Colordepth.GetSelText + "'"
          next i
-         '/// if Mode 'original' is selected, DPI///'
-         Original.Check
-            if DPI.IsEnabled then warnlog " :-("
-            if Breite.IsEnabled then warnlog " :-("
-            if Hoehe.IsEnabled then warnlog " :-("
-         Aufloesung.Check
-            x = DPI.GetItemCount
-            '/// 'DPI' listbox contains eight items ///'
-            if x <> 4 then warnlog "'DPI' Count is wrong; should be:4, is:" + x
-            for i = 1 to x
-               DPI.Select i
-               Printlog " - " + i + ": '" +DPI.GetSelText + "'"
-            next i
-            if Breite.IsEnabled then warnlog " :-("
-            if Hoehe.IsEnabled then warnlog " :-("
-         Groesse.Check
-            if DPI.IsEnabled then warnlog " :-("
-            Breite.More
-            Hoehe.Less
          Sleep 1
-         '/// leave dialog with cancel -> there has to be no file created! ///'
-         BMPOptionen.Cancel
+         printlog "Leave dialog with cancel -> there has to be no file created!"
+         BMPOptions.Cancel
          sleep 5
          if ( dir(OutputGrafikTBO+".bmp") = "") then ' inspired by bug #99932 Graphic is exported though cancel is pressed
             Printlog "ok :-)"
          Active.OK
       end if
    end if
-   Printlog "'/// now save it realy and load the file afterwards ///'"
+
+   Printlog " now save it really and load the file afterwards"
    if hCallExport (OutputGrafikTBO , "BMP - Windows Bitmap (.bmp)" ) = TRUE then
-      Kontext "BMPOptionen"
-      if BMPOptionen.Exists (2) then
-         Farbaufloesung.Select 7
-         RLEKodierung.Check
-         Aufloesung.Check
-         DPI.Select 3
-         BMPOptionen.OK
+      Kontext "BMPOptions"
+      if BMPOptions.Exists (2) then
+         Colordepth.Select 7
+         Compression.Check
+         BMPOptions.OK
          sleep 5
       endif
       if ( dir(OutputGrafikTBO+".bmp") <> "") then
       else
          warnlog "File didn't get saved :-("
       endif
+      printlog "Closing doc."
       hCloseDocument ()
       sleep 5
+      printlog "Opening new doc."
       hNewDocument()
       sleep 5
+      printlog "Inserting exported file."
       Call hGrafikEinfuegen ( OutputGrafikTBO+".bmp" )
    endif
+   printlog "Closing doc again."
    hCloseDocument ()
-   Printlog "'/// now save a SELECTION in ORIGINAL SIZE and load the file afterwards ///'"
+   Printlog "Now save a SELECTION in and load the file afterwards"
    
    hFileOpen (sDocument)
    kontext "Filterauswahl"
       goto endsub
    endif
 
-   ' check if the document is writable
+   printlog "check if the document is writable"
    call fMakeDocumentWritable
     
    hTypeKeys ("<escape><tab>")
    fGetSizeXY sx1, sy, TRUE
-   if hCallExport (OutputGrafikTBO + "1" , "BMP - Windows Bitmap (.bmp)", TRUE ) = TRUE then
-      Kontext "BMPOptionen"
-      if BMPOptionen.Exists (2) then
-         Original.Check
-         BMPOptionen.OK
-         sleep 5
-      endif
-      if ( dir(OutputGrafikTBO + "1"+".bmp") <> "") then
-         Printlog "Ok :-) Saved as: '" + OutputGrafikTBO + "1"+".bmp" + "'"
-      else
-         warnlog "File didn't get saved :-("
-      endif
-    hCloseDocument ()
-      sleep 5
-      hNewDocument()
-      sleep 5
-      Call hGrafikEinfuegen ( OutputGrafikTBO + "1"+".bmp" )
-      bTemp = FALSE
-      fGetSizeXY sx1, sY, bTemp
-      if (bTemp = FALSE) then
-         warnlog "Selected original size NOT OK :-("
+    if hCallExport (OutputGrafikTBO + "1" , "BMP - Windows Bitmap (.bmp)", TRUE ) = TRUE then
+        Kontext "BMPOptions"
+        if BMPOptions.Exists (2) then
+             BMPOptions.OK
+             sleep 5
+        endif
+        if ( dir(OutputGrafikTBO + "1"+".bmp") <> "") then
+            Printlog "Ok :-) Saved as: '" + OutputGrafikTBO + "1"+".bmp" + "'"
+        else
+            warnlog "File didn't get saved :-("
+        endif
+        hCloseDocument ()
+        sleep 5
+        hNewDocument()
+        sleep 5
+        Call hGrafikEinfuegen ( OutputGrafikTBO + "1"+".bmp" )
+        bTemp = FALSE
+        fGetSizeXY sx1, sY, bTemp
+        if (bTemp = FALSE) then
+            warnlog "Selected original size NOT OK :-("
       endif
    endif
    hCloseDocument ()
    
-   Printlog "'/// now CREATE a rectangle, select it, save it in SIZE and load the file afterwards ///'"
+   Printlog "Now create a rectangle, select it, save it in SIZE and load the file afterwards"
    hNewDocument()
    hTypeKeys "<TAB>"
    gMouseClick 50, 50
    hRechteckErstellen ( 10, 10, 30, 40 )
    if hCallExport (OutputGrafikTBO + "2" , "BMP - Windows Bitmap (.bmp)", TRUE ) = TRUE then
-      Kontext "BMPOptionen"
-      if BMPOptionen.Exists (2) then
-         Groesse.Check
-            Breite.SetText "9"
-            Hoehe.SetText "9"
-            Groesse.Check  'Press "Size" one more time in order to make the change go through"
-            sx1 = Breite.GetText
-            sY = Hoehe.GetText
-         BMPOptionen.OK
+      Kontext "BMPOptions"
+      if BMPOptions.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 = (Exportwidth.GetText)+ "cm"
+            endif
+         BMPOptions.OK
          sleep 5
       endif
       if ( dir(OutputGrafikTBO + "2"+".bmp") <> "") then
       else
          warnlog "File didn't get saved :-("
       endif
+      printlog "Closing doc."
       hCloseDocument ()
       sleep 5
       hFileOpen (OutputGrafikTBO + "2"+".bmp")
       endif
       
    endif
-   if hCallExport (OutputGrafikTBO + "3" , "BMP - Windows Bitmap (.bmp)", TRUE ) = TRUE then
-      Kontext "BMPOptionen"
-      if BMPOptionen.Exists (2) then
-         Groesse.Check
-            sX2 = Breite.GetText
-            if (LiberalMeasurement(sx1, sX2)) <> TRUE then
-               if (val(str(StrToDouble(sx1)+5)) >= StrToDouble(sX2) ) AND (val(str(StrToDouble ( sx1 )-5)) <= StrToDouble ( sX2 )) then
-                  Printlog "Width was ok. Expected: " + sx1 + "' was: '" + sX2 + "'"
-               else
-                  warnLog "Width is different expected: '" + sx1 + "' is: '" + sX2 + "'"
-               endif
-            endif
-            sY2 = Hoehe.GetText
-            if (LiberalMeasurement(sY, sY2)) <> TRUE then
-               if ( val(str(StrToDouble(sY)+5)) >= StrToDouble(sY2) ) AND (val(str(StrToDouble ( sY )-5)) <= StrToDouble ( sY2 )) then
-                  Printlog "Height was ok. Expected: " + sY + "' was: '" + sY2 + "'"
-               else
-                  warnLog "Height is different expected: '" + sY + "' is: '" + sY2 + "'"
-               endif
-            endif
-         BMPOptionen.Cancel
-         sleep 5
-       endif
-   endif
-
    call hCloseDocument
 
 endcase 'tBMP
     hFileOpen sDocument
 
     if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
-        Kontext "SVMOptionen"
-        if SVMOptionen.Exists (2) then
-            Original.Check
-            if Breite.IsEnabled then
-                warnlog " :-("
-            endif
-            if Hoehe.IsEnabled then
-                warnlog " :-("
-            endif
-            Groesse.Check
-            Breite.More
-            Hoehe.Less
-            SVMOptionen.Cancel
+        Kontext "EMFOptions"
+        if EMFOptions.Exists (2) then
+            Exportwidth.More
+            Exportheight.Less
+            EMFOptions.Cancel
             sleep 5
             if ( dir(OutputGrafikTBO+sExt) = "") then ' inspired by bug #99932 Graphic is exported though cancel is pressed
                 Printlog "ok :-)"
         end if
     end if
     if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
-        Kontext "SVMOptionen"
-        if SVMOptionen.Exists (2) then
-            Groesse.Check
-            Breite.Less
-            Hoehe.More
-            SVMOptionen.OK
+        Kontext "EMFOptions"
+        if EMFOptions.Exists (2) then
+            Exportwidth.More
+            Exportheight.Less
+            EMFOptions.OK
             sleep 5
         endif
         if ( dir(OutputGrafikTBO+sExt) <> "") then
         Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
     endif
     hCloseDocument ()
-    hFileOpen (sDocument)
-    kontext "Filterauswahl"
-    if Filterauswahl.Exists(10) then
-        Warnlog "Error when loading the file. The Filter-dialogue came up. Test aborted."
-        Filterauswahl.Cancel
-        goto endsub
-    endif
-   printlog "making doc editable if it is readonly"   
-    call fMakeDocumentWritable
-    hTypeKeys ("<escape><tab>")
-    fGetSizeXY sx1, sY, TRUE
-    if hCallExport (OutputGrafikTBO & "1" , sFilter, TRUE ) = TRUE then
-        Kontext "SVMOptionen"
-        if SVMOptionen.Exists (2) then
-            Original.Check
-            SVMOptionen.OK
-            sleep 5
-        endif
-        if ( dir(OutputGrafikTBO & "1" & sExt) <> "") then
-            Printlog "Ok :-) saved as: '" & OutputGrafikTBO & "1" & sExt & "'"
-        else
-            warnlog "File didn't get saved :-("
-        endif
-        hCloseDocument ()
-        sleep 5
-        hNewDocument()
-        sleep 5
-        Call hGrafikEinfuegen ( OutputGrafikTBO & "1" & sExt )
-        bTemp = FALSE
-        fGetSizeXY sx1, sY, bTemp
-        if (bTemp = FALSE) then
-            warnlog "Selected original size NOT OK :-("
-        endif
-    endif
-    hCloseDocument ()
+   
     hNewDocument()
     hRechteckErstellen ( 10, 10, 30, 40 )
     if hCallExport (OutputGrafikTBO & "2" , sFilter, TRUE ) = TRUE then
-        Kontext "SVMOptionen"
-        if SVMOptionen.Exists (2) then
-            Groesse.Check
-            Breite.SetText "9"
-            Hoehe.SetText "9"
-            Groesse.Check   'Press "Size" one more time to make the change go through"
-            sx1 = Breite.GetText
-            sY = Hoehe.GetText
-            SVMOptionen.OK
+        Kontext "EMFOptions"
+        if EMFOptions.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 = (Exportwidth.GetText)+ "cm"
+            endif
+            EMFOptions.OK
             sleep 5
         endif
         if ( dir(OutputGrafikTBO & "2" & sExt) <> "") then
         endif
 
         if hCallExport (OutputGrafikTBO & "3" , sFilter, TRUE ) = TRUE then
-            Kontext "SVMOptionen"
-            if SVMOptionen.Exists (2) then
-                Groesse.Check
-                sX2 = Breite.GetText
+            Kontext "EMFOptions"
+            if EMFOptions.Exists (2) then
+                sX2 = Exportwidth.GetText
                 if (LiberalMeasurement(sx1, sX2)) <> TRUE then
                     if (val(str(StrToDouble(sx1)+5)) >= StrToDouble(sX2) ) AND (val(str(StrToDouble ( sx1 )-5)) <= StrToDouble ( sX2 )) then
                         Printlog "Width was ok. Expected: " & sx1 & "' was: '" & sX2 & "'"
                         warnLog "Width is different expected: '" & sx1 & "' is: '" & sX2 & "'"
                     endif
                 endif
-                sY2 = Hoehe.GetText
+                sY2 = Exportheight.GetText
                 if (LiberalMeasurement(sY, sY2)) <> TRUE then
                     if ( val(str(StrToDouble(sY)+5)) >= StrToDouble(sY2) ) AND (val(str(StrToDouble ( sY )-5)) <= StrToDouble ( sY2 )) then
                         Printlog "Height was ok. Expected: " & sY & "' was: '" & sY2 & "'"
                         warnLog "Height is different expected: '" & sY & "' is: '" & sY2 & "'"
                     endif
                 endif
-                SVMOptionen.Cancel
+                EMFOptions.Cancel
                 sleep 5
             endif
         endif
     sExt = ".met"
 
     sDocument = gTesttoolPath & "graphics\required\input\graphicexport." & ExtensionString
+    printlog "loading Test File"
     hFileOpen sDocument
 
+    printlog "----------1st: Trying to export and then canceling it"
     if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
-        Kontext "METOptionen"
-        if METOptionen.Exists (2) then
-            Original.Check
-            if Breite.IsEnabled then
-                warnlog " :-("
+        Kontext "METOptions"
+        if METOptions.Exists (2) then
+            sTemp = Exportwidth.getText
+            Exportwidth.More
+            if (sTemp = Exportwidth.getText) then
+                qaErrorLog "Width didn't change on pressing button 'More' #112225#"
+                Exportwidth.setText "10"
             endif
-            if Hoehe.IsEnabled then
-                warnlog " :-("
-            endif
-            Groesse.Check
-            sTemp = Breite.getText
-            Breite.More
-            if (sTemp = Breite.getText) then
-                qaErrorLog "Width didn't change on pressing button 'More' #112225#"
-                Breite.setText "10"
-                Hoehe.setText "10"
-            endif
-            sTemp = Hoehe.getText
-            Hoehe.Less
-            if (sTemp = Hoehe.getText) then
+            sTemp = Exportheight.getText
+            Exportheight.Less
+            if (sTemp = Exportheight.getText) then
                 warnlog "Height didn't change on pressing button 'Less'"
             endif
-            METOptionen.Cancel
+            printlog "Canceling export..."
+            METOptions.Cancel
             sleep 5
             if ( dir(OutputGrafikTBO+sExt) = "") then ' inspired by bug #99932 Graphic is exported though cancel is pressed
                 Printlog "ok :-)"
             Active.OK
         end if
     end if
+    printlog "----------2nd: doing real export.."
     if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
-        Kontext "METOptionen"
-        if METOptionen.Exists (2) then
-            Groesse.Check
-            sTemp = Breite.getText
-            Breite.Less
-            if (sTemp = Breite.getText) then
+        Kontext "METOptions"
+        if METOptions.Exists (2) then
+            sTemp = Exportwidth.getText
+            Exportwidth.Less
+            if (sTemp = Exportwidth.getText) then
                 warnlog "Width didn't change on pressing button 'Less'"
             endif
-            sTemp = Hoehe.getText
-            Hoehe.More
-            if (sTemp = Hoehe.getText) then
+            sTemp = Exportheight.getText
+            Exportheight.More
+            if (sTemp = Exportheight.getText) then
                 qaErrorLog "Height didn't change on pressing button 'More' #112225#"
-                Breite.setText "10"
-                Hoehe.setText "10"
+                Exportwidth.setText "10"
             endif
-            METOptionen.OK
+            METOptions.OK
             iWaitIndex = 0
-            do while METOptionen.Exists AND iWaitIndex < 30
+            do while METOptions.Exists AND iWaitIndex < 30
                 sleep (1)
                 iWaitIndex = iWaitIndex + 1
             loop
         else
             warnlog "File didn't get saved :-("
         endif
+        printlog "Closing test doc."
         hCloseDocument ()
         sleep 5
+        printlog "----------3rd: Inserting export into new doc."
+        printlog "Opening new doc."
         hNewDocument()
         sleep 5
+        printlog "Inserting the exported file..."
         Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
     endif
+    printlog "Closing file with inserted graphic."
     hCloseDocument ()
+    printlog "----------4th: Exporting part of test doc."
+    printlog "Opening test file.."
     hFileOpen (sDocument)
     sleep (10)
-   
     printlog "making doc editable if it is readonly"
     call fMakeDocumentWritable
-
+    printlog "Selecting part of doc for export.."
     hTypeKeys ("<escape><tab>")
     fGetSizeXY sx1, sY, TRUE
     if hCallExport (OutputGrafikTBO & "1" , sFilter, TRUE ) = TRUE then
-        Kontext "METOptionen"
-        if METOptionen.Exists (2) then
-            Original.Check
-            METOptionen.OK
+        Kontext "METOptions"
+        if METOptions.Exists (2) then
+            METOptions.OK
             iWaitIndex = 0
-            do while METOptionen.Exists AND iWaitIndex < 30
+            do while METOptions.Exists AND iWaitIndex < 30
                 sleep (1)
                 iWaitIndex = iWaitIndex + 1
             loop
         else
             warnlog "File didn't get saved :-("
         endif
+        printlog "Closing testfile"
         hCloseDocument ()
         sleep 5
+        printlog "----------5th: Inserting exported part into new doc."
+        printlog "Opening new file.."
         hNewDocument()
         sleep 5
+        printlog "inserting exported part."
         Call hGrafikEinfuegen ( OutputGrafikTBO & "1" & sExt )
         bTemp = FALSE
+        printlog "Checking size."
         fGetSizeXY sx1, sY, bTemp
         if (bTemp = FALSE) then
             warnlog "Selected original size NOT OK :-("
         endif
     endif
+    printlog "Closing doc."
     hCloseDocument ()
+    printlog "----------6th: exporting fresh rectangle."
+    printlog "opening new file."
     hNewDocument()
+    printlog "inserting rectangle."
     hRechteckErstellen ( 10, 10, 30, 40 )
+    printlog "Exporting rectangle.."
     if hCallExport (OutputGrafikTBO & "2" , sFilter, TRUE ) = TRUE then
-        Kontext "METOptionen"
-        if METOptionen.Exists (2) then
-            Groesse.Check
-            Breite.SetText "9"
-            Hoehe.SetText "9"
-            Groesse.Check  ' Click "Size" one more time to make the changes go through.
-            sx1 = Breite.GetText
-            sY = Hoehe.GetText
-            METOptionen.OK
+        Kontext "METOptions"
+        if METOptions.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 = (Exportwidth.GetText)+ "cm"
+            endif
+
+            METOptions.OK
             iWaitIndex = 0
-            do while METOptionen.Exists AND iWaitIndex < 30
+            do while METOptions.Exists AND iWaitIndex < 30
                 sleep (1)
                 iWaitIndex = iWaitIndex + 1
             loop
         else
             warnlog "File didn't get saved :-("
         endif
+        printlog "closing doc."
         hCloseDocument ()
         sleep 5
+        printlog "----------7th:Opening exported file with rectangle"
         hFileOpen (OutputGrafikTBO & "2" & sExt)
         kontext "DocumentDraw"
         DocumentDraw.TypeKeys ("<escape><tab>")
+        printlog "Checking file size."
         ContextOriginalSize
         bTemp = FALSE
         fGetSizeXY sx1, sY, bTemp
             warnlog "Selected original size NOT OK :-("
         endif
     endif
-    if hCallExport (OutputGrafikTBO & "3" , sFilter, TRUE ) = TRUE then
-        Kontext "METOptionen"
-        if METOptionen.Exists (2) then
-            Groesse.Check
-            sX2 = Breite.GetText
-            if (LiberalMeasurement(sx1, sX2)) <> TRUE then
-                if (val(str(StrToDouble(sx1)+5)) >= StrToDouble(sX2) ) AND (val(str(StrToDouble ( sx1 )-5)) <= StrToDouble ( sX2 )) then
-                    Printlog "Width was ok. Expected: " & sx1 & "' was: '" & sX2 & "'"
-                else
-                    warnLog "Width is different expected: '" & sx1 & "' is: '" & sX2 & "'"
-                endif
-            endif
-            sY2 = Hoehe.GetText
-            if (LiberalMeasurement(sY, sY2)) <> TRUE then
-                if ( val(str(StrToDouble(sY)+5)) >= StrToDouble(sY2) ) AND (val(str(StrToDouble ( sY )-5)) <= StrToDouble ( sY2 )) then
-                    Printlog "Height was ok. Expected: " & sY & "' was: '" & sY2 & "'"
-                else
-                    warnLog "Height is different expected: '" & sY & "' is: '" & sY2 & "'"
-                endif
-            endif
-            METOptionen.Cancel
-            sleep 5
-        endif
-    endif
 
     call hCloseDocument
 endcase 'tMET
 
     sFilter = "WMF - Windows Metafile (.wmf)"
     sExt = ".wmf"
-
     sDocument = gTesttoolPath & "graphics\required\input\graphicexport." & ExtensionString
+    printlog "Loading testdoc."
     hFileOpen sDocument
 
+    printlog "Starting export as WMF and canceling.."
     if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
-        Kontext "SVMOptionen"
-        if SVMOptionen.Exists (2) then
-            Original.Check
-            if Breite.IsEnabled then
-                warnlog " :-("
-            endif
-            if Hoehe.IsEnabled then
-                warnlog " :-("
-            endif
-            Groesse.Check
-            Breite.More
-            Hoehe.Less
-            SVMOptionen.Cancel
+        Kontext "WMFOptions"
+        if WMFOptions.Exists (2) then
+            Exportwidth.Less
+            Exportheight.More
+            WMFOptions.Cancel
             sleep 5
             if ( dir(OutputGrafikTBO+sExt) = "") then ' inspired by bug #99932 Graphic is exported though cancel is pressed
-                Printlog "ok :-)"
+                Printlog "ok :-), nothing exported due to canceling."
             else
                 warnlog "Dialog was canceled, but file got saved, too :-(  - i35177"
             endif
             Active.OK
         end if
     end if
+    printlog "Doing real export."
     if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
-        Kontext "SVMOptionen"
-        if SVMOptionen.Exists (2) then
-            Groesse.Check
-            Breite.Less
-            Hoehe.More
-            SVMOptionen.OK
+        Kontext "WMFOptions"
+        if WMFOptions.Exists (2) then
+            Exportwidth.Less
+            Exportheight.More
+            WMFOptions.OK
             iWaitIndex = 0
-            do while SVMOptionen.Exists AND iWaitIndex < 30
+            do while WMFOptions.Exists AND iWaitIndex < 30
                 sleep (1)
                 iWaitIndex = iWaitIndex + 1
             loop
         else
             warnlog "File didn't get saved :-("
         endif
+        Printlog "Closing test doc."
         hCloseDocument ()
         sleep 5
+        printlog "Opening new odc."
         hNewDocument()
         sleep 5
+        printlog "Inserting exported graphic."
         Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
     endif
+    printlog "Closing."
     hCloseDocument ()
+    Printlog "Opening exported file."
     hFileOpen (sDocument)
     sleep (10)
    
     hTypeKeys ("<escape><tab>")
     fGetSizeXY sx1, sY, TRUE
     if hCallExport (OutputGrafikTBO & "1" , sFilter, TRUE ) = TRUE then
-        Kontext "SVMOptionen"
-        if SVMOptionen.Exists (2) then
-            Original.Check
-            SVMOptionen.OK
+        Kontext "WMFOptions"
+        if WMFOptions.Exists (2) then
+            WMFOptions.OK
             iWaitIndex = 0
-            do while SVMOptionen.Exists AND iWaitIndex < 30
+            do while WMFOptions.Exists AND iWaitIndex < 30
                 sleep (1)
                 iWaitIndex = iWaitIndex + 1
             loop
     hNewDocument()
     hRechteckErstellen ( 10, 10, 30, 40 )
     if hCallExport (OutputGrafikTBO & "2" , sFilter, TRUE ) = TRUE then
-        Kontext "SVMOptionen"
-        if SVMOptionen.Exists (2) then
-            Groesse.Check
-            Breite.SetText "9"
-            Hoehe.SetText "9"
-            Groesse.Check 'Check "Size" to make changes really go through.
-            sx1 = Breite.GetText
-            sY = Hoehe.GetText
-            SVMOptionen.OK
+        Kontext "WMFOptions"
+        if WMFOptions.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 = (Exportwidth.GetText)+ "cm"
+            endif
+            WMFOptions.OK
             iWaitIndex = 0
-            do while SVMOptionen.Exists AND iWaitIndex < 30
+            do while WMFOptions.Exists AND iWaitIndex < 30
                 sleep (1)
                 iWaitIndex = iWaitIndex + 1
             loop
             warnlog "Selected original size NOT OK :-("
         endif
     endif
-    if hCallExport (OutputGrafikTBO & "3" , sFilter, TRUE ) = TRUE then
-        Kontext "SVMOptionen"
-        if SVMOptionen.Exists (2) then
-            Groesse.Check
-            sX2 = Breite.GetText
-            if (LiberalMeasurement(sx1, sX2)) <> TRUE then
-                if (val(str(StrToDouble(sx1)+5)) >= StrToDouble(sX2) ) AND (val(str(StrToDouble ( sx1 )-5)) <= StrToDouble ( sX2 )) then
-                    Printlog "Width was ok. Expected: " & sx1 & "' was: '" & sX2 & "'"
-                else
-                    warnLog "Width is different expected: '" & sx1 & "' is: '" & sX2 & "'"
-                endif
-            endif
-            sY2 = Hoehe.GetText
-            if (LiberalMeasurement(sY, sY2)) <> TRUE then
-                if ( val(str(StrToDouble(sY)+5)) >= StrToDouble(sY2) ) AND (val(str(StrToDouble ( sY )-5)) <= StrToDouble ( sY2 )) then
-                    Printlog "Height was ok. Expected: " & sY & "' was: '" & sY2 & "'"
-                else
-                    warnLog "Height is different expected: '" & sY & "' is: '" & sY2 & "'"
-                endif
-            endif
-            SVMOptionen.Cancel
-            sleep 5
-        endif
-    endif
 
     call hCloseDocument
 endcase 'tWMF