From db4f915436fd5f82e2b6ae41331654f5b0f4062f Mon Sep 17 00:00:00 2001 From: lazarus-bart Date: Wed, 22 Feb 2012 17:54:51 +0000 Subject: [PATCH] Disable commandline parameter handling on Darwin git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2309 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- applications/lazedit/main.pp | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/applications/lazedit/main.pp b/applications/lazedit/main.pp index 5504c5824..73f41abf5 100644 --- a/applications/lazedit/main.pp +++ b/applications/lazedit/main.pp @@ -1558,6 +1558,7 @@ begin if Dummy = 12345 then Exit; //Get rid of annoying hint Count := 0; OpenBlankPage := False; + {$ifndef darwin} for i := 1 to ParamCount do begin S := ParamStrUtf8(i); @@ -1574,6 +1575,9 @@ begin end else if S = opt_short_prefix + opt_short_blankpage then OpenBlankPage := True; end; + {$else} + OpenBlankPage := True; //we cannot pass -n on darwin, so offer blank page to the user + {$endif} if (Count = 0) and OpenBlankPage then DoFileNewByType(eftNone); end; @@ -1583,6 +1587,7 @@ var i: Integer; begin //debugln('TLazEditMainForm.ParseCommandlineSwitches'); + {$ifndef darwin} _PCP := EmptyStr; for i := 1 to ParamCount do begin @@ -1601,6 +1606,7 @@ begin //inifiles uses system-encoding ConfigFileDir := Utf8ToSys(_PCP); end; + {$endif} end;