Image-Names

From: Thomas Bürger <thomas.buerger_at_tu-clausthal.de>
Date: Fri, 23 Jun 2000 13:55:30 +0200

Hello listies, Salut Erick,

I'm using a Tk-Extension called imagePs-1.0 with STk-4.0.0. This extension
generates Postscript-code from images in a canvas. The Postscript-code has a bug
due to the fact that image-names generated from STk contains a blank ' '. So I
patched myself the files image.stk and Image.stklos where I found the String
'Img':

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
bash-2.03# diff image.stk image.stk.orig
34c34
< (image-name (lambda (key) (& "*Img-" key "*")))

---
>        (image-name  (lambda (key) (& "*Img " key "*")))
bash-2.03# diff Image.stklos Image.stklos.orig
149c149
<   (apply image 'create 'bitmap (gensym "Img-") args))
---
>   (apply image 'create 'bitmap (gensym "Img ") args))
178c178
<   (apply image 'create 'photo (gensym "Img-") args))
---
>   (apply image 'create 'photo (gensym "Img ") args))
202c202
<     (slot-set! self 'id (apply image 'create 'pixmap (gensym "Img-") args))))
---
>     (slot-set! self 'id (apply image 'create 'pixmap (gensym "Img ") args))))      
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
My application works with this patch. If there is no reason to have the blank in
the image-name could we apply it to the next release?
Amities, Thomas
-- 
****************************************************************************
* Dr.-Ing. Thomas Buerger, +49 5323 84565 oder D1: +49 1703707185          *
*************************************************** Roh macht froh ;-) *****

Received on Fri Jun 23 2000 - 14:07:34 CEST