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/tabnotebook.rb
#                               by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
#

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

module Tk::BLT
  class Tabnotebook < Tabset
    TkCommandNames = ['::blt::tabnotebook'.freeze].freeze
    WidgetClassName = 'Tabnotebook'.freeze
    WidgetClassNames[WidgetClassName] ||= self

class Tab < Tk::BLT::Tabset::Tab
      def self.new(parent, pos=nil, name=nil, keys={})
        if pos.kind_of?(Hash)
          keys = pos
          name = nil
          pos  = nil
        end
        if name.kind_of?(Hash)
          keys = name
          name = nil
        end
        obj = nil
        TabID_TBL.mutex.synchronize{
          if name && TabID_TBL[parent.path] && TabID_TBL[parent.path][name]
            obj = TabID_TBL[parent.path][name]
            if pos
              if pos.to_s == 'end'
                obj.move_after('end')
              else
                obj.move_before(pos)
              end
            end
            obj.configure if keys && ! keys.empty?
          else
            (obj = self.allocate).instance_eval{
              initialize(parent, pos, name, keys)
              TabID_TBL[@tpath] = {} unless TabID_TBL[@tpath]
              TabID_TBL[@tpath][@id] = self
            }
          end
        }
        obj
      end

def initialize(parent, pos, name, keys)
        @t = parent
        @tpath = parent.path
        if name
          @path = @id = name
          unless (list(tk_call(@tpath, 'tab', 'names', @id)).empty?)
            if pos
              idx = tk_call(@tpath, 'index', @id)
              if pos.to_s == 'end'
                tk_call(@tpath, 'move', idx, 'after', 'end')
              else
                tk_call(@tpath, 'move', idx, 'before', pos)
              end
            end
            tk_call(@tpath, 'tab', 'configure', @id, keys)
          else
            fail ArgumentError, "can't find tab \"#{@id}\" in #{@t}"
          end
        else
          pos = 'end' unless pos
          @path = @id = tk_call(@tpath, 'insert', pos, keys)
        end
      end
    end

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

def get_tab(index)
      if (idx = tk_send_without_enc('id', tagindex(index))).empty?
        nil
      else
        Tk::BLT::Tabset::Tab.id2obj(self, idx)
      end
    end
    alias get_id get_tab

def get_tabobj(index)
      if (idx = tk_send_without_enc('id', tagindex(index))).empty?
        nil
      else
        Tk::BLT::Tabnotebook::Tab.new(self, nil, idx)
      end
    end

alias index_name index

def insert(pos=nil, keys={})
      if pos.kind_of?(Hash)
        keys = pos
        pos = nil
      end
      pos = 'end' if pos.nil?
      Tk::BLT::Tabnotebook::Tab.new(self, nil,
                                    tk_send('insert', tagindex(pos), keys))

end
    undef :insert_tabs

undef :tab_pageheight, :tab_pagewidth
  end
end