/packages/gtk1/src/gtk/gtktoolbar.pp

https://github.com/slibre/freepascal · Puppet · 92 lines · 77 code · 15 blank · 0 comment · 0 complexity · aeab8bab7d4b5a1cf263909ffdf7ace3 MD5 · raw file 

    

  1. {
    2. 

  2. }
    3. 

  3. 

  4. {****************************************************************************
    5. 

  5.                                  Interface
    6. 

  6. ****************************************************************************}
    7. 

  7. 

  8. {$ifdef read_interface}
    9. 

  9. 

  10.   type
    11. 

  11.      TGtkToolbarChildType = longint;
    12. 

  12.   const
    13. 

  13.      GTK_TOOLBAR_CHILD_SPACE = 0;
    14. 

  14.      GTK_TOOLBAR_CHILD_BUTTON = 1;
    15. 

  15.      GTK_TOOLBAR_CHILD_TOGGLEBUTTON = 2;
    16. 

  16.      GTK_TOOLBAR_CHILD_RADIOBUTTON = 3;
    17. 

  17.      GTK_TOOLBAR_CHILD_WIDGET = 4;
    18. 

  18. 

  19.   type
    20. 

  20.      TGtkToolbarSpaceStyle = longint;
    21. 

  21.   const
    22. 

  22.      GTK_TOOLBAR_SPACE_EMPTY = 0;
    23. 

  23.      GTK_TOOLBAR_SPACE_LINE = 1;
    24. 

  24. 

  25.   type
    26. 

  26.      PGtkToolbarChild = ^TGtkToolbarChild;
    27. 

  27.      TGtkToolbarChild = record
    28. 

  28.           thetype : TGtkToolbarChildType;
    29. 

  29.           widget : PGtkWidget;
    30. 

  30.           icon : PGtkWidget;
    31. 

  31.           thelabel : PGtkWidget;
    32. 

  32.        end;
    33. 

  33. 

  34.      PGtkToolbar = ^TGtkToolbar;
    35. 

  35.      TGtkToolbar = record
    36. 

  36.           container : TGtkContainer;
    37. 

  37.           num_children : gint;
    38. 

  38.           children : PGList;
    39. 

  39.           orientation : TGtkOrientation;
    40. 

  40.           style : TGtkToolbarStyle;
    41. 

  41.           space_size : gint;
    42. 

  42.           space_style : TGtkToolbarSpaceStyle;
    43. 

  43.           tooltips : PGtkTooltips;
    44. 

  44.           button_maxw : gint;
    45. 

  45.           button_maxh : gint;
    46. 

  46.           relief : TGtkReliefStyle;
    47. 

  47.        end;
    48. 

  48. 

  49.      PGtkToolbarClass = ^TGtkToolbarClass;
    50. 

  50.      TGtkToolbarClass = record
    51. 

  51.           parent_class : TGtkContainerClass;
    52. 

  52.           orientation_changed : procedure (toolbar:PGtkToolbar; orientation:TGtkOrientation); cdecl;
    53. 

  53.           style_changed : procedure (toolbar:PGtkToolbar; style:TGtkToolbarStyle); cdecl;
    54. 

  54.        end;
    55. 

  55. 

  56. Type
    57. 

  57.   GTK_TOOLBAR=PGtkToolbar;
    58. 

  58.   GTK_TOOLBAR_CLASS=PGtkToolbarClass;
    59. 

  59. 

  60. function  gtk_toolbar_get_type:guint;cdecl;external gtkdll name 'gtk_toolbar_get_type';
    61. 

  61. function  gtk_toolbar_new(orientation:TGtkOrientation; style:TGtkToolbarStyle):PGtkWidget;cdecl;external gtkdll name 'gtk_toolbar_new';
    62. 

  62. function  gtk_toolbar_append_item(toolbar:PGtkToolbar; thetext:pchar; tooltip_text:pchar; tooltip_private_text:pchar; icon:PGtkWidget; callback:TGtkSignalFunc; user_data:gpointer):PGtkWidget;cdecl;external gtkdll name 'gtk_toolbar_append_item';
    63. 

  63. function  gtk_toolbar_prepend_item(toolbar:PGtkToolbar; thetext:pchar; tooltip_text:pchar; tooltip_private_text:pchar; icon:PGtkWidget; callback:TGtkSignalFunc; user_data:gpointer):PGtkWidget;cdecl;external gtkdll name 'gtk_toolbar_prepend_item';
    64. 

  64. function  gtk_toolbar_insert_item(toolbar:PGtkToolbar; thetext:pchar; tooltip_text:pchar; tooltip_private_text:pchar; icon:PGtkWidget; callback:TGtkSignalFunc; user_data:gpointer; position:gint):PGtkWidget;cdecl;external gtkdll name 'gtk_toolbar_insert_item';
    65. 

  65. procedure gtk_toolbar_append_space(toolbar:PGtkToolbar);cdecl;external gtkdll name 'gtk_toolbar_append_space';
    66. 

  66. procedure gtk_toolbar_prepend_space(toolbar:PGtkToolbar);cdecl;external gtkdll name 'gtk_toolbar_prepend_space';
    67. 

  67. procedure gtk_toolbar_insert_space(toolbar:PGtkToolbar; position:gint);cdecl;external gtkdll name 'gtk_toolbar_insert_space';
    68. 

  68. function  gtk_toolbar_append_element(toolbar:PGtkToolbar; thetype:TGtkToolbarChildType; widget:PGtkWidget; thetext:pchar; tooltip_text:pchar;tooltip_private_text:pchar; icon:PGtkWidget; callback:TGtkSignalFunc; user_data:gpointer):PGtkWidget;cdecl;external gtkdll name 'gtk_toolbar_append_element';
    69. 

  69. function  gtk_toolbar_prepend_element(toolbar:PGtkToolbar; thetype:TGtkToolbarChildType; widget:PGtkWidget; thetext:pchar; tooltip_text:pchar;tooltip_private_text:pchar; icon:PGtkWidget; callback:TGtkSignalFunc; user_data:gpointer):PGtkWidget; cdecl;external gtkdll name 'gtk_toolbar_prepend_element';
    70. 

  70. function  gtk_toolbar_insert_element(toolbar:PGtkToolbar; thetype:TGtkToolbarChildType; widget:PGtkWidget; thetext:pchar; tooltip_text:pchar;tooltip_private_text:pchar; icon:PGtkWidget; callback:TGtkSignalFunc; user_data:gpointer; position:gint):PGtkWidget;cdecl;external gtkdll name 'gtk_toolbar_insert_element';
    71. 

  71. procedure gtk_toolbar_append_widget(toolbar:PGtkToolbar; widget:PGtkWidget; tooltip_text:pchar; tooltip_private_text:pchar);cdecl;external gtkdll name 'gtk_toolbar_append_widget';
    72. 

  72. procedure gtk_toolbar_prepend_widget(toolbar:PGtkToolbar; widget:PGtkWidget; tooltip_text:pchar; tooltip_private_text:pchar);cdecl;external gtkdll name 'gtk_toolbar_prepend_widget';
    73. 

  73. procedure gtk_toolbar_insert_widget(toolbar:PGtkToolbar; widget:PGtkWidget; tooltip_text:pchar; tooltip_private_text:pchar; position:gint);cdecl;external gtkdll name 'gtk_toolbar_insert_widget';
    74. 

  74. procedure gtk_toolbar_set_orientation(toolbar:PGtkToolbar; orientation:TGtkOrientation);cdecl;external gtkdll name 'gtk_toolbar_set_orientation';
    75. 

  75. procedure gtk_toolbar_set_style(toolbar:PGtkToolbar; style:TGtkToolbarStyle);cdecl;external gtkdll name 'gtk_toolbar_set_style';
    76. 

  76. procedure gtk_toolbar_set_space_size(toolbar:PGtkToolbar; space_size:gint);cdecl;external gtkdll name 'gtk_toolbar_set_space_size';
    77. 

  77. procedure gtk_toolbar_set_space_style(toolbar:PGtkToolbar; space_style:TGtkToolbarSpaceStyle);cdecl;external gtkdll name 'gtk_toolbar_set_space_style';
    78. 

  78. procedure gtk_toolbar_set_tooltips(toolbar:PGtkToolbar; enable:gint);cdecl;external gtkdll name 'gtk_toolbar_set_tooltips';
    79. 

  79. procedure gtk_toolbar_set_button_relief(toolbar:PGtkToolbar; relief:TGtkReliefStyle);cdecl;external gtkdll name 'gtk_toolbar_set_button_relief';
    80. 

  80. function  gtk_toolbar_get_button_relief(toolbar:PGtkToolbar):TGtkReliefStyle;cdecl;external gtkdll name 'gtk_toolbar_get_button_relief';
    81. 

  81. 

  82. {$endif read_interface}
    83. 

  83. 

  84. 

  85. {****************************************************************************
    86. 

  86.                               Implementation
    87. 

  87. ****************************************************************************}
    88. 

  88. 

  89. {$ifdef read_implementation}
    90. 

  90. {$endif read_implementation}
    91.