Add Edit/Debug Scripts dialog and change Interactive BeanShell Scripting menu

items to bring up this dialog

scripting/workben/bindings/EditDebug.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="EditDebugDialog" dlg:left="64" dlg:top="89" dlg:width="179" dlg:height="151" dlg:closeable="true" dlg:moveable="true" dlg:title="Edit/Debug Scripts">
+ <dlg:bulletinboard>
+  <dlg:combobox dlg:id="LocationCombo" dlg:tab-index="0" dlg:left="64" dlg:top="17" dlg:width="110" dlg:height="13" dlg:spin="true">
+   <script:event script:event-name="on-itemstatechange" script:location="application" script:macro-name="ScriptBindingLibrary.ScriptBinding.LangLocComboListener" script:language="StarBasic"/>
+  </dlg:combobox>
+  <dlg:combobox dlg:id="LanguageCombo" dlg:tab-index="1" dlg:left="64" dlg:top="33" dlg:width="110" dlg:height="13" dlg:spin="true">
+   <script:event script:event-name="on-itemstatechange" script:location="application" script:macro-name="ScriptBindingLibrary.ScriptBinding.LangLocComboListener" script:language="StarBasic"/>
+  </dlg:combobox>
+  <dlg:checkbox dlg:id="detail" dlg:tab-index="2" dlg:left="12" dlg:top="70" dlg:width="45" dlg:height="10" dlg:value="Detailed view" dlg:checked="false">
+   <script:event script:event-name="on-itemstatechange" script:location="application" script:macro-name="ScriptBindingLibrary.ScriptBinding.LangLocComboListener" script:language="StarBasic"/>
+  </dlg:checkbox>
+  <dlg:menulist dlg:id="ScriptList" dlg:tab-index="3" dlg:left="64" dlg:top="50" dlg:width="110" dlg:height="44"/>
+  <dlg:button dlg:id="OK" dlg:tab-index="4" dlg:left="58" dlg:top="131" dlg:width="36" dlg:height="14" dlg:value="OK">
+   <script:event script:event-name="on-performaction" script:location="application" script:macro-name="ScriptBindingLibrary.ScriptBinding.DoEdit" script:language="StarBasic"/>
+  </dlg:button>
+  <dlg:button dlg:id="Cancel" dlg:tab-index="5" dlg:left="97" dlg:top="131" dlg:width="36" dlg:height="14" dlg:value="Cancel">
+   <script:event script:event-name="on-performaction" script:location="application" script:macro-name="ScriptBindingLibrary.ScriptBinding.MenuCancelButton" script:language="StarBasic"/>
+  </dlg:button>
+  <dlg:button dlg:id="Help" dlg:tab-index="6" dlg:left="138" dlg:top="131" dlg:width="36" dlg:height="14" dlg:value="Help">
+   <script:event script:event-name="on-performaction" script:location="application" script:macro-name="ScriptBindingLibrary.ScriptBinding.MenuHelpButton" script:language="StarBasic"/>
+  </dlg:button>
+  <dlg:fixedline dlg:id="FixedLine1" dlg:tab-index="7" dlg:left="42" dlg:top="6" dlg:width="131" dlg:height="7"/>
+  <dlg:text dlg:id="Label1" dlg:tab-index="8" dlg:left="5" dlg:top="6" dlg:width="36" dlg:height="9" dlg:value="Select script"/>
+  <dlg:text dlg:id="Label7" dlg:tab-index="9" dlg:left="12" dlg:top="18" dlg:width="29" dlg:height="11" dlg:value="Location"/>
+  <dlg:text dlg:id="Label8" dlg:tab-index="10" dlg:left="12" dlg:top="31" dlg:width="35" dlg:height="9" dlg:value="Language"/>
+  <dlg:text dlg:id="Label9" dlg:tab-index="11" dlg:left="12" dlg:top="53" dlg:width="24" dlg:height="14" dlg:value="Script"/>
+  <dlg:fixedline dlg:id="FixedLine2" dlg:tab-index="12" dlg:left="7" dlg:top="120" dlg:width="167" dlg:height="7"/>
+  <dlg:button dlg:id="CommandButton1" dlg:tab-index="13" dlg:left="136" dlg:top="101" dlg:width="36" dlg:height="14" dlg:value="Browse...">
+   <script:event script:event-name="on-performaction" script:location="application" script:macro-name="ScriptBindingLibrary.ScriptBinding.DoBrowseAndEdit" script:language="StarBasic"/>
+  </dlg:button>
+ </dlg:bulletinboard>
+</dlg:window>

scripting/workben/bindings/ScriptBinding.xba

@@ -210,6 +210,21 @@ Sub updateMapWithDisabledKeys()
 
 End Sub
 
