diff --git a/src/game/g_holmes.pas b/src/game/g_holmes.pas
index 166cb61b7f9039a4c304f55c2c58a8e933085f3f..60aa34b159d10418be898938321f893d87d8c09c 100644 (file)
--- a/src/game/g_holmes.pas
+++ b/src/game/g_holmes.pas
-(* 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
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
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);