/packages/gtk2/src/gtk+/gtk/gtktreesortable.inc

https://github.com/slibre/freepascal · Pascal · 82 lines · 46 code · 20 blank · 16 comment · 0 complexity · c335dd16978fdfa60881c36a1de3d1e6 MD5 · raw file 

    

  1. // included by gtk2.pas
    2. 

  2. 

  3. {$IFDEF read_forward_definitions}
    4. 

  4. {$ENDIF read_forward_definitions}
    5. 

  5. 

  6. //------------------------------------------------------------------------------
    7. 

  7. 

  8. {$IFDEF read_interface_types}
    9. 

  9.    // internal type
    10. 

  10.    PGtkTreeSortable = pointer;
    11. 

  11. 

  12.    TGtkTreeIterCompareFunc = function (model:PGtkTreeModel; a:PGtkTreeIter; b:PGtkTreeIter; user_data:gpointer):gint; cdecl;
    13. 

  13. { signals  }
    14. 

  14. { virtual table  }
    15. 

  15.    PGtkTreeSortableIface = ^TGtkTreeSortableIface;
    16. 

  16.    TGtkTreeSortableIface = record
    17. 

  17.         g_iface : TGTypeInterface;
    18. 

  18.         sort_column_changed : procedure (sortable:PGtkTreeSortable); cdecl;
    19. 

  19.         get_sort_column_id : function (sortable:PGtkTreeSortable; sort_column_id:Pgint; order:PGtkSortType):gboolean; cdecl;
    20. 

  20.         set_sort_column_id : procedure (sortable:PGtkTreeSortable; sort_column_id:gint; order:TGtkSortType); cdecl;
    21. 

  21.         set_sort_func : procedure (sortable:PGtkTreeSortable; sort_column_id:gint; func:TGtkTreeIterCompareFunc; data:gpointer; destroy:TGtkDestroyNotify); cdecl;
    22. 

  22.         set_default_sort_func : procedure (sortable:PGtkTreeSortable; func:TGtkTreeIterCompareFunc; data:gpointer; destroy:TGtkDestroyNotify); cdecl;
    23. 

  23.         has_default_sort_func : function (sortable:PGtkTreeSortable):gboolean; cdecl;
    24. 

  24.      end;
    25. 

  25. 

  26. {$ENDIF read_interface_types}
    27. 

  27. 

  28. //------------------------------------------------------------------------------
    29. 

  29. 

  30. {$IFDEF read_interface_rest}
    31. 

  31. const
    32. 

  32.   GTK_TREE_SORTABLE_DEFAULT_SORT_COLUMN_ID = -(1);
    33. 

  33. 

  34. 

  35. function GTK_TYPE_TREE_SORTABLE : GType;
    36. 

  36. function GTK_TREE_SORTABLE(obj: pointer) : PGtkTreeSortable;
    37. 

  37. function GTK_TREE_SORTABLE_CLASS(obj: pointer) : PGtkTreeSortableIface;
    38. 

  38. function GTK_IS_TREE_SORTABLE(obj: pointer) : boolean;
    39. 

  39. function GTK_TREE_SORTABLE_GET_IFACE(obj: pointer) : PGtkTreeSortableIface;
    40. 

  40. 

  41. 

  42. 

  43. function gtk_tree_sortable_get_type:GType; cdecl; external gtklib;
    44. 

  44. procedure gtk_tree_sortable_sort_column_changed(sortable:PGtkTreeSortable); cdecl; external gtklib;
    45. 

  45. function gtk_tree_sortable_get_sort_column_id(sortable:PGtkTreeSortable; sort_column_id:Pgint; order:PGtkSortType):gboolean; cdecl; external gtklib;
    46. 

  46. procedure gtk_tree_sortable_set_sort_column_id(sortable:PGtkTreeSortable; sort_column_id:gint; order:TGtkSortType); cdecl; external gtklib;
    47. 

  47. procedure gtk_tree_sortable_set_sort_func(sortable:PGtkTreeSortable; sort_column_id:gint; sort_func:TGtkTreeIterCompareFunc; user_data:gpointer; destroy:TGtkDestroyNotify); cdecl; external gtklib;
    48. 

  48. procedure gtk_tree_sortable_set_default_sort_func(sortable:PGtkTreeSortable; sort_func:TGtkTreeIterCompareFunc; user_data:gpointer; destroy:TGtkDestroyNotify); cdecl; external gtklib;
    49. 

  49. function gtk_tree_sortable_has_default_sort_func(sortable:PGtkTreeSortable):gboolean; cdecl; external gtklib;
    50. 

  50. {$ENDIF read_interface_rest}
    51. 

  51. 

  52. //------------------------------------------------------------------------------
    53. 

  53. 

  54. {$IFDEF read_implementation}
    55. 

  55. function GTK_TYPE_TREE_SORTABLE : GType;
    56. 

  56. begin
    57. 

  57.    GTK_TYPE_TREE_SORTABLE:=gtk_tree_sortable_get_type;
    58. 

  58. end;
    59. 

  59. 

  60. function GTK_TREE_SORTABLE(obj: pointer) : PGtkTreeSortable;
    61. 

  61. begin
    62. 

  62.    GTK_TREE_SORTABLE:=PGtkTreeSortable(G_TYPE_CHECK_INSTANCE_CAST(obj,GTK_TYPE_TREE_SORTABLE));
    63. 

  63. end;
    64. 

  64. 

  65. function GTK_TREE_SORTABLE_CLASS(obj: pointer) : PGtkTreeSortableIface;
    66. 

  66. begin
    67. 

  67.    GTK_TREE_SORTABLE_CLASS:=PGtkTreeSortableIface(G_TYPE_CHECK_CLASS_CAST(obj,GTK_TYPE_TREE_SORTABLE));
    68. 

  68. end;
    69. 

  69. 

  70. function GTK_IS_TREE_SORTABLE(obj: pointer) : boolean;
    71. 

  71. begin
    72. 

  72.    GTK_IS_TREE_SORTABLE:=G_TYPE_CHECK_INSTANCE_TYPE(obj,GTK_TYPE_TREE_SORTABLE);
    73. 

  73. end;
    74. 

  74. 

  75. function GTK_TREE_SORTABLE_GET_IFACE(obj: pointer) : PGtkTreeSortableIface;
    76. 

  76. begin
    77. 

  77.    GTK_TREE_SORTABLE_GET_IFACE:=PGtkTreeSortableIface(G_TYPE_INSTANCE_GET_INTERFACE(obj,GTK_TYPE_TREE_SORTABLE));
    78. 

  78. end;
    79. 

  79. {$ENDIF read_implementation}
    80. 

  80. // included by gtk2.pas
    81.