Cliff Baeseman wrote

Peter What tool are you refering to. I am just doing a manual look and compare.

me too, but isn't fun ? :)

also I want to say that if the lines don't exceed 80 chars, I will be really happy (I use vi and GEdit of Gnome)

Sergio

I will put them in tonight and resend....

We just all called a list of untaken files we wished to do..

Mike H
Sergio
and myself

Cliff

Greetings:

I'm happy to see the progress with the port!

I'm not trying to impose any organization on this work, but I believe I've seen three people saying they've done gtkbbox (not including myself!). If anyone wants me to keep a "scoreboard" I'd be happy to. Just send me a note telling me what you've done and I'll update the scoreboard. If you want to send me the units, I'll link them to the site so others might start testing.

If you mail me directly at I'll have an easier time finding the notes!

I'll update the scoreboard at least nightly.

Keep up the good work!

MZ

Ok Michael,

I am not going to upgrade to the new version of gtk just yet but am passing my files to Mike Z but will do the conditionals that you request...

Cliff

Peter

What tool are you refering to. I am just doing a manual look and compare.

Cliff

Cliff:

Thanks for sending those files over. It looks like you didn't use the conditional 1.2 compile statements in those files. Could you please resend when you've added them? I'll make them available on the web page when they're in their "final" state.

I haven't really made any tangible progress myself but I've been immersing myself (as much as my other obligations permit) in learning what's going on. I should be able to make at least a modest contribution before it's over!

You might want to check the web page to make sure you're not duplicating work already done. I'll update the page within 24 hours of receiving finished units.

Mike Z.

Peter What tool are you refering to. I am just doing a manual look and compare.

A tool that inserts the headers for implementation/interface and Styles some of the type that are left over after h2pas for example: T_Gtk -> TGtk

