Class | Tk::Tcllib::GetString_Dialog |
In: |
tk/lib/tkextlib/tcllib/getstring.rb
|
Parent: | TkWindow |
PACKAGE_NAME | = | 'getstring'.freeze |
TkCommandNames | = | ['::getstring::tk_getString'.freeze].freeze |
WidgetClassName | = | 'TkSDialog'.freeze |
# File tk/lib/tkextlib/tcllib/getstring.rb, line 48 def initialize(*args) # args = (parent=nil, text='', keys=nil) keys = args.pop if keys.kind_of?(Hash) text = args.pop @keys = _symbolkey2str(keys) args.push(keys) else text = keys @keys = {} end if text @text = text.dup else @text = '' end @variable = TkVariable.new @status = nil super(*args) end
# File tk/lib/tkextlib/tcllib/getstring.rb, line 23 def self.package_version begin TkPackage.require('getstring') rescue '' end end
# File tk/lib/tkextlib/tcllib/getstring.rb, line 39 def self.show(*args) dialog = self.new(*args) dialog.show [dialog.status, dialog.value] end
# File tk/lib/tkextlib/tcllib/getstring.rb, line 90 def cget(slot) slot = slot.to_s if slot == 'text' @text else @keys[slot] end end
# File tk/lib/tkextlib/tcllib/getstring.rb, line 122 def configinfo(slot = nil) if slot slot = slot.to_s [ slot, nil, nil, nil, ( (slot == 'text')? @text: @keys[slot] ) ] else @keys.collect{|k, v| [ k, nil, nil, nil, v ] } \ << [ 'text', nil, nil, nil, @text ] end end
# File tk/lib/tkextlib/tcllib/getstring.rb, line 99 def configure(slot, value=None) if slot.kind_of?(Hash) slot.each{|k, v| configure(k, v)} else slot = slot.to_s value = _symbolkey2str(value) if value.kind_of?(Hash) if value && value != None if slot == 'text' @text = value.to_s else @keys[slot] = value end else if slot == 'text' @text = '' else @keys.delete(slot) end end end self end