diff options
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 |
commit | f12baed5df6d3c213dd75d2f0d9f36bb179fb843 (patch) | |
tree | c39f9c14cd6f8bcf85b6b842a2774cafb102bc2e /lib/tkdialog.rb | |
parent | 22ab6d39643b1bbc997e15b763d2b12996b1f1b9 (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.rb | 62 |
1 files changed, 62 insertions, 0 deletions
diff --git a/lib/tkdialog.rb b/lib/tkdialog.rb new file mode 100644 index 0000000000..e8f2142e07 --- /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 |