added finnish translation

git-svn-id: trunk@5074 -

.gitattributes

@@ -790,6 +790,7 @@ images/uparrow.xpm -text svneol=native#image/x-xpixmap
 languages/lazaruside.ca.po svneol=native#text/plain
 languages/lazaruside.de.po svneol=native#text/plain
 languages/lazaruside.es.po svneol=native#text/plain
+languages/lazaruside.fi.po svneol=native#text/plain
 languages/lazaruside.fr.po svneol=native#text/plain
 languages/lazaruside.it.po svneol=native#text/plain
 languages/lazaruside.pl.po svneol=native#text/plain

components/codetools/languages/codetools.ca.po

@@ -286,6 +286,10 @@ msgstr "el tipus d'expressi
 msgid "file \"%s\" does not exist"
 msgstr "el fitxer \"%s\" no existeix"
 
+#: codetoolsstrconsts:ctsfileisreadonly
+msgid "file is read only"
+msgstr ""
+
 #: codetoolsstrconsts:ctsforward
 msgid "Forward"
 msgstr "Avançar"

components/codetools/languages/codetools.de.po

@@ -286,6 +286,10 @@ msgstr ""
 msgid "file \"%s\" does not exist"
 msgstr ""
 
+#: codetoolsstrconsts:ctsfileisreadonly
+msgid "file is read only"
+msgstr ""
+
 #: codetoolsstrconsts:ctsforward
 msgid "Forward"
 msgstr "Forward"

components/codetools/languages/codetools.fr.po

@@ -296,6 +296,10 @@ msgstr "le type d'expression doit
 msgid "file \"%s\" does not exist"
 msgstr "le fichier \"%s\" n'existe pas"
 
+#: codetoolsstrconsts:ctsfileisreadonly
+msgid "file is read only"
+msgstr ""
+
 #: codetoolsstrconsts:ctsforward
 msgid "Forward"
 msgstr "Vers l'avant"

components/codetools/languages/codetools.it.po

@@ -295,6 +295,10 @@ msgstr "il tipo di espressione deve essere di tipo classe o record"
 msgid "file \"%s\" does not exist"
 msgstr "il file \"%s\" non esite"
 
+#: codetoolsstrconsts:ctsfileisreadonly
+msgid "file is read only"
+msgstr ""
+
 #: codetoolsstrconsts:ctsforward
 msgid "Forward"
 msgstr "Avanti"

components/codetools/languages/codetools.pl.po

@@ -296,6 +296,10 @@ msgstr "wyra
 msgid "file \"%s\" does not exist"
 msgstr "plik \"%s\" nie istnieje"
 
+#: codetoolsstrconsts:ctsfileisreadonly
+msgid "file is read only"
+msgstr ""
+
 #: codetoolsstrconsts:ctsforward
 msgid "Forward"
 msgstr "Naprzód"

components/codetools/languages/codetools.po

@@ -34,6 +34,10 @@ msgstr ""
 msgid "Include circle detected"
 msgstr ""
 
+#: codetoolsstrconsts:ctsfileisreadonly
+msgid "file is read only"
+msgstr ""
+
 #: codetoolsstrconsts:ctscommentendnotfound
 msgid "Comment end not found"
 msgstr ""

components/codetools/languages/codetools.ru.po

@@ -286,6 +286,10 @@ msgstr "
 msgid "file \"%s\" does not exist"
 msgstr "ÆÁÊÌ \"%s\" ÎÅ ÓÕÝÅÓÔ×ÕÅÔ"
 
+#: codetoolsstrconsts:ctsfileisreadonly
+msgid "file is read only"
+msgstr ""
+
 #: codetoolsstrconsts:ctsforward
 msgid "Forward"
 msgstr ""

components/codetools/languages/codetools.ruwin.po

@@ -286,6 +286,10 @@ msgstr "
 msgid "file \"%s\" does not exist"
 msgstr "ôàéë \"%s\" íå ñóùåñòâóåò"
 
+#: codetoolsstrconsts:ctsfileisreadonly
+msgid "file is read only"
+msgstr ""
+
 #: codetoolsstrconsts:ctsforward
 msgid "Forward"
 msgstr ""

lcl/interfaces/gtk/gtkproc.inc

@@ -594,6 +594,72 @@ begin
     Move(ClassPGChar[0],Result[1],ClassLen);
 end;
 
