- Removed annoying bug: "Error: can't read "": no such variable".

  (On GUI startup "Select tool" is not selected. If you try to select
  something using left mouse button an error is displayed.)

- Use default font for all menu fields.
  (Removed "-font arial" from "Static routes" field)

- Mode for "host" is always "static" (not quagga or xorp)
  (If all nodes are selected for "Routing protocol defaults" than
  only nodes of type "router" should be efected by the change.)

Bug found by:
Submitted by:
Reviewed by:
Approved by:
Obtained from:

diff --git a/editor.tcl b/editor.tcl
index 5336342798f16859755ee6ccfb4a6d1f3128245f..8525f910a7af7ba77f78b9f4ca6aa2494ef85bd6 100755 (executable)
--- a/editor.tcl
+++ b/editor.tcl
@@ -26,7 +26,7 @@
 # and Technology through the research contract #IP-2003-143.
 #
 
-# $Id: editor.tcl,v 1.91 2008/10/23 12:04:20 marko Exp $
+# $Id: editor.tcl,v 1.92 2008/10/28 12:30:18 miljenko Exp $
 
 
 #****h* imunes/editor.tcl
@@ -2304,7 +2304,7 @@ proc popupConfigDialog { c } {
            if { $h < 2 } {
                set h 2
            }
-           text $wi.statrt.cfg.text -font arial -bg white \
+           text $wi.statrt.cfg.text -bg white \
                -width 42 -height $h -takefocus 0
            foreach route $routes {
                $wi.statrt.cfg.text insert end "$route\r"
@@ -3692,7 +3692,7 @@ proc routerDefaultsApply { wi } {
 
     if { $selected_node_list != $empty } {
        foreach node $selected_node_list {
-           if { $oper_mode == "edit" } {
+           if { $oper_mode == "edit" && [nodeType $node] == "router" } {
                setNodeModel $node $router_model
                set router_ConfigModel $router_model
                if { $router_ConfigModel != "static" } {

diff --git a/initgui.tcl b/initgui.tcl
index 90d7ff202c49b5e3605f921002ba97aa913b2455..eadbd870922a36ac9e38fe9e633b992b0d74a3c5 100755 (executable)
--- a/initgui.tcl
+++ b/initgui.tcl
@@ -26,7 +26,7 @@
 # and Technology through the research contract #IP-2003-143.
 #
 
-# $Id: initgui.tcl,v 1.51 2008/10/27 12:55:24 miljenko Exp $
+# $Id: initgui.tcl,v 1.52 2008/10/28 12:30:18 miljenko Exp $
 
 
 #****h* imunes/initgui.tcl
@@ -104,6 +104,7 @@ set clock_seconds 0
 set grid 24
 set showGrid 1
 set autorearrange_enabled 0
+set activetool select
 
 # resize Oval/Rectangle, "false" or direction: north/west/east/...
 set resizemode false