paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 22:49:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use Available_ComponentName_2_x so specific version parts can be checked

Browse Source 
git-svn-id: trunk@11527 -
This commit is contained in:
Almindor 2008-08-07 09:33:02 +00:00
parent 4e20c448f8
commit e308297fce
10 changed files with 17 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/gtk2/src/gtkext/gtkscalebutton.inc
View File

@ -29,7 +29,7 @@ begin
GTK_SCALE_BUTTON_GET_CLASS:=G_TYPE_INSTANCE_GET_CLASS(obj,GTK_TYPE_SCALE_BUTTON);
end;
function Available_GtkScaleButton: Boolean;
function Available_GtkScaleButton_2_12: Boolean;
begin
Result := Assigned(gtk_scale_button_new);
end;

2
packages/gtk2/src/gtkext/gtkscalebuttonh.inc
View File

@ -19,5 +19,5 @@ var
function GTK_IS_SCALE_BUTTON_CLASS(klass : pointer) : boolean; inline;
function GTK_SCALE_BUTTON_GET_CLASS(obj : pointer) : PGTypeClass; inline;
function Available_GtkScaleButton: Boolean;
function Available_GtkScaleButton_2_12: Boolean;

8
packages/gtk2/src/gtkext/gtkstatusicon.inc
View File

@ -88,8 +88,14 @@ begin
GTK_STATUS_ICON_GET_CLASS := G_TYPE_INSTANCE_GET_CLASS (obj, GTK_TYPE_STATUS_ICON);
end;
function Available_GtkStatusIcon: Boolean;
function Available_GtkStatusIcon_2_10: Boolean;
begin
Result := Assigned(gtk_status_icon_new);
end;
function Available_GtkStatusIcon_2_12: Boolean;
begin
Result := Assigned(gtk_status_icon_get_screen);
end;

3
packages/gtk2/src/gtkext/gtkstatusiconh.inc
View File

@ -63,5 +63,6 @@ var
function GTK_IS_STATUS_ICON_CLASS(klass: Pointer): boolean; inline;
function GTK_STATUS_ICON_GET_CLASS(obj: Pointer): PGTypeClass; inline;
function Available_GtkStatusIcon: Boolean;
function Available_GtkStatusIcon_2_10: Boolean;
function Available_GtkStatusIcon_2_12: Boolean;

2
packages/gtk2/src/gtkext/gtktextiter.inc
View File

@ -18,7 +18,7 @@ begin
pointer(gtk_text_iter_backward_visible_lines):=GetProcAddress(gtkhandle,'gtk_text_iter_backward_visible_lines');
end;
function Available_GtkTextIter: Boolean;
function Available_GtkTextIter_2_8: Boolean;
begin
Result := Assigned(gtk_text_iter_forward_visible_line);
end;

2
packages/gtk2/src/gtkext/gtktextiterh.inc
View File

@ -5,4 +5,4 @@ var
gtk_text_iter_forward_visible_lines: function(iter: PGtkTextIter; count: gint): gboolean;cdecl;
gtk_text_iter_backward_visible_lines: function(iter: PGtkTextIter; count: gint): gboolean;cdecl;
function Available_GtkTextIter: Boolean;
function Available_GtkTextIter_2_8: Boolean;

2
packages/gtk2/src/gtkext/gtktextmark.inc
View File

@ -12,7 +12,7 @@ begin
pointer(gtk_text_mark_new):=GetProcAddress(gtkhandle,'gtk_text_mark_new');
end;
function Available_GtkTextMark: Boolean;
function Available_GtkTextMark_2_12: Boolean;
begin
Result := Assigned(gtk_text_mark_new);
end;

2
packages/gtk2/src/gtkext/gtktextmarkh.inc
View File

@ -2,4 +2,4 @@
var
gtk_text_mark_new: function(name: PGChar; left_gravity: Gboolean):PGtkTextMark;cdecl;
function Available_GtkTextMark: Boolean;
function Available_GtkTextMark_2_12: Boolean;

2
packages/gtk2/src/gtkext/gtkvolumebutton.inc
View File

@ -43,7 +43,7 @@ begin
GTK_VOLUME_BUTTON_GET_CLASS:=G_TYPE_INSTANCE_GET_CLASS(obj,GTK_TYPE_VOLUME_BUTTON);
end;
function Available_GtkVolumeButton: Boolean;
function Available_GtkVolumeButton_2_12: Boolean;
begin
Result := Assigned(gtk_volume_button_new);
end;

2
packages/gtk2/src/gtkext/gtkvolumebuttonh.inc
View File

@ -14,5 +14,5 @@ var
function GTK_IS_VOLUME_BUTTON_CLASS(klass : pointer) : boolean; inline;
function GTK_VOLUME_BUTTON_GET_CLASS(obj : pointer) : PGTypeClass; inline;
function Available_GtkVolumeButton: Boolean;
function Available_GtkVolumeButton_2_12: Boolean;