From 16a8535f4fb91c374a4ecb3b6bac726ee1e19eeb Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 5 Feb 2005 14:46:09 +0000
Subject: [PATCH] fixed compilation

git-svn-id: trunk@6746 -
---
 debugger/dbgutils.pp                | 4 +++-
 lcl/interfaces/gtk/gtkwsstdctrls.pp | 3 ++-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/debugger/dbgutils.pp b/debugger/dbgutils.pp
index 672f14686c..90eb01acc4 100644
--- a/debugger/dbgutils.pp
+++ b/debugger/dbgutils.pp
@@ -255,7 +255,6 @@ var
   i: Integer;
 begin
   Result:=AText;
-  Escape := False;
   i:=1;
   while i<length(Result) do begin
     if Result[i]=AEscapeChar then
@@ -317,6 +316,9 @@ initialization
 end.
 { =============================================================================
   $Log$
+  Revision 1.13  2005/02/05 14:46:09  mattias
+  fixed compilation
+
   Revision 1.12  2005/02/05 14:06:13  marc
   * Applied (modified) patch from Colin Western
 
diff --git a/lcl/interfaces/gtk/gtkwsstdctrls.pp b/lcl/interfaces/gtk/gtkwsstdctrls.pp
index b269840aeb..e684228da1 100644
--- a/lcl/interfaces/gtk/gtkwsstdctrls.pp
+++ b/lcl/interfaces/gtk/gtkwsstdctrls.pp
@@ -752,7 +752,8 @@ begin
   if WidgetGetSelStart(Widget)=NewStart then exit;
   // sometimes the gtk freezes the memo, canges something and emits the change
   // event. Then the LCL gets notified and wants to react: force thaw (unfreeze)
-  gtk_text_thaw(PGtkText(Widget));
+  if GTK_IS_TEXT(Widget) then
+    gtk_text_thaw(PGtkText(Widget));
   gtk_editable_set_position(PGtkOldEditable(Widget), NewStart);
 end;