From af43c121dc4dc0b7831125869c943c20bd010da0 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 29 Apr 2007 10:35:23 +0000
Subject: [PATCH] codetools: examples: omit implementation section

git-svn-id: trunk@11026 -
---
 .../codetools/examples/listinterfaceclasses.pas       |  4 +++-
 lcl/interfaces/gtk2/gtk2wsstdctrls.pp                 | 11 +++++++++++
 2 files changed, 14 insertions(+), 1 deletion(-)

diff --git a/components/codetools/examples/listinterfaceclasses.pas b/components/codetools/examples/listinterfaceclasses.pas
index e1970cd8f3..8b0d6aae7b 100644
--- a/components/codetools/examples/listinterfaceclasses.pas
+++ b/components/codetools/examples/listinterfaceclasses.pas
@@ -51,7 +51,9 @@ begin
     and ((Node.SubDesc and ctnsForwardDeclaration)=0) then begin
       CurClassName:=Tool.ExtractClassName(Node,false);
       writeln(CurClassName);
-    end;
+    end
+    else if Node.Desc=ctnImplementation then
+      break;
     Node:=Node.Next;
   end
 end.
diff --git a/lcl/interfaces/gtk2/gtk2wsstdctrls.pp b/lcl/interfaces/gtk2/gtk2wsstdctrls.pp
index 7393607e08..28948ab937 100644
--- a/lcl/interfaces/gtk2/gtk2wsstdctrls.pp
+++ b/lcl/interfaces/gtk2/gtk2wsstdctrls.pp
@@ -171,6 +171,7 @@ type
     class function  CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): TLCLIntfHandle; override;
     class function  GetSelStart(const ACustomEdit: TCustomEdit): integer; override;
     class function  GetSelLength(const ACustomEdit: TCustomEdit): integer; override;
+    class procedure SetEchoMode(const ACustomEdit: TCustomEdit; NewMode: TEchoMode); override;
   end;
 
   { TGtk2WSCustomMemo }
@@ -674,6 +675,16 @@ begin
   Result :=  ABS(Entry^.current_pos - Entry^.selection_bound);
 end;
 
+class procedure TGtk2WSCustomEdit.SetEchoMode(const ACustomEdit: TCustomEdit;
+  NewMode: TEchoMode);
+var
+  Entry: PGtkEntry;
+begin
+  inherited SetEchoMode(ACustomEdit, NewMode);
+  Entry := PGtkEntry(ACustomEdit.Handle);
+  gtk_entry_append_text();
+end;
+
 class procedure TGtk2WSCustomComboBox.ReCreateCombo(
   const ACustomComboBox: TCustomComboBox; const AWithEntry: Boolean;
   const AWidgetInfo: PWidgetInfo);