Gecko [ beriskala.com ]

Name	Size	Permission	Date
after.rb	127 B	-rw-r--r--	2023-07-26 17:52
autoload.rb	22.71 KB	-rw-r--r--	2023-07-26 17:52
bgerror.rb	667 B	-rw-r--r--	2023-07-26 17:52
bindtag.rb	2.67 KB	-rw-r--r--	2023-07-26 17:52
busy.rb	2.22 KB	-rw-r--r--	2023-07-26 17:52
button.rb	769 B	-rw-r--r--	2023-07-26 17:52
canvas.rb	22.82 KB	-rw-r--r--	2023-07-26 17:52
canvastag.rb	9.19 KB	-rw-r--r--	2023-07-26 17:52
checkbutton.rb	1001 B	-rw-r--r--	2023-07-26 17:52
clipboard.rb	1.64 KB	-rw-r--r--	2023-07-26 17:52
clock.rb	1.6 KB	-rw-r--r--	2023-07-26 17:52
composite.rb	11.87 KB	-rw-r--r--	2023-07-26 17:52
console.rb	1.27 KB	-rw-r--r--	2023-07-26 17:52
dialog.rb	8.9 KB	-rw-r--r--	2023-07-26 17:52
encodedstr.rb	4.55 KB	-rw-r--r--	2023-07-26 17:52
entry.rb	2.58 KB	-rw-r--r--	2023-07-26 17:52
event.rb	17.5 KB	-rw-r--r--	2023-07-26 17:52
font.rb	60.32 KB	-rw-r--r--	2023-07-26 17:52
fontchooser.rb	3.55 KB	-rw-r--r--	2023-07-26 17:52
frame.rb	3.45 KB	-rw-r--r--	2023-07-26 17:52
grid.rb	7.69 KB	-rw-r--r--	2023-07-26 17:52
image.rb	12.54 KB	-rw-r--r--	2023-07-26 17:52
itemconfig.rb	55.14 KB	-rw-r--r--	2023-07-26 17:52
itemfont.rb	9.29 KB	-rw-r--r--	2023-07-26 17:52
kinput.rb	1.56 KB	-rw-r--r--	2023-07-26 17:52
label.rb	609 B	-rw-r--r--	2023-07-26 17:52
labelframe.rb	1014 B	-rw-r--r--	2023-07-26 17:52
listbox.rb	7.82 KB	-rw-r--r--	2023-07-26 17:52
macpkg.rb	1.91 KB	-rw-r--r--	2023-07-26 17:52
menu.rb	20.04 KB	-rw-r--r--	2023-07-26 17:52
menubar.rb	4.08 KB	-rw-r--r--	2023-07-26 17:52
menuspec.rb	13.75 KB	-rw-r--r--	2023-07-26 17:52
message.rb	693 B	-rw-r--r--	2023-07-26 17:52
mngfocus.rb	672 B	-rw-r--r--	2023-07-26 17:52
msgcat.rb	8.46 KB	-rw-r--r--	2023-07-26 17:52
namespace.rb	14.34 KB	-rw-r--r--	2023-07-26 17:52
optiondb.rb	11.28 KB	-rw-r--r--	2023-07-26 17:52
optionobj.rb	4.87 KB	-rw-r--r--	2023-07-26 17:52
pack.rb	2.51 KB	-rw-r--r--	2023-07-26 17:52
package.rb	2.8 KB	-rw-r--r--	2023-07-26 17:52
palette.rb	1.13 KB	-rw-r--r--	2023-07-26 17:52
panedwindow.rb	7.76 KB	-rw-r--r--	2023-07-26 17:52
place.rb	3.86 KB	-rw-r--r--	2023-07-26 17:52
radiobutton.rb	1.98 KB	-rw-r--r--	2023-07-26 17:52
root.rb	2.04 KB	-rw-r--r--	2023-07-26 17:52
scale.rb	2.76 KB	-rw-r--r--	2023-07-26 17:52
scrollable.rb	1.74 KB	-rw-r--r--	2023-07-26 17:52
scrollbar.rb	4.66 KB	-rw-r--r--	2023-07-26 17:52
scrollbox.rb	1.13 KB	-rw-r--r--	2023-07-26 17:52
selection.rb	2.19 KB	-rw-r--r--	2023-07-26 17:52
spinbox.rb	3.04 KB	-rw-r--r--	2023-07-26 17:52
tagfont.rb	859 B	-rw-r--r--	2023-07-26 17:52
text.rb	45.64 KB	-rw-r--r--	2023-07-26 17:52
textimage.rb	2.22 KB	-rw-r--r--	2023-07-26 17:52
textmark.rb	4.91 KB	-rw-r--r--	2023-07-26 17:52
texttag.rb	7.76 KB	-rw-r--r--	2023-07-26 17:52
textwindow.rb	4.26 KB	-rw-r--r--	2023-07-26 17:52
timer.rb	14.46 KB	-rw-r--r--	2023-07-26 17:52
toplevel.rb	6.98 KB	-rw-r--r--	2023-07-26 17:52
ttk_selector.rb	2.98 KB	-rw-r--r--	2023-07-26 17:52
txtwin_abst.rb	785 B	-rw-r--r--	2023-07-26 17:52
validation.rb	9.61 KB	-rw-r--r--	2023-07-26 17:52
variable.rb	45.88 KB	-rw-r--r--	2023-07-26 17:52
virtevent.rb	3.51 KB	-rw-r--r--	2023-07-26 17:52
winfo.rb	8.36 KB	-rw-r--r--	2023-07-26 17:52
winpkg.rb	3.87 KB	-rw-r--r--	2023-07-26 17:52
wm.rb	14.83 KB	-rw-r--r--	2023-07-26 17:52
xim.rb	2.74 KB	-rw-r--r--	2023-07-26 17:52

