mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
d2a9e77748
when exit from a recursive called eventloop * ext/tk/lib/tk/timer.rb: new TkRTTimer class, which can works for a realtime operation * ext/tk/sample/tkrttimer.rb: sample of TkRTTimer class * ext/tk/lib/tk/textmark.rb: move TkTextMark#+ and TkTextMark#- to TkText::IndexModMethods * ext/tk/lib/tk/text.rb: improve TkTextMark#+ and TkTextMark#-, and add them to TkText::IndexModMethods module * ext/tk/sample/tktextio.rb: add test part of "seek by text index modifiers" git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@8133 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
150 lines
3 KiB
Ruby
150 lines
3 KiB
Ruby
#
|
|
# tkextlib/iwidgets/spinner.rb
|
|
# by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
|
|
#
|
|
|
|
require 'tk'
|
|
require 'tkextlib/iwidgets.rb'
|
|
|
|
module Tk
|
|
module Iwidgets
|
|
class Spinner < Tk::Iwidgets::Labeledwidget
|
|
end
|
|
end
|
|
end
|
|
|
|
class Tk::Iwidgets::Spinner
|
|
TkCommandNames = ['::iwidgets::spinner'.freeze].freeze
|
|
WidgetClassName = 'Spinner'.freeze
|
|
WidgetClassNames[WidgetClassName] = self
|
|
|
|
####################################
|
|
|
|
include Tk::ValidateConfigure
|
|
|
|
class EntryfieldValidate < TkValidateCommand
|
|
#class CalCmdArgs < TkUtil::CallbackSubst
|
|
class ValidateArgs < TkUtil::CallbackSubst
|
|
KEY_TBL = [
|
|
[ ?c, ?s, :char ],
|
|
[ ?P, ?s, :post ],
|
|
[ ?S, ?s, :current ],
|
|
[ ?W, ?w, :widget ],
|
|
nil
|
|
]
|
|
PROC_TBL = [
|
|
[ ?s, TkComm.method(:string) ],
|
|
[ ?w, TkComm.method(:window) ],
|
|
nil
|
|
]
|
|
_setup_subst_table(KEY_TBL, PROC_TBL);
|
|
end
|
|
|
|
def self._config_keys
|
|
['validate', 'invalid']
|
|
end
|
|
end
|
|
|
|
def __validation_class_list
|
|
super << EntryfieldValidate
|
|
end
|
|
|
|
Tk::ValidateConfigure.__def_validcmd(binding, EntryfieldValidate)
|
|
|
|
####################################
|
|
|
|
def up
|
|
tk_call_without_enc(@path, 'up')
|
|
self
|
|
end
|
|
|
|
def down
|
|
tk_call_without_enc(@path, 'down')
|
|
self
|
|
end
|
|
|
|
def clear
|
|
tk_call_without_enc(@path, 'clear')
|
|
self
|
|
end
|
|
|
|
def delete(first, last=None)
|
|
tk_send_without_enc('delete', first, last)
|
|
self
|
|
end
|
|
|
|
def value
|
|
_fromUTF8(tk_send_without_enc('get'))
|
|
end
|
|
def value= (val)
|
|
tk_send_without_enc('delete', 0, 'end')
|
|
tk_send_without_enc('insert', 0, _get_eval_enc_str(val))
|
|
val
|
|
end
|
|
alias get value
|
|
alias set value=
|
|
|
|
def cursor=(index)
|
|
tk_send_without_enc('icursor', index)
|
|
#self
|
|
index
|
|
end
|
|
alias icursor cursor=
|
|
|
|
def index(idx)
|
|
number(tk_send_without_enc('index', idx))
|
|
end
|
|
|
|
def insert(pos,text)
|
|
tk_send_without_enc('insert', pos, _get_eval_enc_str(text))
|
|
self
|
|
end
|
|
|
|
def mark(pos)
|
|
tk_send_without_enc('scan', 'mark', pos)
|
|
self
|
|
end
|
|
def dragto(pos)
|
|
tk_send_without_enc('scan', 'dragto', pos)
|
|
self
|
|
end
|
|
def selection_adjust(index)
|
|
tk_send_without_enc('selection', 'adjust', index)
|
|
self
|
|
end
|
|
def selection_clear
|
|
tk_send_without_enc('selection', 'clear')
|
|
self
|
|
end
|
|
def selection_from(index)
|
|
tk_send_without_enc('selection', 'from', index)
|
|
self
|
|
end
|
|
def selection_present()
|
|
bool(tk_send_without_enc('selection', 'present'))
|
|
end
|
|
def selection_range(s, e)
|
|
tk_send_without_enc('selection', 'range', s, e)
|
|
self
|
|
end
|
|
def selection_to(index)
|
|
tk_send_without_enc('selection', 'to', index)
|
|
self
|
|
end
|
|
|
|
# based on tk/scrollable.rb
|
|
def xview(*index)
|
|
if index.size == 0
|
|
list(tk_send_without_enc('xview'))
|
|
else
|
|
tk_send_without_enc('xview', *index)
|
|
self
|
|
end
|
|
end
|
|
def xview_moveto(*index)
|
|
xview('moveto', *index)
|
|
end
|
|
def xview_scroll(*index)
|
|
xview('scroll', *index)
|
|
end
|
|
end
|