mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
* ext/tk/lib/tcltklib : bug fix
* ext/tk/lib/tk : bug fix and add Tcl/Tk extension support libraries git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@6559 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
parent
73cf1d02ba
commit
ffcedd7950
199 changed files with 14221 additions and 677 deletions
28
ext/tk/lib/tkextlib/tile/tlabel.rb
Normal file
28
ext/tk/lib/tkextlib/tile/tlabel.rb
Normal file
|
@ -0,0 +1,28 @@
|
|||
#
|
||||
# tlabel widget
|
||||
# by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
|
||||
#
|
||||
require 'tk'
|
||||
|
||||
# call setup script for general 'tkextlib' libraries
|
||||
require 'tkextlib/setup.rb'
|
||||
|
||||
# call setup script -- <libdir>/tkextlib/tile.rb
|
||||
require(File.dirname(File.expand_path(__FILE__)) + '.rb')
|
||||
|
||||
class Tk::Tile::TLabel < TkLabel
|
||||
include Tk::Tile::TileWidget
|
||||
|
||||
TkCommandNames = ['tlabel'.freeze].freeze
|
||||
WidgetClassName = 'TLabel'.freeze
|
||||
WidgetClassNames[WidgetClassName] = self
|
||||
|
||||
def create_self(keys)
|
||||
if keys and keys != None
|
||||
tk_call_without_enc('tlabel', @path, *hash_kv(keys, true))
|
||||
else
|
||||
tk_call_without_enc('tlabel', @path)
|
||||
end
|
||||
end
|
||||
private :create_self
|
||||
end
|
Loading…
Add table
Add a link
Reference in a new issue