automationdev300m87#i115106#added neccessary wait
This commit is contained in:
parent
e884f01f28
commit
a2c684d937
1 changed files with 3 additions and 0 deletions
3
testautomation/writer/optional/includes/shortcut/w_shortcuts.inc
Executable file → Normal file
3
testautomation/writer/optional/includes/shortcut/w_shortcuts.inc
Executable file → Normal file
|
@ -779,6 +779,7 @@ testcase tShortcutPasteUnformattedText
|
|||
Kontext
|
||||
Active.Setpage TabFont
|
||||
Kontext "TabFont"
|
||||
wait 500
|
||||
DefaultSize = Size.GetSelIndex
|
||||
Size.Select 14 ' Size 20
|
||||
DefaultStyle = Style.GetSelIndex
|
||||
|
@ -824,6 +825,7 @@ testcase tShortcutPasteUnformattedText
|
|||
Kontext
|
||||
Active.Setpage TabFont
|
||||
Kontext "TabFont"
|
||||
wait 500
|
||||
if Size.GetSelIndex <> 14 then
|
||||
Warnlog "formatted word has lost its size"
|
||||
endif
|
||||
|
@ -842,6 +844,7 @@ testcase tShortcutPasteUnformattedText
|
|||
Kontext
|
||||
Active.Setpage TabFont
|
||||
Kontext "TabFont"
|
||||
wait 500
|
||||
if Size.GetSelIndex <> DefaultSize then
|
||||
Warnlog "formatted word has no default size"
|
||||
endif
|
||||
|
|
Loading…
Reference in a new issue