-
-
26 апр 06Кто TCL понимает хорошо? Где-то тут ошибка:
if {[file exists plugins] == 0} { file mkdir plugins }
foreach dir [lsort -dictionary [glob -directory plugins *]] {
if {[file isdirectory $dir]} {
# catch {source "$dir/main.tcl"}
source "$dir/main.tcl"
# if {[catch {logoplug configure -file $dir/logo}]} {
# logoplug configure -file logo.png
# }
# .splash.main.p configure -text [file normalize $dir]
}
} -
M26 апр 06можно :)
скрипт (со всеми операторами)
+ обновление
повторная просьба не личить ссылки
http://overview.ru/forum/vi...
Сделано с
NoNaMe