diff options
Diffstat (limited to 'testautomation/writer/tools/includes/w_tool2.inc')
-rw-r--r-- | testautomation/writer/tools/includes/w_tool2.inc | 69 |
1 files changed, 31 insertions, 38 deletions
diff --git a/testautomation/writer/tools/includes/w_tool2.inc b/testautomation/writer/tools/includes/w_tool2.inc index 44e78fd589b4..0aa4238520a1 100644 --- a/testautomation/writer/tools/includes/w_tool2.inc +++ b/testautomation/writer/tools/includes/w_tool2.inc @@ -28,13 +28,6 @@ '* ** '* short description : Description of file ** '* ** -'******************************************************************* -'* ** -' #1 OptionenAufrufen -' #1 CheckUberpruefen -' #1 UnCheckUeberpruefen -' #1 WortErgaenzen -'* ** '\****************************************************************** sub OptionenAufrufen(Seite as string) @@ -346,7 +339,7 @@ function wDeleteAutotext(vAutotextName as string) as boolean Dim bDeleted as boolean Dim sAllGroups as integer Dim sAllInGroups as integer - + Kontext "Autotext" if Not Autotext.Exists then EditAutotext @@ -370,36 +363,36 @@ function wDeleteAutotext(vAutotextName as string) as boolean ' count all groups sAllGroups = Liste.GetItemCount ' travel through all groups - For ik = 1 to sAllGroups - Liste.Select ik - Liste.TypeKeys "+" - - sAllInGroups = Liste.GetItemCount - sAllGroups - For j = 1 to sAllInGroups - Liste.TypeKeys "<Down>" - if Liste.Gettext = vAutotextName then - try - Menue.Click - wait 500 - Call hMenuSelectNr ( 3 ) - Kontext "Active" - if Active.Exists and Active.GetRT = 304 then - Active.yes - wDeleteAutotext = true - else - Warnlog "No messages to confirm deleting the Autotext!" - end if - bDeleted = true - exit for - catch - Warnlog "Menu Autotext->'Delete' disabled ! Test failed !" - endcatch - end if - next j - if bDeleted = true then exit for - ' close group + For ik = 1 to sAllGroups + Liste.Select ik + Liste.TypeKeys "+" + + sAllInGroups = Liste.GetItemCount - sAllGroups + For j = 1 to sAllInGroups + Liste.TypeKeys "<Down>" + if Liste.Gettext = vAutotextName then + try + Menue.Click + wait 500 + Call hMenuSelectNr ( 3 ) + Kontext "Active" + if Active.Exists and Active.GetRT = 304 then + Active.yes + wDeleteAutotext = true + else + Warnlog "No messages to confirm deleting the Autotext!" + end if + bDeleted = true + exit for + catch + Warnlog "Menu Autotext->'Delete' disabled ! Test failed !" + endcatch + end if + next j + if bDeleted = true then exit for + ' close group Liste.Select ik - Liste.TypeKeys "-" + Liste.TypeKeys "-" next ik end function @@ -420,4 +413,4 @@ sub wChangeDefaultView() Massstab.Ok Call hCloseDocument -end sub
\ No newline at end of file +end sub |