Nice component. Should this add to th OPM?
To insert text to the console:
GTK2Term.pas file changes
***************
*** 51,56 ****
--- 51,57 ----
var
vte_terminal_new: function: PGtkWidget; cdecl;
+ vte_terminal_feed_child : function(terminal: PVteTerminal; str:pchar;size:gssize):gboolean; cdecl;
vte_terminal_fork_command_full: function(terminal: PVteTerminal; pty_flags: TVtePtyFlags;
working_directory: PChar; argv, envv: PPChar; spawn_flags: TGSpawnFlags;
child_setup: TGSpawnChildSetupFunc; child_setup_data: Pointer; child_pid:
***************
*** 77,82 ****
--- 78,84 ----
if Lib = 0 then
Exit(Loaded);
@vte_terminal_new := GetProcAddress(Lib, 'vte_terminal_new');
+ @vte_terminal_feed_child := GetProcAddress(Lib, 'vte_terminal_feed_child');
@vte_terminal_fork_command_full := GetProcAddress(Lib, 'vte_terminal_fork_command_full');
Loaded :=
(@vte_terminal_new <> nil) and
Add this procedure to Terminalctrls.pas-file
procedure TTerminal.feed(s: string);
var
Info: PWidgetInfo;
begin
Info := PWidgetInfo(FInfo);
vte_terminal_feed_child(VTE_TERMINAL(Info.ClientWidget),pchar(s),Length(s));
end;
Side note: There is typo in TerminalAvaiable in Terminalctrls.pas-file.