From 5c528142ab6d10806f8116989e73edc2d557bb76 Mon Sep 17 00:00:00 2001 From: michael Date: Thu, 31 Oct 2002 08:03:38 +0000 Subject: [PATCH] + Added some missing methods --- packages/extra/gtk/gtk/gtkclist.pp | 13 ++++-------- packages/extra/gtk/gtk/gtkctree.pp | 27 ++++++++++++++++++++----- packages/extra/gtk/gtk/gtkhandlebox.pp | 7 ++++--- packages/extra/gtk/gtk/gtklist.pp | 9 ++++----- packages/extra/gtk/gtk/gtkrange.pp | 7 ++++--- packages/extra/gtk/gtk/gtkspinbutton.pp | 7 ++++--- packages/extra/gtk/gtk/gtkwidget.pp | 7 ++++--- 7 files changed, 46 insertions(+), 31 deletions(-) diff --git a/packages/extra/gtk/gtk/gtkclist.pp b/packages/extra/gtk/gtk/gtkclist.pp index 2b2605b89f..20280cc698 100644 --- a/packages/extra/gtk/gtk/gtkclist.pp +++ b/packages/extra/gtk/gtk/gtkclist.pp @@ -250,19 +250,15 @@ function gtk_clist_get_type:TGtkType;cdecl;external gtkdll name 'gtk_clist_get_ procedure gtk_clist_construct(clist:PGtkCList; columns:gint; titles:PPgchar);cdecl;external gtkdll name 'gtk_clist_construct'; function gtk_clist_new (columns:gint):PGtkWidget;cdecl;external gtkdll name 'gtk_clist_new'; function gtk_clist_new_with_titles (columns:gint; titles:PPgchar):PGtkWidget;cdecl;external gtkdll name 'gtk_clist_new_with_titles'; -{$ifndef gtkwin} procedure gtk_clist_set_hadjustment(clist:PGtkCList; adjustment:PGtkAdjustment);cdecl;external gtkdll name 'gtk_clist_set_hadjustment'; procedure gtk_clist_set_vadjustment(clist:PGtkCList; adjustment:PGtkAdjustment);cdecl;external gtkdll name 'gtk_clist_set_vadjustment'; function gtk_clist_get_hadjustment(clist:PGtkCList):PGtkAdjustment;cdecl;external gtkdll name 'gtk_clist_get_hadjustment'; function gtk_clist_get_vadjustment(clist:PGtkCList):PGtkAdjustment;cdecl;external gtkdll name 'gtk_clist_get_vadjustment'; -{$endif} procedure gtk_clist_set_shadow_type(clist:PGtkCList; thetype:TGtkShadowType);cdecl;external gtkdll name 'gtk_clist_set_shadow_type'; procedure gtk_clist_set_selection_mode(clist:PGtkCList; mode:TGtkSelectionMode);cdecl;external gtkdll name 'gtk_clist_set_selection_mode'; procedure gtk_clist_set_reorderable(clist:PGtkCList; reorderable:gboolean);cdecl;external gtkdll name 'gtk_clist_set_reorderable'; -{$ifndef gtkwin} procedure gtk_clist_set_use_drag_icons(clist:PGtkCList; use_icons:gboolean);cdecl;external gtkdll name 'gtk_clist_set_use_drag_icons'; procedure gtk_clist_set_button_actions(clist:PGtkCList; button:guint; button_actions:guint8);cdecl;external gtkdll name 'gtk_clist_set_button_actions'; -{$endif} procedure gtk_clist_freeze(clist:PGtkCList);cdecl;external gtkdll name 'gtk_clist_freeze'; procedure gtk_clist_thaw(clist:PGtkCList);cdecl;external gtkdll name 'gtk_clist_thaw'; procedure gtk_clist_column_titles_show(clist:PGtkCList);cdecl;external gtkdll name 'gtk_clist_column_titles_show'; @@ -292,10 +288,8 @@ procedure gtk_clist_set_text(clist:PGtkCList; row:gint; column:gint; thetext:Pgc function gtk_clist_get_text(clist:PGtkCList; row:gint; column:gint; thetext:PPgchar):gint;cdecl;external gtkdll name 'gtk_clist_get_text'; procedure gtk_clist_set_pixmap(clist:PGtkCList; row:gint; column:gint; pixmap:PGdkPixmap; mask:PGdkBitmap);cdecl;external gtkdll name 'gtk_clist_set_pixmap'; function gtk_clist_get_pixmap(clist:PGtkCList; row:gint; column:gint; pixmap:PPGdkPixmap; mask:PPGdkBitmap):gint;cdecl;external gtkdll name 'gtk_clist_get_pixmap'; -{$ifndef gtkwin} procedure gtk_clist_set_pixtext(clist:PGtkCList; row:gint; column:gint; thetext:Pgchar; spacing:guint8;pixmap:PGdkPixmap; mask:PGdkBitmap);cdecl;external gtkdll name 'gtk_clist_set_pixtext'; function gtk_clist_get_pixtext(clist:PGtkCList; row:gint; column:gint; thetext:PPgchar; spacing:Pguint8;pixmap:PPGdkPixmap; mask:PPGdkBitmap):gint;cdecl;external gtkdll name 'gtk_clist_get_pixtext'; -{$endif} procedure gtk_clist_set_foreground(clist:PGtkCList; row:gint; color:PGdkColor);cdecl;external gtkdll name 'gtk_clist_set_foreground'; procedure gtk_clist_set_background(clist:PGtkCList; row:gint; color:PGdkColor);cdecl;external gtkdll name 'gtk_clist_set_background'; procedure gtk_clist_set_cell_style(clist:PGtkCList; row:gint; column:gint; style:PGtkStyle);cdecl;external gtkdll name 'gtk_clist_set_cell_style'; @@ -318,9 +312,7 @@ function gtk_clist_get_selection_info(clist:PGtkCList; x:gint; y:gint; row:Pgin procedure gtk_clist_select_all(clist:PGtkCList);cdecl;external gtkdll name 'gtk_clist_select_all'; procedure gtk_clist_unselect_all(clist:PGtkCList);cdecl;external gtkdll name 'gtk_clist_unselect_all'; procedure gtk_clist_swap_rows(clist:PGtkCList; row1:gint; row2:gint);cdecl;external gtkdll name 'gtk_clist_swap_rows'; -{$ifndef gtkwin} procedure gtk_clist_row_move(clist:PGtkCList; source_row:gint; dest_row:gint);cdecl;external gtkdll name 'gtk_clist_row_move'; -{$endif} procedure gtk_clist_set_compare_func(clist:PGtkCList; cmp_func:TGtkCListCompareFunc);cdecl;external gtkdll name 'gtk_clist_set_compare_func'; procedure gtk_clist_set_sort_column(clist:PGtkCList; column:gint);cdecl;external gtkdll name 'gtk_clist_set_sort_column'; procedure gtk_clist_set_sort_type(clist:PGtkCList; sort_type:TGtkSortType);cdecl;external gtkdll name 'gtk_clist_set_sort_type'; @@ -431,7 +423,10 @@ end; { $Log$ - Revision 1.2 2002-09-07 15:42:59 peter + Revision 1.3 2002-10-31 08:03:38 michael + + Added some missing methods + + Revision 1.2 2002/09/07 15:42:59 peter * old logs removed and tabs fixed Revision 1.1 2002/01/29 17:55:09 peter diff --git a/packages/extra/gtk/gtk/gtkctree.pp b/packages/extra/gtk/gtk/gtkctree.pp index 20225c6c38..b254242921 100644 --- a/packages/extra/gtk/gtk/gtkctree.pp +++ b/packages/extra/gtk/gtk/gtkctree.pp @@ -130,11 +130,11 @@ function gtk_ctree_node_nth(ctree:PGtkCTree; row:guint):PGtkCTreeNode;cdecl;ext function gtk_ctree_find(ctree:PGtkCTree; node:PGtkCTreeNode; child:PGtkCTreeNode):gboolean;cdecl;external gtkdll name 'gtk_ctree_find'; function gtk_ctree_is_ancestor(ctree:PGtkCTree; node:PGtkCTreeNode; child:PGtkCTreeNode):gboolean;cdecl;external gtkdll name 'gtk_ctree_is_ancestor'; function gtk_ctree_find_by_row_data(ctree:PGtkCTree; node:PGtkCTreeNode; data:gpointer):PGtkCTreeNode;cdecl;external gtkdll name 'gtk_ctree_find_by_row_data'; -{$ifndef gtkwin} +{//$ifndef gtkwin} function gtk_ctree_find_all_by_row_data(ctree:PGtkCTree; node:PGtkCTreeNode; data:gpointer):PGList;cdecl;external gtkdll name 'gtk_ctree_find_all_by_row_data'; function gtk_ctree_find_by_row_data_custom(ctree:PGtkCTree; node:PGtkCTreeNode; data:gpointer; func:TGCompareFunc):PGtkCTreeNode;cdecl;external gtkdll name 'gtk_ctree_find_by_row_data_custom'; function gtk_ctree_find_all_by_row_data_custom(ctree:PGtkCTree; node:PGtkCTreeNode; data:gpointer; func:TGCompareFunc):PGList;cdecl;external gtkdll name 'gtk_ctree_find_all_by_row_data_custom'; -{$endif} +{//$endif} function gtk_ctree_is_hot_spot(ctree:PGtkCTree; x:gint; y:gint):gboolean;cdecl;external gtkdll name 'gtk_ctree_is_hot_spot'; procedure gtk_ctree_node_set_text(ctree:PGtkCTree; node:PGtkCTreeNode; column:gint; text:Pgchar);cdecl;external gtkdll name 'gtk_ctree_node_set_text'; procedure gtk_ctree_node_set_pixmap(ctree:PGtkCTree; node:PGtkCTreeNode; column:gint; pixmap:PGdkPixmap; mask:PGdkBitmap);cdecl;external gtkdll name 'gtk_ctree_node_set_pixmap'; @@ -160,15 +160,29 @@ procedure gtk_ctree_node_moveto(ctree:PGtkCTree; node:PGtkCTreeNode; column:gint function gtk_ctree_node_is_visible(ctree:PGtkCTree; node:PGtkCTreeNode):TGtkVisibility;cdecl;external gtkdll name 'gtk_ctree_node_is_visible'; procedure gtk_ctree_set_indent(ctree:PGtkCTree; indent:gint);cdecl;external gtkdll name 'gtk_ctree_set_indent'; procedure gtk_ctree_set_spacing(ctree:PGtkCTree; spacing:gint);cdecl;external gtkdll name 'gtk_ctree_set_spacing'; -{$ifndef gtkwin} +{//$ifndef gtkwin} procedure gtk_ctree_set_show_stub(ctree:PGtkCTree; show_stub:gboolean);cdecl;external gtkdll name 'gtk_ctree_set_show_stub'; -{$endif} +{//$endif} procedure gtk_ctree_set_line_style(ctree:PGtkCTree; line_style:TGtkCTreeLineStyle);cdecl;external gtkdll name 'gtk_ctree_set_line_style'; procedure gtk_ctree_set_expander_style(ctree:PGtkCTree; expander_style:TGtkCTreeExpanderStyle);cdecl;external gtkdll name 'gtk_ctree_set_expander_style'; procedure gtk_ctree_set_drag_compare_func(ctree:PGtkCTree; cmp_func:TGtkCTreeCompareDragFunc);cdecl;external gtkdll name 'gtk_ctree_set_drag_compare_func'; procedure gtk_ctree_sort_node(ctree:PGtkCTree; node:PGtkCTreeNode);cdecl;external gtkdll name 'gtk_ctree_sort_node'; procedure gtk_ctree_sort_recursive(ctree:PGtkCTree; node:PGtkCTreeNode);cdecl;external gtkdll name 'gtk_ctree_sort_recursive'; +procedure gtk_ctree_move(ctree:PGtkCTree; node:PGtkCTreeNode; new_parent:PGtkCTreeNode; new_sibling:PGtkCTreeNode);cdecl;external gtkdll name 'gtk_ctree_move'; +procedure gtk_ctree_expand(ctree:PGtkCTree; node:PGtkCTreeNode);cdecl;external gtkdll name 'gtk_ctree_expand'; +procedure gtk_ctree_expand_recursive(ctree:PGtkCTree; node:PGtkCTreeNode);cdecl;external gtkdll name 'gtk_ctree_expand_recursive'; +procedure gtk_ctree_expand_to_depth(ctree:PGtkCTree; node:PGtkCTreeNode; depth:gint);cdecl;external gtkdll name 'gtk_ctree_expand_to_depth'; +procedure gtk_ctree_collapse(ctree:PGtkCTree; node:PGtkCTreeNode);cdecl;external gtkdll name 'gtk_ctree_collapse'; +procedure gtk_ctree_collapse_recursive(ctree:PGtkCTree; node:PGtkCTreeNode);cdecl;external gtkdll name 'gtk_ctree_collapse_recursive'; +procedure gtk_ctree_collapse_to_depth(ctree:PGtkCTree; node:PGtkCTreeNode; depth:gint);cdecl;external gtkdll name 'gtk_ctree_collapse_to_depth'; +procedure gtk_ctree_select(ctree:PGtkCTree; node:PGtkCTreeNode);cdecl;external gtkdll name 'gtk_ctree_select'; +procedure gtk_ctree_select_recursive(ctree:PGtkCTree; node:PGtkCTreeNode);cdecl;external gtkdll name 'gtk_ctree_select_recursive'; +procedure gtk_ctree_unselect(ctree:PGtkCTree; node:PGtkCTreeNode);cdecl;external gtkdll name 'gtk_ctree_unselect'; +procedure gtk_ctree_unselect_recursive(ctree:PGtkCTree; node:PGtkCTreeNode);cdecl;external gtkdll name 'gtk_ctree_unselect_recursive'; +procedure gtk_ctree_real_select_recursive(ctree:PGtkCTree; node:PGtkCTreeNode; state:gint);cdecl;external gtkdll name 'gtk_ctree_real_select_recursive'; +procedure gtk_ctree_node_set_selectable(ctree:PGtkCTree; node:PGtkCTreeNode; selectable:gboolean);cdecl;external gtkdll name 'gtk_ctree_node_set_selectable'; + {$endif read_interface} @@ -267,7 +281,10 @@ end; { $Log$ - Revision 1.2 2002-09-07 15:42:59 peter + Revision 1.3 2002-10-31 08:03:39 michael + + Added some missing methods + + Revision 1.2 2002/09/07 15:42:59 peter * old logs removed and tabs fixed Revision 1.1 2002/01/29 17:55:10 peter diff --git a/packages/extra/gtk/gtk/gtkhandlebox.pp b/packages/extra/gtk/gtk/gtkhandlebox.pp index f4effa5549..d3281736f7 100644 --- a/packages/extra/gtk/gtk/gtkhandlebox.pp +++ b/packages/extra/gtk/gtk/gtkhandlebox.pp @@ -66,11 +66,9 @@ function GTK_IS_HANDLE_BOX_CLASS(klass:pointer):boolean; function gtk_handle_box_get_type:TGtkType;cdecl;external gtkdll name 'gtk_handle_box_get_type'; function gtk_handle_box_new : PGtkWidget;cdecl;external gtkdll name 'gtk_handle_box_new'; -{$ifndef gtkwin} procedure gtk_handle_box_set_shadow_type(handle_box:PGtkHandleBox; thetype:TGtkShadowType);cdecl;external gtkdll name 'gtk_handle_box_set_shadow_type'; procedure gtk_handle_box_set_handle_position(handle_box:PGtkHandleBox; position:TGtkPositionType);cdecl;external gtkdll name 'gtk_handle_box_set_handle_position'; procedure gtk_handle_box_set_snap_edge(handle_box:PGtkHandleBox; edge:TGtkPositionType);cdecl;external gtkdll name 'gtk_handle_box_set_snap_edge'; -{$endif} {$endif read_interface} @@ -156,7 +154,10 @@ end; { $Log$ - Revision 1.2 2002-09-07 15:42:59 peter + Revision 1.3 2002-10-31 08:03:39 michael + + Added some missing methods + + Revision 1.2 2002/09/07 15:42:59 peter * old logs removed and tabs fixed Revision 1.1 2002/01/29 17:55:11 peter diff --git a/packages/extra/gtk/gtk/gtklist.pp b/packages/extra/gtk/gtk/gtklist.pp index 0753d2497f..1a274ebbf3 100644 --- a/packages/extra/gtk/gtk/gtklist.pp +++ b/packages/extra/gtk/gtk/gtklist.pp @@ -72,17 +72,13 @@ procedure gtk_list_unselect_child(list:PGtkList; child:PGtkWidget);cdecl;externa function gtk_list_child_position(list:PGtkList; child:PGtkWidget):gint;cdecl;external gtkdll name 'gtk_list_child_position'; procedure gtk_list_set_selection_mode(list:PGtkList; mode:TGtkSelectionMode);cdecl;external gtkdll name 'gtk_list_set_selection_mode'; procedure gtk_list_extend_selection(list:PGtkList; scroll_type:TGtkScrollType; position:gfloat; auto_start_selection:gboolean);cdecl;external gtkdll name 'gtk_list_extend_selection'; -{$ifndef gtkwin} procedure gtk_list_start_selection(list:PGtkList);cdecl;external gtkdll name 'gtk_list_start_selection'; -{$endif} procedure gtk_list_end_selection(list:PGtkList);cdecl;external gtkdll name 'gtk_list_end_selection'; procedure gtk_list_select_all(list:PGtkList);cdecl;external gtkdll name 'gtk_list_select_all'; procedure gtk_list_unselect_all(list:PGtkList);cdecl;external gtkdll name 'gtk_list_unselect_all'; procedure gtk_list_scroll_horizontal(list:PGtkList; scroll_type:TGtkScrollType; position:gfloat);cdecl;external gtkdll name 'gtk_list_scroll_horizontal'; procedure gtk_list_scroll_vertical(list:PGtkList; scroll_type:TGtkScrollType; position:gfloat);cdecl;external gtkdll name 'gtk_list_scroll_vertical'; -{$ifndef gtkwin} procedure gtk_list_toggle_add_mode(list:PGtkList);cdecl;external gtkdll name 'gtk_list_toggle_add_mode'; -{$endif} procedure gtk_list_toggle_focus_row(list:PGtkList);cdecl;external gtkdll name 'gtk_list_toggle_focus_row'; procedure gtk_list_toggle_row(list:PGtkList; item:PGtkWidget);cdecl;external gtkdll name 'gtk_list_toggle_row'; procedure gtk_list_undo_selection(list:PGtkList);cdecl;external gtkdll name 'gtk_list_undo_selection'; @@ -142,7 +138,10 @@ end; { $Log$ - Revision 1.2 2002-09-07 15:42:59 peter + Revision 1.3 2002-10-31 08:03:39 michael + + Added some missing methods + + Revision 1.2 2002/09/07 15:42:59 peter * old logs removed and tabs fixed Revision 1.1 2002/01/29 17:55:11 peter diff --git a/packages/extra/gtk/gtk/gtkrange.pp b/packages/extra/gtk/gtk/gtkrange.pp index 1cc761efe5..8b826b43d8 100644 --- a/packages/extra/gtk/gtk/gtkrange.pp +++ b/packages/extra/gtk/gtk/gtkrange.pp @@ -89,9 +89,7 @@ function gtk_range_get_adjustment (range:PGtkRange):PGtkAdjustment;cdecl;extern procedure gtk_range_set_update_policy(range:PGtkRange; policy:TGtkUpdateType);cdecl;external gtkdll name 'gtk_range_set_update_policy'; procedure gtk_range_set_adjustment(range:PGtkRange; adjustment:PGtkAdjustment);cdecl;external gtkdll name 'gtk_range_set_adjustment'; procedure gtk_range_draw_background(range:PGtkRange);cdecl;external gtkdll name 'gtk_range_draw_background'; -{$ifndef gtkwin} procedure gtk_range_clear_background(range:PGtkRange);cdecl;external gtkdll name 'gtk_range_clear_background'; -{$endif} procedure gtk_range_draw_trough(range:PGtkRange);cdecl;external gtkdll name 'gtk_range_draw_trough'; procedure gtk_range_draw_slider(range:PGtkRange);cdecl;external gtkdll name 'gtk_range_draw_slider'; procedure gtk_range_draw_step_forw(range:PGtkRange);cdecl;external gtkdll name 'gtk_range_draw_step_forw'; @@ -179,7 +177,10 @@ end; { $Log$ - Revision 1.2 2002-09-07 15:43:00 peter + Revision 1.3 2002-10-31 08:03:39 michael + + Added some missing methods + + Revision 1.2 2002/09/07 15:43:00 peter * old logs removed and tabs fixed Revision 1.1 2002/01/29 17:55:13 peter diff --git a/packages/extra/gtk/gtk/gtkspinbutton.pp b/packages/extra/gtk/gtk/gtkspinbutton.pp index eac9b03b8f..8de931ce7d 100644 --- a/packages/extra/gtk/gtk/gtkspinbutton.pp +++ b/packages/extra/gtk/gtk/gtkspinbutton.pp @@ -99,9 +99,7 @@ procedure gtk_spin_button_spin(spin_button:PGtkSpinButton; direction:TGtkSpinTyp procedure gtk_spin_button_set_wrap(spin_button:PGtkSpinButton; wrap:gboolean);cdecl;external gtkdll name 'gtk_spin_button_set_wrap'; procedure gtk_spin_button_set_shadow_type(spin_button:PGtkSpinButton; shadow_type:TGtkShadowType);cdecl;external gtkdll name 'gtk_spin_button_set_shadow_type'; procedure gtk_spin_button_set_snap_to_ticks(spin_button:PGtkSpinButton; snap_to_ticks:gboolean);cdecl;external gtkdll name 'gtk_spin_button_set_snap_to_ticks'; -{$ifndef gtkwin} procedure gtk_spin_button_update(spin_button:PGtkSpinButton);cdecl;external gtkdll name 'gtk_spin_button_update'; -{$endif} {$endif read_interface} @@ -217,7 +215,10 @@ end; { $Log$ - Revision 1.2 2002-09-07 15:43:00 peter + Revision 1.3 2002-10-31 08:03:39 michael + + Added some missing methods + + Revision 1.2 2002/09/07 15:43:00 peter * old logs removed and tabs fixed Revision 1.1 2002/01/29 17:55:13 peter diff --git a/packages/extra/gtk/gtk/gtkwidget.pp b/packages/extra/gtk/gtk/gtkwidget.pp index 21e5044ad3..fb1fc3049d 100644 --- a/packages/extra/gtk/gtk/gtkwidget.pp +++ b/packages/extra/gtk/gtk/gtkwidget.pp @@ -374,10 +374,8 @@ function gtk_widget_get_toplevel (widget:PGtkWidget):PGtkWidget;cdecl;external function gtk_widget_get_ancestor (widget:PGtkWidget; widget_thetype:TGtkType):PGtkWidget;cdecl;external gtkdll name 'gtk_widget_get_ancestor'; function gtk_widget_get_colormap (widget:PGtkWidget):PGdkColormap;cdecl;external gtkdll name 'gtk_widget_get_colormap'; function gtk_widget_get_visual (widget:PGtkWidget):PGdkVisual;cdecl;external gtkdll name 'gtk_widget_get_visual'; -{$ifndef gtkwin} procedure gtk_widget_set_colormap(widget:PGtkWidget; colormap:PGdkColormap);cdecl;external gtkdll name 'gtk_widget_set_colormap'; procedure gtk_widget_set_visual(widget:PGtkWidget; visual:PGdkVisual);cdecl;external gtkdll name 'gtk_widget_set_visual'; -{$endif} function gtk_widget_get_events(widget:PGtkWidget):gint;cdecl;external gtkdll name 'gtk_widget_get_events'; procedure gtk_widget_get_pointer(widget:PGtkWidget; x:Pgint; y:Pgint);cdecl;external gtkdll name 'gtk_widget_get_pointer'; function gtk_widget_is_ancestor(widget:PGtkWidget; ancestor:PGtkWidget):gint;cdecl;external gtkdll name 'gtk_widget_is_ancestor'; @@ -552,7 +550,10 @@ end; { $Log$ - Revision 1.2 2002-09-07 15:43:00 peter + Revision 1.3 2002-10-31 08:03:39 michael + + Added some missing methods + + Revision 1.2 2002/09/07 15:43:00 peter * old logs removed and tabs fixed Revision 1.1 2002/01/29 17:55:14 peter