Improved version format selector

UNLICENSE

@@ -0,0 +1,24 @@
+This is free and unencumbered software released into the public domain.
+
+Anyone is free to copy, modify, publish, use, compile, sell, or
+distribute this software, either in source code form or as a compiled
+binary, for any purpose, commercial or non-commercial, and by any
+means.
+
+In jurisdictions that recognize copyright laws, the author or authors
+of this software dedicate any and all copyright interest in the
+software to the public domain. We make this dedication for the benefit
+of the public at large and to the detriment of our heirs and
+successors. We intend this dedication to be an overt act of
+relinquishment in perpetuity of all present and future rights to this
+software under copyright law.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY CLAIM, DAMAGES OR
+OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+OTHER DEALINGS IN THE SOFTWARE.
+
+For more information, please refer to <http://unlicense.org/>

armagedec.tcl

@@ -7,7 +7,7 @@
 
 package require Tk
 
-set appversion 0.6
+set appversion 0.7
 set scriptpath [file normalize [info script]]
 set appdir [file dirname $scriptpath]
 # check if we're running from a starpack
@@ -847,10 +847,12 @@ grid $calcpref.result -column 1 -row 2 -sticky nsw -padx 5 -pady 5
 # Version overrider
 set verpref ".tabbar.nopts.right.vers"
 ttk::labelframe $verpref -text "Version converter"
-ttk::label "$verpref.verlbl" -text "Format version"
-ttk::entry "$verpref.vertxt" -width 1 -textvariable wsc_data(version)
-grid $verpref.verlbl -column 0 -row 1 -sticky nws -padx 5 -pady 5
-grid $verpref.vertxt -column 1 -row 1 -sticky nw -padx 5 -pady 5
-grid $verpref -column 0 -row 1 -sticky nw -padx 5 -pady 5
-
-
+set irow 0
+set vnames {{} {Version 1 (45 weapons)} {Version 2 (64 weapons)} {Version 3 (extended)}}
+foreach v {1 2 3} {
+  set rbid [string cat $verpref ".opt" $v]
+  ttk::radiobutton $rbid -variable wsc_data(version) -text [lindex $vnames $v] -value $v
+  grid $rbid -column 0 -row $irow -sticky nsw
+  incr irow
+}
+grid $verpref -row 1 -column 0 -sticky nswe -padx 5