Fixed a bug prevent user from creating GPT table

Kagamma · Aug 2, 2024 · a173ff6 · a173ff6
1 parent e931810
commit a173ff6
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/src/parted.devices.pas b/src/parted.devices.pas
@@ -103,6 +103,7 @@   TPartedDevice = record
 // Parse for device info from "parted -l -m" string
 function ParseDevicesFromStringArray(const SA: TStringDynArray): TPartedDeviceArray;
 function QueryDeviceArray: TPartedDeviceArray;
+// This is for checking device and partitions
 function QueryDeviceExists(const APath: String): TExecResult;
 function QueryCreateGPT(const APath: String): TExecResult;
 

diff --git a/src/ui.main.pas b/src/ui.main.pas
@@ -234,7 +234,6 @@ procedure TUIMain.HandleEvent(var E: TEvent);
           if not IsDeviceWindowOpened(LDevice^) then
           begin
             try
-              QueryDeviceExists(Path);
               QueryDeviceAndPartitions(Path, LDevice^);
               if LDevice^.Table = 'unknown' then // This device has no partition table, wanna create it?
               begin
@@ -246,6 +245,10 @@ procedure TUIMain.HandleEvent(var E: TEvent);
                   // Query for device again
                   QueryDeviceAndPartitions(Path, LDevice^);
                   LoadingStop;
+                end else
+                begin
+                  Self.ClearEvent(E);
+                  Exit;
                 end;
               end;
               LoadingStart(S_LoadingPartitions);