koristi portabilniju varijablu tcl_platform(user)

diff --git a/imunes.tcl b/imunes.tcl
index 6968c7db295e0a621a235ecb13dfb95b3baf0a65..cc559d8435790574cc540b06053673e9be3ec912 100755 (executable)
--- a/imunes.tcl
+++ b/imunes.tcl
@@ -262,7 +262,7 @@ set exec_sockets_opened false
 #*****
 
 set remote_exec true
-if { $gui_unix && $::env(USERNAME) == "root" } {
+if { $gui_unix && $tcl_platform(user) == "root" } {
     set remote_exec false
 }
 

diff --git a/linux/exec.tcl b/linux/exec.tcl
index 19d930ebe0859d504345baf3d5254e2ef57542e5..f9390306f09294ec77fef701346b36e6e10525b1 100755 (executable)
--- a/linux/exec.tcl
+++ b/linux/exec.tcl
@@ -108,7 +108,7 @@ proc setOperMode { mode } {
        puts "\nsetOperMode $mode"
 
     if { $mode == "exec" } { ;# let's try something, sockets should be opened
-#        puts Running as $::env(USERNAME)...
+#        puts Running as $tcl_platform(user)...
        if { $editor_only } { ;# if set in nexec or open_exec_sockets
            .menubar.experiment entryconfigure "Execute" -state disabled
            return
@@ -161,7 +161,7 @@ proc setOperMode { mode } {
     .bottom.oper_mode configure -text "$mode mode"
     set activetool select
     .left.select configure -state active
-    if { "$mode" == "exec" && $::env(USERNAME) == "root" } {
+    if { "$mode" == "exec" && $tcl_platform(user) == "root" } {
        global autorearrange_enabled
        set autorearrange_enabled 0
        .menubar.tools entryconfigure "Auto rearrange all" -state disabled