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/toolbar.rb
#                               by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
#
#   * Part of tcllib extension
#   * toolbar widget
#

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

# TkPackage.require('widget::toolbar', '1.2')
TkPackage.require('widget::toolbar')

module Tk::Tcllib
  module Widget
    class Toolbar < TkWindow
      PACKAGE_NAME = 'widget::toolbar'.freeze
      def self.package_name
        PACKAGE_NAME
      end

def self.package_version
        begin
          TkPackage.require('widget::toolbar')
        rescue
          ''
        end
      end
    end

module ToolbarItemConfig
      include TkItemConfigMethod
    end
  end
end

class Tk::Tcllib::Widget::ToolbarItem < TkObject
  include TkTreatTagFont

ToolbarItemID_TBL = TkCore::INTERP.create_table

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

def ToolbarItem.id2obj(tbar, id)
    tpath = tbar.path
    ToolbarItemID_TBL.mutex.synchronize{
      if ToolbarItemID_TBL[tpath]
        ToolbarItemID_TBL[tpath][id]? ToolbarItemID_TBL[tpath][id]: id
      else
        id
      end
    }
  end

def initialize(parent, *args)
    @parent = @t = parent
    @tpath = parent.path

@path = @id = @t.tk_send('add', *args)
    # A same id is rejected by the Tcl function.

ToolbarItemID_TBL.mutex.synchronize{
      ToolbarItemID_TBL[@id] = self
      ToolbarItemID_TBL[@tpath] = {} unless ToolbarItemID_TBL[@tpath]
      ToolbarItemID_TBL[@tpath][@id] = self
    }
  end

def [](key)
    cget key
  end

def []=(key,val)
    configure key, val
    val
  end

def cget_tkstring(option)
    @t.itemcget_tkstring(@id, option)
  end
  def cget(option)
    @t.itemcget(@id, option)
  end
  def cget_strict(option)
    @t.itemcget_strict(@id, option)
  end

def configure(key, value=None)
    @t.itemconfigure(@id, key, value)
    self
  end

def configinfo(key=nil)
    @t.itemconfiginfo(@id, key)
  end

def current_configinfo(key=nil)
    @t.current_itemconfiginfo(@id, key)
  end

def delete
    @t.delete(@id)
  end

def itemid
    @t.itemid(@id)
  end

def remove
    @t.remove(@id)
  end
  def remove_with_destroy
    @t.remove_with_destroy(@id)
  end
end

class Tk::Tcllib::Widget::Toolbar
  include Tk::Tcllib::Widget::ToolbarItemConfig

TkCommandNames = ['::widget::toolbar'.freeze].freeze

def __destroy_hook__
    Tk::Tcllib::Widget::ToolbarItem::ToolbarItemID_TBL.mutex.synchronize{
      Tk::Tcllib::Widget::ToolbarItem::ToolbarItemID_TBL.delete(@path)
    }
  end

def create_self(keys)
    if keys and keys != None
      tk_call_without_enc(self.class::TkCommandNames[0], @path,
                          *hash_kv(keys, true))
    else
      tk_call_without_enc(self.class::TkCommandNames[0], @path)
    end
  end
  private :create_self

def getframe
    window(tk_send('getframe'))
  end
  alias get_frame getframe

def add(*args)
    Tk::Tcllib::Widget::Toolbar.new(self, *args)
  end

def itemid(item)
    window(tk_send('itemid'))
  end

def items(pattern)
    tk_split_simplelist(tk_send('items', pattern)).map{|id|
      Tk::Tcllib::Widget::ToolbarItem.id2obj(self, id)
    }
  end

def remove(*items)
    tk_send('remove', *items)
    self
  end

def remove_with_destroy(*items)
    tk_send('remove', '-destroy', *items)
    self
  end

def delete(*items)
    tk_send('delete', *items)
    self
  end
end