Rename all form to unit end by window and use snakecase

emeric-martineau · Nov 21, 2021 · 413b93e · 413b93e
1 parent 29bfba2
commit 413b93e
Show file tree

Hide file tree

Showing 14 changed files with 20 additions and 17 deletions.
diff --git a/src/aboutwindow.pas b/src/aboutwindow.pas
@@ -1,4 +1,4 @@
-unit aboutwindow;
+unit AboutWindow;
 
 {$mode objfpc}{$H+}
 

diff --git a/src/backgroundprocessprogressbar.pas b/src/backgroundprocessprogressbar.pas
@@ -9,7 +9,7 @@
 @author(Emeric MARTINEAU)
 @created(2021)
 }
-unit backgroundprocessprogressbar;
+unit BackgroundProcessProgressBar;
 
 {$mode objfpc}{$H+}
 

diff --git a/src/distributionpropertieswindow.pas b/src/distributionpropertieswindow.pas
@@ -1,4 +1,4 @@
-unit distributionpropertieswindow;
+unit DistributionPropertiesWindow;
 
 {$mode objfpc}{$H+}
 

diff --git a/src/importdistribution.lfm → src/importdistributionwindow.lfm b/src/importdistribution.lfm → src/importdistributionwindow.lfm
diff --git a/src/importdistribution.pas → src/importdistributionwindow.pas b/src/importdistribution.pas → src/importdistributionwindow.pas
@@ -1,4 +1,4 @@
-unit importdistribution;
+unit ImportDistributionWindow;
 
 {$mode objfpc}{$H+}
 

diff --git a/src/mainwindow.pas b/src/mainwindow.pas
@@ -1,4 +1,4 @@
-unit mainwindow;
+unit MainWindow;
 
 {$mode objfpc}{$H+}
 
@@ -8,8 +8,8 @@ interface
 
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, ComCtrls,
-  AboutWindow, ActnList, DistributionPropertiesWindow, ImportDistribution,
-  RunCommandWithUser, Prompt,
+  AboutWindow, ActnList, DistributionPropertiesWindow, importdistributionwindow,
+  RunCommandWithUserWindow, PromptWindow,
   // For MB_xxxx dialog flags
   LCLType, Menus,
   // Wsl interface
@@ -445,7 +445,7 @@ procedure TWslGuiToolMainWindow.ToolButtonDuplicateClick(Sender: TObject);
 begin
   DistributionName := Format('%s-Copy', [WslDistributionList.Selected.Caption]);
 
-  if Prompt.Prompt(
+  if Prompt(
     Self,
     Format('Clone distribution "%s"', [WslDistributionList.Selected.Caption]),
     'Please enter the name of distribution:',

diff --git a/src/processresultdisplay.pas b/src/processresultdisplay.pas
@@ -1,4 +1,4 @@
-unit processresultdisplay;
+unit ProcessResultDisplay;
 
 {$mode objfpc}{$H+}
 

diff --git a/src/prompt.lfm → src/promptwindow.lfm b/src/prompt.lfm → src/promptwindow.lfm
diff --git a/src/prompt.pas → src/promptwindow.pas b/src/prompt.pas → src/promptwindow.pas
@@ -1,4 +1,4 @@
-unit prompt;
+unit promptwindow;
 
 {$mode objfpc}{$H+}
 

diff --git a/src/runcommandwithuser.lfm → src/runcommandwithuserwindow.lfm b/src/runcommandwithuser.lfm → src/runcommandwithuserwindow.lfm
diff --git a/src/runcommandwithuser.pas → src/runcommandwithuserwindow.pas b/src/runcommandwithuser.pas → src/runcommandwithuserwindow.pas
@@ -1,4 +1,4 @@
-unit runcommandwithuser;
+unit runcommandwithuserwindow;
 
 {$mode objfpc}{$H+}
 

diff --git a/src/wslguitool.lpi b/src/wslguitool.lpi
@@ -150,25 +150,28 @@
         <ResourceBaseClass Value="Form"/>
       </Unit7>
       <Unit8>
-        <Filename Value="importdistribution.pas"/>
+        <Filename Value="importdistributionwindow.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="FormImportDistribution"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
+        <UnitName Value="ImportDistributionWindow"/>
       </Unit8>
       <Unit9>
-        <Filename Value="runcommandwithuser.pas"/>
+        <Filename Value="runcommandwithuserwindow.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="FormRunCommandWithUser"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
+        <UnitName Value="RunCommandWithUserWindow"/>
       </Unit9>
       <Unit10>
-        <Filename Value="prompt.pas"/>
+        <Filename Value="promptwindow.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="FormPrompt"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
+        <UnitName Value="PromptWindow"/>
       </Unit10>
       <Unit11>
         <Filename Value="backgroundprocessprogressbar.pas"/>

diff --git a/src/wslguitool.lpr b/src/wslguitool.lpr
@@ -7,9 +7,9 @@
   cthreads,
   {$ENDIF}{$ENDIF}
   Interfaces, // this includes the LCL widgetset
-  Forms, mainwindow, WslApi, WslCommandLine, WslRegistry, ApplicationInfo,
-  aboutwindow, distributionpropertieswindow, importdistribution,
-  runcommandwithuser, prompt, backgroundprocessprogressbar, processresultdisplay;
+  Forms, MainWindow, WslApi, WslCommandLine, WslRegistry, ApplicationInfo,
+  AboutWindow, DistributionPropertiesWindow, ImportDistributionWindow,
+  RunCommandWithUserWindow, PromptWindow, BackgroundProcessProgressBar, ProcessResultDisplay;
 
 {$R *.res}
 

diff --git a/src/wslguitool.res b/src/wslguitool.res