## How to execute programs

    PRIVATE myProcess AS Process

    PUBLIC SUB _new()
      ME.Title = "Working with EXEC"
      ComboBox1.add("gambas")
      ComboBox1.add("ls")
      ComboBox1.add("/usr/bin/X11/xcalc")
      ComboBox1.add("gimp")
      ' the programs must be installed!
    END

    PUBLIC SUB btnFire_Click()
      IF Trim(ComboBox1.Text) <> "" THEN
        'Trim strips the whitespaces from a string
        TextArea1.Text = ""
        TextArea2.Text = Trim(ComboBox1.Text)
        ' call it
        EXEC [ComboBox1.Text] FOR READ WRITE AS myProcess
      ELSE
        TextArea1.Text = "please choose or enter a program to execute"
      ENDIF
    END

    PUBLIC SUB btnClose_Click()
      ME.Close()
    END

    PUBLIC SUB Process_Write(sData AS String)
    ' if something is coming back
    ' the event 'Process.Write' of the class process calls this function
      TextArea2.Text = " Process '" & myProcess.command & "' " & sData
    END

    PUBLIC SUB Process_Error(sData AS String)
    ' if an error occurred
    ' the event 'Process.Error' of the class process calls this function
      TextArea1.Text = " Process '" & myProcess.command & "' " & sData
    END

    PUBLIC SUB Process_Kill()
    ' if the process is killed
    ' the event 'Process.Kill' of the class process calls this function
      myProcess = NULL
    END

-- JochenGeorges - 28 Dec 2004