Gecko [ beriskala.com ]

Name	Size	Permission	Date
autoscroll.rb	4.17 KB	-rw-r--r--	2023-07-26 18:09
calendar.rb	1.15 KB	-rw-r--r--	2023-07-26 18:09
canvas_sqmap.rb	720 B	-rw-r--r--	2023-07-26 18:09
canvas_zoom.rb	461 B	-rw-r--r--	2023-07-26 18:09
chatwidget.rb	3.34 KB	-rw-r--r--	2023-07-26 18:09
crosshair.rb	2.45 KB	-rw-r--r--	2023-07-26 18:09
ctext.rb	3.26 KB	-rw-r--r--	2023-07-26 18:09
cursor.rb	2.64 KB	-rw-r--r--	2023-07-26 18:09
dateentry.rb	1.23 KB	-rw-r--r--	2023-07-26 18:09
datefield.rb	1.43 KB	-rw-r--r--	2023-07-26 18:09
diagrams.rb	4.78 KB	-rw-r--r--	2023-07-26 18:09
dialog.rb	1.54 KB	-rw-r--r--	2023-07-26 18:09
getstring.rb	2.57 KB	-rw-r--r--	2023-07-26 18:09
history.rb	1.43 KB	-rw-r--r--	2023-07-26 18:09
ico.rb	3.9 KB	-rw-r--r--	2023-07-26 18:09
ip_entry.rb	1.7 KB	-rw-r--r--	2023-07-26 18:09
khim.rb	1.41 KB	-rw-r--r--	2023-07-26 18:09
menuentry.rb	1.05 KB	-rw-r--r--	2023-07-26 18:09
ntext.rb	3.35 KB	-rw-r--r--	2023-07-26 18:09
panelframe.rb	1.54 KB	-rw-r--r--	2023-07-26 18:09
plotchart.rb	37.6 KB	-rw-r--r--	2023-07-26 18:09
ruler.rb	1.29 KB	-rw-r--r--	2023-07-26 18:09
screenruler.rb	1.34 KB	-rw-r--r--	2023-07-26 18:09
scrolledwindow.rb	1.29 KB	-rw-r--r--	2023-07-26 18:09
scrollwin.rb	1.29 KB	-rw-r--r--	2023-07-26 18:09
setup.rb	347 B	-rw-r--r--	2023-07-26 18:09
statusbar.rb	1.64 KB	-rw-r--r--	2023-07-26 18:09
style.rb	1.13 KB	-rw-r--r--	2023-07-26 18:09
superframe.rb	1.14 KB	-rw-r--r--	2023-07-26 18:09
swaplist.rb	3.25 KB	-rw-r--r--	2023-07-26 18:09
tablelist.rb	698 B	-rw-r--r--	2023-07-26 18:09
tablelist_core.rb	25.34 KB	-rw-r--r--	2023-07-26 18:09
tablelist_tile.rb	1 KB	-rw-r--r--	2023-07-26 18:09
tkpiechart.rb	6.99 KB	-rw-r--r--	2023-07-26 18:09
toolbar.rb	3.38 KB	-rw-r--r--	2023-07-26 18:09
tooltip.rb	2.21 KB	-rw-r--r--	2023-07-26 18:09
validator.rb	1.43 KB	-rw-r--r--	2023-07-26 18:09
widget.rb	2.36 KB	-rw-r--r--	2023-07-26 18:09

Rename

# frozen_string_literal: false
#
#  tkextlib/tcllib/chatwidget.rb
#                               by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
#
#   * Part of tcllib extension
#   * chatwidget - Provides a multi-paned view suitable for display of
#                  chat room or irc channel information
#

require 'tk'
require 'tkextlib/tcllib.rb'

# TkPackage.require('chatwidget', '1.1.0')
TkPackage.require('chatwidget')

module Tk::Tcllib
  class ChatWidget < TkText
    PACKAGE_NAME = 'chatwidget'.freeze
    def self.package_name
      PACKAGE_NAME
    end

def self.package_version
      begin
        TkPackage.require('chatwidget')
      rescue
        ''
      end
    end
  end
end

class Tk::Tcllib::ChatWidget
  TkCommandNames = ['::chatwidget::chatwidget'.freeze].freeze

def show_topic
    tk_send_without_enc('topic', 'show')
    self
  end

def hide_topic
    tk_send_without_enc('topic', 'hide')
    self
  end

def set_topic(topic)
    tk_send('topic', 'set', topic)
  end

def list_name
    tk_split_simplelist(tk_send('name', 'list'))
  end

def list_name_full
    tk_split_simplelist(tk_send('name', 'list')).map{|lst|
      nick, *opts = tk_split_simplelist(lst)
      h_opt = {}
      opts.slice(2){|k, v| h_opt[k[1..-1]] = tk_tcl2ruby(v)}
      [nick, h_opt]
    }
  end

def add_name(nick, opts={})
    tk_send('name', 'add', nick, *(hash_kv(opts)))
  end

def delete_name(nick)
    tk_send('name', 'delete', nick)
  end

def get_name(nick)
    lst = tk_send('name', 'get', nick)
    return nil if lst.empty?
    nick, *opts = tk_split_simplelist(lst)
    h_opt = {}
    opts.slice(2){|k, v| h_opt[k[1..-1]] = tk_tcl2ruby(v)}
    [nick, h_opt]
  end

def message(msg, opts={})
    tk_send('message', msg, *(hash_kv(opts)))
    self
  end

def _parse_hook_list(lst)
    tk_split_simplelist(lst).map{|hook|
      cmd, prior = tk_split_simplelist(hook)
      [procedure(cmd), number(prior)]
    }
  end
  private :_parse_hook_list

def hook_add(type, *args, &blk) # args -> [prior, cmd], [prior], [cmd]
    #type -> 'message', 'post', 'names_group', 'names_nick', 'chatstate', 'url'

if prior = args.shift
      if !prior.kind_of?(Numeric)
        cmd = prior
        if (prior = args.shift) && !prior.kind_of?(Numeric)  # error
          args.unshift(prior)
        end
        args.unshift(cmd)
      end
      prior ||= 50  # default priority
    end

cmd = args.shift || blk

fail ArgumentError, "invalid arguments" unless args.empty?
    fail ArgumentError, "no callback is given" unless cmd

_parse_hook_list(tk_send('hook', 'add', type, cmd, prior))
  end

def hook_remove(type, cmd)
    #type -> 'message', 'post', 'names_group', 'names_nick', 'chatstate', 'url'
    _parse_hook_list(tk_send('hook', 'remove', type, cmd))
  end

def hook_run(type, *cmd_args)
    #type -> 'message', 'post', 'names_group', 'names_nick', 'chatstate', 'url'
    tk_send('hook', 'run', type, *cmd_args)
  end

def hook_list(type)
    #type -> 'message', 'post', 'names_group', 'names_nick', 'chatstate', 'url'
    _parse_hook_list(tk_send('hook', 'list', type))
  end

def show_names
    tk_send('names', 'show')
    self
  end

def hide_names
    tk_send('names', 'hide')
    self
  end

def names_widget
    window(tk_send('names'))
  end

def entry_widget
    window(tk_send('entry'))
  end

def chat_widget
    window(tk_send('chat'))
  end
end