Gambas ONE

Private hDbusObj As DbusObj

Const TEXTEDITOR_DBUS_NAME As String = "org.ajmconsulting.TextEditor"
Const TEXTEDITOR_PATH As String = "/org/ajmconsulting/TextEditor"
Const TEXTEDITOR_DBUS_INTERFACE As String = "org.ajmconsulting.TextEditor"

Public Sub Main()    'Form_Open if startup form
    'check if gbTE is already open
    If DBus.Session.Applications.Exist(TEXTEDITOR_DBUS_NAME) Then
      'yes it is, so pass-off current file list
      If Files.Count > 0 Then
        For Each $file In Files
          DBus[TEXTEDITOR_DBUS_NAME][TEXTEDITOR_PATH, TEXTEDITOR_DBUS_INTERFACE].Open($file.Name, $file.ReadOnly, $file.LineNumber, $file.ColumnNumber)
        Next
      Endif
      Try DBus[TEXTEDITOR_DBUS_NAME][TEXTEDITOR_PATH, TEXTEDITOR_DBUS_INTERFACE].Show()
      Return    'exit, replace with Me.Close if in startup form
    Endif
    'set up to receive pass-off commands
    DBus.Name = TEXTEDITOR_DBUS_NAME
    hDbusObj = New DbusObj
    DBus.Session.Register(hDbusObj, TEXTEDITOR_PATH, TEXTEDITOR_DBUS_INTERFACE])
  Endif

  fEditor.ShowModal()  'wait until editing is all done, skip if in startup form

  'clean-up and exit, place remaining code in Form_Close if in startup form
  If Not IsNull(hDbusObj) And If DBus.IsRegistered(hDbusObj) Then
    DBus.Unregister(hDbusObj)
  Endif

End

' Gambas class file

Inherits DBusObject

Public Sub org_ajmconsulting_TextEditor_Show()

  fEditor.Show()

End

Public Sub org_ajmconsulting_TextEditor_Open(sFilePath As String, bReadOnly As Boolean, nLine As Integer, nColumn As Integer)

  fEditor.AddEditor(sFilePath, bReadOnly, nLine, nColumn)
  fEditor.Raise()

End

Public Sub Form_Open()

  hSing = New SingleInstance As "Sing"
  If hSing.Initialise() Then
    Me.Close
    Return
  Endif

  Wait 0.5  ' we do not want to be finished before other args are sent so wait half a second.

  While hSing.ArgList.Count
    ListBox1.Add(hSing.PullArg())
  Wend

End