paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 19:49:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

gtk2: move some code lines

Browse Source 
git-svn-id: trunk@15649 -
This commit is contained in:
paul 2008-07-02 08:45:28 +00:00
parent c3a8bbc5e1
commit 17a18c93f0
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/interfaces/gtk2/gtk2memostrings.inc
View File

@ -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;