~mdw
/
rocl
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
7f50b5a
)
Add `-jameson' option.
author
mdw
<mdw>
Sun, 2 Mar 2003 12:28:14 +0000
(12:28 +0000)
committer
mdw
<mdw>
Sun, 2 Mar 2003 12:28:14 +0000
(12:28 +0000)
README
patch
|
blob
|
blame
|
history
elite-editor
patch
|
blob
|
blame
|
history
diff --git
a/README
b/README
index
14659d3
..
88aae48
100644
(file)
--- a/
README
+++ b/
README
@@
-360,7
+360,7
@@
RIGHT ON COMMAND-LINE
3. The graphical editor
3. The graphical editor
- elite-editor [GALAXY | FILE]
+ elite-editor [GALAXY | FILE
| -jameson
]
Starts the RIGHT ON COMMAND-LINE Commander Editor and Map. This
is a Tk program -- you'll need that installed to run it.
Starts the RIGHT ON COMMAND-LINE Commander Editor and Map. This
is a Tk program -- you'll need that installed to run it.
@@
-450,7
+450,7
@@
RIGHT ON COMMAND-LINE
unrewarding) or pirates (risky and tedious), and start trading
food and other cheap items.
unrewarding) or pirates (risky and tedious), and start trading
food and other cheap items.
-$Id: README,v 1.
4 2003/03/01 17:47:07
mdw Exp $
+$Id: README,v 1.
5 2003/03/02 12:28:14
mdw Exp $
\f
Local variables:
mode: text
\f
Local variables:
mode: text
diff --git
a/elite-editor
b/elite-editor
index
631e30d
..
e92578e
100755
(executable)
--- a/
elite-editor
+++ b/
elite-editor
@@
-1,6
+1,6
@@
#! /usr/bin/wish
#
#! /usr/bin/wish
#
-# $Id: elite-editor,v 1.
5 2003/03/01 17:47:07
mdw Exp $
+# $Id: elite-editor,v 1.
6 2003/03/02 12:28:14
mdw Exp $
package require "elite" "1.0.0"
package require "elite" "1.0.0"
@@
-1166,12
+1166,23
@@
wm withdraw .
if {[llength $argv]} {
foreach a $argv {
if {[llength $argv]} {
foreach a $argv {
- set g [parse-galaxy-spec $a]
- if {[llength $g]} {
- destructure {ng g} $g
- map-new $ng $g
- } else {
- cmdr-load $a
+ switch -glob -- $a {
+ "-jameson" {
+ cmdr-new
+ }
+ "-*" {
+ puts stderr "$argv0: unknown option: $a"
+ exit 1
+ }
+ default {
+ set g [parse-galaxy-spec $a]
+ if {[llength $g]} {
+ destructure {ng g} $g
+ map-new $ng $g
+ } else {
+ cmdr-load $a
+ }
+ }
}
}
} else {
}
}
} else {