summaryrefslogtreecommitdiff
path: root/lib/tkdialog.rb
diff options
context:
space:
mode:
author(no author) <(no author)@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>1998-01-16 12:19:22 +0000
committer(no author) <(no author)@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>1998-01-16 12:19:22 +0000
commitf12baed5df6d3c213dd75d2f0d9f36bb179fb843 (patch)
treec39f9c14cd6f8bcf85b6b842a2774cafb102bc2e /lib/tkdialog.rb
parent22ab6d39643b1bbc997e15b763d2b12996b1f1b9 (diff)
This commit was manufactured by cvs2svn to create branch 'RUBY'.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/RUBY@9 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'lib/tkdialog.rb')
-rw-r--r--lib/tkdialog.rb62
1 files changed, 62 insertions, 0 deletions
diff --git a/lib/tkdialog.rb b/lib/tkdialog.rb
new file mode 100644
index 00000000000..e8f2142e074
--- /dev/null
+++ b/lib/tkdialog.rb
@@ -0,0 +1,62 @@
+require "tk"
+
+class TkDialog < TkWindow
+ # initialize tk_dialog
+ def initialize
+ super
+ @var = TkVariable.new
+ id = @var.id
+ INTERP._eval('eval {global '+id+';'+
+ 'set '+id+' [tk_dialog '+
+ @path+" "+title+" \"#{message}\" "+bitmap+" "+
+ default_button+" "+buttons+']}')
+ end
+ def value
+ return @var.value.to_i
+ end
+ ######################################################
+ # #
+ # these methods must be overridden for each dialog #
+ # #
+ ######################################################
+ def title
+ return "DIALOG"
+ end
+ def message
+ return "MESSAGE"
+ end
+ def bitmap
+ return "info"
+ end
+ def default_button
+ return 0
+ end
+ def buttons
+ return "BUTTON1 BUTTON2"
+ end
+end
+
+#
+# dialog for warning
+#
+class TkWarning < TkDialog
+ def initialize(mes)
+ @mes = mes
+ super()
+ end
+ def message
+ return @mes
+ end
+ def title
+ return "WARNING";
+ end
+ def bitmap
+ return "warning";
+ end
+ def default_button
+ return 0;
+ end
+ def buttons
+ return "OK";
+ end
+end