From 03034e718fbe6f43e5cbfca9c0696034055bc2a2 Mon Sep 17 00:00:00 2001
From: marko <marko>
Date: Thu, 19 Jul 2007 08:00:47 +0000
Subject: [PATCH] Whitespace and indentatin cleanups.

Bug found by:
Submitted by:
Requested by:
Reviewed by:
Approved by:
Obtained from:
---
 editor.tcl | 15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

diff --git a/editor.tcl b/editor.tcl
index 5be6a09..f3a141c 100755
--- a/editor.tcl
+++ b/editor.tcl
@@ -1,4 +1,4 @@
-# $Id: editor.tcl,v 1.62.2.6 2007/07/19 04:45:07 marko Exp $ 
+# $Id: editor.tcl,v 1.62.2.7 2007/07/19 08:00:47 marko Exp $ 
 #
 # Copyright 2004, 2005 University of Zagreb, Croatia.  All rights reserved.
 #
@@ -358,8 +358,7 @@ proc drawNode { node } {
 	set ifc [ifcByPeer $pnode [getNodeMirror $node]]
 	if { $pcanvas != $curcanvas } {
 	    set label [.c create text $x $y -fill blue \
-		-text "[getNodeName $pnode]:$ifc
-@[getCanvasName $pcanvas]" \
+		-text "[getNodeName $pnode]:$ifc
@[getCanvasName $pcanvas]" \
 		-tags "nodelabel $node" -justify center]
 	} else {
 	    set label [.c create text $x $y -fill blue \
@@ -1475,11 +1474,11 @@ proc button1-motion { c x y } {
 	$c coords $newlink $lastX $lastY $x $y
     } elseif { $activetool == "select" && \
 	( $curobj == $selectbox || $curtype == "background" || $curtype == "grid")} {
-    if {$selectbox == ""} {
-	set selectbox [$c create line \
-	    $lastX $lastY $x $lastY $x $y $lastX $y $lastX $lastY \
-	    -dash {10 4} -fill black -width 1 -tags "selectbox"]
-	$c raise $selectbox "background || link || linklabel || interface"
+	if {$selectbox == ""} {
+	    set selectbox [$c create line \
+		$lastX $lastY $x $lastY $x $y $lastX $y $lastX $lastY \
+		-dash {10 4} -fill black -width 1 -tags "selectbox"]
+	    $c raise $selectbox "background || link || linklabel || interface"
 	} else {
 	    $c coords $selectbox \
 		$lastX $lastY $x $lastY $x $y $lastX $y $lastX $lastY
-- 
2.39.5