#! /usr/bin/wish
#
-# $Id: elite-editor,v 1.9 2003/03/18 10:40:32 mdw Exp $
+# $Id$
package require "elite" "1.0.1"
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
}
}
}
-proc path-to-text {seq} {
+proc path-to-text {seq} {
upvar \#0 map-$seq map
set t {}
foreach n $map(path) {
$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
$tl.menu.path entryconfigure $i -state normal
}
show-path $seq
-}
+}
proc show-shortest-path {seq weight} {
upvar \#0 map-$seq map
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]
}
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
$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 \
$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
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
set cmdr(bogus) 0
foreach {tag label kind} [list \
mission "Mission" { entry 2 255 } \
- score "Rating" { dropbox 65535\
- "Harmless" 0 \
- "Mostly harmless" 8 \
+ score "Rating" { dropbox 65535 \
+ "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 \
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 \
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