diff options
Diffstat (limited to 'scripting/workben/bindings/ScriptBinding.xba')
| -rw-r--r-- | scripting/workben/bindings/ScriptBinding.xba | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/scripting/workben/bindings/ScriptBinding.xba b/scripting/workben/bindings/ScriptBinding.xba index 7ca53bd137ec..acc932a3b30c 100644 --- a/scripting/workben/bindings/ScriptBinding.xba +++ b/scripting/workben/bindings/ScriptBinding.xba @@ -572,9 +572,10 @@ sub WriteEventsToDoc() endif 'Otherwise it is a StarBasic binding - leave alone next n - + 'Mark document as modified ( should happen automatically as a result of calling the API ) + ThisComponent.CurrentController.getModel().setModified( True ) exit sub - + ErrorHandler: reset msgbox( "Error calling UNO API for writing event bindings to the document" ) @@ -1003,7 +1004,7 @@ sub PopulateScriptList( lang as String, loc as String ) if ( lang = implementations( n ).getLanguage() ) then if ( detailedView ) then tempDisplayList( n ).Name = logicalName _ - + " [" + logicalName + "]" + + " [" + implementations( n ).getFunctionName() + "]" tempDisplayList( n ).Value = implementations( n ) else tempDisplayList( n ).Name = logicalName @@ -1083,8 +1084,9 @@ sub PopulateSubMenuList( menuItemPosition as integer ) subMenuList.removeItems( 0, subMenuList.getItemCount() ) 'If there are no sub-menus i.e. a dynamically generated menu like Format - if subMenuCount = 1 then - subMenuList.addItem( "Unable to Assign Scripts to this menu", 0 ) + 'if subMenuCount = 1 then + if menuItems( menuItemPosition ) = "Format" then + subMenuList.addItem( "Unable to Assign Scripts to this menu", 0 ) else for n = 1 to subMenuCount - 1 subMenuList.addItem( subMenuItems( n ), n - 1 ) @@ -1775,4 +1777,4 @@ end sub sub HelpOKButton() helpDialog.endExecute() end sub -</script:module> +</script:module>
\ No newline at end of file |