Mega Code Archive
Displays a photo
<![CDATA[
#!/usr/bin/env ruby
require 'tk'
require "tkextlib/tkimg/jpeg"
require "open-uri"
photo = open("http://www.rntsoft.com/style/logo.png", "rb") {|io| io.read}
TkRoot.new {title "S" }
TkLabel.new {
image TkPhotoImage.new( :data => Tk::BinaryString( photo ) )
width 300
pack
}
TkLabel.new {
font TkFont.new( 'verdana 24 bold' )
text "Sunrise at sunset!"
pack
}
TkButton.new {
text 'Quit'
command 'exit'
pack
}
Tk.mainloop
]]>