Whitespace and indentatin cleanups.

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

diff --git a/editor.tcl b/editor.tcl
index 5be6a09aa94f404dbf989cdfda72eaea97017167..f3a141c9440f81e65e2a4b98d5439a7343fff4e5 100755 (executable)
--- 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\r@[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