paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 22:58:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazdaemon: set nicer default unit names

Browse Source 
git-svn-id: trunk@13283 -
This commit is contained in:
mattias 2007-12-11 23:06:44 +00:00
parent 74a4efaea6
commit 1ce240c0e6
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/daemon/reglazdaemon.pp
View File

@ -107,7 +107,7 @@ end;
function TDaemonFileDescriptor.GetInterfaceUsesSection: String;
begin
Result:=inherited GetInterfaceUsesSection+', daemonapp';
Result:=inherited GetInterfaceUsesSection+', DaemonApp';
end;
function TDaemonFileDescriptor.GetImplementationSource(const Filename,
@ -184,10 +184,10 @@ begin
Add('');
Add('Uses');
Add('{$IFDEF UNIX}{$IFDEF UseCThreads}');
Add(' cthreads,');
Add(' CThreads,');
Add('{$ENDIF}{$ENDIF}');
Add(' lazdaemon,');
Add(' daemonapp');
Add(' LazDaemon,');
Add(' DaemonApp');
Add(' { add your units here };');
Add('');
Add('begin');
@ -211,9 +211,9 @@ Var
begin
FD:=ProjectFileDescriptors.FindByName('Daemon Mapper');
O:=[nfIsPartOfProject,nfOpenInEditor,nfCreateDefaultSrc];
Result:=LazarusIDE.DoNewEditorFile(FD,'','',O);
Result:=LazarusIDE.DoNewEditorFile(FD,'DaemonMapperUnit1.pas','',O);
FD:=ProjectFileDescriptors.FindByName('Daemon Module');
Result:=LazarusIDE.DoNewEditorFile(FD,'','',O );
Result:=LazarusIDE.DoNewEditorFile(FD,'DaemonUnit1.pas','',O );
end;
{ TDaemonMapperDescriptor }
@ -238,7 +238,7 @@ end;
function TDaemonMapperDescriptor.GetInterfaceUsesSection: String;
begin
Result:=inherited GetInterfaceUsesSection+', daemonapp';
Result:=inherited GetInterfaceUsesSection+', DaemonApp';
end;
function TDaemonMapperDescriptor.GetImplementationSource(const Filename,

2
examples/cleandir/svccleandirs.pp
View File

@ -142,7 +142,7 @@ procedure TCleanDirsDaemon.CleanDirsDaemonStart(Sender: TCustomDaemon;
begin
StartLog;
{ Start should return immediatly. Therefor, a thread is started if
{ Start should return immediatly. Therefore, a thread is started if
one is not yet running. Usually, here one opens a TCP/IP socket
and starts listening }
OK:=(FThread=Nil) and (FConfigFile<>'');