From a92a30ab4736fa021ebdc52913e3cbcaf9469383 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 17 Aug 2002 23:41:09 +0000
Subject: [PATCH] more localization for gtk- and win32-interface and lcl

git-svn-id: trunk@2236 -
---
 lcl/arrow.pp                     |  2 +-
 lcl/controls.pp                  |  8 ++++++--
 lcl/include/hkeys.inc            |  5 +++++
 lcl/include/menubar.inc          | 14 +++++---------
 lcl/include/scrolledwindow.inc   |  9 +++++++--
 lcl/interfaces/gnome/gnomeint.pp |  5 ++++-
 6 files changed, 28 insertions(+), 15 deletions(-)

diff --git a/lcl/arrow.pp b/lcl/arrow.pp
index a0ebcd6370..ccfaae8f5c 100644
--- a/lcl/arrow.pp
+++ b/lcl/arrow.pp
@@ -26,7 +26,7 @@
 @author(Shane Miller)
 @created(05 Dev 2001)
 }
-unit arrow;
+unit Arrow;
 
 {$mode objfpc}{$H+}
 
diff --git a/lcl/controls.pp b/lcl/controls.pp
index a4aeb549ad..e75c1f0bcb 100644
--- a/lcl/controls.pp
+++ b/lcl/controls.pp
@@ -39,8 +39,9 @@ interface
 {$ENDIF}
 
 uses
-  Classes, SysUtils, vclglobals, LCLType, LCLProc, GraphType, Graphics,
-  LMessages, LCLLinux, InterfaceBase, ImgList, UTrace, Menus, ActnList;
+  Classes, SysUtils, LCLStrConsts, vclglobals, LCLType, LCLProc,
+  GraphType, Graphics, LMessages, LCLLinux, InterfaceBase, ImgList, UTrace,
+  Menus, ActnList;
 
 
 const
@@ -1443,6 +1444,9 @@ end.
 { =============================================================================
 
   $Log$
+  Revision 1.105  2003/03/11 07:46:43  mattias
+  more localization for gtk- and win32-interface and lcl
+
   Revision 1.104  2003/03/09 17:44:12  mattias
   finshed Make Resourcestring dialog and implemented TToggleBox
 
diff --git a/lcl/include/hkeys.inc b/lcl/include/hkeys.inc
index bdfa9b237d..ab61953afb 100644
--- a/lcl/include/hkeys.inc
+++ b/lcl/include/hkeys.inc
@@ -1,3 +1,4 @@
+// included by vclglobals.pp
 {
   $Id$
 
@@ -101,9 +102,13 @@ const
   key_Escape    = $1b;
   key_Delete    = $7f;
 
+// included by vclglobals.pp
 
 {
   $Log$
+  Revision 1.3  2003/03/11 07:46:43  mattias
+  more localization for gtk- and win32-interface and lcl
+
   Revision 1.2  2002/05/10 06:05:52  lazarus
   MG: changed license to LGPL
 
diff --git a/lcl/include/menubar.inc b/lcl/include/menubar.inc
index 570cd56557..fbcae69fc2 100644
--- a/lcl/include/menubar.inc
+++ b/lcl/include/menubar.inc
@@ -1,3 +1,4 @@
+// included by menus.pp
 {
  *****************************************************************************
  *                                                                           *
@@ -15,21 +16,13 @@
 {---------------------------------------------------------------------------------------------}
 constructor TMenuBar.Create(AOwner: TComponent);
 begin
-   Assert(False, 'Trace:TMenuBar.Create');
    Inherited Create(AOwner);
-   Assert(False, 'Trace:Back from TMenuBar inherited Create');
-//   fCompStyle := csMenuBar;
-//   CreateComponent(AOwner);
-//   fOwner := TControl(AOwner);
 end;
 
 {-----------------------------------------------------------------------------}
 procedure TMenuBar.Show;
 begin
-//   AddControl;
-   Assert(False, 'Trace:In Menubar.show');
-//   Inherited Show;
-   Assert(False, 'Trace:In Menubar.show');
+
 end;
 
 {---------------------------------------------------------------------------------------------}
@@ -46,3 +39,6 @@ begin
 //   gtk_menu_item_set_submenu(GTK_MENU_ITEM(TControl(fMenu).fComponent), TControl(Menu).fComponent);
 //   gtk_menu_bar_append(GTK_MENU_BAR(fComponent), TControl(fMenu).fComponent);
 end;
+
+// included by menus.pp
+
diff --git a/lcl/include/scrolledwindow.inc b/lcl/include/scrolledwindow.inc
index 1ad430d718..c7dee82688 100644
--- a/lcl/include/scrolledwindow.inc
+++ b/lcl/include/scrolledwindow.inc
@@ -1,3 +1,5 @@
+// included by controls.pp
+
 {
  *****************************************************************************
  *                                                                           *
@@ -27,7 +29,7 @@ begin
   Height := 500;
   Width := 300;
 
-AddControl;
+  AddControl;
 end;
 
 {------------------------------------------------------------------------------}
@@ -35,5 +37,8 @@ end;
 {------------------------------------------------------------------------------}
 destructor TScrolledWindow.Destroy;
 begin
- inherited Destroy;
+  inherited Destroy;
 end;
+
+// included by controls.pp
+
diff --git a/lcl/interfaces/gnome/gnomeint.pp b/lcl/interfaces/gnome/gnomeint.pp
index b2567548fc..73b0d0dc48 100644
--- a/lcl/interfaces/gnome/gnomeint.pp
+++ b/lcl/interfaces/gnome/gnomeint.pp
@@ -22,7 +22,7 @@
  *****************************************************************************
  }
 
-unit GNOMEInt;
+unit GnomeInt;
 
 {$mode objfpc}
 {$LONGSTRINGS ON}
@@ -246,6 +246,9 @@ end.
 
 {
   $Log$
+  Revision 1.16  2003/03/11 07:46:44  mattias
+  more localization for gtk- and win32-interface and lcl
+
   Revision 1.15  2002/02/09 01:48:23  mattias
   renamed TinterfaceObject.Init to AppInit and TWinControls can now contain childs in gtk