Gecko [ beriskala.com ]

Name	Size	Permission	Date
after.rb	161 B	-rw-r--r--	2023-07-26 18:09
autoload.rb	22.79 KB	-rw-r--r--	2023-07-26 18:09
bgerror.rb	698 B	-rw-r--r--	2023-07-26 18:09
bindtag.rb	2.7 KB	-rw-r--r--	2023-07-26 18:09
busy.rb	2.25 KB	-rw-r--r--	2023-07-26 18:09
button.rb	800 B	-rw-r--r--	2023-07-26 18:09
canvas.rb	22.85 KB	-rw-r--r--	2023-07-26 18:09
canvastag.rb	9.22 KB	-rw-r--r--	2023-07-26 18:09
checkbutton.rb	1.01 KB	-rw-r--r--	2023-07-26 18:09
clipboard.rb	1.67 KB	-rw-r--r--	2023-07-26 18:09
clock.rb	1.63 KB	-rw-r--r--	2023-07-26 18:09
composite.rb	11.9 KB	-rw-r--r--	2023-07-26 18:09
console.rb	1.3 KB	-rw-r--r--	2023-07-26 18:09
dialog.rb	8.93 KB	-rw-r--r--	2023-07-26 18:09
encodedstr.rb	4.58 KB	-rw-r--r--	2023-07-26 18:09
entry.rb	2.61 KB	-rw-r--r--	2023-07-26 18:09
event.rb	17.53 KB	-rw-r--r--	2023-07-26 18:09
font.rb	60.35 KB	-rw-r--r--	2023-07-26 18:09
fontchooser.rb	3.62 KB	-rw-r--r--	2023-07-26 18:09
frame.rb	3.48 KB	-rw-r--r--	2023-07-26 18:09
grid.rb	7.72 KB	-rw-r--r--	2023-07-26 18:09
image.rb	12.57 KB	-rw-r--r--	2023-07-26 18:09
itemconfig.rb	55.11 KB	-rw-r--r--	2023-07-26 18:09
itemfont.rb	9.32 KB	-rw-r--r--	2023-07-26 18:09
kinput.rb	1.59 KB	-rw-r--r--	2023-07-26 18:09
label.rb	640 B	-rw-r--r--	2023-07-26 18:09
labelframe.rb	1.02 KB	-rw-r--r--	2023-07-26 18:09
listbox.rb	7.85 KB	-rw-r--r--	2023-07-26 18:09
macpkg.rb	1.94 KB	-rw-r--r--	2023-07-26 18:09
menu.rb	20.07 KB	-rw-r--r--	2023-07-26 18:09
menubar.rb	4.11 KB	-rw-r--r--	2023-07-26 18:09
menuspec.rb	13.78 KB	-rw-r--r--	2023-07-26 18:09
message.rb	724 B	-rw-r--r--	2023-07-26 18:09
mngfocus.rb	703 B	-rw-r--r--	2023-07-26 18:09
msgcat.rb	8.49 KB	-rw-r--r--	2023-07-26 18:09
namespace.rb	14.38 KB	-rw-r--r--	2023-07-26 18:09
optiondb.rb	11.11 KB	-rw-r--r--	2023-07-26 18:09
optionobj.rb	4.9 KB	-rw-r--r--	2023-07-26 18:09
pack.rb	2.54 KB	-rw-r--r--	2023-07-26 18:09
package.rb	2.83 KB	-rw-r--r--	2023-07-26 18:09
palette.rb	1.16 KB	-rw-r--r--	2023-07-26 18:09
panedwindow.rb	7.79 KB	-rw-r--r--	2023-07-26 18:09
place.rb	3.89 KB	-rw-r--r--	2023-07-26 18:09
radiobutton.rb	2.01 KB	-rw-r--r--	2023-07-26 18:09
root.rb	2.07 KB	-rw-r--r--	2023-07-26 18:09
scale.rb	2.79 KB	-rw-r--r--	2023-07-26 18:09
scrollable.rb	1.77 KB	-rw-r--r--	2023-07-26 18:09
scrollbar.rb	4.69 KB	-rw-r--r--	2023-07-26 18:09
scrollbox.rb	1.16 KB	-rw-r--r--	2023-07-26 18:09
selection.rb	2.22 KB	-rw-r--r--	2023-07-26 18:09
spinbox.rb	3.07 KB	-rw-r--r--	2023-07-26 18:09
tagfont.rb	890 B	-rw-r--r--	2023-07-26 18:09
text.rb	45.67 KB	-rw-r--r--	2023-07-26 18:09
textimage.rb	2.25 KB	-rw-r--r--	2023-07-26 18:09
textmark.rb	4.94 KB	-rw-r--r--	2023-07-26 18:09
texttag.rb	7.79 KB	-rw-r--r--	2023-07-26 18:09
textwindow.rb	4.29 KB	-rw-r--r--	2023-07-26 18:09
timer.rb	14.41 KB	-rw-r--r--	2023-07-26 18:09
tk_mac.rb	3.71 KB	-rw-r--r--	2023-07-26 18:09
toplevel.rb	7.01 KB	-rw-r--r--	2023-07-26 18:09
ttk_selector.rb	3.01 KB	-rw-r--r--	2023-07-26 18:09
txtwin_abst.rb	816 B	-rw-r--r--	2023-07-26 18:09
validation.rb	9.64 KB	-rw-r--r--	2023-07-26 18:09
variable.rb	45.82 KB	-rw-r--r--	2023-07-26 18:09
virtevent.rb	3.54 KB	-rw-r--r--	2023-07-26 18:09
winfo.rb	8.39 KB	-rw-r--r--	2023-07-26 18:09
winpkg.rb	3.9 KB	-rw-r--r--	2023-07-26 18:09
wm.rb	14.87 KB	-rw-r--r--	2023-07-26 18:09
xim.rb	2.77 KB	-rw-r--r--	2023-07-26 18:09

