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

v0.4: fixed default value validation for v3

Browse Source
This commit is contained in:
Luxferre
2024-10-12 17:05:16 +03:00
parent b749722945
commit 27c669f67f
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
armagedec.tcl
+4 -2
View File
@@ -7,7 +7,7 @@
package require Tk package require Tk
set appversion 0.3 set appversion 0.4
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
@@ -359,7 +359,9 @@ proc fullscanscheme {version} {
if {$size eq 1} {set fmt cu} if {$size eq 1} {set fmt cu}
if {$size eq 2} {set fmt s} if {$size eq 2} {set fmt s}
if {$size eq 4} {set fmt i} if {$size eq 4} {set fmt i}
binary scan [string range $rawschemedata $offs [expr {$offs + $size}]] $fmt wscval set newval ""
binary scan [string range $rawschemedata $offs [expr {$offs + $size}]] $fmt newval
if {$newval ne ""} {set wscval $newval}
if {([llength $valopt] > 1) && ([lindex $valopt 0] eq "spec")} { if {([llength $valopt] > 1) && ([lindex $valopt 0] eq "spec")} {
set readfunc "[lindex $valopt 1]_read" set readfunc "[lindex $valopt 1]_read"
set wscval [$readfunc $wscval] set wscval [$readfunc $wscval]