From 2d5a44c34a9a2e078baeaee7ba99336134b29fcc Mon Sep 17 00:00:00 2001 From: cas Date: Fri, 13 Jul 2001 17:06:14 +0000 Subject: [PATCH] No comments --- src/WOKTclLib/wok.tcl | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/src/WOKTclLib/wok.tcl b/src/WOKTclLib/wok.tcl index d1e0f09..a4bae9f 100755 --- 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] -- 2.39.5