1 files changed, 4 insertions, 0 deletions
diff --git a/UViewer.pas b/UViewer.pas
index a80a434..6e5fe85 100644
--- a/UViewer.pas
+++ b/UViewer.pas
@@ -42,6 +42,7 @@ type
   private
 //    LineHeight, NumLines: integer;
     LineBuffer: TStringList;
+    window_group: PGtkWindowGroup;
     procedure ApplyFont;
   protected
     AThread: TThread;
@@ -76,6 +77,8 @@ function scroll_event_callback(widget: PGtkWidget; event: PGdkEventScroll; user_
 
 procedure TFViewer.FormCreate(Sender: TObject);
 begin
+  window_group := gtk_window_group_new();
+  gtk_window_group_add_window(window_group, PGtkWindow(FWidget));
   SetDefaultSize(700, 500);
   Caption := 'TuxView';
   BorderWidth := 5;
@@ -140,6 +143,7 @@ procedure TFViewer.FormDestroy(Sender: TObject);
 begin
   try
     LineBuffer.Free;
+    g_object_unref(window_group);
   except end;
 end;