kotovalexarian-likes-github/ruby--ruby
1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00
Code Releases Activity

* ext/tk/lib/tkextlib/tile.rb, ext/tk/lib/tkextlib/tile/style.rb,

Browse source 
ext/tk/sample/tkextlib/tile/demo.rb: previous patch is not complete.


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@15969 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
nagai 2008-04-11 03:45:25 +00:00
parent 2697c924a9
commit 59e126383c
3 changed files with 18 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
ChangeLog
View file

@ -1,3 +1,8 @@
Fri Apr 11 12:43:56 2008 Hidetoshi NAGAI <nagai@ai.kyutech.ac.jp>
* ext/tk/lib/tkextlib/tile.rb, ext/tk/lib/tkextlib/tile/style.rb,
ext/tk/sample/tkextlib/tile/demo.rb: previous patch is not complete.
Fri Apr 11 10:22:54 2008 Hidetoshi NAGAI <nagai@ai.kyutech.ac.jp> Fri Apr 11 10:22:54 2008 Hidetoshi NAGAI <nagai@ai.kyutech.ac.jp>
* ext/tk/lib/tkextlib/tile.rb: * ext/tk/lib/tkextlib/tile.rb:

1
ext/tk/lib/tkextlib/tile.rb
View file

@ -137,6 +137,7 @@ module Tk
# do nothing !!! # do nothing !!!
warn "Warning: can't define '#{cmd}' command (already exist)" if $DEBUG warn "Warning: can't define '#{cmd}' command (already exist)" if $DEBUG
next
end end
TkNamespace.eval(ns){ TkNamespace.eval(ns){
TkCore::INTERP.add_tk_procs(proc_name, 'imgdir {patterns {*.gif}}', TkCore::INTERP.add_tk_procs(proc_name, 'imgdir {patterns {*.gif}}',

15
ext/tk/lib/tkextlib/tile/style.rb
View file

@ -39,6 +39,7 @@ class << Tk::Tile::Style
# do nothing !!! # do nothing !!!
warn "Warning: can't define '::ttk::style' command (already exist)" if $DEBUG warn "Warning: can't define '::ttk::style' command (already exist)" if $DEBUG
return
end end
TkCore::INTERP.add_tk_procs('::ttk::style', 'args', <<-'EOS') TkCore::INTERP.add_tk_procs('::ttk::style', 'args', <<-'EOS')
if [string equal [lrange $args 0 1] {element create}] { if [string equal [lrange $args 0 1] {element create}] {
@ -59,8 +60,12 @@ class << Tk::Tile::Style
else ### TILE_SPEC_VERSION_ID == 7 else ### TILE_SPEC_VERSION_ID == 7
def __define_wrapper_proc_for_compatibility__! def __define_wrapper_proc_for_compatibility__!
unless Tk.info(:commands, '::ttk::style').empty? unless Tk.info(:commands, '::ttk::style').empty?
fail RuntimeError, # fail RuntimeError,
"can't define ':ttk::style' command (already exist)" # "can't define '::ttk::style' command (already exist)"
# do nothing !!!
warn "Warning: can't define '::ttk::style' command (already exist)" if $DEBUG
return
end end
TkCore::INTERP.add_tk_procs('::ttk::style', 'args', <<-'EOS') TkCore::INTERP.add_tk_procs('::ttk::style', 'args', <<-'EOS')
if [string equal [lrange $args 0 1] {element create}] { if [string equal [lrange $args 0 1] {element create}] {
@ -87,7 +92,11 @@ class << Tk::Tile::Style
def __define_wrapper_proc_for_compatibility__! def __define_wrapper_proc_for_compatibility__!
unless Tk.info(:commands, '::style').empty? unless Tk.info(:commands, '::style').empty?
fail RuntimeError, "can't define '::style' command (already exist)" # fail RuntimeError, "can't define '::style' command (already exist)"
# do nothing !!!
warn "Warning: can't define '::style' command (already exist)" if $DEBUG
return
end end
TkCore::INTERP.add_tk_procs('::style', 'args', <<-'EOS') TkCore::INTERP.add_tk_procs('::style', 'args', <<-'EOS')
if [string equal [lrange $args 0 1] {element create}] { if [string equal [lrange $args 0 1] {element create}] {