Basic ListView CSS styling

1 files changed, 5 insertions, 5 deletions

diff --git a/UFileTypeSettings.pas b/UFileTypeSettings.pas
index f868715..de89fd1 100644
--- a/UFileTypeSettings.pas
+++ b/UFileTypeSettings.pas
@@ -97,7 +97,7 @@ var Column: TGTKTreeViewColumn;
     l: TGTKLabel;
 begin
   FUseGnomeIconEntry := Assigned(gnome_icon_entry_new) and Assigned(gnome_icon_entry_get_filename) and Assigned(gnome_icon_entry_set_filename);
-  SetDefaultSize(450, 620);
+  SetDefaultSize(470, 700);
   Caption := LANGEditFileTypesCaption;
   Buttons := [mbOK, mbCancel];
   TitleEventBox := TGTKEventBox.Create(Self);
@@ -230,12 +230,12 @@ begin
   DescriptionLabel.UseUnderline := True;
   Grid := TGTKGrid.Create(Self);
   Grid.RowHomogeneous := False;
-  Grid.ColHomogeneous := False;
+  Grid.ColHomogeneous := True;
   Grid.RowSpacing := 1;
   Grid.AddControl(0, 0, 1, 1, DescriptionLabel);
-  Grid.AddControl(1, 0, 3, 1, DescriptionEntry);
+  Grid.AddControl(1, 0, 4, 1, DescriptionEntry);
   Grid.AddControl(0, 1, 1, 1, CommandLabel);
-  Grid.AddControl(1, 1, 3, 1, CommandEntry);
+  Grid.AddControl(1, 1, 4, 1, CommandEntry);
   ActionsHBox2.Homogeneous := False;
   ActionsHBox2.AddControlEx(AutodetectCheckBox, True, True, 5);
   ActionsHBox2.AddControlEx(RunInTerminalCheckBox, True, True, 5);
@@ -431,7 +431,7 @@ begin
             Item.ActionList.Add(Action)
           end;
       end;
-      IntAssocList.Add(Item);    
+      IntAssocList.Add(Item);
     end;
 end;