No comments

diff --git a/src/WOKTclLib/wok.tcl b/src/WOKTclLib/wok.tcl
index d1e0f09dd3a74d448829e013d6de32a5c4dea914..a4bae9f1ad5c2ff134f1767a1d7cd42853c39444 100755 (executable)
--- a/src/WOKTclLib/wok.tcl
+++ b/src/WOKTclLib/wok.tcl
@@ -41,7 +41,12 @@ proc iwok { args } {
     set IWOK_GLOBALS(canvas,height) 1200
     set IWOK_GLOBALS(order) 1
     set IWOK_GLOBALS(term,started) 0
-    tix addbitmapdir [set IWOK_GLOBALS(maps) $env(WOK_LIBRARY)]
+    if [file exists [file join $env(WOK_LIBRARY) images]] {
+       tix addbitmapdir [set IWOK_GLOBALS(maps) [file join $env(WOK_LIBRARY) images]]
+    } else {
+       tix addbitmapdir [set IWOK_GLOBALS(maps) $env(WOK_LIBRARY)]
+    }
+    
     set IWOK_GLOBALS(layout) 0
     set IWOK_GLOBALS(layout,update) 1
     set IWOK_GLOBALS(font)     [tix option get fixed_font]