+Sub ExecuteEditDebug()
+        
+	locations = Array ( "User", "Share" )
+	languages = Array ( "BeanShell", "Rhino" )
+	dialogName = "EditDebug"
+
+	bindingDialog = LoadDialog( "ScriptBindingLibrary", "EditDebug" )
+
+	PopulateLanguageCombo()
+	PopulateLocationCombo()
+	PopulateScriptList( languages(0), locations(0) )
+
+	bindingDialog.execute()	
+End Sub
+
 Sub ExecuteKeyBinding()
 	dialogName = "Key"
     createAndPopulateKeyArrays()
@@ -1493,13 +1508,14 @@ sub LangLocComboListener()
 	
     'Enable/disable Assign button
     scriptList = bindingDialog.getControl( "ScriptList" )
-    if scriptList.getSelectedItem() = "" then
-        bindingDialog.Model.NewButton.enabled = false
-    else
-	'	bindingDialog.Model.NewButton.enabled = true
+    if not (dialogName = "EditDebug") then
+        if scriptList.getSelectedItem() = "" then
+            bindingDialog.Model.NewButton.enabled = false
+        else
+	    '	bindingDialog.Model.NewButton.enabled = true
+        end if
     end if
     
-    
     ' extra dialog dependant processing
     if dialogName = "Menu" then
     	' will set New button to false if no text in LableBox
@@ -1589,6 +1605,94 @@ end sub
 
 REM ------ Event Handling Functions (Buttons) ------
 
+Sub DoBrowseAndEdit()
+    Dim oFilePicker As Object, oSimpleFileAccess As Object
+    Dim oSettings As Object, oPathSettings As Object
+    Dim sFileURL As String
+    Dim sFiles As Variant
+
+    bshfilter = "BeanShell (*.bsh)"
+    rhinofilter = "Rhino (*.js)"
+
+    REM file dialog
+    oFilePicker = CreateUnoService( "com.sun.star.ui.dialogs.FilePicker" )
+
+    oFilePicker.AppendFilter( bshfilter, "*.bsh" )
+    oFilePicker.AppendFilter( rhinofilter, "*.js" )
+    ' oFilePicker.SetCurrentFilter( "BeanShell (*.bsh)" )
+
+    If sFileURL = "" Then
+        oSettings = CreateUnoService( "com.sun.star.frame.Settings" )
+        oPathSettings = oSettings.getByName( "PathSettings" )
+        sFileURL = oPathSettings.getPropertyValue( "Work" )
+    End If
+
+    REM set display directory
+    oSimpleFileAccess = CreateUnoService( "com.sun.star.ucb.SimpleFileAccess" )
+
+    If oSimpleFileAccess.exists( sFileURL ) And oSimpleFileAccess.isFolder( sFileURL ) Then
+        oFilePicker.setDisplayDirectory( sFileURL )
+    End If
+
+    REM execute file dialog
+    If oFilePicker.execute() Then
+        sFiles = oFilePicker.getFiles()
+
+        sFileURL = sFiles(0)
+
+        If oSimpleFileAccess.exists( sFileURL ) Then
+            If (oFilePicker.GetCurrentFilter = bshfilter) then
+                RunDebugger("BeanShell", sFileURL, "")
+            ElseIf (oFilePicker.GetCurrentFilter = rhinofilter) then
+                RunDebugger("Rhino", sFileURL, "")
+            End If
+        End If
+        bindingDialog.endExecute()
+    End If
+End Sub
+
+Sub RunDebugger(lang as String, uri as String, filename as String)
+    dim document   as object
+    dim dispatcher as object
+    dim parser     as object
+    dim url        as new com.sun.star.util.URL
+
+    document = ThisComponent.CurrentController.Frame
+    parser   = createUnoService("com.sun.star.util.URLTransformer")
+    dim args(2) as new com.sun.star.beans.PropertyValue
+    args(0).Name = "language"
+    args(0).Value = lang
+    args(1).Name = "uri"
+    args(1).Value = uri
+    args(2).Name = "filename"
+    args(2).Value = filename
+
+    url.Complete = "script://DebugRunner.Debug?" _
+        + "language=Java&function=DebugRunner.go" _
+        + "&location=user"
+
+    parser.parseStrict(url)
+    disp = document.queryDispatch(url,"",0)
+    disp.dispatch(url, args())
+End Sub
+
+sub DoEdit()
+    Dim scriptInfo as Object
+
+    menuScriptList = bindingDialog.getControl( "ScriptList" )
+    selectedScript = menuScriptList.getSelectedItem()
+
+    scripts() = scriptDisplayList(0)
+    for n = LBOUND( scripts() ) to UBOUND( scripts() )
+        if ( scripts( n ).Name = selectedScript ) then
+            scriptInfo = scripts( n ).Value
+            exit for
+        end if
+    next n
+
+    RunDebugger(scriptInfo.getLanguage, scriptInfo.getParcelURI, scriptInfo.getFunctionName)
+    bindingDialog.endExecute()
+end sub
 
 sub MenuOKButton()
 	WriteXMLFromArray()

scripting/workben/bindings/calcmenubar.xml

