Recent

Author Topic: Missing GTK functions  (Read 4194 times)

EasyTEF Team

  • New Member
  • *
  • Posts: 26
Missing GTK functions
« on: September 24, 2010, 05:51:22 am »
Hi everyone,

I'm trying to compile a project of mine on linux ubuntu 10.4, with last Lazarus's trunk version (rev. 27446). The project uses forms and when I first compiled it, it asked to add Interfaces unit.

I've added /usr/local/share/lazarus/lcl/interfaces/gtk/Interfaces.pp

However, when I try to compile it again I get the messages below:

Compiling /usr/local/share/lazarus/lcl/interfaces/gtk/gtkdebug.pp
gtkdebug.pp(72,71) Error: Identifier not found "gdk_image_unref"
gtkdebug.pp(150,26) Error: Identifier not found "gdk_drawable_get_size"
gtkdebug.pp(151,32) Error: Identifier not found "gdk_drawable_get_depth"
gtkdebug.pp(188,26) Error: Identifier not found "gdk_drawable_get_size"
gtkdebug.pp(189,32) Error: Identifier not found "gdk_drawable_get_depth"
gtkdebug.pp(248,16) Error: Identifier not found "gdk_image_ref"
gtkdebug.pp(255) Fatal: There were 6 errors compiling module, stopping

The errors occurs in the following method:

Code: [Select]
procedure OnDbgWindowDestroy(widget: PGtkWidget; Data: Pointer); cdecl;
var
  Info: PDbgDumpInfo absolute Data;
begin
  case Info^.DumpType of
    ddtBitmap: if Info^.Bitmap <> nil then gdk_pixmap_unref(Info^.Bitmap);
    ddtPixmap: if Info^.Pixmap <> nil then gdk_pixmap_unref(Info^.Pixmap);
    ddtPixbuf: if Info^.Pixbuf <> nil then gdk_pixbuf_unref(Info^.Pixbuf);
    ddtImage: if Info^.Image <> nil then {$ifndef gtk1}gdk_image_unref(Info^.Image){$endif};
  end;
  Dispose(Info);
end;

I know that function gdk_image_unref, and the other ones, is in gtk1extrah.inc, but how can I use it? It doesn't work add /usr/local/share/lazarus/lcl/interfaces/gtk/ on Project Options -> Include Files


Thanx

 

TinyPortal © 2005-2018