blob: 8ae2b33cbb83e47e362e9902433fc018baea5141 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
proc pddplink_open {filename dir} {
if {[string first "://" $filename] > -1} {
menu_openhtml $filename
} elseif {[file pathtype $filename] eq "absolute"} {
menu_openhtml $filename
} elseif {[file exists [file join $dir $filename]]} {
menu_doc_open $dir $filename
} else {
bell ;# beep on error to provide instant feedback
pdtk_post "\[pddplink\] ERROR file not found: $filename\n"
}
}
|