Am 23.05.2006 um 22:05 schrieb Ken Tilton:

On 5/23/06, Frank Goenninger frgo@mac.com wrote: Hi all:

Am 23.05.2006 um 21:06 schrieb Ken Tilton:

...

2. find the function tk-format-now and monkey with the debug stuff

so that any message to Tk with the word "bitmap" in it gets printed, and see if you can catch the output and post that.

I get:

tk> .f332.cv334 create bitmap 140 140 -bitmap "@\0dev\Celtk\ \x1.xbm"

That works. Then changing the name to something it will not find, I get:

 Error: Tcl error: error reading bitmap file "\0dev\Celtk

\xoxox1.xbm"

This has to be adapted to Linux-style path names:

"/the/path/to/the/file/1.xbm"

Thanks. Pardon my OS-centrism.

Hehe. ;-)

Like this?:

(mk-bitmap :coords (list 140 140) :bitmap (conc$ "@" (namestring (make-pathname :directory '(:absolute "0dev" "Celtk") :name "x1" :type "xbm"))))

Yep. That's one way. Works also with

(mk-bitmap :coords (list 140 140) :bitmap ("@/0dev/Celtk/name/x1.xbm")

If that path exists, of course ;-)

kenny

Frank