From 97e05c836cb55360625f9afc371e6f7973ff01e5 Mon Sep 17 00:00:00 2001 From: Josip Rodin Date: Sat, 10 Oct 2009 14:14:25 +0200 Subject: [PATCH] koristi portabilniju varijablu tcl_platform(user) --- imunes.tcl | 2 +- linux/exec.tcl | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/imunes.tcl b/imunes.tcl index 6968c7d..cc559d8 100755 --- 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 19d930e..f939030 100755 --- 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 -- 2.39.5