More manual whitespace cleanup.

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

diff --git a/README b/README
index ab7e9b1bcf6548f085d4e1d6f4dbe3ec929e71b0..03c4e993a083462fbc6c9d9a7f921ed913918e3e 100755 (executable)
--- a/README
+++ b/README
@@ -37,7 +37,7 @@ System requirements
         netperf-2.2.4
 
     3) Fetch, compile and install the following additional utilities:
-   
+
        - vimage management utility,
        - ng_pipe,
        - ngctl

diff --git a/annotations.tcl b/annotations.tcl
index a2b2d6402996d88c79e4b2553b2753b4700cb859..9d5533a4cf2ed1c740109c48054f698195a01870 100644 (file)
--- a/annotations.tcl
+++ b/annotations.tcl
@@ -125,7 +125,7 @@ proc popupOvalDialog { c target modify color label lcolor } {
        set cancelcmd "destroy $wi; destroyNewoval $c"
        set applytext "Add oval"
     }
-   
+
     frame $wi.butt -borderwidth 6
     button $wi.butt.apply -text $applytext -command "$applycmd"
     button $wi.butt.cancel -text "Cancel" -command $cancelcmd
@@ -184,7 +184,7 @@ proc popupOvalApply { c wi target} {
     lappend $iconcoords $coords
     lappend $object $iconcoords "color $color" \
        "label {$caption}" "labelcolor $labelcolor"
-   
+
     # draw it
     drawOval $object
 
@@ -587,7 +587,7 @@ proc selectmarkEnter {c x y} {
     if { $x > [expr $x2-($x2-$x1)/8.0]} { set r 1 }
     if { $y < [expr $y1+($y2-$y1)/8.0]} { set u 1 }
     if { $y > [expr $y2-($y2-$y1)/8.0]} { set d 1 }
-   
+
     if {$l==1} {
        if {$u==1} { 
            $c config -cursor top_left_corner
@@ -697,7 +697,7 @@ proc textConfig { c target } {
     if { [lsearch $effects bold ] != -1} {set textBold 1}
     if { [lsearch $effects italic ] != -1} {set textItalic 1}
     if { [lsearch $effects underline ] != -1} {set textUnderline 1}
-   
+
     if { $fontfamily == "" } {
        set fontfamily $defTextFontFamily
     }
@@ -780,7 +780,7 @@ proc textConfig { c target } {
  
     set applycmd "textConfigApply $c $wi $target "
     set cancelcmd "destroy $wi"
-   
+
     button $wi.action.apply -text "Apply" -command "$applycmd"
     button $wi.action.cancel -text "Cancel" -command "$cancelcmd"
     bind $wi <Key-Escape> "$cancelcmd" 

diff --git a/editor.tcl b/editor.tcl
index 94534f6e90614fd8336dd79c145ccb36167d1525..042130e0f4cc554aef0e643b664397c7718e8b77 100755 (executable)
--- a/editor.tcl
+++ b/editor.tcl
@@ -1,4 +1,4 @@
-# $Id: editor.tcl,v 1.62.2.3 2007/07/19 00:12:45 marko Exp $ 
+# $Id: editor.tcl,v 1.62.2.4 2007/07/19 01:30:46 marko Exp $ 
 #
 # Copyright 2004, 2005 University of Zagreb, Croatia.  All rights reserved.
 #
@@ -249,7 +249,7 @@ proc redrawAll {} {
        }
     } else {
        set background [.c create rectangle 0 0 $e_sizex $e_sizey \
-          -fill white -tags "background"]
+           -fill white -tags "background"]
     }
 
     if { $showAnnotations == 1 } {
@@ -1819,9 +1819,9 @@ proc button1-release { c x y } {
                selectNode $c $obj
            }
        } else {
-          setNodeCoords $resizeobj "$x $y $x1 $y1"
-          set redrawNeeded 1
-          set resizemode false
+           setNodeCoords $resizeobj "$x $y $x1 $y1"
+           set redrawNeeded 1
+           set resizemode false
        }
     }
 

diff --git a/exec.tcl b/exec.tcl
index ea7eb5f484a6d1b5577c33e80aaeb4d76e728b74..b0dd9bf18b30e4d4fb15cf50442fb0a3cd53adc9 100755 (executable)
--- a/exec.tcl
+++ b/exec.tcl
@@ -1,4 +1,4 @@
-# $Id: exec.tcl,v 1.46.2.4 2007/07/19 00:12:45 marko Exp $ 
+# $Id: exec.tcl,v 1.46.2.5 2007/07/19 01:30:46 marko Exp $ 
 
 # Copyright 2004, 2005 University of Zagreb, Croatia.  All rights reserved.
 #
@@ -892,8 +892,8 @@ proc execSetLinkParams { eid link } {
 
     nexec ngctl msg $lname: setcfg \
        "{ bandwidth=$bandwidth delay=$delay \
-          upstream={ BER=$ber duplicate=$dup } \
-          downstream={ BER=$ber duplicate=$dup } }"
+       upstream={ BER=$ber duplicate=$dup } \
+       downstream={ BER=$ber duplicate=$dup } }"
 }
 
 #****f* exec.tcl/cleanupCfg

diff --git a/filemgmt.tcl b/filemgmt.tcl
index 15ccb457e31a6adb3f3a0ab6c842a44331448f8a..e4f95c0e230045160ec7c081c66f486fa2f2af3a 100755 (executable)
--- a/filemgmt.tcl
+++ b/filemgmt.tcl
@@ -1,4 +1,4 @@
-# $Id: filemgmt.tcl,v 1.7.2.3 2007/07/19 00:12:45 marko Exp $ 
+# $Id: filemgmt.tcl,v 1.7.2.4 2007/07/19 01:30:46 marko Exp $ 
 #
 # Copyright 2004, 2005 University of Zagreb, Croatia.  All rights reserved.
 #
@@ -81,10 +81,12 @@
 
 set currentFile ""
 
-set fileTypes {{"IMUNES network configuration" {.imn} }
-          { "All files" {*}}}
+set fileTypes {
+    {"IMUNES network configuration" {.imn} }
+    { "All files" {*} }
+}
+
 
-          
 #****f* filemgmt.tcl/newFile
 # NAME
 #   newFile -- new file

diff --git a/initgui.tcl b/initgui.tcl
index 55ec92aa0e212158bdd60cdc6ce01e2c5f939d1b..f7eff12f196c7fff499c5316dbef55e7f75b0963 100755 (executable)
--- a/initgui.tcl
+++ b/initgui.tcl
@@ -1,4 +1,4 @@
-# $Id: initgui.tcl,v 1.34.2.3 2007/07/19 00:12:45 marko Exp $ 
+# $Id: initgui.tcl,v 1.34.2.4 2007/07/19 01:30:46 marko Exp $ 
 #
 # Copyright 2004, 2005 University of Zagreb, Croatia.  All rights reserved.
 #
@@ -647,9 +647,9 @@ menu .button3menu.ethereal -tearoff 0
 #
 set invisible -1
 bind . <Control-i> {
-   global invisible
-   set invisible [expr $invisible * -1]
-   redrawAll
+    global invisible
+    set invisible [expr $invisible * -1]
+    redrawAll
 }
 
 #