svk/projman
1
0
Fork 0
Code Issues 1 Pull Requests Actions 1 Packages Projects Releases Wiki Activity

Some changes into GUI (tabs)

Browse Source
This commit is contained in:
svkalinin
2022-07-21 10:37:19 +03:00
parent f1ca27d3e0
commit faf594ce9b
14 changed files with 390 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
lib/procedure.tcl
View File

@@ -587,6 +587,8 @@ proc HighLight {ext text line lineNumber node} {
HighLightPHP $text $line $lineNumber $node
} elseif {($ext == "rb")} {
HighLightRUBY $text $line $lineNumber $node
} elseif {($ext == "sh")} {
HighLightSHELL $text $line $lineNumber $node
} else {
HighLightTCL $text $line $lineNumber $node
}
@@ -665,8 +667,26 @@ proc GetExtention {node} {
return $ext
}
# Get system command name from PATH environment variable
proc GetSystemCommand {} {
global tcl_platform env systemCmdList
switch -exact -- $tcl_platform(platform) {
"unix" {
foreach path [split $env(PATH) ":"] {
foreach commandName [lsort [glob -nocomplain [file join $path *]]] {
lappend systemCmdList [file tail $commandName]
}
}
}
"windows" {
foreach path [split $env(PATH) ";"] {
foreach commandName [lsort [glob -nocomplain [file join $path *]]] {
lappend systemCmdList [file tail $commandName]
}
}
}
}
}