From f0b4b7bd217fe4de4cf505debd150f107800aeb7 Mon Sep 17 00:00:00 2001
From: Luxferre <lux@ferre>
Date: Sun, 13 Oct 2024 07:17:15 +0300
Subject: [PATCH] Improved version format selector

---
 armagedec.tcl | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

diff --git a/armagedec.tcl b/armagedec.tcl
index 7730869..e7c0974 100755
--- a/armagedec.tcl
+++ b/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