Commits

Anonymous committed 66cb0ba

#i115353# MSC_SPECIAL_DIALOG does not work anymore

  • Participants
  • Parent commits c6aea63

Comments (0)

Files changed (6)

testautomation/dbaccess/optional/includes/ctrl_Several2.inc

         sleep(2)
     '/// set HelpURL 
         printlog "set HelpURL"
-        fsetControlProperty("ImageControl","HelpURL","HID:1234567")    
+        fsetControlProperty("ImageControl","HelpURL","customcontrol2")
     '/// save the document
         printlog "save the document"
         hFileSaveAsKill ( gOfficePath + ConvertPath("user/work/TT_ImageControl.odt"))
     Kontext "TabGeneralControl"	
         dim bScrOK as boolean       'control variable if all properties are correct
         bScrOK = true           
-    if fgetControlProperty("ImageControl","HelpURL") <> "HID:1234567" then
+    if fgetControlProperty("ImageControl","HelpURL") <> "customcontrol2" then
         warnlog "the imagecontrol is not saved with property: HelpURL"
         bScrOK = false
     endif

testautomation/dbaccess/optional/includes/ctrl_Wizards.inc

     Kontext "TabGeneralControl"
      TabGeneralControl.TypeKeys "<TAB>" , true 'this tab is importent, I don't not why but it is.
      sleep(1)
-     HelpURL.setText "HID:123456"
+     HelpURL.setText "customcontrol1"
      HelpURL.TypeKeys "<RETURN>",true
      sleep(1)
     Kontext "ControlPropertiesDialog" 
     Kontext "TabGeneralControl"
 	 TabGeneralControl.TypeKeys "<TAB>" , true 'this tab is importent, I don't not why but it is.
      sleep(1)
-     HelpURL.setText "HID:1234567"
+     HelpURL.setText "customcontrol2"
      HelpURL.TypeKeys "<RETURN>", true
      sleep(1)
     Kontext "ControlPropertiesDialog" 
      
     Kontext "TabGeneralControl"
      TabGeneralControl.TypeKeys "<TAB>" , true ' this tab is importent, I don't not why but it is.     
-     HelpURL.setText "HID:12345678"     
+     HelpURL.setText "customcontrol3"
      HelpURL.TypeKeys "<RETURN>", true
      sleep(1)
     Kontext "ControlPropertiesDialog" 
 		warnlog "The dropdown style is not active."
 	endif			
 	sleep(1)
-	fSetControlProperty("ListBox","HelpURL","HID:123456")
+	fSetControlProperty("ListBox","HelpURL","customcontrol1")
 	sleep(1)
     '/// save the document
     printlog "save the document"

testautomation/extensions/optional/input/extension_sources/TaskPaneComponent/src/toolpanels/TaskPaneComponentUI.xdl

 <?xml version="1.0" encoding="UTF-8"?>
 <!DOCTYPE dlg:window PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "dialog.dtd">
-<dlg:window xmlns:dlg="http://openoffice.org/2000/dialog" xmlns:script="http://openoffice.org/2000/script" dlg:id="Dialog1" dlg:left="192" dlg:top="127" dlg:width="174" dlg:height="147" dlg:closeable="true" dlg:moveable="true" dlg:help-url="HID:123456" dlg:withtitlebar="false">
+<dlg:window xmlns:dlg="http://openoffice.org/2000/dialog" xmlns:script="http://openoffice.org/2000/script" dlg:id="Dialog1" dlg:left="192" dlg:top="127" dlg:width="174" dlg:height="147" dlg:closeable="true" dlg:moveable="true" dlg:help-url="customcontrol1" dlg:withtitlebar="false">
  <dlg:bulletinboard>
   <dlg:button dlg:id="CommandButton1" dlg:tab-index="0" dlg:left="6" dlg:top="8" dlg:width="64" dlg:height="20" dlg:value="a wonderful button"/>
   <dlg:textfield dlg:id="TextField1" dlg:textarea-vertical-align="top" dlg:tab-index="1" dlg:left="6" dlg:top="38" dlg:width="64" dlg:height="59" dlg:value="a wonderful text"/>

testautomation/global/win/dial_d_h.win

 FormName sym:sw:Edit:DLG_NUM_NAMES:ED_FORM
 FormListe sym:sw:ListBox:DLG_NUM_NAMES:LB_FORM
 
-*FormularNavigator .uno:ShowFmExplorer
+*FormularNavigator sym:SFXDOCKINGWINDOW_ShowFmExplorer
 Liste sym:SVX_HID_FORM_NAVIGATOR
 
 *FussnoteBearbeiten .uno:EditFootnote

testautomation/global/win/sys_dial.win

 ' ****
 *TranslationWindow sym:svtools:WorkWindow:TT_INLINE_TRANSLATION svtools:FloatingWindow:TT_INLINE_TRANSLATION
 
+' **** specal longnames for bas test
+' **** author marc.neumann@oracle.com
+*MSC_Special_Dialog sym:customcontrol1
+*MSC_Special_Dialog2 sym:customcontrol2
+*MSC_Special_Dialog3 sym:customcontrol3

testautomation/spreadsheet/optional/includes/so7pp1/c_so7_pp1_ibis.inc

     Kontext "TabGeneralControl"
     '/// Enter in 'Help URL' as value exactly 'HID:123456'
     TabGeneralControl.TypeKeys "<TAB>" , true
-    HelpURL.setText "HID:123456"
+    HelpURL.setText "customcontrol1"
     HelpURL.TypeKeys "<RETURN>",true
-    if HelpURL.GetText <> "HID:123456" then
-        warnlog "'HID:123456' has not been accepted as 'Help URL' value."
+    if HelpURL.GetText <> "customcontrol1" then
+        warnlog "'customcontrol1' has not been accepted as 'Help URL' value."
     end if
 
     Kontext "ControlPropertiesDialog"