Rename

# frozen_string_literal: false
#
#   tk/dialog.rb : create dialog boxes
#
require 'tk'
require 'tk/variable.rb'

class TkDialogObj < TkWindow
  extend Tk

TkCommandNames = ['tk_dialog'.freeze].freeze

def self.show(*args)
    dlog = self.new(*args)
    dlog.show
    dlog
  end

def _set_button_config(configs)
    set_config = proc{|c,i|
      if $VERBOSE && (c.has_key?('command') || c.has_key?(:command))
        STDERR.print("Warning: cannot give a command option " +
                     "to the dialog button#{i}. It was removed.\n")
      end
      c.delete('command'); c.delete(:command)
      # @config << Kernel.format("%s.button%s configure %s; ",
      #                                @path, i, hash_kv(c).join(' '))
      # @config << @path+'.button'+i.to_s+' configure '+hash_kv(c).join(' ')+'; '
      @config << @path+'.button'+i.to_s+' configure '+
                   array2tk_list(hash_kv(c))+'; '
    }
    case configs
    when Proc
      @buttons.each_index{|i|
        if (c = configs.call(i)).kind_of?(Hash)
          set_config.call(c,i)
        end
      }

when Array
      @buttons.each_index{|i|
        if (c = configs[i]).kind_of?(Hash)
          set_config.call(c,i)
        end
      }

when Hash
      @buttons.each_with_index{|s,i|
        if (c = configs[s]).kind_of?(Hash)
          set_config.call(c,i)
        end
      }
    end
    # @config = 'after idle {' + @config + '};' if @config != ""
    @config = array2tk_list(['after', 'idle', @config]) << ';' if @config != ""
  end
  private :_set_button_config

# initialize tk_dialog
  def create_self(keys)
    # @var = TkVariable.new
    @val = nil

@title   = title

@message = message
    @message_config = message_config
    @msgframe_config = msgframe_config

@bitmap  = bitmap
    @bitmap_config = message_config

@default_button = default_button

@buttons = buttons
    @button_configs = proc{|num| button_configs(num)}
    @btnframe_config = btnframe_config

#@config = "puts [winfo children .w0000];"
    @config = ""

@command = prev_command

if keys.kind_of?(Hash)
      @title   = keys['title'] if keys.key? 'title'
      @message = keys['message'] if keys.key? 'message'
      @bitmap  = keys['bitmap'] if keys.key? 'bitmap'
      # @bitmap  = '{}' if @bitmap == nil || @bitmap == ""
      @bitmap  = '' unless @bitmap
      @default_button = keys['default'] if keys.key? 'default'
      @buttons = keys['buttons'] if keys.key? 'buttons'

@command = keys['prev_command'] if keys.key? 'prev_command'

@message_config = keys['message_config'] if keys.key? 'message_config'
      @msgframe_config = keys['msgframe_config'] if keys.key? 'msgframe_config'
      @bitmap_config  = keys['bitmap_config']  if keys.key? 'bitmap_config'
      @button_configs = keys['button_configs'] if keys.key? 'button_configs'
      @btnframe_config = keys['btnframe_config'] if keys.key? 'btnframe_config'
    end

#if @title.include? ?\s
    #  @title = '{' + @title + '}'
    #end

if @buttons.kind_of?(Array)
      _set_button_config(@buttons.collect{|cfg|
                           (cfg.kind_of? Array)? cfg[1]: nil})
      @buttons = @buttons.collect{|cfg| (cfg.kind_of? Array)? cfg[0]: cfg}
    end
    if @buttons.kind_of?(Hash)
      _set_button_config(@buttons)
      @buttons = @buttons.keys
    end
    @buttons = tk_split_simplelist(@buttons) if @buttons.kind_of?(String)
    @buttons = [] unless @buttons
=begin
    @buttons = @buttons.collect{|s|
      if s.kind_of?(Array)
        s = s.join(' ')
      end
      if s.include? ?\s
        '{' + s + '}'
      else
        s
      end
    }
=end

if @message_config.kind_of?(Hash)
      # @config << Kernel.format("%s.msg configure %s;",
      #                        @path, hash_kv(@message_config).join(' '))
      # @config << @path+'.msg configure '+hash_kv(@message_config).join(' ')+';'
      @config << @path+'.msg configure '+
                   array2tk_list(hash_kv(@message_config))+';'
    end