Peter

    function lower(const s : string) : string;
    {
      return lowercased string of s
    }
      var
         i : longint;
      begin
         for i:=1 to length(s) do
          if s[i] in ['A'..'Z'] then
           lower[i]:=char(byte(s[i])+32)
          else
           lower[i]:=s[i];
         lower[0]:=s[0];
      end;
    function upper(const s : string) : string;
    {
      return lowercased string of s
    }
      var
         i : longint;
      begin
         for i:=1 to length(s) do
          if s[i] in ['a'..'z'] then
           upper[i]:=char(byte(s[i])-32)
          else
           upper[i]:=s[i];
         upper[0]:=s[0];
      end;
   function trimspace(const s:string):string;
     var
       i,j : longint;
     begin
       i:=length(s);
       while (i>0) and (s[i] in [#9,' ']) do
        dec(i);
       j:=1;
       while (j<i) and (s[j] in [#9,' ']) do
        inc(j);
       trimspace:=Copy(s,j,i-j+1);
     end;
   function trimbegin(const s:string):string;
     var
       i,j : longint;
     begin
       i:=length(s);
       j:=1;
       while (j<i) and (s[j] in [#9,' ']) do
        inc(j);
       trimbegin:=Copy(s,j,i-j+1);
     end;
    procedure Replace(var s:string;const s1,s2:string);
      var
	 last,
         i  : longint;
      begin
        last:=0;
        repeat
          i:=pos(s1,upper(s));
	  if i=last then
	   i:=0;
          if (i>0) then
           begin
             Delete(s,i,length(s1));
             Insert(s2,s,i);
	     last:=i;
           end;
        until i=0;
      end;
    procedure fixreplace(var s:string);
      begin
        replace(s,'P_GTK','PGtk');
        replace(s,'= ^T_GTK','= ^TGtk');
        replace(s,'^T_GTK','PGtk');
        replace(s,'T_GTK','TGtk');
        replace(s,'External_library','gtkdll');
      end;
var
  t,f : text;
  ssmall : string[20];
  hs,
  s   : string;
  name : string;
  i    : word;
  func,
  impl : boolean;
begin
  impl:=false;
  assign(t,paramstr(1));
  assign(f,'fixgtk.tmp');
  reset(t);
  rewrite(f);
  writeln(f,'{');
  writeln(f,'   $Id: gtk111.pp,v $');
  writeln(f,'}');
  writeln(f,'');
  writeln(f,'{$ifndef gtk_include_files}');
  writeln(f,'  {$define read_interface}');
  writeln(f,'  {$define read_implementation}');
  writeln(f,'{$endif not gtk_include_files}');
  writeln(f,'');
  writeln(f,'{$ifndef gtk_include_files}');
  writeln(f,'');
  writeln(f,'  unit gtk111;');
  writeln(f,'  interface');
  writeln(f,'');
  writeln(f,'  uses');
  writeln(f,'    glib,gdkmain,');
  writeln(f,'    gtkobjects;');
  writeln(f,'');
writeln(f,'  {$ifdef win32}');
writeln(f,'    const');
writeln(f,'      gtkdll=''gtk-1.1.dll''; { leave the .dll else .1.1 -> .1 !! }');
writeln(f,'  {$else}');
writeln(f,'    const');
writeln(f,'      gtkdll=''gtk.so'';');
writeln(f,'    {$linklib c}');
writeln(f,'  {$endif}');
writeln(f,'');
writeln(f,'  Type');
writeln(f,'    PLongint  = ^Longint;');
writeln(f,'    PByte     = ^Byte;');
writeln(f,'    PWord     = ^Word;');
writeln(f,'    PINteger  = ^Integer;');
writeln(f,'    PCardinal = ^Cardinal;');
writeln(f,'    PReal     = ^Real;');
writeln(f,'    PDouble   = ^Double;');
writeln(f,'');
writeln(f,'{$endif not gtk_include_files}');
writeln(f,'');
writeln(f,'{$ifdef read_interface}');
writeln(f,'');
  while not eof(t) do
   begin
     read(t,ssmall);
     fixreplace(ssmall);
     if (not impl) and (copy(trimspace(ssmall),1,14)='implementation') then
      begin
        impl:=true;
        readln(t,s);
        writeln(f,'{$endif read_interface}');
        writeln(f,'');
        writeln(f,'');
        writeln(f,'{$ifndef gtk_include_files}');
        writeln(f,'  implementation');
        writeln(f,'{$endif not gtk_include_files}');
        writeln(f,'');
        writeln(f,'{$ifdef read_implementation}');
        writeln(f,'');
        continue;
      end;
     if (impl) and (copy(trimspace(ssmall),1,4)='end.') then
      begin
        writeln(f,'{$endif read_implementation}');
        writeln(f,'');
        writeln(f,'');
        writeln(f,'{$ifndef gtk_include_files}');
        writeln(f,'end.');
        writeln(f,'{$endif not gtk_include_files}');
        writeln(f,'');
        writeln(f,'{');
        writeln(f,'  $Log: gtk111.pp,v $');
        writeln(f,'}');
        continue;
      end;
     readln(t,s);
     fixreplace(s);
     func:=false;
     if lower(copy(trimspace(ssmall),1,8))='function' then
      begin
        func:=true;
        name:=trimspace(ssmall+s);
        delete(name,1,9);
        name:=trimspace(name);
        i:=1;
        while (name[i] in ['_','A'..'Z','a'..'z','0'..'9']) do
         inc(i);
        delete(name,i,255);
	hs:=trimbegin(ssmall);
	replace(hs,'FUNCTION','function ');
        write(f,hs);
      end
     else
      if lower(copy(trimspace(ssmall),1,9))='procedure' then
       begin
         func:=true;
         name:=trimspace(ssmall+s);
         delete(name,1,10);
         name:=trimspace(name);
         i:=1;
         while (name[i] in ['_','A'..'Z','a'..'z','0'..'9']) do
          inc(i);
         delete(name,i,255);
         write(f,trimbegin(ssmall));
       end
     else
       write(f,ssmall);
     if func and (copy(name,1,3)='gtk') then
      begin
        if pos('cdecl;',s)=0 then
	 begin
 	   write(f,s);
	   readln(t,s);
	 end;
	replace(s,'CDECL;','{$ifndef win32}cdecl;{$endif}');
        writeln(f,s);
      end
     else
      writeln(f,s);
   end;
  close(f);
  close(t);
{  erase(t);
  rename(f,paramstr(1)); }
end.

Hello,

I see you're taking some effort to convert the gtk 1.2 headers to FPC, Which I think is great. Anyway, I'd like to urge you guys:

1) Put the changes for version 1.2 between {$IFDEF GTK_1_2} {$ENDIF}.

2) Communicate all changes in the GTK units for version 1.2 to me or Peter Vreman, so we can integrate them in the GTK units.

This way other people will also benefit from your (much needed) efforts

Michael.

I think someone has to impose somekind of organization. :-\

If anyone wants me to keep a "scoreboard" I'd be happy to. Just send me a note telling me what you've done and I'll update the scoreboard. > If you want to send me the units, I'll link them to the site so others might start testing.

Here is the list as it has been posted by various people on the lazarus list but I'll condense it here so you can add them to the scoreboard so we know what is being worked on and by whom.

Cliff Baeseman

gtkbbox
gtkbox
gtkbutton
gtkCalandar

Sergio A. Kessler

gtktypebuiltins
gtkprogressbar
gtkprogress
gtkseparator
gtkfilesel
gtkdialog

Peter Vreman

unknown - Peter could you let Mike Z. know what you have done or are working on so we can add it to the list?

I want to pick my set but am reluctent to do so until I know for sure which ones are really free. Could you please update your web page with all those files that you are working on and the ones indicated above plus any others you know about. Then I'll pick my set of files to dive into.

I have already a patch for the gtk units, only i didn't look at it yet.

Peter

Peter Vreman wrote

Please sent all current efforts to me, i've also started the conversion and will finish the port to 1.2

OK we have gone from we really need to do it to to many people doing it. Who is going to be the central handler of this? Exactly what have you converted Peter so that we don't redo completed work? Should we continue to send things to Mike Z. and let the two of you work together to finalize the package? Maybe we can send them to you but everyone keep Mike Z. informed of what is done so he can keep the score board.

In other words how should we organize this?

Please sent all current efforts to me, i've also started the conversion and will finish the port to 1.2

I've here a tool that will help with the port, i've used that also for the 1.0 generation

Peter