Merge pull request therion#612 from speleo3/tcl-case2switch

Tcl: Replace obsolete "case" with "switch".
Afforix · Dec 20, 2024 · e0dcc67 · e0dcc67
2 parents ff2055b + 131fb87
commit e0dcc67
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 5 deletions.
diff --git a/xtherion/global.tcl b/xtherion/global.tcl
@@ -246,7 +246,7 @@ set xth(gui,bindinsdel) 1
 set xth(gui,me,pointsizectrl) 0
 
 # platform dependent settings
-case $tcl_platform(platform) {
+switch -- $tcl_platform(platform) {
   unix {
     set xth(gui,sbwidth) 9
     set xth(gui,sbwidthb) 1
@@ -303,7 +303,7 @@ case $tcl_platform(platform) {
 }
 
 
-case $tcl_platform(os) {
+switch -- $tcl_platform(os) {
   Darwin {
     set xth(gui,rmb) 2
   }

diff --git a/xtherion/mkall.tcl b/xtherion/mkall.tcl
@@ -35,7 +35,7 @@ switch $what {
 ##}
   }
   default {
-    case $what {
+    switch $what {
       WIN32 {
         set oid [open "xtherion.tcl" w]
       }
@@ -93,7 +93,7 @@ while {![eof $fid]} {
 close $fid
 close $oid
 
-case $tcl_platform(platform) {
+switch -- $tcl_platform(platform) {
   unix {
     catch {exec chmod 775 xtherion}
     catch {exec chmod 775 svxedit}

diff --git a/xtherion/svx_global.tcl b/xtherion/svx_global.tcl
@@ -48,7 +48,7 @@ set xth(prj,title) "survex source editor"
 set xth(about,info) "svxedit v1.0 beta\n \u00A9 2002 Stacho Mudrak"
 
 # fonts :-)
-case $tcl_platform(platform) {
+switch -- $tcl_platform(platform) {
   unix {
     set xth(gui,lfont) "Helvetica 10"
     set xth(gui,efont) {fixed 10 roman}