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