Gecko [ beriskala.com ]

Name	Size	Permission	Date
tile	[ DIR ]	drwxr-xr-x	2026-05-01 04:23
barchart.rb	1.78 KB	-rw-r--r--	2023-07-26 18:09
bitmap.rb	2.51 KB	-rw-r--r--	2023-07-26 18:09
busy.rb	1.72 KB	-rw-r--r--	2023-07-26 18:09
component.rb	59.78 KB	-rw-r--r--	2023-07-26 18:09
container.rb	671 B	-rw-r--r--	2023-07-26 18:09
cutbuffer.rb	551 B	-rw-r--r--	2023-07-26 18:09
dragdrop.rb	6.64 KB	-rw-r--r--	2023-07-26 18:09
eps.rb	754 B	-rw-r--r--	2023-07-26 18:09
graph.rb	1.52 KB	-rw-r--r--	2023-07-26 18:09
htext.rb	2.61 KB	-rw-r--r--	2023-07-26 18:09
setup.rb	347 B	-rw-r--r--	2023-07-26 18:09
spline.rb	495 B	-rw-r--r--	2023-07-26 18:09
stripchart.rb	1.68 KB	-rw-r--r--	2023-07-26 18:09
table.rb	9.62 KB	-rw-r--r--	2023-07-26 18:09
tabnotebook.rb	2.91 KB	-rw-r--r--	2023-07-26 18:09
tabset.rb	12.26 KB	-rw-r--r--	2023-07-26 18:09
ted.rb	1.63 KB	-rw-r--r--	2023-07-26 18:09
tile.rb	935 B	-rw-r--r--	2023-07-26 18:09
tree.rb	26.57 KB	-rw-r--r--	2023-07-26 18:09
treeview.rb	27.85 KB	-rw-r--r--	2023-07-26 18:09
unix_dnd.rb	3.96 KB	-rw-r--r--	2023-07-26 18:09
vector.rb	4.92 KB	-rw-r--r--	2023-07-26 18:09
watch.rb	3.63 KB	-rw-r--r--	2023-07-26 18:09
win_printer.rb	1.3 KB	-rw-r--r--	2023-07-26 18:09
winop.rb	2.68 KB	-rw-r--r--	2023-07-26 18:09

Rename

# frozen_string_literal: false
#
#  tkextlib/blt/bitmap.rb
#                               by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
#

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

module Tk::BLT
  class Bitmap < TkObject
    extend TkCore

TkCommandNames = ['::blt::bitmap'.freeze].freeze

BITMAP_ID_TBL = TkCore::INTERP.create_table

(BITMAP_ID = ['blt_bitmap_id'.freeze, TkUtil.untrust('00000')]).instance_eval{
      @mutex = Mutex.new
      def mutex; @mutex; end
      freeze
    }

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

def self.data(name)
      dat = tk_simple_list(tk_call('::blt::bitmap', 'data', name))
      [ tk_split_list(dat[0]), tk_simple_list(dat[1]) ]
    end

def self.exist?(name)
      bool(tk_call('::blt::bitmap', 'exists', name))
    end

def self.height(name)
      number(tk_call('::blt::bitmap', 'height', name))
    end

def self.width(name)
      number(tk_call('::blt::bitmap', 'width', name))
    end

def self.source(name)
      tk_simple_list(tk_call('::blt::bitmap', 'source', name))
    end

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

class << self
      alias _new new

def new(data, keys={})
        _new(:data, nil, data, keys)
      end
      alias define new

def new_with_name(name, data, keys={})
        _new(:data, name, data, keys)
      end
      alias define_with_name new_with_name

def compose(text, keys={})
        _new(:text, nil, text, keys)
      end

def compose_with_name(name, text, keys={})
        _new(:text, name, text, keys)
      end
    end

def initialize(type, name, data, keys = {})
      if name
        @id = name
      else
        BITMAP_ID.mutex.synchronize{
          @id = BITMAP_ID.join(TkCore::INTERP._ip_id_)
          BITMAP_ID[1].succ!
        }
        BITMAP_ID_TBL.mutex.synchronize{
          BITMAP_ID_TBL[@id] = self
        }
      end

@path = @id

unless bool(tk_call('::blt::bitmap', 'exists', @id))
        if type == :text
          tk_call('::blt::bitmap', 'compose', @id, data, *hash_kv(keys))
        else # :data
          tk_call('::blt::bitmap', 'define', @id, data, *hash_kv(keys))
        end
      end
    end

def exist?
      bool(tk_call('::blt::bitmap', 'exists', @id))
    end

def height
      number(tk_call('::blt::bitmap', 'height', @id))
    end

def width
      number(tk_call('::blt::bitmap', 'width', @id))
    end

def source
      tk_simple_list(tk_call('::blt::bitmap', 'source', @id))
    end
  end
end