summaryrefslogtreecommitdiff
path: root/ext/tk/lib/tk/label.rb
diff options
context:
space:
mode:
Diffstat (limited to 'ext/tk/lib/tk/label.rb')
-rw-r--r--ext/tk/lib/tk/label.rb22
1 files changed, 22 insertions, 0 deletions
diff --git a/ext/tk/lib/tk/label.rb b/ext/tk/lib/tk/label.rb
new file mode 100644
index 0000000000..fe2640958d
--- /dev/null
+++ b/ext/tk/lib/tk/label.rb
@@ -0,0 +1,22 @@
+#
+# tk/label.rb : treat label widget
+#
+require 'tk'
+
+class TkLabel<TkWindow
+ TkCommandNames = ['label'.freeze].freeze
+ WidgetClassName = 'Label'.freeze
+ WidgetClassNames[WidgetClassName] = self
+ def create_self(keys)
+ if keys and keys != None
+ tk_call_without_enc('label', @path, *hash_kv(keys, true))
+ else
+ tk_call_without_enc('label', @path)
+ end
+ end
+ private :create_self
+
+ def textvariable(v)
+ configure 'textvariable', tk_trace_variable(v)
+ end
+end