@@ -240,7 +240,7 @@
      <menu:menuitem menu:id="macro:///ScriptBindingLibrary.ScriptBinding.ExecuteMenuBinding()" menu:label="Assign Script to ~Menu..."/>
      <menu:menuitem menu:id="macro:///ScriptBindingLibrary.ScriptBinding.ExecuteKeyBinding" menu:label="Assign Script to ~Key..."/>
      <menu:menuitem menu:id="macro:///ScriptBindingLibrary.ScriptBinding.ExecuteEventBinding()" menu:label="Assign Script to ~Event..."/>
-     <menu:menuitem menu:id="script://Interactive.BeanShell?location=user" menu:label="Interactive ~Beanshell Scripting..."/>
+     <menu:menuitem menu:id="macro:///ScriptBindingLibrary.ScriptBinding.ExecuteEditDebug" menu:label="Edit/De~bug Scripts..."/>
      <menu:menuitem menu:id="macro:///ScriptBindingLibrary.ScriptBinding.RefreshAllScripts()" menu:label="~Refresh All Scripts"/>
     </menu:menupopup>
    </menu:menu>

scripting/workben/bindings/dialog.xlb

@@ -5,4 +5,5 @@
  <library:element library:name="EventsBinding"/>
  <library:element library:name="HelpBinding"/>
  <library:element library:name="KeyBinding"/>
+ <library:element library:name="EditDebug"/>
 </library:library>

scripting/workben/bindings/drawmenubar.xml

@@ -257,7 +257,7 @@
      <menu:menuitem menu:id="macro:///ScriptBindingLibrary.ScriptBinding.ExecuteMenuBinding()" menu:label="Assign Script to ~Menu..."/>
      <menu:menuitem menu:id="macro:///ScriptBindingLibrary.ScriptBinding.ExecuteKeyBinding" menu:label="Assign Script to ~Key..."/>
      <menu:menuitem menu:id="macro:///ScriptBindingLibrary.ScriptBinding.ExecuteEventBinding()" menu:label="Assign Script to ~Event..."/>
-     <menu:menuitem menu:id="script://Interactive.BeanShell?location=user" menu:label="Interactive ~Beanshell Scripting..."/>
+     <menu:menuitem menu:id="macro:///ScriptBindingLibrary.ScriptBinding.ExecuteEditDebug" menu:label="Edit/De~bug Scripts..."/>
      <menu:menuitem menu:id="macro:///ScriptBindingLibrary.ScriptBinding.RefreshAllScripts()" menu:label="~Refresh All Scripts"/>
     </menu:menupopup>
    </menu:menu>

scripting/workben/bindings/impressmenubar.xml

@@ -284,7 +284,7 @@
      <menu:menuitem menu:id="macro:///ScriptBindingLibrary.ScriptBinding.ExecuteMenuBinding()" menu:label="Assign Script to ~Menu..."/>
      <menu:menuitem menu:id="macro:///ScriptBindingLibrary.ScriptBinding.ExecuteKeyBinding" menu:label="Assign Script to ~Key..."/>
      <menu:menuitem menu:id="macro:///ScriptBindingLibrary.ScriptBinding.ExecuteEventBinding()" menu:label="Assign Script to ~Event..."/>
-     <menu:menuitem menu:id="script://Interactive.BeanShell?location=user" menu:label="Interactive ~Beanshell Scripting..."/>
+     <menu:menuitem menu:id="macro:///ScriptBindingLibrary.ScriptBinding.ExecuteEditDebug" menu:label="Edit/De~bug Scripts..."/>
      <menu:menuitem menu:id="macro:///ScriptBindingLibrary.ScriptBinding.RefreshAllScripts()" menu:label="~Refresh All Scripts"/>
     </menu:menupopup>
    </menu:menu>

scripting/workben/bindings/writermenubar.xml

@@ -246,7 +246,7 @@
      <menu:menuitem menu:id="macro:///ScriptBindingLibrary.ScriptBinding.ExecuteMenuBinding()" menu:label="Assign Script to ~Menu..."/>
      <menu:menuitem menu:id="macro:///ScriptBindingLibrary.ScriptBinding.ExecuteKeyBinding" menu:label="Assign Script to ~Key..."/>
      <menu:menuitem menu:id="macro:///ScriptBindingLibrary.ScriptBinding.ExecuteEventBinding()" menu:label="Assign Script to ~Event..."/>
-     <menu:menuitem menu:id="script://Interactive.BeanShell?location=user" menu:label="Interactive ~Beanshell Scripting..."/>
+     <menu:menuitem menu:id="macro:///ScriptBindingLibrary.ScriptBinding.ExecuteEditDebug" menu:label="Edit/De~bug Scripts..."/>
      <menu:menuitem menu:id="macro:///ScriptBindingLibrary.ScriptBinding.RefreshAllScripts()" menu:label="~Refresh All Scripts"/>
     </menu:menupopup>
    </menu:menu>