From 17a18c93f0794add14f18932b8623951d637f4d3 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Wed, 2 Jul 2008 08:45:28 +0000
Subject: [PATCH] gtk2: move some code lines

git-svn-id: trunk@15649 -
---
 lcl/interfaces/gtk2/gtk2memostrings.inc | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/lcl/interfaces/gtk2/gtk2memostrings.inc b/lcl/interfaces/gtk2/gtk2memostrings.inc
index a5fafd9274..17fdec7cab 100644
--- a/lcl/interfaces/gtk2/gtk2memostrings.inc
+++ b/lcl/interfaces/gtk2/gtk2memostrings.inc
@@ -97,12 +97,13 @@ begin
   // if a row is blank gtk_text_iter_forward_to_line_end will goto the row ahead
   // this is not desired. so if it jumped ahead a row then the row we want is blank
   if gtk_text_iter_get_line(@StartIter) = gtk_text_iter_get_line(@EndIter) then
-    AText := gtk_text_iter_get_text(@StartIter, @EndIter)
-  else
-    AText := nil;
-  Result := StrPas(AText);
-  if AText <> nil then
+  begin
+    AText := gtk_text_iter_get_text(@StartIter, @EndIter);
+    Result := StrPas(AText);
     g_free(AText);
+  end
+  else
+    Result := '';
 end;
 
 constructor TGtk2MemoStrings.Create(TextView: PGtkTextView;