Fix some compiler warnings

1 files changed, 6 insertions, 6 deletions

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));