+function GetWidgetDebugReport(Widget: PGtkWidget): string;
+var
+  LCLObject: TObject;
+  AWinControl: TWinControl;
+  MainWidget: PGtkWidget;
+  WinWidgetInfo: PWinWidgetInfo;
+  FixedWidget: PGTKWidget;
+begin
+  Result:=HexStr(Cardinal(Widget),8);
+  if Widget=nil then exit;
+  Result:=Result+'='+GetWidgetClassName(Widget);
+  LCLObject:=GetParentLCLObject(Widget);
+  Result:=Result+' LCLObject='+HexStr(Cardinal(LCLObject),8);
+  if LCLObject=nil then exit;
+  if LCLObject is TControl then
+    Result:=Result+'='+TControl(LCLObject).Name+':'+LCLObject.ClassName
+  else
+    Result:=Result+'='+LCLObject.ClassName;
+  if LCLObject is TWinControl then begin
+    AWinControl:=TWinControl(LCLObject);
+    if AWinControl.HandleAllocated then begin
+      MainWidget:=PGTKWidget(AWinControl.Handle);
+      if MainWidget=Widget then begin
+        Result:=Result+'<Is MainWidget>';
+      end else begin
+        Result:=Result+'<MainWidget='+HexStr(Cardinal(MainWidget),8)
+                      +'='+GetWidgetClassName(MainWidget)+'>';
+      end;
+      FixedWidget:=GetFixedWidget(MainWidget);
+      if FixedWidget=Widget then
+        Result:=Result+'<Is FixedWidget>';
+      WinWidgetInfo:=GetWidgetInfo(MainWidget,false);
+      if WinWidgetInfo<>nil then begin
+        if WinWidgetInfo^.ImplementationWidget=Widget then
+          Result:=Result+'<Is ImplementationWidget>';
+      end;
+    end else begin
+      Result:=Result+'<NOT HandleAllocated>'
+    end;
+  end;
+end;
+
+function GetWindowDebugReport(AWindow: PGDKWindow): string;
+var
+  p: Pgpointer;
+  Widget: PGtkWidget;
+begin
+  Result:=HexStr(Cardinal(AWindow),8);
+  if AWindow=nil then exit;
+  p:=nil;
+  gdk_window_get_user_data(AWindow,p);
+  if GtkWidgetIsA(PGTKWidget(p),GTK_WIDGET_TYPE) then begin
+    Widget:=PGTKWidget(p);
+    Result:=Result+'<Widget['+GetWidgetDebugReport(Widget)+']>';
+  end else begin
+    Result:=Result+'<Data='+HexStr(Cardinal(p),8)+']>';
+  end;
+end;
+
+function GetDrawableDebugReport(ADrawable: PGDKDrawable): string;
+begin
+  Result:=HexStr(Cardinal(ADrawable),8);
+  if ADrawable=nil then exit;
+  
+end;
+
 {------------------------------------------------------------------------------
   function WidgetIsDestroyingHandle(Widget: PGtkWidget): boolean;
 
@@ -4768,6 +4834,9 @@ begin
       If (StyleObject^.Widget <> nil)
       and (AnsiCompareText(WName,'window')=0) then
         UpdateSysColorMap(StyleObject^.Widget);
+        
+      // ToDo: create all gc of the style
+      
     end
     else begin
       // no success, clean up
@@ -4775,8 +4844,10 @@ begin
     end;
     If Tp<>nil then
       GTK_Object_Destroy(Tp);
-  end else
-    Result := PStyleObject(Styles.Objects[l])^.Style;
+  end else begin
+    StyleObject:=PStyleObject(Styles.Objects[l]);
+    Result := StyleObject^.Style;
+  end;
 end;
 
 Function GetStyleWidget(const WName : String) : PGTKWidget;
@@ -5745,6 +5816,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.246  2004/01/18 11:03:01  mattias
+  added finnish translation
+
   Revision 1.245  2004/01/14 20:09:50  mattias
   added TColorDialog debugging
 

lcl/interfaces/gtk/gtkproc.pp

@@ -259,6 +259,9 @@ function FindChar(c: char; p:PChar; Max: integer): integer;
 
 function GtkWidgetIsA(Widget: PGtkWidget; AType: TGtkType): boolean;
 function GetWidgetClassName(Widget: PGtkWidget): string;
+function GetWidgetDebugReport(Widget: PGtkWidget): string;
+function GetWindowDebugReport(AWindow: PGDKWindow): string;
+function GetDrawableDebugReport(ADrawable: PGDKDrawable): string;
 function WidgetIsDestroyingHandle(Widget: PGtkWidget): boolean;
 procedure SetWidgetIsDestroyingHandle(Widget: PGtkWidget);
 function ComponentIsDestroyingHandle(AWinControl: TWinControl): boolean;

lcl/interfaces/gtk/gtkwinapi.inc

@@ -3380,13 +3380,15 @@ var
   TheStyle: PGtkStyle;
   Area: TGdkRectangle;
   ShadowType: Integer;
+  AWindow: PGdkWindow;
 begin
   Result := IsValidDC(DC);
   if not Result then exit;
   if FrameWidth=0 then exit;
   TheStyle:=GetStyle('button');
   if TheStyle=nil then exit;
-  
+  //writeln('TGtkObject.Frame3d A ',HexStr(Cardinal(TheStyle),8));
+
   with TDeviceContext(DC) do
   begin
     if GC = nil then begin
@@ -3397,6 +3399,7 @@ begin
     ClientWidget:=GetFixedWidget(Widget);
     if ClientWidget=nil then
       ClientWidget:=Widget;
+    AWindow:=Drawable;
     DCOrigin:=GetDCOffset(TDeviceContext(DC));
     Area.X:=ARect.Left+DCOrigin.X;
     Area.Y:=ARect.Top+DCOrigin.Y;
@@ -3425,6 +3428,11 @@ begin
       ShadowType:=GTKThinShadowType[Style]
     else
       ShadowType:=GTKStrongShadowType[Style];
+    //writeln('ShadowType ',ShadowType,
+    //' dark_gc=',HexStr(Cardinal(TheStyle^.dark_gc[GTK_STATE_NORMAL]),8),
+    //' light_gc=',HexStr(Cardinal(TheStyle^.light_gc[GTK_STATE_NORMAL]),8),
+    //'');
+
 
     for i:= 1 to FrameWidth do begin
      { // left edge
@@ -3443,8 +3451,12 @@ begin
       gdk_draw_line(Drawable, RightBottomGC,
                  ARect.Left+DCOrigin.X, ARect.Bottom+DCOrigin.Y,
                  ARect.Right+DCOrigin.X, ARect.Bottom+DCOrigin.Y);}
+      //writeln('TGtkObject.Frame3d A TheStyle=',HexStr(Cardinal(TheStyle),8),
+      //  ' Drawable=',GetDrawableDebugReport(Drawable),
+      //  ' ClientWidget=',GetWidgetDebugReport(ClientWidget)
+      //  );
       gtk_paint_shadow(TheStyle,
-                       Drawable, GTK_STATE_NORMAL,
+                       AWindow, GTK_STATE_NORMAL,
                        ShadowType,
                        @Area,
                        ClientWidget,
@@ -9223,6 +9235,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.319  2004/01/18 11:03:01  mattias
+  added finnish translation
+
   Revision 1.318  2004/01/17 13:29:04  mattias
   using now fpc constant LineEnding   from Vincent
 

lcl/lresources.pp

@@ -25,7 +25,6 @@
     To create a LRS file from an LFM file use the LFMtoLRSfile function which
     transforms the LFM text to binary format and stores it as Lazarus resource
     include file.
-
 }
 unit LResources;
 

localize.sh

@@ -20,15 +20,15 @@ if [ ! -x tools/updatepofiles ]; then
   cd -
 fi
 
-# IDE without objectinspector
+# IDE
 IDE_RST=`find . -name lazarusidestrconsts.rst | xargs ls -1t | head -1`;
 rstconv -i $IDE_RST -o languages/lazaruside.po
 ./tools/updatepofiles languages/lazaruside.po
-for lang in de ru ruwin es fr pl it ca; do
+for lang in de ru ruwin es fr pl it ca fi; do
   msgfmt languages/lazaruside.$lang.po -o languages/lazaruside.$lang.mo
 done
 
-# Object Inspector
+# IDEIntf
 ObjInsp_RST=`find . -name objinspstrconsts.rst | xargs ls -1t | head -1`;
 rstconv -i $ObjInsp_RST -o languages/objinspstrconsts.po
 tools/updatepofiles languages/objinspstrconsts.po