Install done, no need to restart Rox, just use it.
Shell script 1 /root/Choices/MIME-types/text
#! /usr/bin/wish
wm transient .
wm frame .
wm withdraw .
catch { exec pwd } path
set path "$argv0/../app_start"
set l [split $path /]
set n [lsearch $l ..]
for {} {$n != -1} {} {
if {$n != -1} {
set a [lrange $l 0 [expr "$n-2"]]
set l [concat $a [lrange $l [expr "$n+1"] end]]
}
set n [lsearch $l ..]
}