Rename

#
#   tk/virtevent.rb : treats virtual events
#                     1998/07/16 by Hidetoshi Nagai <nagai@ai.kyutech.ac.jp>
#
require 'tk'

class TkVirtualEvent<TkObject
  extend Tk

TkCommandNames = ['event'.freeze].freeze

(TkVirtualEventID = ["VirtEvent".freeze, TkUtil.untrust("00000")]).instance_eval{
    @mutex = Mutex.new
    def mutex; @mutex; end
    freeze
  }

TkVirtualEventTBL = TkCore::INTERP.create_table

TkCore::INTERP.init_ip_env{
    TkVirtualEventTBL.mutex.synchronize{ TkVirtualEventTBL.clear }
  }

class PreDefVirtEvent<self
    def self.new(event, *sequences)
      if event =~ /^<(<.*>)>$/
        event = $1
      elsif event !~ /^<.*>$/
        event = '<' + event + '>'
      end
      TkVirtualEvent::TkVirtualEventTBL.mutex.synchronize{
        if TkVirtualEvent::TkVirtualEventTBL.has_key?(event)
          TkVirtualEvent::TkVirtualEventTBL[event]
        else
          # super(event, *sequences)
          (obj = self.allocate).instance_eval{
            initialize(event, *sequences)
            TkVirtualEvent::TkVirtualEventTBL[@id] = self
          }
        end
      }
    end

def initialize(event, *sequences)
      @path = @id = event
      _add_sequences(sequences)
    end
  end

def TkVirtualEvent.getobj(event)
    obj = nil
    TkVirtualEventTBL.mutex.synchronize{
      obj = TkVirtualEventTBL[event]
    }
    if obj
      obj
    else
      if tk_call_without_enc('event', 'info').index("<#{event}>")
        PreDefVirtEvent.new(event)
      else
        fail ArgumentError, "undefined virtual event '<#{event}>'"
      end
    end
  end

def TkVirtualEvent.info
    tk_call_without_enc('event', 'info').split(/\s+/).collect!{|seq|
      TkVirtualEvent.getobj(seq[1..-2])
    }
  end

def initialize(*sequences)
    TkVirtualEventID.mutex.synchronize{
      # @path = @id = '<' + TkVirtualEventID.join('') + '>'
      @path = @id = '<' + TkVirtualEventID.join(TkCore::INTERP._ip_id_) + '>'
      TkVirtualEventID[1].succ!
    }
    _add_sequences(sequences)
  end

def _add_sequences(seq_ary)
    unless seq_ary.empty?
      tk_call_without_enc('event', 'add', "<#{@id}>",
                          *(seq_ary.collect{|seq|
                              "<#{tk_event_sequence(seq)}>"
                            }) )
    end
    self
  end
  private :_add_sequences

def add(*sequences)
    if sequences != []
      _add_sequences(sequences)
      TkVirtualEventTBL.mutex.synchronize{
        TkVirtualEventTBL[@id] = self
      }
    end
    self
  end

def delete(*sequences)
    if sequences.empty?
      tk_call_without_enc('event', 'delete', "<#{@id}>")
      TkVirtualEventTBL.mutex.synchronize{
        TkVirtualEventTBL.delete(@id)
      }
    else
      tk_call_without_enc('event', 'delete', "<#{@id}>",
                          *(sequences.collect{|seq|
                              "<#{tk_event_sequence(seq)}>"
                            }) )
      if tk_call_without_enc('event','info',"<#{@id}>").empty?
        TkVirtualEventTBL.mutex.synchronize{
          TkVirtualEventTBL.delete(@id)
        }
      end
    end
    self
  end

def info
    tk_call_without_enc('event','info',"<#{@id}>").split(/\s+/).collect!{|seq|
      lst = seq.scan(/<*[^<>]+>*/).collect!{|subseq|
        case (subseq)
        when /^<<[^<>]+>>$/
          TkVirtualEvent.getobj(subseq[1..-2])
        when /^<[^<>]+>$/
          subseq[1..-2]
        else
          subseq.split('')
        end
      }.flatten
      (lst.size == 1) ? lst[0] : lst
    }
  end
end

TkNamedVirtualEvent = TkVirtualEvent::PreDefVirtEvent