Move viewer windows to separate window groups

Each viewer window now belongs to its own window group so
they can't influence each other. Works nicely when opened
from Search dialog too. Finally, no need to make separate
viewer app.

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;