From 111c34dec317a8ded95d15bf94cb2ffe72f91203 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Tue, 31 Mar 2020 13:15:27 +0000
Subject: [PATCH] Formatting.

git-svn-id: trunk@62830 -
---
 ide/codeexplorer.pas           | 24 +-----------------------
 lcl/interfaces/gtk2/gtk2def.pp |  4 ++--
 2 files changed, 3 insertions(+), 25 deletions(-)

diff --git a/ide/codeexplorer.pas b/ide/codeexplorer.pas
index b053dac5de..1969ec2602 100644
--- a/ide/codeexplorer.pas
+++ b/ide/codeexplorer.pas
@@ -766,37 +766,24 @@ var
   ClassIdentNode, HelperForNode, InhNode: TCodeTreeNode;
 begin
   Result:='?';
-
   try
     case CodeNode.Desc of
-
     ctnUnit, ctnProgram, ctnLibrary, ctnPackage:
       Result:=CodeNode.DescAsString+' '+ACodeTool.ExtractSourceName;
-
     ctnTypeSection:
       Result:='Type';
-
     ctnVarSection:
       Result:='Var';
-
     ctnConstSection:
       Result:='Const';
-
     ctnLabelSection:
       Result:='Label';
-
     ctnResStrSection:
       Result:='Resourcestring';
-
-    ctnVarDefinition,
-    ctnConstDefinition,
-    ctnEnumIdentifier,
-    ctnLabel:
+    ctnVarDefinition, ctnConstDefinition, ctnEnumIdentifier, ctnLabel:
       Result:=ACodeTool.ExtractIdentifier(CodeNode.StartPos);
-
     ctnUseUnit:
       Result:=ACodeTool.ExtractDottedIdentifier(CodeNode.StartPos);
-
     ctnTypeDefinition:
       begin
         Result:=ACodeTool.ExtractIdentifier(CodeNode.StartPos);
@@ -814,36 +801,27 @@ begin
             Result:=Result+' '+ACodeTool.ExtractNode(HelperForNode,[]);
         end;
       end;
-
     ctnGenericType:
       Result:=ACodeTool.ExtractDefinitionName(CodeNode);
-
     ctnClass,ctnObject,ctnObjCClass,ctnObjCCategory,ctnObjCProtocol,
     ctnClassInterface,ctnCPPClass:
       Result:='('+ACodeTool.ExtractClassInheritance(CodeNode,[])+')';
-
     ctnProcedure:
       Result:=ACodeTool.ExtractProcHead(CodeNode,
                     [// phpWithStart is no needed because there are icons
                      phpWithVarModifiers,
                      phpWithParameterNames,phpWithDefaultValues,phpWithResultType,
                      phpWithOfObject]);
-
     ctnProcedureHead:
       Result:='Procedure Header';
-
     ctnProperty:
       Result:=ACodeTool.ExtractPropName(CodeNode,false); // property keyword is not needed because there are icons
-
     ctnInterface:
       Result:='Interface';
-
     ctnBeginBlock:
       Result:='Begin block';
-
     ctnAsmBlock:
       Result:='Asm block';
-
     else
       Result:=CodeNode.DescAsString;
     end;
diff --git a/lcl/interfaces/gtk2/gtk2def.pp b/lcl/interfaces/gtk2/gtk2def.pp
index d0308988a4..60de3178b0 100644
--- a/lcl/interfaces/gtk2/gtk2def.pp
+++ b/lcl/interfaces/gtk2/gtk2def.pp
@@ -477,8 +477,8 @@ type
     ExStyle: Integer;
     EventMask: TGdkEventMask;
     DoubleBuffer: PGdkPixmap;
-    CursorPos: integer;               // needed for delayed SetSelStart
-    SelLength: integer;               // needed for delayed SetSelLength
+    CursorPos: integer;
+    SelLength: integer;
     ControlCursor: HCursor;           // current widget cursor
     Flags: TWidgetInfoFlags;
     ChangeLock: Integer;              // lock events