Cannot compile fpde: Illegal type conversion

[Roland57]

Hello!

I would like to compile fpde (fpc/utils/fpdoc/fpde) on Linux 64, with FPC 3.2.0.

I get this error:

frmmain.pp(152,66) Error: Illegal type conversion: "TTagType" to "Pointer"
frmmain.pp(158,72) Error: Illegal type conversion: "TTagType" to "Pointer"
frmmain.pp(711,11) Error: Illegal type conversion: "Pointer" to "TNodeType"
frmmain.pp(748,27) Error: Illegal type conversion: "Pointer" to "TTagType"

Would someone know how to fix it?

Regards.

Roland

[Roland57]

I believe I found the solution.

Code: Pascal  [Select][+][-]

1. Function TMainForm.FormatMenuItem(ACaption : String; tt : TTagType) : TFPgtkMenuItem;
2.  
3. begin
4.   //Result:=NewMenuItem(ACaption,FormatHint(ACaption),'',@TagClick,Pointer(tt));
5.   Result:=NewMenuItem(ACaption,FormatHint(ACaption),'',@TagClick,@tt);

Code: Pascal  [Select][+][-]

1. Procedure TMainForm.TagClick(Sender : TFPGtkObject; Data : Pointer);
2.  
3. begin
4.   //CurrentEditor.InsertTag(TTagType(Data));
5.   CurrentEditor.InsertTag(TTagType(Data^));

Now I get this:

Linking ./fpde
/usr/bin/ld : ne peut trouver -lgtk
fpde.pp(13,1) Error: Error while linking

but this is another story. 

[Roland57]

Would it be much work to port the application from GTK to GTK2?

Would you know where I can find an example of a GTK2 application?

[marcov]

Lazarus generates GTK2 applications. But since Lazarus acquired a win32 backend in the 2003-2005, (any) GTK on Windows has been rare.

[Roland57]

Lazarus generates GTK2 applications. But since Lazarus acquired a win32 backend in the 2003-2005, (any) GTK on Windows has been rare.

Thank you for your answer, but I don't really understand. 

I was wondering if it were possible to do a simple modification to fpde source, so I can compile and link it on my computer (where there is GTK2, but no GTK)?

[Fred vS]

I would like to compile fpde (fpc/utils/fpdoc/fpde) on Linux 64, with FPC 3.2.0.

Hello Roland.

Where did you find /fpc/utils/fpdoc/fpde ?
Here on source of fpc 3.2.0 and 3.2.2 I dont find it.

Also, if it exists and if it is in directory /fpc/utils, it should not need GTK (IMHO GTK is a LCL-Lazarus thing).

Fre;D

[Roland57]

Where did you find /fpc/utils/fpdoc/fpde ?
Here on source of fpc 3.2.0 and 3.2.2 I dont find it.

In the directory of a Lazarus  version installed with fpcupdeluxe.

.
Also, if it exists and if it is in directory /fpc/utils, it should not need GTK (IMHO GTK is a LCL-Lazarus thing).

It's a plain Free Pascal program, and it uses GTK. 

Code: Pascal  [Select][+][-]

1. unit frmmain;
2.  
3. interface
4.  
5. uses
6.   gtk,gdk,fpgtk,fpgtkext,pgEditor,frmlink,sysutils,classes,fpdeopts;

[lucamar]

Where did you find /fpc/utils/fpdoc/fpde ?
Here on source of fpc 3.2.0 and 3.2.2 I dont find it.

In this computer, for example, it's on:
/usr/share/fpcsrc/3.2.0/utils/fpdoc/fpde/

Also, if it exists and if it is in directory /fpc/utils, it should not need GTK (IMHO GTK is a LCL-Lazarus thing).

The problem is that it is a GTK program but instead of the LCL it uses the low level GTK bindings:

Code: Pascal  [Select][+][-]

1. program fpde;
2. {$mode objfpc}
3. {$H+}
4. { $apptype gui}
5.  
6. uses fpgtk,fpglib,fpgtkext,frmmain,pgeditor;
7.  
8. begin
9.   application := TFPgtkApplication.Create;
10.   application.MainWindow := TMainForm.Create;
11.   application.Run;
12.   application.Free;
13. end.

Code: Pascal  [Select][+][-]

1. {$mode objfpc}
2. {$h+}
3. unit frmmain;
4.  
5. interface
6.  
7. uses
8.   gtk,gdk,fpgtk,fpgtkext,pgEditor,frmlink,sysutils,classes,fpdeopts;
9.  
10. Const
11.   DefaultTooltips = True;
12.   DefaultToolBarStyle = GTK_TOOLBAR_ICONS;
13.   DefaultToolbarRelief = GTK_RELIEF_NONE;
14.   SFileTemplate = 'template.xml';
15.  
16. Type
17.   TNodeType = (ntfile,ntPackage,ntModule,ntElement,ntTopic);
18.  
19.   TMainForm = Class(TFPGtkWindow)
20. {... etc ...}

[Fred vS]

In the directory of a Lazarus  version installed with fpcupdeluxe.

Ooops, I see it now, fpde is a directory and in this directory is /fpc/utils/fpdoc/fpde/fpde.pp

It's a plain Free Pascal program, and it uses GTK. 

Code: Pascal  [Select][+][-]

1. unit frmmain;
2.  
3. interface
4.  
5. uses
6.   gtk,gdk,fpgtk,fpgtkext,pgEditor,frmlink,sysutils,classes,fpdeopts;

Hum, mwouais, maybe, but usually something that uses GTK should be a Lazarus program and not plain pure Free Pascal program.

Fre;D

[marcov]

FPDE uses fpgtk which is a (not related) precursor to fpgui. fpgtk is a simple object oriented wrapper around GTK1.

FPDE itself is a precursor to fpdoc based editors in Lazarus.

Upgrade options are unknown, build status unknown. Wouldn't be surprised if it hasn't been compiled after 2005-2008 period.

[Fred vS]

@ Lucamar: Ooops, perdona for my previous post that says the same as you.

Fre;D

[lucamar]

@ Lucamar: Ooops, perdona for my previous post that says the same than you.

No problem. Quasi-simultaneous posts are quite normal in web fora

[Roland57]

FPDE uses fpgtk which is a (not related) precursor to fpgui. fpgtk is a simple object oriented wrapper around GTK1.

FPDE itself is a precursor to fpdoc based editors in Lazarus.

Upgrade options are unknown, build status unknown. Wouldn't be surprised if it hasn't been compiled after 2005-2008 period.

OK, so I will rather try the Lazarus Documentation Editor, or even edit XML in my favourite text editor. 

Regards.

Roland

[Fred vS]

FPDE uses fpgtk which is a (not related) precursor to fpgui. fpgtk is a simple object oriented wrapper around GTK1.

FPDE itself is a precursor to fpdoc based editors in Lazarus.

Upgrade options are unknown, build status unknown. Wouldn't be surprised if it hasn't been compiled after 2005-2008 period.

OK, so I will rather try the Lazarus Documentation Editor, or even edit XML in my favourite text editor. 

Regards.

Roland

Or you may install GTK1, following this

on a Debian distro, just do:

Code: Pascal  [Select][+][-]

1. sudo apt-get update
2. sudo apt-get install glib glib-shlibs gtk+-shlibs gdk-pixbuf gdk-pixbuf-shlibs

[Roland57]

Or you may install GTK1, following this

on a Debian distro, just do:

Good idea. I will try this. But I don't have a Debian distro. I will ask the question to my fellows who use Mageia.