From ef3e79e0bb6ba4a5e5d4dc1467281370e1d8b488 Mon Sep 17 00:00:00 2001 From: Tomas Bzatek Date: Sat, 23 Aug 2008 22:54:42 +0200 Subject: Fix some compiler warnings --- UGnome.pas | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'UGnome.pas') diff --git a/UGnome.pas b/UGnome.pas index 2ed094a..b4070d2 100644 --- a/UGnome.pas +++ b/UGnome.pas @@ -717,7 +717,7 @@ terminal_notebook_move_tab (TerminalNotebook *src, } *) procedure TEphyNotebook.drag_stop(time: guint32); -var toplevel, child: PGtkWidget; +var toplevel{, child}: PGtkWidget; drag_stop_idx: integer; begin DebugMsg(['@######## drag_stop']); @@ -837,15 +837,15 @@ end; function toplevel_button_release_cb(widget: PGtkWidget; event: PGdkEventButton; data: gpointer): gboolean; cdecl; var ntb: TEphyNotebook; - cur_page_num: integer; - cur_page: PGtkWidget; +// cur_page_num: integer; +// cur_page: PGtkWidget; begin DebugMsg(['@######## toplevel_button_release_cb(..., data = 0x', IntToHex(Integer(data), 8), ')']); ntb := TEphyNotebook(data); if ntb.drag_in_progress then begin - cur_page_num := gtk_notebook_get_current_page(GTK_NOTEBOOK(ntb.FWidget)); - cur_page := gtk_notebook_get_nth_page(GTK_NOTEBOOK(ntb.FWidget), cur_page_num); +// cur_page_num := gtk_notebook_get_current_page(GTK_NOTEBOOK(ntb.FWidget)); +// cur_page := gtk_notebook_get_nth_page(GTK_NOTEBOOK(ntb.FWidget), cur_page_num); (* if (!is_in_notebook_window (notebook, event->x_root, event->y_root) && gtk_notebook_get_n_pages (GTK_NOTEBOOK (notebook)) > 1) @@ -1065,9 +1065,9 @@ function button_press_cb(notebook: PGtkWidget; event: PGdkEventButton; data: gpo var tab_clicked: integer; ntb: TEphyNotebook; begin + Result := False; ntb := TEphyNotebook(data); if ntb.FBusy then Exit; - Result := False; DebugMsg(['@######## button_press_cb(..., data = 0x', IntToHex(Integer(data), 8), ')']); tab_clicked := ntb.find_tab_num_at_pos(Trunc(event^.x_root), Trunc(event^.y_root)); -- cgit v1.2.3