summaryrefslogtreecommitdiff
path: root/trunk/ext/tk/lib/tk/message.rb
diff options
context:
space:
mode:
Diffstat (limited to 'trunk/ext/tk/lib/tk/message.rb')
-rw-r--r--trunk/ext/tk/lib/tk/message.rb22
1 files changed, 22 insertions, 0 deletions
diff --git a/trunk/ext/tk/lib/tk/message.rb b/trunk/ext/tk/lib/tk/message.rb
new file mode 100644
index 0000000000..946b68c704
--- /dev/null
+++ b/trunk/ext/tk/lib/tk/message.rb
@@ -0,0 +1,22 @@
+#
+# tk/message.rb : treat message widget
+#
+require 'tk'
+require 'tk/label'
+
+class Tk::Message<Tk::Label
+ TkCommandNames = ['message'.freeze].freeze
+ WidgetClassName = 'Message'.freeze
+ WidgetClassNames[WidgetClassName] = self
+ #def create_self(keys)
+ # if keys and keys != None
+ # tk_call_without_enc('message', @path, *hash_kv(keys, true))
+ # else
+ # tk_call_without_enc('message', @path)
+ # end
+ #end
+ private :create_self
+end
+
+#TkMessage = Tk::Message unless Object.const_defined? :TkMessage
+Tk.__set_toplevel_aliases__(:Tk, Tk::Message, :TkMessage)