diff options
Diffstat (limited to 'ext/tk/lib/tkdialog.rb')
-rw-r--r-- | ext/tk/lib/tkdialog.rb | 141 |
1 files changed, 0 insertions, 141 deletions
diff --git a/ext/tk/lib/tkdialog.rb b/ext/tk/lib/tkdialog.rb deleted file mode 100644 index 1133db6ae9..0000000000 --- a/ext/tk/lib/tkdialog.rb +++ /dev/null @@ -1,141 +0,0 @@ -require "tk" - -class TkDialog < TkWindow - extend Tk - - # initialize tk_dialog - def initialize(keys = nil) - super() - @var = TkVariable.new - id = @var.id - - @title = title - - @message = message - @message_config = message_config - - @bitmap = bitmap - @bitmap_config = message_config - - @default_button = default_button - - @buttons = buttons - @button_configs = proc{|num| button_configs num} - - if keys.kind_of? Hash - @title = keys['title'] if keys['title'] - @message = keys['message'] if keys['message'] - @bitmap = keys['bitmap'] if keys['bitmap'] - @default_button = keys['default'] if keys['default'] - @buttons = keys['buttons'] if keys['buttons'] - - @command = keys['prev_command'] - - @message_config = keys['message_config'] if keys['message_config'] - @bitmap_config = keys['bitmap_config'] if keys['bitmap_config'] - @button_configs = keys['button_configs'] if keys['button_configs'] - end - - if @title.include? ?\s - @title = '{' + @title + '}' - end - - @buttons = tk_split_list(@buttons) if @buttons.kind_of? String - @buttons = @buttons.collect{|s| - if s.kind_of? Array - s = s.join(' ') - end - if s.include? ?\s - '{' + s + '}' - else - s - end - } - - config = "" - if @message_config.kind_of? Hash - config << format("%s.msg configure %s\n", - @path, hash_kv(@message_config).join(' ')) - end - if @bitmap_config.kind_of? Hash - config << format("%s.msg configure %s\n", - @path, hash_kv(@bitmap_config).join(' ')) - end - if @button_configs.kind_of? Proc - @buttons.each_index{|i| - if (c = @button_configs.call(i)).kind_of? Hash - config << format("%s.button%s configure %s\n", - @path, i, hash_kv(c).join(' ')) - end - } - end - config = 'after idle {' + config + '};' if config != "" - - if @command.kind_of? Proc - @command.call(self) - end - - INTERP._eval('eval {global '+id+';'+config+ - 'set '+id+' [tk_dialog '+ - @path+" "+@title+" {#{@message}} "+@bitmap+" "+ - String(@default_button)+" "+@buttons.join(' ')+']}') - 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 message_config - return nil - end - def bitmap - return "info" - end - def bitmap_config - return nil - end - def default_button - return 0 - end - def buttons - #return "BUTTON1 BUTTON2" - return ["BUTTON1", "BUTTON2"] - end - def button_configs(num) - return nil - 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 |