From 40d36dd9b0f3ccc305b866c78cbcc29406566fc6 Mon Sep 17 00:00:00 2001
From: miljenko <miljenko>
Date: Tue, 28 Oct 2008 12:30:18 +0000
Subject: [PATCH] - 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:
---
 editor.tcl  | 6 +++---
 initgui.tcl | 3 ++-
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/editor.tcl b/editor.tcl
index 5336342..8525f91 100755
--- 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
"
@@ -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 90d7ff2..eadbd87 100755
--- 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
-- 
2.39.5