mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
* ext/tcltklib/tcltklib.c: fix SEGV bug; trouble on canceling remained
after scripts [ruby-dev:25479]: NULL current namespce when deleting Tk interpreter [ruby-talk:126225] * ext/tcltklib/extconf.rb: bug fix; TCL_ENABLE_THREAD flag is inverted [ruby-talk:126360] * ext/tcltklib/extconf.rb: add yet another native-thread check * ext/tk/tkutil.c: fix SEGV bug; NULL string pointer when finalize Ruby interpreter * ext/tk/lib/multi-tk.rb: avoid warning for deleted safeTk ip frame * ext/tk/lib/tk/bindtag.rb: bug fix; new method of named bindtag doesn't return the created object [ruby-dev:25479] * ext/tk/lib/tk/menu.rb: bug on treating arguments [ruby-dev:25479] * ext/tk/lib/tk.rb: bug fix; cannot accept a callback ID string for a command argument [ruby-dev:25479] * ext/tk/lib/multi-tk.rb: ditto * ext/tk/lib/tk/*.rb: ditto * ext/tk/lib/tkextlib/*.rb: ditto * ext/tk/sample/demos-jp/anilabel.rb: new demo script * ext/tk/sample/demos-en/anilabel.rb: ditto * ext/tk/sample/tkHTML/ss.rb: local variable scope bug fix [ruby-dev:25479] git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@7821 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
nagai
parent
586d308ecf
commit
10484e5c95
31 changed files with 639 additions and 105 deletions
174
ext/tk/sample/demos-jp/anilabel.rb
Normal file
174
ext/tk/sample/demos-jp/anilabel.rb
Normal file
|
|
@ -0,0 +1,174 @@
|
|||
#
|
||||
# animated label widget demo (called by 'widget')
|
||||
#
|
||||
# based on Tcl/Tk8.5a2 widget demos
|
||||
|
||||
# toplevel widget が存在すれば削除する
|
||||
if defined?($anilabel_demo) && $anilabel_demo
|
||||
$anilabel_demo.destroy
|
||||
$anilabel_demo = nil
|
||||
end
|
||||
|
||||
# demo 用の toplevel widget を生成
|
||||
$anilabel_demo = TkToplevel.new {|w|
|
||||
title("Animated Label Demonstration")
|
||||
iconname("anilabel")
|
||||
positionWindow(w)
|
||||
}
|
||||
|
||||
# label 生成
|
||||
msg = TkLabel.new($anilabel_demo) {
|
||||
font $font
|
||||
wraplength '4i'
|
||||
justify 'left'
|
||||
text "下には4つのアニメーションラベルが表示されています。左側にあるラベルは、内部のテキストメッセージをスクロールしたように見せることで動きを付けています。右側のラベルは、表示するイメージを変化させることで動きを与えています。"
|
||||
}
|
||||
msg.pack('side'=>'top')
|
||||
|
||||
# frame 生成
|
||||
TkFrame.new($anilabel_demo) {|frame|
|
||||
TkButton.new(frame) {
|
||||
#text '了解'
|
||||
text '閉じる'
|
||||
command proc{
|
||||
tmppath = $anilabel_demo
|
||||
$anilabel_demo = nil
|
||||
tmppath.destroy
|
||||
}
|
||||
}.pack('side'=>'left', 'expand'=>'yes')
|
||||
|
||||
TkButton.new(frame) {
|
||||
text 'コード参照'
|
||||
command proc{showCode 'label'}
|
||||
}.pack('side'=>'left', 'expand'=>'yes')
|
||||
|
||||
}.pack('side'=>'bottom', 'fill'=>'x', 'pady'=>'2m')
|
||||
|
||||
# label demo 用フレーム生成
|
||||
f_left = TkLabelFrame.new($anilabel_demo, :text=>'Scrolling Texts')
|
||||
f_right = TkLabelFrame.new($anilabel_demo, :text=>'GIF Image')
|
||||
Tk.pack(f_left, f_right, 'side'=>'left', 'expand'=>'yes', 'fill'=>'both',
|
||||
'padx'=>10, 'pady'=>10)
|
||||
|
||||
# animated label
|
||||
class AnimatedTextLabel < TkLabel
|
||||
def initialize(*args)
|
||||
super(*args)
|
||||
@timer = TkTimer.new{ _animation_callback }
|
||||
@timer.loop_exec = -1
|
||||
# bind('Destroy'){ @timer.stop }
|
||||
@btag = TkBindTag.new('Destroy'){ @timer.stop }
|
||||
self.bindtags_unshift(@btag)
|
||||
end
|
||||
|
||||
def _animation_callback()
|
||||
txt = self.text
|
||||
self.text = (txt[1..-1] << txt[0])
|
||||
end
|
||||
private :_animation_callback
|
||||
|
||||
def start(interval)
|
||||
@timer.set_interval(interval)
|
||||
@timer.start
|
||||
end
|
||||
|
||||
def stop
|
||||
@timer.stop
|
||||
end
|
||||
end
|
||||
|
||||
# animated image
|
||||
class AnimatedImageLabel < AnimatedTextLabel
|
||||
def initialize(*args)
|
||||
super(*args)
|
||||
@destroy_image = false
|
||||
@btag.bind_append('Destroy'){
|
||||
if @destroy_image
|
||||
begin
|
||||
self.image.delete
|
||||
rescue
|
||||
end
|
||||
end
|
||||
}
|
||||
end
|
||||
attr_accessor :destroy_image
|
||||
|
||||
def _animation_callback()
|
||||
img = self.image
|
||||
|
||||
fmt = img.format
|
||||
if fmt.kind_of?(Array)
|
||||
if fmt[1].kind_of?(Hash)
|
||||
# fmt == ['GIF', {'index'=>idx}]
|
||||
idx = fmt[1]['index']
|
||||
else
|
||||
# fmt == ['GIF', '-index', idx] :: Ruby1.8.2 returns this.
|
||||
idx = fmt[2]
|
||||
end
|
||||
elsif fmt.kind_of?(String) && fmt =~ /GIF -index (\d+)/
|
||||
idx = $1.to_i
|
||||
else
|
||||
idx = -1
|
||||
end
|
||||
|
||||
begin
|
||||
img.format("GIF -index #{idx + 1}")
|
||||
rescue => e
|
||||
img.format("GIF -index 0")
|
||||
end
|
||||
end
|
||||
private :_animation_callback
|
||||
end
|
||||
|
||||
# label 生成
|
||||
l1 = AnimatedTextLabel.new(f_left, :borderwidth=>4, :relief=>:ridge,
|
||||
:font=>{:family=>'Courier', :size=>10})
|
||||
l2 = AnimatedTextLabel.new(f_left, :borderwidth=>4, :relief=>:groove,
|
||||
:font=>{:family=>'Courier', :size=>10})
|
||||
l3 = AnimatedTextLabel.new(f_left, :borderwidth=>4, :relief=>:flat,
|
||||
:font=>{:family=>'Courier', :size=>10}, :width=>18)
|
||||
Tk.pack(l1, l2, l3,
|
||||
:side=>:top, :expand=>true, :anchor=>:w, :padx=>10, :pady=>10)
|
||||
|
||||
limg = AnimatedImageLabel.new(f_right, :borderwidth=>0)
|
||||
limg.pack(:side=>:top, :expand=>true, :padx=>10, :pady=>10)
|
||||
|
||||
# base64-encoded animated GIF file
|
||||
tclPowerdData = <<EOD
|
||||
R0lGODlhKgBAAPQAAP//////zP//AP/MzP/Mmf/MAP+Zmf+ZZv+ZAMz//8zM
|
||||
zMyZmcyZZsxmZsxmAMwzAJnMzJmZzJmZmZlmmZlmZplmM5kzM2aZzGZmzGZm
|
||||
mWZmZmYzZmYzMzNmzDMzZgAzmSH+IE1hZGUgd2l0aCBHSU1QIGJ5IExARGVt
|
||||
YWlsbHkuY29tACH5BAVkAAEALAAAAAAqAEAAAAX+YCCOZEkyTKM2jOm66yPP
|
||||
dF03bx7YcuHIDkGBR7SZeIyhTID4FZ+4Es8nQyCe2EeUNJ0peY2s9mi7PhAM
|
||||
ngEAMGRbUpvzSxskLh1J+Hkg134OdDIDEB+GHxtYMEQMTjMGEYeGFoomezaC
|
||||
DZGSHFmLXTQKkh8eNQVpZ2afmDQGHaOYSoEyhhcklzVmMpuHnaZmDqiGJbg0
|
||||
qFqvh6UNAwB7VA+OwydEjgujkgrPNhbTI8dFvNgEYcHcHx0lB1kX2IYeA2G6
|
||||
NN0YfkXJ2BsAMuAzHB9cZMk3qoEbRzUACsRCUBK5JxsC3iMiKd8GN088SIyT
|
||||
0RAFSROyeEg38caDiB/+JEgqxsODrZJ1BkT0oHKSmI0ceQxo94HDpg0qsuDk
|
||||
UmRAMgu8OgwQ+uIJgUMVeGXA+IQkzEeHGvD8cIGlDXsLiRjQ+EHroQhea7xY
|
||||
8IQBSgYYDi1IS+OFBCgaDMGVS3fGi5BPJpBaENdQ0EomKGD56IHwO39EXiSC
|
||||
Ysgxor5+Xfgq0qByYUpiXmwuoredB2aYH4gWWda0B7SeNENpEJHC1ghi+pS4
|
||||
AJpIAwWvKPBi+8YEht5EriEqpFfMlhEdkBNpx0HUhwypx5T4IB1MBg/Ws2sn
|
||||
wV3MSQOkzI8fUd48Aw3dOZto71x85hHtHijYv18Gf/3GqCdDCXHNoICBobSo
|
||||
IqBqJLyCoH8JPrLgdh88CKCFD0CGmAiGYPgffwceZh6FC2ohIIklnkhehTNY
|
||||
4CIHHGzgwYw01ujBBhvAqKOLLq5AAk9kuSPkkKO40NB+h1gnypJIIvkBf09a
|
||||
N5QIRz5p5ZJXJpmlIVhOGQA2TmIJZZhKKmmll2BqyWSXWUrZpQtpatlmk1c2
|
||||
KaWRHeTZEJF8SqLDn/hhsOeQgBbqAh6DGqronxeARUIIACH5BAUeAAAALAUA
|
||||
LgAFAAUAAAUM4CeKz/OV5YmqaRkCACH5BAUeAAEALAUALgAKAAUAAAUUICCK
|
||||
z/OdJVCaa7p+7aOWcDvTZwgAIfkEBR4AAQAsCwAuAAkABQAABRPgA4zP95zA
|
||||
eZqoWqqpyqLkZ38hACH5BAUKAAEALAcALgANAA4AAAU7ICA+jwiUJEqeKau+
|
||||
r+vGaTmac63v/GP9HM7GQyx+jsgkkoRUHJ3Qx0cK/VQVTKtWwbVKn9suNunc
|
||||
WkMAIfkEBQoAAAAsBwA3AAcABQAABRGgIHzk842j+Yjlt5KuO8JmCAAh+QQF
|
||||
CgAAACwLADcABwAFAAAFEeAnfN9TjqP5oOWziq05lmUIACH5BAUKAAAALA8A
|
||||
NwAHAAUAAAUPoPCJTymS3yiQj4qOcPmEACH5BAUKAAAALBMANwAHAAUAAAUR
|
||||
oCB+z/MJX2o+I2miKimiawgAIfkEBQoAAAAsFwA3AAcABQAABRGgIHzfY47j
|
||||
Q4qk+aHl+pZmCAAh+QQFCgAAACwbADcABwAFAAAFEaAgfs/zCV9qPiNJouo7
|
||||
ll8IACH5BAUKAAAALB8ANwADAAUAAAUIoCB8o0iWZggAOw==
|
||||
EOD
|
||||
|
||||
l1.text('* Slow Animation *').start(300)
|
||||
l2.text('* Fast Animation *').start(80)
|
||||
l3.text('This is a longer scrolling text in a widget that will not show the whole message at once. ').start(150)
|
||||
|
||||
limg.destroy_image = true
|
||||
limg.image(TkPhotoImage.new(:format=>'GIF', :data=>tclPowerdData)).start(100)
|
||||
|
|
@ -437,6 +437,12 @@ txt.insert('end', " \n ", tag_demospace)
|
|||
txt.insert('end', "3. 色選択ダイアログ\n", tag_demo, "demo-clrpick")
|
||||
txt.insert('end', " \n ", tag_demospace)
|
||||
|
||||
txt.insert('end', "\n")
|
||||
#txt.insert('end', "アニメーション\n", tag_middle)
|
||||
txt.insert('end', "アニメーション\n", tag_kanji_title)
|
||||
txt.insert('end', " \n ", tag_demospace)
|
||||
txt.insert('end', "1. アニメーションラベル (機能に対応したバージョンのTkが必要)\n", tag_demo, "demo-anilabel")
|
||||
|
||||
txt.insert('end', "\n")
|
||||
#txt.insert('end', "その他\n", tag_middle)
|
||||
txt.insert('end', "その他\n", tag_kanji_title)
|
||||
|
|
@ -807,7 +813,7 @@ end
|
|||
#
|
||||
def aboutBox
|
||||
Tk.messageBox('icon'=>'info', 'type'=>'ok', 'title'=>'About Widget Demo',
|
||||
'message'=>"Ruby/Tk ウィジェットデモ Ver.1.4.4-jp\n\n" +
|
||||
'message'=>"Ruby/Tk ウィジェットデモ Ver.1.5.0-jp\n\n" +
|
||||
"based on demos of Tk8.1 -- 8.5 " +
|
||||
"( Copyright:: " +
|
||||
"(c) 1996-1997 Sun Microsystems, Inc. / " +
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue