if { [info exists imagedir] == 0 } {
set imagedir .
}
+if { [info exists test_image ] == 0 } {
+ set test_image photo
+}
#set WorkDirectory "$env(TmpDir)"
set WorkDirectory $imagedir
-
if {![file exists $WorkDirectory]} {
catch {[file mkdir $WorkDirectory]}
} else {