In: |
tk/lib/tk/frame.rb
|
Parent: | TkWindow |
TkCommandNames | = | ['frame'.freeze].freeze |
WidgetClassName | = | 'Frame'.freeze |
# File tk/lib/tk/frame.rb, line 95 def self.bind(*args) if self == WidgetClassNames[WidgetClassName] || self.name == '' super(*args) else TkDatabaseClass.new(self.name).bind(*args) end end
# File tk/lib/tk/frame.rb, line 102 def self.bind_append(*args) if self == WidgetClassNames[WidgetClassName] || self.name == '' super(*args) else TkDatabaseClass.new(self.name).bind_append(*args) end end
# File tk/lib/tk/frame.rb, line 109 def self.bind_remove(*args) if self == WidgetClassNames[WidgetClassName] || self.name == '' super(*args) else TkDatabaseClass.new(self.name).bind_remove(*args) end end
# File tk/lib/tk/frame.rb, line 116 def self.bindinfo(*args) if self == WidgetClassNames[WidgetClassName] || self.name == '' super(*args) else TkDatabaseClass.new(self.name).bindinfo(*args) end end
# File tk/lib/tk/frame.rb, line 84 def self.database_class if self == WidgetClassNames[WidgetClassName] || self.name == '' self else TkDatabaseClass.new(self.name) end end
old version
def initialize(parent=nil, keys=nil)
if keys.kind_of? Hash keys = keys.dup @classname = keys.delete('classname') if keys.key?('classname') @colormap = keys.delete('colormap') if keys.key?('colormap') @container = keys.delete('container') if keys.key?('container') @visual = keys.delete('visual') if keys.key?('visual') end super(parent, keys)
end
def create_self
s = [] s << "-class" << @classname if @classname s << "-colormap" << @colormap if @colormap s << "-container" << @container if @container s << "-visual" << @visual if @visual tk_call 'frame', @path, *s
end
# File tk/lib/tk/frame.rb, line 33 def initialize(parent=nil, keys=nil) my_class_name = nil if self.class < WidgetClassNames[WidgetClassName] my_class_name = self.class.name my_class_name = nil if my_class_name == '' end if parent.kind_of? Hash keys = _symbolkey2str(parent) else if keys keys = _symbolkey2str(keys) keys['parent'] = parent else keys = {'parent'=>parent} end end if keys.key?('classname') keys['class'] = keys.delete('classname') end @classname = keys['class'] @colormap = keys['colormap'] @container = keys['container'] @visual = keys['visual'] if !@classname && my_class_name keys['class'] = @classname = my_class_name end if @classname.kind_of? TkBindTag @db_class = @classname @classname = @classname.id elsif @classname @db_class = TkDatabaseClass.new(@classname) else @db_class = self.class @classname = @db_class::WidgetClassName end super(keys) end