2004-07-06 05:42:12 -04:00
|
|
|
#
|
|
|
|
# tkextlib/bwidget/messagedlg.rb
|
|
|
|
# by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
|
|
|
|
#
|
|
|
|
|
|
|
|
require 'tk'
|
|
|
|
require 'tkextlib/bwidget.rb'
|
* ext/tk/extconf.rb: improbe messages [ruby-core:06325].
* ext/tk/lib/tk.rb, ext/tk/lib/tk/canvas.rb, ext/tk/lib/tk/entry.rb,
ext/tk/lib/tk/frame.rb, ext/tk/lib/tk/image.rb,
ext/tk/lib/tk/itemconfig.rb, ext/tk/lib/tk/labelframe.rb,
ext/tk/lib/tk/listbox.rb, ext/tk/lib/tk/menu.rb,
ext/tk/lib/tk/radiobutton.rb, ext/tk/lib/tk/scale.rb,
ext/tk/lib/tk/spinbox.rb, ext/tk/lib/tk/text.rb,
ext/tk/lib/tk/toplevel.rb: improve conversion of option values.
* ext/tk/lib/tkextlib/*: ditto.
* ext/tk/lib/tkextlib/*: update to support ActiveTcl8.4.11.2.
* ext/tk/lib/tkextlib/trofs/*: support Trofs 0.4.3.
* ext/tk/lib/tkextlib/tile/*: support Tile 0.7.2.
* ext/tk/lib/tkextlib/vu/*: support vu 2.3.0.
* ext/tk/lib/tkextlib/tcllib/*: support Tcllib 1.8 (Tklib 0.3).
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@9448 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
2005-10-22 18:17:08 -04:00
|
|
|
require 'tkextlib/bwidget/dialog.rb'
|
2004-07-06 05:42:12 -04:00
|
|
|
|
|
|
|
module Tk
|
|
|
|
module BWidget
|
|
|
|
class MessageDlg < TkWindow
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
class Tk::BWidget::MessageDlg
|
|
|
|
TkCommandNames = ['MessageDlg'.freeze].freeze
|
|
|
|
WidgetClassName = 'MessageDlg'.freeze
|
|
|
|
WidgetClassNames[WidgetClassName] = self
|
|
|
|
|
|
|
|
def initialize(parent=nil, keys=nil)
|
|
|
|
@relative = ''
|
|
|
|
if parent.kind_of?(Hash)
|
|
|
|
keys = _symbolkey2str(parent)
|
|
|
|
@relative = keys['parent'] if keys.key?('parent')
|
|
|
|
@relative = keys.delete('relative') if keys.key?('relative')
|
|
|
|
super(keys)
|
|
|
|
elsif keys
|
|
|
|
keys = _symbolkey2str(keys)
|
|
|
|
@relative = keys.delete('parent') if keys.key?('parent')
|
|
|
|
@relative = keys.delete('relative') if keys.key?('relative')
|
|
|
|
super(parent, keys)
|
|
|
|
else
|
|
|
|
super(parent)
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
def create_self(keys)
|
|
|
|
# NOT create widget.
|
|
|
|
# Because the widget no longer exist when returning from creation.
|
|
|
|
@keys = _symbolkey2str(keys).update('parent'=>@relative)
|
|
|
|
@info = nil
|
|
|
|
end
|
|
|
|
private :create_self
|
|
|
|
|
* ext/tk/extconf.rb: improbe messages [ruby-core:06325].
* ext/tk/lib/tk.rb, ext/tk/lib/tk/canvas.rb, ext/tk/lib/tk/entry.rb,
ext/tk/lib/tk/frame.rb, ext/tk/lib/tk/image.rb,
ext/tk/lib/tk/itemconfig.rb, ext/tk/lib/tk/labelframe.rb,
ext/tk/lib/tk/listbox.rb, ext/tk/lib/tk/menu.rb,
ext/tk/lib/tk/radiobutton.rb, ext/tk/lib/tk/scale.rb,
ext/tk/lib/tk/spinbox.rb, ext/tk/lib/tk/text.rb,
ext/tk/lib/tk/toplevel.rb: improve conversion of option values.
* ext/tk/lib/tkextlib/*: ditto.
* ext/tk/lib/tkextlib/*: update to support ActiveTcl8.4.11.2.
* ext/tk/lib/tkextlib/trofs/*: support Trofs 0.4.3.
* ext/tk/lib/tkextlib/tile/*: support Tile 0.7.2.
* ext/tk/lib/tkextlib/vu/*: support vu 2.3.0.
* ext/tk/lib/tkextlib/tcllib/*: support Tcllib 1.8 (Tklib 0.3).
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@9448 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
2005-10-22 18:17:08 -04:00
|
|
|
def __strval_optkeys
|
|
|
|
super() << 'message' << 'title'
|
|
|
|
end
|
|
|
|
private :__strval_optkeys
|
|
|
|
|
|
|
|
def __listval_optkeys
|
|
|
|
super() << 'buttons'
|
|
|
|
end
|
|
|
|
private :__listval_optkeys
|
|
|
|
|
2004-07-06 05:42:12 -04:00
|
|
|
def cget(slot)
|
|
|
|
slot = slot.to_s
|
|
|
|
if slot == 'relative'
|
|
|
|
slot = 'parent'
|
|
|
|
end
|
|
|
|
if winfo_exist?
|
|
|
|
val = super(slot)
|
|
|
|
@keys[slot] = val
|
|
|
|
end
|
|
|
|
@keys[slot]
|
|
|
|
end
|
|
|
|
|
|
|
|
def configure(slot, value=None)
|
|
|
|
if winfo_exist?
|
|
|
|
super(slot, value)
|
|
|
|
end
|
|
|
|
if slot.kind_of?(Hash)
|
|
|
|
slot = _symbolkey2str(slot)
|
|
|
|
slot['parent'] = slot.delete('relative') if slot.key?('relative')
|
|
|
|
@keys.update(slot)
|
|
|
|
|
|
|
|
if @info
|
2004-10-11 00:51:21 -04:00
|
|
|
# update @info
|
|
|
|
slot.each{|k, v|
|
|
|
|
if TkComm::GET_CONFIGINFO_AS_ARRAY
|
|
|
|
if (inf = @info.assoc(k))
|
|
|
|
inf[-1] = v
|
|
|
|
else
|
|
|
|
@info << [k, '', '', '', v]
|
|
|
|
end
|
|
|
|
else
|
|
|
|
if (inf = @info[k])
|
|
|
|
inf[-1] = v
|
|
|
|
else
|
|
|
|
@info[k] = ['', '', '', v]
|
|
|
|
end
|
|
|
|
end
|
|
|
|
}
|
2004-07-06 05:42:12 -04:00
|
|
|
end
|
|
|
|
|
|
|
|
else # ! Hash
|
|
|
|
slot = slot.to_s
|
|
|
|
slot = 'parent' if slot == 'relative'
|
|
|
|
@keys[slot] = value
|
|
|
|
|
|
|
|
if @info
|
2004-10-11 00:51:21 -04:00
|
|
|
# update @info
|
|
|
|
if TkComm::GET_CONFIGINFO_AS_ARRAY
|
|
|
|
if (inf = @info.assoc(slot))
|
|
|
|
inf[-1] = value
|
|
|
|
else
|
|
|
|
@info << [slot, '', '', '', value]
|
|
|
|
end
|
|
|
|
else
|
|
|
|
if (inf = @info[slot])
|
|
|
|
inf[-1] = value
|
|
|
|
else
|
|
|
|
@info[slot] = ['', '', '', value]
|
|
|
|
end
|
|
|
|
end
|
2004-07-06 05:42:12 -04:00
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
self
|
|
|
|
end
|
|
|
|
|
|
|
|
def configinfo(slot=nil)
|
|
|
|
if winfo_exist?
|
|
|
|
@info = super()
|
|
|
|
if TkComm::GET_CONFIGINFO_AS_ARRAY
|
2004-10-11 00:51:21 -04:00
|
|
|
@info << ['relative', 'parent']
|
2004-07-06 05:42:12 -04:00
|
|
|
else
|
2004-10-11 00:51:21 -04:00
|
|
|
@info['relative'] = 'parent'
|
2004-07-06 05:42:12 -04:00
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
if TkComm::GET_CONFIGINFO_AS_ARRAY
|
|
|
|
if @info
|
2004-10-11 00:51:21 -04:00
|
|
|
if winfo_exist?
|
|
|
|
# update @keys
|
|
|
|
@info.each{|inf| @keys[inf[0]] = inf[-1] if inf.size > 2 }
|
|
|
|
end
|
2004-07-06 05:42:12 -04:00
|
|
|
else
|
2004-10-11 00:51:21 -04:00
|
|
|
@info = []
|
|
|
|
@keys.each{|k, v|
|
|
|
|
@info << [k, '', '', '', v]
|
|
|
|
}
|
|
|
|
@info << ['relative', 'parent']
|
2004-07-06 05:42:12 -04:00
|
|
|
end
|
|
|
|
|
|
|
|
if slot
|
2004-10-11 00:51:21 -04:00
|
|
|
@info.asoc(slot.to_s).dup
|
2004-07-06 05:42:12 -04:00
|
|
|
else
|
2004-10-11 00:51:21 -04:00
|
|
|
@info.dup
|
2004-07-06 05:42:12 -04:00
|
|
|
end
|
|
|
|
|
|
|
|
else # ! TkComm::GET_CONFIGINFO_AS_ARRAY
|
|
|
|
if @info
|
2004-10-11 00:51:21 -04:00
|
|
|
if winfo_exist?
|
|
|
|
# update @keys
|
|
|
|
@info.each{|k, inf| @keys[k] = inf[-1] if inf.size > 2 }
|
|
|
|
end
|
2004-07-06 05:42:12 -04:00
|
|
|
else
|
2004-10-11 00:51:21 -04:00
|
|
|
@info = {}
|
|
|
|
@keys.each{|k, v|
|
|
|
|
@info[k] = ['', '', '', v]
|
|
|
|
}
|
|
|
|
@info['relative'] = 'parent'
|
2004-07-06 05:42:12 -04:00
|
|
|
end
|
|
|
|
|
|
|
|
if slot
|
2004-10-11 00:51:21 -04:00
|
|
|
@info[slot.to_s].dup
|
2004-07-06 05:42:12 -04:00
|
|
|
else
|
2004-10-11 00:51:21 -04:00
|
|
|
@info.dup
|
2004-07-06 05:42:12 -04:00
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
def create
|
|
|
|
num_or_str(tk_call(self.class::TkCommandNames[0], @path, *hash_kv(@keys)))
|
|
|
|
end
|
|
|
|
end
|