Mostly style cleanups and commentary.

[rocl] / elite-editor

diff --git a/elite-editor b/elite-editor
index 360f05bfea431afe31d560696a68e6e1291e4669..f367c1c19b84d863e614ff488008257f0fb5e4fc 100755 (executable)
--- a/elite-editor
+++ b/elite-editor
@@ -110,7 +110,7 @@ proc help-menu {m} {
 
 #----- Map editing machinery ------------------------------------------------
 
-tab col red orange yellow green blue magenta violet white
+_tab col red orange yellow green blue magenta violet white
 
 set seq 0
 set nwin 0
@@ -152,7 +152,7 @@ proc colour-by {seq} {
   set tl .map-$seq
   global col
   switch -exact -- $map(colourby) {
-    off { 
+    off {
       foreach-world $map(galaxy) p {
        $tl.map itemconfigure $p(seed) -fill white -outline white
       }
@@ -300,7 +300,7 @@ proc hide-path {seq} {
   }
 }
 
-proc path-to-text {seq} { 
+proc path-to-text {seq} {
   upvar \#0 map-$seq map
   set t {}
   foreach n $map(path) {
@@ -340,7 +340,7 @@ proc list-path {seq} {
   $tl.text delete 1.0 end
   $tl.text insert end [path-to-text $seq]
   $tl.text configure -state disabled
-}  
+}
 
 proc load-path {seq} {
   upvar \#0 map-$seq map
@@ -375,7 +375,7 @@ proc load-path {seq} {
     $tl.menu.path entryconfigure $i -state normal
   }
   show-path $seq
-}  
+}
 
 proc show-shortest-path {seq weight} {
   upvar \#0 map-$seq map
@@ -580,7 +580,7 @@ proc set-selection {seq p} {
   foreach i {5 6 7 8 9} {
     $tl.menu.path entryconfigure $i -state normal
   }
-}  
+}
 
 proc do-select {seq x y} {
   set-selection $seq [find-click $seq $x $y]
@@ -682,7 +682,7 @@ proc map-set-title {seq} {
 }
 
 proc map-set-galaxy {seq ng g} {
-  upvar \#0 map-$seq map  
+  upvar \#0 map-$seq map
   if {[string equal $g $map(galaxy)]} { return }
   set map(galaxy-num) $ng
   map-set-title $seq
@@ -736,7 +736,7 @@ proc map-new {ng g} {
       $tl.info.ldest $tl.info.dest \
       $tl.info.ldist $tl.info.dist \
       -side left -pady 2
-  
+
   scrollbar $tl.hscr -orient horizontal \
       -command [list $tl.map xview]
   scrollbar $tl.vscr -orient vertical \
@@ -785,7 +785,7 @@ proc map-new {ng g} {
   $tl.menu.path add command -label "Load path..." \
       -command [list load-path $seq]
   $tl.menu.path add command -label "Save path..." -state disabled \
-      -command [list save-path $seq] 
+      -command [list save-path $seq]
   $tl.menu.path add command -label "List path..." -state disabled \
       -command [list list-path $seq]
   $tl.menu.path add separator
@@ -857,7 +857,7 @@ proc integerp {min max n} {
 proc galaxyp {s} {
   if {![regexp {^[0-9a-fA-F]{12}$} $s]} { return 0 }
   return 1
-}  
+}
 
 proc cmdr-do-validate {seq widget check value} {
   upvar \#0 cmdr-$seq cmdr
@@ -1109,15 +1109,15 @@ proc cmdr-open {seq} {
   foreach {tag label kind} [list \
     mission            "Mission"               { entry 2 255 } \
     score              "Rating"                { dropbox 65535 \
-                                                 "Harmless"            0 \
-                                                 "Mostly harmless"     8 \
+                                                 "Harmless"            0 \
+                                                 "Mostly harmless"     8 \
                                                  "Poor"               16 \
-                                                 "Average"            32 \
+                                                 "Average"            32 \
                                                  "Above average"      64 \
-                                                 "Competent"         128 \
-                                                 "Dangerous"         512 \
-                                                 "Deadly"           2560 \
-                                                 "Elite"            6400 } \
+                                                 "Competent"         128 \
+                                                 "Dangerous"         512 \
+                                                 "Deadly"           2560 \
+                                                 "Elite"            6400 } \
     legal-status       "Legal status"          { dropbox 255 \
                                                  "Clean"       0 \
                                                  "Offender"    1 \
@@ -1127,7 +1127,7 @@ proc cmdr-open {seq} {
     fuel               "Fuel"                  { tenth 4 25.5 } \
     missiles           "Missiles"              { entry 4 255 } \
     energy-unit                "Energy unit"           { dropbox 255 \
-                                                 "None"        0 \
+                                                 "None"        0 \
                                                  "Standard"    1 \
                                                  "Naval"       2 } \
     front-laser                "Front laser"           $laser \
@@ -1207,7 +1207,7 @@ proc cmdr-open {seq} {
        cmdr-validate-widget $seq $tl.gal-number [list integerp 1 8]
        checkbutton $tl.std-gal -text "Standard galaxy" \
            -variable cmdr-${seq}(std-gal) -justify left \
-           -command [list cmdr-std-gal $seq]     
+           -command [list cmdr-std-gal $seq]
        entry-on-change $tl.gal-number [list cmdr-set-gal-num $seq]
        grid configure $tl.l-gal-number -row $r -column 0 -sticky e -padx 1 -pady 1
        grid configure $tl.std-gal -row $r -column 1 -sticky w -padx 1 -pady 1