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/grid.rb : control grid geometry manager
#
require 'tk'

module TkGrid
  include Tk
  extend Tk

TkCommandNames = ['grid'.freeze].freeze

def anchor(master, anchor=None)
    # master = master.epath if master.kind_of?(TkObject)
    master = _epath(master)
    tk_call_without_enc('grid', 'anchor', master, anchor)
  end

def bbox(master, *args)
    # master = master.epath if master.kind_of?(TkObject)
    master = _epath(master)
    args.unshift(master)
    list(tk_call_without_enc('grid', 'bbox', *args))
  end

=begin
  def configure(win, *args)
    if args[-1].kind_of?(Hash)
      opts = args.pop
    else
      opts = {}
    end
    params = []
    params.push(_epath(win))
    args.each{|win|
      case win
      when '-', 'x', '^'  # RELATIVE PLACEMENT
        params.push(win)
      else
        params.push(_epath(win))
      end
    }
    opts.each{|k, v|
      params.push("-#{k}")
      params.push((v.kind_of?(TkObject))? v.epath: v)
    }
    if Tk::TCL_MAJOR_VERSION < 8 ||
        (Tk::TCL_MAJOR_VERSION == 8 && Tk::TCL_MINOR_VERSION <= 3)
      if params[0] == '-' || params[0] == 'x' || params[0] == '^'
        tk_call_without_enc('grid', *params)
      else
        tk_call_without_enc('grid', 'configure', *params)
      end
    else
      tk_call_without_enc('grid', 'configure', *params)
    end
  end
