X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_holmes.pas;h=60aa34b159d10418be898938321f893d87d8c09c;hb=1bddfaf7b6421f1659a6f211dfdb1dfaef5d5173;hp=166cb61b7f9039a4c304f55c2c58a8e933085f3f;hpb=08b53e05935bfc8f5c8e6c18754fd3768917aa77;p=d2df-sdl.git

diff --git a/src/game/g_holmes.pas b/src/game/g_holmes.pas
index 166cb61..60aa34b 100644
--- a/src/game/g_holmes.pas
+++ b/src/game/g_holmes.pas
@@ -1,4 +1,4 @@
-(* Copyright (C)  DooM 2D:Forever Developers
+(* Copyright (C)  Doom 2D: Forever Developers
  *
  * This program is free software: you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -200,7 +200,7 @@ procedure createHelpWindow ();
       box.appendChild(stx);
       // span
       span := TUISpan.Create();
-      span.flDefaultSize := TLaySize.Create(4, 1);
+      span.flDefaultSize := TLaySize.Create(12, 1);
       span.flExpand := true;
       box.appendChild(span);
       // text
@@ -488,10 +488,15 @@ end;
 
 procedure toggleHelpWindow (arg: Integer=-1);
 begin
-  if (winHelp = nil) then createHelpWindow();
+  if (winHelp = nil) then
+  begin
+    if (arg = 0) then exit;
+    createHelpWindow();
+  end;
        if (arg < 0) then begin if not uiVisibleWindow(winHelp) then uiAddWindow(winHelp) else uiRemoveWindow(winHelp); end
   else if (arg = 0) then begin if uiVisibleWindow(winHelp) then uiRemoveWindow(winHelp); end
-  else begin if not uiVisibleWindow(winHelp) then uiAddWindow(winHelp); end
+  else begin if (not uiVisibleWindow(winHelp)) then uiAddWindow(winHelp); end;
+  if (not uiVisibleWindow(winHelp)) then FreeAndNil(winHelp);
 end;
 
 procedure toggleOptionsWindow (arg: Integer=-1);