Gecko [ beriskala.com ]

Name	Size	Permission	Date
tile	[ DIR ]	drwxr-xr-x	2026-05-01 04:23
barchart.rb	1.75 KB	-rw-r--r--	2023-07-26 17:52
bitmap.rb	2.48 KB	-rw-r--r--	2023-07-26 17:52
busy.rb	1.69 KB	-rw-r--r--	2023-07-26 17:52
component.rb	59.75 KB	-rw-r--r--	2023-07-26 17:52
container.rb	640 B	-rw-r--r--	2023-07-26 17:52
cutbuffer.rb	520 B	-rw-r--r--	2023-07-26 17:52
dragdrop.rb	6.61 KB	-rw-r--r--	2023-07-26 17:52
eps.rb	723 B	-rw-r--r--	2023-07-26 17:52
graph.rb	1.49 KB	-rw-r--r--	2023-07-26 17:52
htext.rb	2.58 KB	-rw-r--r--	2023-07-26 17:52
setup.rb	316 B	-rw-r--r--	2023-07-26 17:52
spline.rb	464 B	-rw-r--r--	2023-07-26 17:52
stripchart.rb	1.65 KB	-rw-r--r--	2023-07-26 17:52
table.rb	9.59 KB	-rw-r--r--	2023-07-26 17:52
tabnotebook.rb	2.88 KB	-rw-r--r--	2023-07-26 17:52
tabset.rb	12.23 KB	-rw-r--r--	2023-07-26 17:52
ted.rb	1.6 KB	-rw-r--r--	2023-07-26 17:52
tile.rb	904 B	-rw-r--r--	2023-07-26 17:52
tree.rb	26.54 KB	-rw-r--r--	2023-07-26 17:52
treeview.rb	27.82 KB	-rw-r--r--	2023-07-26 17:52
unix_dnd.rb	3.93 KB	-rw-r--r--	2023-07-26 17:52
vector.rb	4.89 KB	-rw-r--r--	2023-07-26 17:52
watch.rb	3.6 KB	-rw-r--r--	2023-07-26 17:52
win_printer.rb	1.27 KB	-rw-r--r--	2023-07-26 17:52
winop.rb	2.65 KB	-rw-r--r--	2023-07-26 17:52

Rename

#
#  tkextlib/blt/vector.rb
#                               by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
#

require 'tk'
require 'tkextlib/blt.rb'

module Tk::BLT
  class Vector < TkVariable
    TkCommandNames = ['::blt::vector'.freeze].freeze

def self.create(*args)
      tk_call('::blt::vector', 'create', *args)
    end

def self.destroy(*args)
      tk_call('::blt::vector', 'destroy', *args)
    end

def self.expr(expression)
      tk_call('::blt::vector', 'expr', expression)
    end

def self.names(pat=None)
      list = simplelist(tk_call('::blt::vector', 'names', pat))
      TkVar_ID_TBL.mutex.synchronize{
        list.collect{|name|
          if TkVar_ID_TBL[name]
            TkVar_ID_TBL[name]
          elsif name[0..1] == '::' && TkVar_ID_TBL[name[2..-1]]
            TkVar_ID_TBL[name[2..-1]]
          else
            name
          end
        }
      }
    end

####################################

def initialize(size=nil, keys={})
      if size.kind_of?(Hash)
        keys = size
        size = nil
      end
      if size.kind_of?(Array)
        # [first, last]
        size = size.join(':')
      end
      if size
        @id = TkCore::INTERP._invoke('::blt::vector', 'create',
                                     "#auto(#{size})", *hash_kv(keys))
      else
        @id = TkCore::INTERP._invoke('::blt::vector', 'create',
                                     "#auto", *hash_kv(keys))
      end

TkVar_ID_TBL.mutex.synchronize{
        TkVar_ID_TBL[@id] = self
      }

@def_default = false
      @default_val = nil

@trace_var  = nil
      @trace_elem = nil
      @trace_opts = nil

# teach Tk-ip that @id is global var
      TkCore::INTERP._invoke_without_enc('global', @id)
    end

def destroy
      tk_call('::blt::vector', 'destroy', @id)
    end

def inspect
      '#<Tk::BLT::Vector: ' + @id + '>'
    end

def to_s
      @id
    end

def *(item)
      list(tk_call(@id, '*', item))
    end

def +(item)
      list(tk_call(@id, '+', item))
    end

def -(item)
      list(tk_call(@id, '-', item))
    end

def /(item)
      list(tk_call(@id, '/', item))
    end

def append(*vectors)
      tk_call(@id, 'append', *vectors)
    end

def binread(channel, len=None, keys={})
      if len.kind_of?(Hash)
        keys = len
        len = None
      end
      keys = _symbolkey2str(keys)
      keys['swap'] = None if keys.delete('swap')
      tk_call(@id, 'binread', channel, len, keys)
    end

def clear()
      tk_call(@id, 'clear')
      self
    end

def delete(*indices)
      tk_call(@id, 'delete', *indices)
      self
    end

def dup_vector(vec)
      tk_call(@id, 'dup', vec)
      self
    end

def expr(expression)
      tk_call(@id, 'expr', expression)
      self
    end

def index(idx, val=None)
      number(tk_call(@id, 'index', idx, val))
    end

def [](idx)
      index(idx)
    end

def []=(idx, val)
      index(idx, val)
    end

def length()
      number(tk_call(@id, 'length'))
    end

def length=(size)
      number(tk_call(@id, 'length', size))
    end

def merge(*vectors)
      tk_call(@id, 'merge', *vectors)
      self
    end

def normalize(vec=None)
      tk_call(@id, 'normalize', vec)
      self
    end

def notify(keyword)
      tk_call(@id, 'notify', keyword)
      self
    end

def offset()
      number(tk_call(@id, 'offset'))
    end

def offset=(val)
      number(tk_call(@id, 'offset', val))
    end

def random()
      tk_call(@id, 'random')
    end

def populate(vector, density=None)
      tk_call(@id, 'populate', vector, density)
      self
    end

def range(first, last=None)
      list(tk_call(@id, 'range', first, last))
    end

def search(val1, val2=None)
      list(tk_call(@id, 'search', val1, val2))
    end

def set(item)
      tk_call(@id, 'set', item)
      self
    end

def seq(start, finish=None, step=None)
      tk_call(@id, 'seq', start, finish, step)
      self
    end

def sort(*vectors)
      tk_call(@id, 'sort', *vectors)
      self
    end

def sort_reverse(*vectors)
      tk_call(@id, 'sort', '-reverse', *vectors)
      self
    end

def split(*vectors)
      tk_call(@id, 'split', *vectors)
      self
    end

def variable(var)
      tk_call(@id, 'variable', var)
      self
    end
  end

class VectorAccess < Vector
    def self.new(name)
      TkVar_ID_TBL.mutex.synchronize{
        if TkVar_ID_TBL[name]
          TkVar_ID_TBL[name]
        else
          (obj = self.allocate).instance_eval{
            initialize(name)
            TkVar_ID_TBL[@id] = self
          }
          obj
        end
      }
    end

def initialize(vec_name)
      @id = vec_name

@def_default = false
      @default_val = nil

@trace_var  = nil
      @trace_elem = nil
      @trace_opts = nil

# teach Tk-ip that @id is global var
      TkCore::INTERP._invoke_without_enc('global', @id)
    end
  end
end