Commits

Anonymous committed d9952fb Merge

Merging with changes from remote

  • Participants
  • Parent commits 8e3b3bc, dfdd71a

Comments (0)

Files changed (1)

testautomation/graphics/tools/id_tools.inc

             printlog "took units from http://gsl.openoffice.org/source/browse/gsl/vcl/source/src/units.src"
             select case GetMeasUnit(sShould$)
             case "mm", "ミリ", "ĺ
-            case "cm","センăƒ?","厘米","ĺ
+            case "cm","セン�?","厘米","ĺ
             case chr$(34) : iTolerance = 2.5
             case "pi","ピクセル" : iTolerance = 2.5                 '01, 81
-            case "pt",  "ăƒ?イント" : iTolerance = 2.5                '01, 81
+            case "pt",  "�?イント" : iTolerance = 2.5                '01, 81
             case "" : iTolerance = 1.5 ' cm is presubposition in old functions
             case else
                 iTolerance = 2.5
     kontext "DocumentImpress"
     SetClipBoard "Revenue"
     DocumentImpress.TypeKeys "<MOD1 V>"
+    sleep 1
     SlideShowCustomAnimation
     Kontext "Tasks"
     WaitSlot (1000)
     EffectAdd.Click
     kontext
-    printlog " Switch to TabPage: Entrance "
+    printlog "Switch to TabPage: Entrance"
+    sleep 1
     active.setPage(TabEntrance)
     kontext "TabEntrance"
     if TabEntrance.exists(5) then
         printlog " select speed 'Fast' -> fourth item in list "
         Speed.Select 2
         TabEntrance.OK
+        sleep 1
     end if
     kontext "tasks"
     EffectStart.TypeKeys "<HOME><DOWN>" 'Select the second entry.