Gecko [ beriskala.com ]

Name	Size	Permission	Date
dialog.rb	1.88 KB	-rw-r--r--	2023-07-26 17:52
setup.rb	316 B	-rw-r--r--	2023-07-26 17:52
sizegrip.rb	856 B	-rw-r--r--	2023-07-26 17:52
style.rb	10.77 KB	-rw-r--r--	2023-07-26 17:52
tbutton.rb	843 B	-rw-r--r--	2023-07-26 17:52
tcheckbutton.rb	1.05 KB	-rw-r--r--	2023-07-26 17:52
tcombobox.rb	1.21 KB	-rw-r--r--	2023-07-26 17:52
tentry.rb	1.09 KB	-rw-r--r--	2023-07-26 17:52
tframe.rb	828 B	-rw-r--r--	2023-07-26 17:52
tlabel.rb	828 B	-rw-r--r--	2023-07-26 17:52
tlabelframe.rb	1.04 KB	-rw-r--r--	2023-07-26 17:52
tmenubutton.rb	1.03 KB	-rw-r--r--	2023-07-26 17:52
tnotebook.rb	3.3 KB	-rw-r--r--	2023-07-26 17:52
tpaned.rb	6.53 KB	-rw-r--r--	2023-07-26 17:52
tprogressbar.rb	1.41 KB	-rw-r--r--	2023-07-26 17:52
tradiobutton.rb	1.05 KB	-rw-r--r--	2023-07-26 17:52
treeview.rb	35.38 KB	-rw-r--r--	2023-07-26 17:52
tscale.rb	1.33 KB	-rw-r--r--	2023-07-26 17:52
tscrollbar.rb	1.75 KB	-rw-r--r--	2023-07-26 17:52
tseparator.rb	878 B	-rw-r--r--	2023-07-26 17:52
tspinbox.rb	2.23 KB	-rw-r--r--	2023-07-26 17:52
tsquare.rb	641 B	-rw-r--r--	2023-07-26 17:52

Rename

#
#  ttk::spinbox widget  (Tcl/Tk 8.6b1 or later)
#                               by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
#
require 'tk'
require 'tkextlib/tile.rb'

module Tk
  module Tile
    class TSpinbox < Tk::Tile::TEntry
    end
    Spinbox = TSpinbox
  end
end

class Tk::Tile::TSpinbox < Tk::Tile::TEntry
  include Tk::Tile::TileWidget

if Tk::Tile::USE_TTK_NAMESPACE
    TkCommandNames = ['::ttk::spinbox'.freeze].freeze
  else
    TkCommandNames = ['::tspinbox'.freeze].freeze
  end
  WidgetClassName = 'TSpinbox'.freeze
  WidgetClassNames[WidgetClassName] ||= self

class SpinCommand < TkValidateCommand
    class ValidateArgs < TkUtil::CallbackSubst
      KEY_TBL = [
        [ ?d, ?s, :direction ],
        [ ?s, ?e, :current ],
        [ ?W, ?w, :widget ],
        nil
      ]

PROC_TBL = [
        [ ?s, TkComm.method(:string) ],
        [ ?w, TkComm.method(:window) ],

[ ?e, proc{|val|
            #enc = Tk.encoding
            enc = ((Tk.encoding)? Tk.encoding : Tk.encoding_system)
            if enc
              Tk.fromUTF8(TkComm::string(val), enc)
            else
              TkComm::string(val)
            end
          }
        ],

nil
      ]

_setup_subst_table(KEY_TBL, PROC_TBL);

def self.ret_val(val)
        (val)? '1': '0'
      end
    end

def self._config_keys
      ['command']
    end
  end

def __validation_class_list
    super() << SpinCommand
  end

Tk::ValidateConfigure.__def_validcmd(binding, SpinCommand)

def __boolval_optkeys
    super() << 'wrap'
  end
  private :__boolval_optkeys

def __strval_optkeys
    super() << 'buttonbackground' << 'format'
  end
  private :__strval_optkeys

def __listval_optkeys
    super() << 'values'
  end
  private :__listval_optkeys

def self.style(*args)
    [self::WidgetClassName, *(args.map!{|a| _get_eval_string(a)})].join('.')
  end

def current
    number(tk_send_without_enc('current'))
  end
  def current=(idx)
    tk_send('current', idx)
  end

def set(val)
    tk_send('set', val)
  end

alias identify ttk_identify
end

#Tk.__set_toplevel_aliases__(:Ttk, Tk::Tile::Spinbox, :TkSpinbox)
Tk.__set_loaded_toplevel_aliases__('tkextlib/tile/tspinbox.rb',
                                   :Ttk, Tk::Tile::Spinbox, :TkSpinbox)