From: Hidetoshi NAGAI <nagai@...>
Date: 2007-10-21T08:42:09+09:00
Subject: Re: using TkPhotoImage

From: Ed Redman <redman@accesswave.ca>
Subject: using TkPhotoImage
Date: Sat, 20 Oct 2007 23:30:06 +0900
Message-ID: <KdoSi.21949$GO5.15601@edtnps90>
> I am trying to convert a set of cards from a tcl/tk program that uses 
> data to create the image. I have been able to use a gif file to create 
> the image but would like to data as the tcl program does.
> 
> Here is the image in the tcl program 
> image create photo ::img::2d -format gif -data {
     (snip)
> Could someone help me convert this into ruby.

Here you are.
---------------------------------------------------------------------------
require 'tk'

puts '=============< pattern 1 >==========================='
Tk.ip_eval <<END_OF_TCL_SCRIPT
image create photo ::img::2d -format gif -data {
    R0lGODlhRwBgAKEAAH//1AAAAP////8AACH5BAEAAAAALAAAAABHAGAAAAL/BIKpy+0PYzBH2I
    uz3rz7L0wBSJamiZzquqbXAMPsTLtCjNP6acuWvwt6bBmg8JghvozIpvLGbCKVseNAmhwtr8Iq
    1tLzRU84Lja8pJXHwXB5tvY6tdA3K87WPXd4+XGv1ufXRvfDJyhFNLjSd0ZnB4fn+LOmE/flcm
    mZg6mluWk2SbkI93WhmGdaU3ijKuqqCgj7xzo7Z2sqi6tXu0vom9gLvDo8JVzccozMo7xcoutM
    Ah39MU3dYX29ka2d1Z38rcIdHtJMjjEenv693t2u/X4dTz0fXe98v5yPvF/cP/wPWEBfA3cVxH
    XQVsJZC2E1dPUwlrluocqd2+BnYcVAbnISklKh6SCkSHYKfrpTyaKURhyBDGTJEd1EMogseUMi
    6OOMgDmDYYEJMqXKJkBpQjIplJEZlzOV6iQhhqmqp0ZlutpI8ubFURoigtrWFBkbr4HSgAlb7B
    PZlqHW+txarQJcDhMMSLiLN+9dAwUAADs=}

label .l -image ::img::2d
pack .l
END_OF_TCL_SCRIPT
label_obj1 = TkComm.window('.l')
p ['label_obj1', label_obj1.image, label_obj1]

puts '=============< pattern 2 >==========================='
Tk.ip_eval <<END_OF_TCL_SCRIPT
image create photo ::img::2d -format gif -data {
    R0lGODlhRwBgAKEAAH//1AAAAP////8AACH5BAEAAAAALAAAAABHAGAAAAL/BIKpy+0PYzBH2I
    uz3rz7L0wBSJamiZzquqbXAMPsTLtCjNP6acuWvwt6bBmg8JghvozIpvLGbCKVseNAmhwtr8Iq
    1tLzRU84Lja8pJXHwXB5tvY6tdA3K87WPXd4+XGv1ufXRvfDJyhFNLjSd0ZnB4fn+LOmE/flcm
    mZg6mluWk2SbkI93WhmGdaU3ijKuqqCgj7xzo7Z2sqi6tXu0vom9gLvDo8JVzccozMo7xcoutM
    Ah39MU3dYX29ka2d1Z38rcIdHtJMjjEenv693t2u/X4dTz0fXe98v5yPvF/cP/wPWEBfA3cVxH
    XQVsJZC2E1dPUwlrluocqd2+BnYcVAbnISklKh6SCkSHYKfrpTyaKURhyBDGTJEd1EMogseUMi
    6OOMgDmDYYEJMqXKJkBpQjIplJEZlzOV6iQhhqmqp0ZlutpI8ubFURoigtrWFBkbr4HSgAlb7B
    PZlqHW+txarQJcDhMMSLiLN+9dAwUAADs=}
END_OF_TCL_SCRIPT
label_obj2 = TkLabel.new(:image=>'::img::2d').pack
p ['label_obj2', label_obj2.image, label_obj2]

puts '=============< pattern 3 >==========================='
img = TkPhotoImage.new(:format=>'gif', :data=>'
    R0lGODlhRwBgAKEAAH//1AAAAP////8AACH5BAEAAAAALAAAAABHAGAAAAL/BIKpy+0PYzBH2I
    uz3rz7L0wBSJamiZzquqbXAMPsTLtCjNP6acuWvwt6bBmg8JghvozIpvLGbCKVseNAmhwtr8Iq
    1tLzRU84Lja8pJXHwXB5tvY6tdA3K87WPXd4+XGv1ufXRvfDJyhFNLjSd0ZnB4fn+LOmE/flcm
    mZg6mluWk2SbkI93WhmGdaU3ijKuqqCgj7xzo7Z2sqi6tXu0vom9gLvDo8JVzccozMo7xcoutM
    Ah39MU3dYX29ka2d1Z38rcIdHtJMjjEenv693t2u/X4dTz0fXe98v5yPvF/cP/wPWEBfA3cVxH
    XQVsJZC2E1dPUwlrluocqd2+BnYcVAbnISklKh6SCkSHYKfrpTyaKURhyBDGTJEd1EMogseUMi
    6OOMgDmDYYEJMqXKJkBpQjIplJEZlzOV6iQhhqmqp0ZlutpI8ubFURoigtrWFBkbr4HSgAlb7B
    PZlqHW+txarQJcDhMMSLiLN+9dAwUAADs=
')
label_obj3 = TkLabel.new(:image=>img).pack
p ['label_obj3', label_obj3.image, label_obj3]

puts '=============< image names >==========================='
p ['TkImage.names', TkImage.names]

puts '==========< create TkPhotoImage object for "::img::2d" >==========='
img2 = TkPhotoImage.new(:imagename=>'::img::2d', :without_creating=>true)
p ['image for ::img::2d', img2, img2.current_configinfo]

label_obj4 = TkLabel.new(:image=>img2).pack
p ['label_obj4', label_obj4.image, label_obj4]
p ['TkImage::Tk_IMGTBL[label_obj4.image]',TkImage::Tk_IMGTBL[label_obj4.image]]

puts '=============< image names >==========================='
p ['TkImage.names', TkImage.names]

Tk.mainloop
---------------------------------------------------------------------------
-- 
Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)