diff --git a/lib/function.tcl b/lib/function.tcl
index c752405..3f59444 100644
--- a/lib/function.tcl
+++ b/lib/function.tcl
@@ -898,7 +898,7 @@ proc AddToplevel {lbl img {win_name .add}} {
     grid $frm_btn -row 1 -column 1 -sticky sew -padx 0 -pady 0
     pack  $frm_btn.btn_cancel $frm_btn.btn_ok -side right -padx 5 -pady 5
     #pack  $frm_btn.btn_ok  -side right -padx 2
-    
+    bind .add <Escape> $cmd
     return $frm
 }
 
@@ -2596,4 +2596,5 @@ proc Del::inet {tree host profile_name} {
 
 
 
+
 
diff --git a/lib/gui.tcl b/lib/gui.tcl
index d2cb701..771e4fe 100644
--- a/lib/gui.tcl
+++ b/lib/gui.tcl
@@ -122,8 +122,3 @@ pack $frm_tree $frm_work -side left -expand true -fill both
 .panel add $frm_tree -weight 1 
 .panel add $frm_work -weight 1
 
-
-
-
-
-