--- tkabber.orig/ifacetk/iface.tcl	2006-08-18 21:46:25.000000000 +0400
+++ tkabber/ifacetk/iface.tcl	2006-09-06 19:33:52.000000000 +0400
@@ -754,19 +754,25 @@
 	$m add separator
 	$m add command -label [::msgcat::mc "Close other tabs"] \
 	    -command {
-		foreach tab [.nb pages] {
-		    if {$tab != $curmenutab} {
-			eval destroy [pack slaves [.nb getframe $tab]]
-			.nb delete $tab 1
-		    }
+		if {![MessageDlg .close_other -message [::msgcat::mc "Are you sure?"] \
+		    -type user -buttons {ok cancel} -aspect 50000]} {
+	    	        foreach tab [.nb pages] {
+			    	if {$tab != $curmenutab} {
+					eval destroy [pack slaves [.nb getframe $tab]]
+					.nb delete $tab 1
+			    	}
+			}
+			ifacetk::tab_move .nb 0
 		}
-		ifacetk::tab_move .nb 0
 	    }
 	$m add command -label [::msgcat::mc "Close all tabs"] \
 	    -command {
-		foreach tab [.nb pages] {
-		    eval destroy [pack slaves [.nb getframe $tab]]
-		    .nb delete $tab 1
+		if {![MessageDlg .close_other -message [::msgcat::mc "Are you sure?"] \
+		    -type user -buttons {ok cancel} -aspect 50000]} {
+			foreach tab [.nb pages] {
+		    		eval destroy [pack slaves [.nb getframe $tab]]
+		    		.nb delete $tab 1
+			}
 		}
 	    }