paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 05:39:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

removed a redundant routine which broke gtk1

Browse Source 
git-svn-id: trunk@4568 -
This commit is contained in:
ajgenius 2003-09-05 19:03:19 +00:00
parent e6bd4d8757
commit 6164d86867
2 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/gtk/gtkproc.inc
View File

@ -74,11 +74,6 @@ begin
result := nil; result := nil;
end; end;
Function gtk_notebook_get_tab_label(Notebook : PGtkNotebook; Child : PGTKWidget) : PGTKWidget;
begin
result := PGtkNotebookPage(Child)^.Tab_Label;
end;
function gtk_window_get_modal(window:PGtkWindow):gboolean; function gtk_window_get_modal(window:PGtkWindow):gboolean;
begin begin
result := (Window^.flag0 and bm_modal)<>0; result := (Window^.flag0 and bm_modal)<>0;
@ -4523,6 +4518,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.195 2003/09/05 19:03:19 ajgenius
removed a redundant routine which broke gtk1
Revision 1.194 2003/09/05 18:19:54 ajgenius Revision 1.194 2003/09/05 18:19:54 ajgenius
Make GTK2 "compile". linking fails still Make GTK2 "compile". linking fails still
(Makefile.fpc needs pkgconfig libs/GTK2 linking rules, (Makefile.fpc needs pkgconfig libs/GTK2 linking rules,

2
lcl/interfaces/gtk/gtkproc.pp
View File

@ -489,8 +489,6 @@ function gtk_widget_get_ythickness(Style : PGTKWidget) : gint; overload;
Function gtk_bin_get_child(bin : PGTKBin) : PGTKWidget; Function gtk_bin_get_child(bin : PGTKBin) : PGTKWidget;
Function gtk_notebook_get_tab_label(Notebook : PGtkNotebook; Child : PGTKWidget) : PGTKWidget;
Function gtk_window_get_modal(window:PGtkWindow):gboolean; Function gtk_window_get_modal(window:PGtkWindow):gboolean;
Procedure gtk_menu_item_set_right_justified(menu_item : PGtkMenuItem; right_justified : gboolean); Procedure gtk_menu_item_set_right_justified(menu_item : PGtkMenuItem; right_justified : gboolean);