=end
  def configure(*args)
    if args[-1].kind_of?(Hash)
      opts = args.pop
    else
      opts = {}
    end
    fail ArgumentError, 'no widget is given' if args.empty?
    params = []
    args.flatten(1).each{|win|
      case win
      when '-', ?-              # RELATIVE PLACEMENT (increase columnspan)
        params.push('-')
      when /^-+$/             # RELATIVE PLACEMENT (increase columnspan)
        params.concat(win.to_s.split(//))
      when '^', ?^              # RELATIVE PLACEMENT (increase rowspan)
        params.push('^')
      when /^\^+$/             # RELATIVE PLACEMENT (increase rowspan)
        params.concat(win.to_s.split(//))
      when 'x', :x, ?x, nil, '' # RELATIVE PLACEMENT (empty column)
        params.push('x')
      when /^x+$/             # RELATIVE PLACEMENT (empty column)
        params.concat(win.to_s.split(//))
      else
        params.push(_epath(win))
      end
    }
    opts.each{|k, v|
      params.push("-#{k}")
      params.push(_epath(v))  # have to use 'epath' (hash_kv() is unavailable)
    }
    if Tk::TCL_MAJOR_VERSION < 8 ||
        (Tk::TCL_MAJOR_VERSION == 8 && Tk::TCL_MINOR_VERSION <= 3)
      if params[0] == '-' || params[0] == 'x' || params[0] == '^'
        tk_call_without_enc('grid', *params)
      else
        tk_call_without_enc('grid', 'configure', *params)
      end
    else
      tk_call_without_enc('grid', 'configure', *params)
    end
  end
  alias grid configure

def columnconfigure(master, index, args)
    # master = master.epath if master.kind_of?(TkObject)
    master = _epath(master)
    tk_call_without_enc("grid", 'columnconfigure',
                        master, index, *hash_kv(args))
  end

def rowconfigure(master, index, args)
    # master = master.epath if master.kind_of?(TkObject)
    master = _epath(master)
    tk_call_without_enc("grid", 'rowconfigure', master, index, *hash_kv(args))
  end

def columnconfiginfo(master, index, slot=nil)
    # master = master.epath if master.kind_of?(TkObject)
    master = _epath(master)
    if slot
      case slot
      when 'uniform', :uniform
        tk_call_without_enc('grid', 'columnconfigure',
                            master, index, "-#{slot}")
      else
        num_or_str(tk_call_without_enc('grid', 'columnconfigure',
                                       master, index, "-#{slot}"))
      end
    else
      #ilist = list(tk_call_without_enc('grid','columnconfigure',master,index))
      ilist = simplelist(tk_call_without_enc('grid', 'columnconfigure',
                                             master, index))
      info = {}
      while key = ilist.shift
        case key
        when 'uniform'
          info[key[1..-1]] = ilist.shift
        else
          info[key[1..-1]] = tk_tcl2ruby(ilist.shift)
        end
      end
      info
    end
  end

def rowconfiginfo(master, index, slot=nil)
    # master = master.epath if master.kind_of?(TkObject)
    master = _epath(master)
    if slot
      case slot
      when 'uniform', :uniform
        tk_call_without_enc('grid', 'rowconfigure',
                            master, index, "-#{slot}")
      else
        num_or_str(tk_call_without_enc('grid', 'rowconfigure',
                                       master, index, "-#{slot}"))
      end
    else
      #ilist = list(tk_call_without_enc('grid', 'rowconfigure', master, index))
      ilist = simplelist(tk_call_without_enc('grid', 'rowconfigure',
                                             master, index))
      info = {}
      while key = ilist.shift
        case key
        when 'uniform'
          info[key[1..-1]] = ilist.shift
        else
          info[key[1..-1]] = tk_tcl2ruby(ilist.shift)
        end
      end
      info
    end
  end

def column(master, index, keys=nil)
    if keys.kind_of?(Hash)
      columnconfigure(master, index, keys)
    else
      columnconfiginfo(master, index, keys)
    end
  end

def row(master, index, keys=nil)
    if keys.kind_of?(Hash)
      rowconfigure(master, index, keys)
    else
      rowconfiginfo(master, index, keys)
    end
  end

def add(widget, *args)
    configure(widget, *args)
  end

def forget(*args)
    return '' if args.size == 0
    wins = args.collect{|win|
      # (win.kind_of?(TkObject))? win.epath: win
      _epath(win)
    }
    tk_call_without_enc('grid', 'forget', *wins)
  end

def info(slave)
    # slave = slave.epath if slave.kind_of?(TkObject)
    slave = _epath(slave)
    #ilist = list(tk_call_without_enc('grid', 'info', slave))
    ilist = simplelist(tk_call_without_enc('grid', 'info', slave))
    info = {}
    while key = ilist.shift
      #info[key[1..-1]] = ilist.shift
      info[key[1..-1]] = tk_tcl2ruby(ilist.shift)
    end
    return info
  end

def location(master, x, y)
    # master = master.epath if master.kind_of?(TkObject)
    master = _epath(master)
    list(tk_call_without_enc('grid', 'location', master, x, y))
  end

def propagate(master, mode=None)
    # master = master.epath if master.kind_of?(TkObject)
    master = _epath(master)
    if mode == None
      bool(tk_call_without_enc('grid', 'propagate', master))
    else
      tk_call_without_enc('grid', 'propagate', master, mode)
    end
  end

def remove(*args)
    return '' if args.size == 0
    wins = args.collect{|win|
      # (win.kind_of?(TkObject))? win.epath: win
      _epath(win)
    }
    tk_call_without_enc('grid', 'remove', *wins)
  end

def size(master)
    # master = master.epath if master.kind_of?(TkObject)
    master = _epath(master)
    list(tk_call_without_enc('grid', 'size', master))
  end

def slaves(master, keys=nil)
    # master = master.epath if master.kind_of?(TkObject)
    master = _epath(master)
    list(tk_call_without_enc('grid', 'slaves', master, *hash_kv(args)))
  end

module_function :anchor, :bbox, :add, :forget, :propagate, :info
  module_function :remove, :size, :slaves, :location
  module_function :grid, :configure, :columnconfigure, :rowconfigure
  module_function :column, :row, :columnconfiginfo, :rowconfiginfo
end
=begin
def TkGrid(win, *args)
  if args[-1].kind_of?(Hash)
    opts = args.pop
  else
    opts = {}
  end
  params = []
  params.push((win.kind_of?(TkObject))? win.epath: win)
  args.each{|win|
    case win
    when '-', 'x', '^'  # RELATIVE PLACEMENT
      params.push(win)
    else
      params.push((win.kind_of?(TkObject))? win.epath: win)
    end
  }
  opts.each{|k, v|
    params.push("-#{k}")
    params.push((v.kind_of?(TkObject))? v.epath: v)
  }
  tk_call_without_enc("grid", *params)
end
=end