* Added Antonio Sanguigni new TfpgHyperLabel component to fpGUI. I converted his gui_browser class to a fpgOpenURL function.

1 files changed, 25 insertions, 0 deletions

diff --git a/src/corelib/x11/gfx_utils_impl.inc b/src/corelib/x11/gfx_utils_impl.inc
index 0f341df4..41e5233d 100644
--- a/src/corelib/x11/gfx_utils_impl.inc
+++ b/src/corelib/x11/gfx_utils_impl.inc
@@ -1,5 +1,8 @@
 {%mainunit gfx_utils.pas}
 
+uses
+  Unix;
+
 // X11 specific filesystem implementations of encoding functions
 
 function fpgToOSEncoding(aString: TfpgString): string;
@@ -12,4 +15,26 @@ begin
   Result := aString;
 end;
 
+procedure fpgOpenURL(const aURL: TfpgString);
+var
+  Helper: string;
+begin
+//TODO: Catch "which" command output to run the browser from there
+  Helper := '';
+  if FileExists('/etc/alternatives/x-www-browser') then
+    Helper := '/etc/alternatives/x-www-browser'
+  else
+  begin
+    if fpsystem('which opera') = 0 then
+      Helper := 'opera';
+    if fpsystem('which mozilla') = 0 then
+       Helper := 'mozilla';
+    if fpsystem('which konqueror') = 0 then
+      Helper := 'konqueror';
+    if fpsystem('which firefox') = 0 then
+      Helper := 'firefox';
+  end;
+
+  fpSystem(Helper + ' ' + aURL + '&');
+end;