From: miljenko <miljenko>
Date: Tue, 28 Oct 2008 12:30:18 +0000 (+0000)
Subject: - Removed annoying bug: "Error: can't read "": no such variable".
X-Git-Url: https://git.entuzijast.net/?a=commitdiff_plain;h=40d36dd9b0f3ccc305b866c78cbcc29406566fc6;p=imunes.git

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