if @msgframe_config.kind_of?(Hash)
      # @config << Kernel.format("%s.top configure %s;",
      #                        @path, hash_kv(@msgframe_config).join(' '))
      # @config << @path+'.top configure '+hash_kv(@msgframe_config).join(' ')+';'
      @config << @path+'.top configure '+
                   array2tk_list(hash_kv(@msgframe_config))+';'
    end

if @btnframe_config.kind_of?(Hash)
      # @config << Kernel.format("%s.bot configure %s;",
      #                        @path, hash_kv(@btnframe_config).join(' '))
      # @config << @path+'.bot configure '+hash_kv(@btnframe_config).join(' ')+';'
      @config << @path+'.bot configure '+
                   array2tk_list(hash_kv(@btnframe_config))+';'
    end

if @bitmap_config.kind_of?(Hash)
      # @config << Kernel.format("%s.bitmap configure %s;",
      #                        @path, hash_kv(@bitmap_config).join(' '))
      # @config << @path+'.bitmap configure '+hash_kv(@bitmap_config).join(' ')+';'
      @config << @path+'.bitmap configure '+
                    array2tk_list(hash_kv(@bitmap_config))+';'
    end

_set_button_config(@button_configs) if @button_configs
  end
  private :create_self

def show
    # if @command.kind_of?(Proc)
    if TkComm._callback_entry?(@command)
      @command.call(self)
    end

if @default_button.kind_of?(String)
      default_button = @buttons.index(@default_button)
    else
      default_button = @default_button
    end
    # default_button = '{}' if default_button == nil
    default_button = '' if default_button == nil
    #Tk.ip_eval('eval {global '+@var.id+';'+@config+
    #          'set '+@var.id+' [tk_dialog '+
    #          @path+" "+@title+" {#{@message}} "+@bitmap+" "+
    #          String(default_button)+" "+@buttons.join(' ')+']}')
    Tk.ip_eval(@config)
    # @val = Tk.ip_eval('tk_dialog ' + @path + ' ' + @title +
    #                 ' {' + @message + '} ' + @bitmap + ' ' +
    #                 String(default_button) + ' ' + @buttons.join(' ')).to_i
    # @val = Tk.ip_eval(self.class::TkCommandNames[0] + ' ' + @path + ' ' +
    #                   @title + ' {' + @message + '} ' + @bitmap + ' ' +
    #                   String(default_button) + ' ' + @buttons.join(' ')).to_i
    @val = Tk.ip_eval(array2tk_list([
                                      self.class::TkCommandNames[0],
                                      @path, @title, @message, @bitmap,
                                      String(default_button)
                                    ].concat(@buttons))).to_i
  end

def value
    # @var.value.to_i
    @val
  end

def name
    (@val)? @buttons[@val]: nil
  end

############################################################
  #                                                          #
  #  following methods should be overridden for each dialog  #
  #                                                          #
  ############################################################
  private

def title
    # returns a title string of the dialog window
    return "DIALOG"
  end
  def message
    # returns a message text to display on the dialog
    return "MESSAGE"
  end
  def message_config
    # returns a Hash {option=>value, ...} for the message text
    return nil
  end
  def msgframe_config
    # returns a Hash {option=>value, ...} for the message text frame
    return nil
  end
  def bitmap
    # returns a bitmap name or a bitmap file path
    # (@ + path ; e.g. '@/usr/share/bitmap/sample.xbm')
    return "info"
  end
  def bitmap_config
    # returns nil or a Hash {option=>value, ...} for the bitmap
    return nil
  end
  def default_button
    # returns a default button's number or name
    # if nil or null string, set no-default
    return 0
  end
  def buttons
    #return "BUTTON1 BUTTON2"
    return ["BUTTON1", "BUTTON2"]
  end
  def button_configs(num)
    # returns nil / Proc / Array or Hash (see _set_button_config)
    return nil
  end
  def btnframe_config
    # returns nil or a Hash {option=>value, ...} for the button frame
    return nil
  end
  def prev_command
    # returns nil or a Proc
    return nil
  end
end
TkDialog2 = TkDialogObj

#
# TkDialog : with showing at initialize
#
class TkDialog < TkDialogObj
  def self.show(*args)
    self.new(*args)
  end

def initialize(*args)
    super(*args)
    show
  end
end

#
# dialog for warning
#
class TkWarningObj < TkDialogObj
  def initialize(parent = nil, mes = nil)
    if !mes
      if parent.kind_of?(TkWindow)
        mes = ""
      else
        mes = parent.to_s
        parent = nil
      end
    end
    super(parent, :message=>mes)
  end

def show(mes = nil)
    mes_bup = @message
    @message = mes if mes
    ret = super()
    @message = mes_bup
    ret
  end

#######
  private

def title
    return "WARNING";
  end
  def bitmap
    return "warning";
  end
  def default_button
    return 0;
  end
  def buttons
    return "OK";
  end
end
TkWarning2 = TkWarningObj

class TkWarning < TkWarningObj
  def self.show(*args)
    self.new(*args)
  end
  def initialize(*args)
    super(*args)
    show
  end
end