From: marko <marko>
Date: Thu, 19 Jul 2007 01:30:46 +0000 (+0000)
Subject: More manual whitespace cleanup.
X-Git-Url: https://git.entuzijast.net/?a=commitdiff_plain;h=ef9945b76c87a75d86f0a2966faa1b834f7232d5;p=imunes.git

More manual whitespace cleanup.

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

diff --git a/README b/README
index ab7e9b1..03c4e99 100755
--- 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 a2b2d64..9d5533a 100644
--- 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 94534f6..042130e 100755
--- 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 ea7eb5f..b0dd9bf 100755
--- 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 15ccb45..e4f95c0 100755
--- 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 55ec92a..f7eff12 100755
--- 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
 }
 
 #