1 && [string equal -length $len $option "tildesubst"]} { set code [catch {file normalize $filename} res] if {$code == 0} { set filename $res } } elseif {$len > 1 && [string equal -length $len $option "trimslash"]} { # normalize extra slashes set filename [file join $filename] if {$filename ne "/"} { set filename [string trimright $filename "/"] } } else { return -code error "unknown option \"$option\",\ must be tildesubst or trimslash" } return $filename } interp alias {} tixRaiseWindow {} raise #proc tixUnmapWindow {w} { } # # if tix_library is not defined, we're running in SAM mode. ::tix::Init # will be called later by the Tix_Init() C code. # if {[info exists tix_library]} { ::tix::Init [file dirname [info script]] }