Gecko [ beriskala.com ]

Name	Size	Permission	Date
autoscroll.rb	4.14 KB	-rw-r--r--	2023-07-26 18:01
calendar.rb	1.12 KB	-rw-r--r--	2023-07-26 18:01
canvas_sqmap.rb	689 B	-rw-r--r--	2023-07-26 18:01
canvas_zoom.rb	430 B	-rw-r--r--	2023-07-26 18:01
chatwidget.rb	3.31 KB	-rw-r--r--	2023-07-26 18:01
crosshair.rb	2.42 KB	-rw-r--r--	2023-07-26 18:01
ctext.rb	3.23 KB	-rw-r--r--	2023-07-26 18:01
cursor.rb	2.61 KB	-rw-r--r--	2023-07-26 18:01
dateentry.rb	1.2 KB	-rw-r--r--	2023-07-26 18:01
datefield.rb	1.4 KB	-rw-r--r--	2023-07-26 18:01
diagrams.rb	4.75 KB	-rw-r--r--	2023-07-26 18:01
dialog.rb	1.5 KB	-rw-r--r--	2023-07-26 18:01
getstring.rb	2.54 KB	-rw-r--r--	2023-07-26 18:01
history.rb	1.4 KB	-rw-r--r--	2023-07-26 18:01
ico.rb	3.87 KB	-rw-r--r--	2023-07-26 18:01
ip_entry.rb	1.67 KB	-rw-r--r--	2023-07-26 18:01
khim.rb	1.38 KB	-rw-r--r--	2023-07-26 18:01
menuentry.rb	1.02 KB	-rw-r--r--	2023-07-26 18:01
ntext.rb	3.32 KB	-rw-r--r--	2023-07-26 18:01
panelframe.rb	1.5 KB	-rw-r--r--	2023-07-26 18:01
plotchart.rb	37.57 KB	-rw-r--r--	2023-07-26 18:01
ruler.rb	1.26 KB	-rw-r--r--	2023-07-26 18:01
screenruler.rb	1.31 KB	-rw-r--r--	2023-07-26 18:01
scrolledwindow.rb	1.26 KB	-rw-r--r--	2023-07-26 18:01
scrollwin.rb	1.26 KB	-rw-r--r--	2023-07-26 18:01
setup.rb	316 B	-rw-r--r--	2023-07-26 18:01
statusbar.rb	1.61 KB	-rw-r--r--	2023-07-26 18:01
style.rb	1.1 KB	-rw-r--r--	2023-07-26 18:01
superframe.rb	1.11 KB	-rw-r--r--	2023-07-26 18:01
swaplist.rb	3.22 KB	-rw-r--r--	2023-07-26 18:01
tablelist.rb	667 B	-rw-r--r--	2023-07-26 18:01
tablelist_core.rb	25.31 KB	-rw-r--r--	2023-07-26 18:01
tablelist_tile.rb	996 B	-rw-r--r--	2023-07-26 18:01
tkpiechart.rb	6.96 KB	-rw-r--r--	2023-07-26 18:01
toolbar.rb	3.34 KB	-rw-r--r--	2023-07-26 18:01
tooltip.rb	2.18 KB	-rw-r--r--	2023-07-26 18:01
validator.rb	1.4 KB	-rw-r--r--	2023-07-26 18:01
widget.rb	2.33 KB	-rw-r--r--	2023-07-26 18:01

Rename

#
#  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