luxferre/ArmageDec
1
0
Fork 0
Code Actions Releases 1 Activity

Improved version format selector

Browse Source
This commit is contained in:
Luxferre
2024-10-13 07:17:15 +03:00
parent 218491bc4b
commit f0b4b7bd21
1 changed files with 10 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
armagedec.tcl
+10 -8
View File
@@ -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