added xdg-open to the lists of web browsers

git-svn-id: trunk@15843 -

examples/openbrowser/mainunit.lfm

@@ -1,27 +1,28 @@
 object Form1: TForm1
+  Left = 302
+  Height = 300
+  Top = 168
+  Width = 439
   Caption = 'Form1'
   ClientHeight = 300
   ClientWidth = 439
   OnCreate = FormCreate
-  PixelsPerInch = 112
+  LCLVersion = '0.9.25'
-  HorzScrollBar.Page = 438
-  VertScrollBar.Page = 299
-  Left = 290
-  Height = 300
-  Top = 163
-  Width = 439
   object OpenLazarusButton: TButton
+    Left = 190
+    Height = 29
+    Top = 80
+    Width = 221
     AutoSize = True
-    
     Caption = 'Open www.lazarus.freepascal.org'
     OnClick = OpenLazarusButtonClick
     TabOrder = 0
-    Left = 190
-    Height = 26
-    Top = 80
-    Width = 197
   end
   object BrowserRadioGroup: TRadioGroup
+    Left = 25
+    Height = 267
+    Top = 10
+    Width = 150
     AutoFill = True
     Caption = 'Browser'
     ChildSizing.LeftRightSpacing = 6
@@ -32,8 +33,11 @@ object Form1: TForm1
     ChildSizing.ShrinkVertical = crsScaleChilds
     ChildSizing.Layout = cclLeftToRightThenTopToBottom
     ChildSizing.ControlsPerLine = 1
-    ItemIndex = 3
+    ClientHeight = 248
+    ClientWidth = 146
+    ItemIndex = 4
     Items.Strings = (
+      'xdg-open'
       'Firefox'
       'Galeon'
       'Konqueror'
@@ -42,9 +46,5 @@ object Form1: TForm1
       'Opera'
     )
     TabOrder = 1
-    Left = 25
-    Height = 267
-    Top = 10
-    Width = 150
   end
 end

examples/openbrowser/mainunit.lrs

@@ -1,18 +1,20 @@
+{ This is an automatically generated lazarus resource file }
+
 LazarusResources.Add('TForm1','FORMDATA',[
-  'TPF0'#6'TForm1'#5'Form1'#7'Caption'#6#5'Form1'#12'ClientHeight'#3','#1#11'Cl'
+  'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'.'#1#6'Height'#3','#1#3'Top'#3#168#0#5'Wi'
-  +'ientWidth'#3#183#1#8'OnCreate'#7#10'FormCreate'#13'PixelsPerInch'#2'p'#18'H'
+  +'dth'#3#183#1#7'Caption'#6#5'Form1'#12'ClientHeight'#3','#1#11'ClientWidth'#3
-  +'orzScrollBar.Page'#3#182#1#18'VertScrollBar.Page'#3'+'#1#4'Left'#3'"'#1#6'H'
+  +#183#1#8'OnCreate'#7#10'FormCreate'#10'LCLVersion'#6#6'0.9.25'#0#7'TButton'
-  +'eight'#3','#1#3'Top'#3#163#0#5'Width'#3#183#1#0#7'TButton'#17'OpenLazarusBu'
+  +#17'OpenLazarusButton'#4'Left'#3#190#0#6'Height'#2#29#3'Top'#2'P'#5'Width'#3
-  +'tton'#8'AutoSize'#9#7'Caption'#6#31'Open www.lazarus.freepascal.org'#7'OnCl'
+  +#221#0#8'AutoSize'#9#7'Caption'#6#31'Open www.lazarus.freepascal.org'#7'OnCl'
-  +'ick'#7#22'OpenLazarusButtonClick'#8'TabOrder'#2#0#4'Left'#3#190#0#6'Height'
+  +'ick'#7#22'OpenLazarusButtonClick'#8'TabOrder'#2#0#0#0#11'TRadioGroup'#17'Br'
-  +#2#26#3'Top'#2'P'#5'Width'#3#197#0#0#0#11'TRadioGroup'#17'BrowserRadioGroup'
+  +'owserRadioGroup'#4'Left'#2#25#6'Height'#3#11#1#3'Top'#2#10#5'Width'#3#150#0
   +#8'AutoFill'#9#7'Caption'#6#7'Browser'#28'ChildSizing.LeftRightSpacing'#2#6
   +#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24
   +'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenou'
   +'sChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'Chil'
   +'dSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cc'
-  +'lLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#9'ItemInde'
+  +'lLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#12'ClientH'
-  +'x'#2#3#13'Items.Strings'#1#6#7'Firefox'#6#6'Galeon'#6#9'Konqueror'#6#7'Mozi'
+  +'eight'#3#248#0#11'ClientWidth'#3#146#0#9'ItemIndex'#2#4#13'Items.Strings'#1
-  +'lla'#6#8'Netscape'#6#5'Opera'#0#8'TabOrder'#2#1#4'Left'#2#25#6'Height'#3#11
+  +#6#8'xdg-open'#6#7'Firefox'#6#6'Galeon'#6#9'Konqueror'#6#7'Mozilla'#6#8'Nets'
-  +#1#3'Top'#2#10#5'Width'#3#150#0#0#0#0
+  +'cape'#6#5'Opera'#0#8'TabOrder'#2#1#0#0#0
 ]);

ide/include/unix/lazbaseconf.inc

@@ -165,6 +165,7 @@ begin
   Params:='%s';
   Browser:='';
   // prefer open source ;)
+  if Find('xdg-open',Browser) then exit;
   if Find('mozilla',Browser) then exit;
   if Find('galeon',Browser) then exit;
   if Find('konqueror',Browser) then exit;

lcl/lazhelphtml.pas

@@ -419,6 +419,7 @@ begin
   if FDefaultBrowser='' then begin
     // Then search in path. Prefer open source ;)
     if Find('htmlview')
+    or Find('xdg-open')
     or Find('firefox')
     or Find('mozilla')
     or Find('galeon')