From eb5ca6d8d6c6db79b456cf5d42aac9c70f4260a6 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Fri, 20 Nov 2009 07:45:23 +0000
Subject: [PATCH] gtk: fix word wrapping of TStaticText (issue #0015078)

git-svn-id: trunk@22687 -
---
 lcl/interfaces/gtk/gtkwsstdctrls.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/interfaces/gtk/gtkwsstdctrls.pp b/lcl/interfaces/gtk/gtkwsstdctrls.pp
index 64177864cc..c2ce6576a9 100644
--- a/lcl/interfaces/gtk/gtkwsstdctrls.pp
+++ b/lcl/interfaces/gtk/gtkwsstdctrls.pp
@@ -1571,7 +1571,7 @@ begin
 
   if TStaticText(AWinControl).ShowAccelChar then
   begin
-    DC := Widgetset.GetDC(HDC(PtrUInt(GetStyleWidget(lgsLabel))));
+    DC := Widgetset.GetDC(HWND(PtrUInt(LblWidget)));
     ALabel := TGtkWidgetSet(WidgetSet).ForceLineBreaks(
                           DC, PChar(AText), TStaticText(AWinControl).Width, false);
     Widgetset.DeleteDC(DC);