[cells-devel] Celtk and SBCL (and linux)

[Frank Goenninger]

Am 23.05.2006 um 22:05 schrieb Ken Tilton:

>
>
> On 5/23/06, Frank Goenninger <frgo at 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