Holmes UI window title fix

[d2df-sdl.git] / src / game / g_holmes.pas

diff --git a/src/game/g_holmes.pas b/src/game/g_holmes.pas
index 1222cd6c73da25c92ce45a6b16c643137e5bdea8..f97952b57b69047e50a7fc5ed12e8659fea4fb9c 100644 (file)
--- a/src/game/g_holmes.pas
+++ b/src/game/g_holmes.pas
@@ -297,7 +297,7 @@ begin
   llb.appendItem('acid2', @g_rlayer_acid2);
   llb.appendItem('water', @g_rlayer_water);
   llb.appendItem('foreground', @g_rlayer_fore);
-  winLayers := THTopWindow.Create('visible', 10, 10);
+  winLayers := THTopWindow.Create('layers', 10, 10);
   winLayers.escClose := true;
   winLayers.appendChild(llb);
   winLayers.closeCB := winLayersClosed;
@@ -904,10 +904,12 @@ end;
 function g_Holmes_KeyEvent (var ev: THKeyEvent): Boolean;
 var
   mon: TMonster;
-  pan: TPanel;
   x, y, w, h: Integer;
+  {$IF DEFINED(D2F_DEBUG)}
+  pan: TPanel;
   ex, ey: Integer;
   dx, dy: Integer;
+  {$ENDIF}
 
   procedure dummyWallTrc (cx, cy: Integer);
   begin