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 package require Tk
set appversion 0.6 set appversion 0.7
set scriptpath [file normalize [info script]] set scriptpath [file normalize [info script]]
set appdir [file dirname $scriptpath] set appdir [file dirname $scriptpath]
# check if we're running from a starpack # 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 # Version overrider
set verpref ".tabbar.nopts.right.vers" set verpref ".tabbar.nopts.right.vers"
ttk::labelframe $verpref -text "Version converter" ttk::labelframe $verpref -text "Version converter"
ttk::label "$verpref.verlbl" -text "Format version" set irow 0
ttk::entry "$verpref.vertxt" -width 1 -textvariable wsc_data(version) set vnames {{} {Version 1 (45 weapons)} {Version 2 (64 weapons)} {Version 3 (extended)}}
grid $verpref.verlbl -column 0 -row 1 -sticky nws -padx 5 -pady 5 foreach v {1 2 3} {
grid $verpref.vertxt -column 1 -row 1 -sticky nw -padx 5 -pady 5 set rbid [string cat $verpref ".opt" $v]
grid $verpref -column 0 -row 1 -sticky nw -padx 5 -pady 5 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