mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
* (bug fix) TkEntry#delete
* (bug fix) some widget demos * support <TkVariable object> == <Symbol> ( "coerce TkVariable" add to the TODO list :-) ) * freeze some object for security reason git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4282 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
parent
d7bdf5df56
commit
4c3328f547
33 changed files with 297 additions and 134 deletions
|
@ -35,6 +35,7 @@ sample/resource.ja
|
|||
sample/resource.en
|
||||
sample/tktimer.rb
|
||||
sample/tktimer2.rb
|
||||
sample/tktimer3.rb
|
||||
sample/demos-en/ChangeLog
|
||||
sample/demos-en/ChangeLog.prev
|
||||
sample/demos-en/README
|
||||
|
|
|
@ -33,7 +33,7 @@ MultiTkIp_OK.freeze
|
|||
################################################
|
||||
# methods for construction
|
||||
class MultiTkIp
|
||||
SLAVE_IP_ID = ['slave'.freeze, '0']
|
||||
SLAVE_IP_ID = ['slave'.freeze, '0'].freeze
|
||||
|
||||
@@IP_TABLE = {}
|
||||
|
||||
|
@ -234,7 +234,12 @@ class MultiTkIp
|
|||
|
||||
######################################
|
||||
|
||||
SAFE_OPT_LIST = ['accessPath', 'statics', 'nested', 'deleteHook']
|
||||
SAFE_OPT_LIST = [
|
||||
'accessPath'.freeze,
|
||||
'statics'.freeze,
|
||||
'nested'.freeze,
|
||||
'deleteHook'.freeze
|
||||
].freeze
|
||||
def _parse_slaveopts(keys)
|
||||
name = nil
|
||||
safe = false
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
|
||||
#
|
||||
# tk.rb - Tk interface module using tcltklib
|
||||
# $Date$
|
||||
# by Yukihiro Matsumoto <matz@netlab.jp>
|
||||
|
@ -17,7 +17,7 @@ module TkComm
|
|||
|
||||
#Tk_CMDTBL = {}
|
||||
#Tk_WINDOWS = {}
|
||||
Tk_IDs = ["00000", "00000"] # [0]-cmdid, [1]-winid
|
||||
Tk_IDs = ["00000", "00000"].freeze # [0]-cmdid, [1]-winid
|
||||
|
||||
# for backward compatibility
|
||||
Tk_CMDTBL = Object.new
|
||||
|
@ -1651,7 +1651,7 @@ class TkBindTag
|
|||
|
||||
#BTagID_TBL = {}
|
||||
BTagID_TBL = TkCore::INTERP.create_table
|
||||
Tk_BINDTAG_ID = ["btag".freeze, "00000"]
|
||||
Tk_BINDTAG_ID = ["btag".freeze, "00000"].freeze
|
||||
|
||||
TkCore::INTERP.init_ip_env{ BTagID_TBL.clear }
|
||||
|
||||
|
@ -1726,7 +1726,7 @@ class TkVariable
|
|||
#TkVar_ID_TBL = {}
|
||||
TkVar_CB_TBL = TkCore::INTERP.create_table
|
||||
TkVar_ID_TBL = TkCore::INTERP.create_table
|
||||
Tk_VARIABLE_ID = ["v".freeze, "00000"]
|
||||
Tk_VARIABLE_ID = ["v".freeze, "00000"].freeze
|
||||
|
||||
TkCore::INTERP.add_tk_procs('rb_var', 'args',
|
||||
"ruby [format \"TkVariable.callback %%Q!%s!\" $args]")
|
||||
|
@ -1839,6 +1839,10 @@ class TkVariable
|
|||
string(value).to_s
|
||||
end
|
||||
|
||||
def to_sym
|
||||
value.intern
|
||||
end
|
||||
|
||||
def inspect
|
||||
format "#<TkVariable: %s>", @id
|
||||
end
|
||||
|
@ -1849,6 +1853,8 @@ class TkVariable
|
|||
self.equal?(other)
|
||||
when String
|
||||
self.to_s == other
|
||||
when Symbol
|
||||
self.to_sym == other
|
||||
when Integer
|
||||
self.to_i == other
|
||||
when Float
|
||||
|
@ -4630,7 +4636,7 @@ end
|
|||
module TkTreatListItemFont
|
||||
include TkTreatItemFont
|
||||
|
||||
ItemCMD = ['itemconfigure', TkComm::None]
|
||||
ItemCMD = ['itemconfigure'.freeze, TkComm::None].freeze
|
||||
def __conf_cmd(idx)
|
||||
ItemCMD[idx]
|
||||
end
|
||||
|
@ -4770,7 +4776,7 @@ end
|
|||
module TkTreatMenuEntryFont
|
||||
include TkTreatItemFont
|
||||
|
||||
ItemCMD = ['entryconfigure', TkComm::None]
|
||||
ItemCMD = ['entryconfigure'.freeze, TkComm::None].freeze
|
||||
def __conf_cmd(idx)
|
||||
ItemCMD[idx]
|
||||
end
|
||||
|
|
|
@ -11,7 +11,7 @@ class TkTimer
|
|||
|
||||
TkCommandNames = ['after'.freeze].freeze
|
||||
|
||||
Tk_CBID = ['a'.freeze, '00000']
|
||||
Tk_CBID = ['a'.freeze, '00000'].freeze
|
||||
Tk_CBTBL = {}
|
||||
|
||||
TkCore::INTERP.add_tk_procs('rb_after', 'id', <<-'EOL')
|
||||
|
@ -311,6 +311,22 @@ class TkTimer
|
|||
self
|
||||
end
|
||||
|
||||
def reset(*reset_args)
|
||||
restart() if @running
|
||||
|
||||
if @init_proc
|
||||
@return_value = @init_proc.call(self)
|
||||
else
|
||||
@return_value = nil
|
||||
end
|
||||
|
||||
@current_pos = 0
|
||||
@current_args = @init_args
|
||||
@set_next = false if @in_callback
|
||||
|
||||
self
|
||||
end
|
||||
|
||||
def restart(*restart_args)
|
||||
cancel if @running
|
||||
if restart_args == []
|
||||
|
|
|
@ -11,7 +11,7 @@ require 'tkfont'
|
|||
module TkTreatCItemFont
|
||||
include TkTreatItemFont
|
||||
|
||||
ItemCMD = ['itemconfigure', TkComm::None]
|
||||
ItemCMD = ['itemconfigure'.freeze, TkComm::None].freeze
|
||||
def __conf_cmd(idx)
|
||||
ItemCMD[idx]
|
||||
end
|
||||
|
@ -529,7 +529,7 @@ class TkcTag<TkObject
|
|||
include TkcTagAccess
|
||||
|
||||
CTagID_TBL = TkCore::INTERP.create_table
|
||||
Tk_CanvasTag_ID = ['ctag', '00000']
|
||||
Tk_CanvasTag_ID = ['ctag'.freeze, '00000'].freeze
|
||||
|
||||
TkCore::INTERP.init_ip_env{ CTagID_TBL.clear }
|
||||
|
||||
|
@ -660,7 +660,7 @@ class TkcTagCurrent<TkcTag
|
|||
end
|
||||
|
||||
class TkcGroup<TkcTag
|
||||
Tk_cGroup_ID = ['tkcg', '00000']
|
||||
Tk_cGroup_ID = ['tkcg'.freeze, '00000'].freeze
|
||||
def create_self(parent, *args)
|
||||
if not parent.kind_of?(TkCanvas)
|
||||
fail format("%s need to be TkCanvas", parent.inspect)
|
||||
|
@ -823,7 +823,7 @@ class TkImage<TkObject
|
|||
TkCommandNames = ['image'.freeze].freeze
|
||||
|
||||
Tk_IMGTBL = TkCore::INTERP.create_table
|
||||
Tk_Image_ID = ['i', '00000']
|
||||
Tk_Image_ID = ['i'.freeze, '00000'].freeze
|
||||
|
||||
TkCore::INTERP.init_ip_env{ Tk_IMGTBL.clear }
|
||||
|
||||
|
|
|
@ -158,7 +158,7 @@ class TkEntry<TkLabel
|
|||
self
|
||||
end
|
||||
def delete(first, last=None)
|
||||
tk_send 'insert', first, last
|
||||
tk_send 'delete', first, last
|
||||
self
|
||||
end
|
||||
def mark(pos)
|
||||
|
|
|
@ -11,7 +11,7 @@ class TkFont
|
|||
|
||||
TkCommandNames = ['font'.freeze].freeze
|
||||
|
||||
Tk_FontID = ["@font".freeze, "00000"]
|
||||
Tk_FontID = ["@font".freeze, "00000"].freeze
|
||||
Tk_FontNameTBL = TkCore::INTERP.create_table
|
||||
Tk_FontUseTBL = TkCore::INTERP.create_table
|
||||
|
||||
|
|
|
@ -9,7 +9,7 @@ require 'tkfont'
|
|||
module TkTreatTextTagFont
|
||||
include TkTreatItemFont
|
||||
|
||||
ItemCMD = ['tag', 'configure']
|
||||
ItemCMD = ['tag'.freeze, 'configure'.freeze].freeze
|
||||
def __conf_cmd(idx)
|
||||
ItemCMD[idx]
|
||||
end
|
||||
|
@ -24,7 +24,7 @@ module TkTreatTextTagFont
|
|||
end
|
||||
|
||||
class TkText<TkTextWin
|
||||
ItemConfCMD = ['tag', 'configure']
|
||||
ItemConfCMD = ['tag'.freeze, 'configure'.freeze].freeze
|
||||
include TkTreatTextTagFont
|
||||
include Scrollable
|
||||
|
||||
|
@ -767,7 +767,7 @@ class TkTextTag<TkObject
|
|||
include TkTreatTagFont
|
||||
|
||||
TTagID_TBL = TkCore::INTERP.create_table
|
||||
Tk_TextTag_ID = ['tag', '00000']
|
||||
Tk_TextTag_ID = ['tag'.freeze, '00000'].freeze
|
||||
|
||||
TkCore::INTERP.init_ip_env{ TTagID_TBL.clear }
|
||||
|
||||
|
@ -971,7 +971,7 @@ end
|
|||
|
||||
class TkTextMark<TkObject
|
||||
TMarkID_TBL = TkCore::INTERP.create_table
|
||||
Tk_TextMark_ID = ['mark', '00000']
|
||||
Tk_TextMark_ID = ['mark'.freeze, '00000'].freeze
|
||||
|
||||
TkCore::INTERP.init_ip_env{ TMarkID_TBL.clear }
|
||||
|
||||
|
|
|
@ -9,7 +9,7 @@ class TkVirtualEvent<TkObject
|
|||
|
||||
TkCommandNames = ['event'.freeze].freeze
|
||||
|
||||
TkVirtualEventID = ["<VirtEvent".freeze, "00000", ">".freeze]
|
||||
TkVirtualEventID = ["<VirtEvent".freeze, "00000", ">".freeze].freeze
|
||||
TkVirtualEventTBL = TkCore::INTERP.create_table
|
||||
|
||||
TkCore::INTERP.init_ip_env{ TkVirtualEventTBL.clear }
|
||||
|
|
|
@ -53,10 +53,8 @@ class Rmt
|
|||
|
||||
# Create text window and scrollbar.
|
||||
|
||||
@txt = TkText.new(root, 'relief'=>'sunken', 'bd'=>2, 'setgrid'=>true) {|t|
|
||||
TkScrollbar.new(root, 'command'=>proc{|*args| t.yview *args}) {
|
||||
pack('side'=>'right', 'fill'=>'both')
|
||||
}
|
||||
@txt = TkText.new(root, 'relief'=>'sunken', 'bd'=>2, 'setgrid'=>true) {
|
||||
yscrollbar(TkScrollbar.new(root){pack('side'=>'right', 'fill'=>'y')})
|
||||
pack('side'=>'left')
|
||||
}
|
||||
|
||||
|
@ -247,13 +245,18 @@ class Rmt
|
|||
rescue
|
||||
end
|
||||
TkWinfo.interps.sort.each{|ip|
|
||||
if Tk.appsend(ip, false, 'info commands ruby') == ""
|
||||
mode = 'Tcl'
|
||||
else
|
||||
mode = 'Ruby'
|
||||
begin
|
||||
if Tk.appsend(ip, false, 'info commands ruby') == ""
|
||||
mode = 'Tcl'
|
||||
else
|
||||
mode = 'Ruby'
|
||||
end
|
||||
menu.add('command', 'label'=>format("%s (#{mode}/Tk)", ip),
|
||||
'command'=>proc{win.newApp ip, mode})
|
||||
rescue
|
||||
menu.add('command', 'label'=>format("%s (unknown Tk)", ip),
|
||||
'command'=>proc{win.newApp ip, mode}, 'state'=>'disabled')
|
||||
end
|
||||
menu.add('command', 'label'=>format("%s (#{mode}/Tk)", ip),
|
||||
'command'=>proc{win.newApp ip, mode})
|
||||
}
|
||||
menu.add('command', 'label'=>format("local (Ruby/Tk)"),
|
||||
'command'=>proc{win.newApp 'local', 'Ruby'})
|
||||
|
|
|
@ -4,7 +4,7 @@
|
|||
# This script is a part of Tom LaStrange's rolodex
|
||||
#
|
||||
# Copyright (C) 1998 by Takaaki Tateishi <ttate@jaist.ac.jp>
|
||||
# Time-stamp: "98/07/20 12:00:02 ttate"
|
||||
# Time-stamp: "03/08/02 06:23:06 nagai"
|
||||
#
|
||||
|
||||
require "tk"
|
||||
|
@ -176,8 +176,8 @@ end
|
|||
class Rolodex < TkRoot
|
||||
attr_reader :frame, :buttons, :menu
|
||||
|
||||
def initialize
|
||||
super
|
||||
def initialize(*args)
|
||||
super(*args)
|
||||
@frame = RolodexFrame.new(self)
|
||||
@frame.pack("side"=>"top",
|
||||
"fill"=>"y",
|
||||
|
@ -314,7 +314,7 @@ Ctrl+S: Search (dummy operation)
|
|||
EOF
|
||||
|
||||
$helpTopics["version"] = <<EOF
|
||||
This is version 1.0.
|
||||
This is version 1.0.1.
|
||||
EOF
|
||||
|
||||
Tk.mainloop
|
||||
|
|
|
@ -4,11 +4,10 @@
|
|||
# このスクリプトは Tom LaStrange の rolodex の一部です。
|
||||
#
|
||||
# Copyright (C) 1998 by Takaaki Tateishi <ttate@jaist.ac.jp>
|
||||
# Time-stamp: "98/07/20 12:00:36 ttate"
|
||||
# Time-stamp: "03/08/02 14:02:04 nagai"
|
||||
#
|
||||
|
||||
require "tk"
|
||||
require 'tkencoding'
|
||||
|
||||
Tk.encoding = "euc-jp"
|
||||
$font = TkFont.new('k14')
|
||||
|
@ -198,8 +197,8 @@ end
|
|||
class Rolodex < TkRoot
|
||||
attr_reader :frame, :buttons, :menu
|
||||
|
||||
def initialize
|
||||
super
|
||||
def initialize(*args)
|
||||
super(*args)
|
||||
@frame = RolodexFrame.new(self)
|
||||
@frame.pack("side"=>"top",
|
||||
"fill"=>"y",
|
||||
|
@ -318,7 +317,7 @@ Ctrl+S:
|
|||
EOF
|
||||
|
||||
$helpTopics["バージョン情報"] = <<EOF
|
||||
バージョンは 1.0 です。
|
||||
バージョンは 1.0.1e です。
|
||||
EOF
|
||||
|
||||
Tk.mainloop
|
||||
|
|
|
@ -15,13 +15,20 @@ require 'tkafter'
|
|||
|
||||
class TkSquare<TkWindow
|
||||
def create_self
|
||||
tk_call 'square', path
|
||||
begin
|
||||
tk_call 'square', path
|
||||
rescue
|
||||
STDERR.print "\nSorry. Your Tk interpreter does not contain " +
|
||||
'a "square" demonstration widget.' +
|
||||
"\n ( See documents included the Tcl/Tk source archive. )\n\n"
|
||||
exit
|
||||
end
|
||||
end
|
||||
def size(amount=nil)
|
||||
if amount
|
||||
tk_send 'size', amount
|
||||
else
|
||||
number(tk_send 'size')
|
||||
number(tk_send('size'))
|
||||
end
|
||||
end
|
||||
def position(x,y)
|
||||
|
|
|
@ -30,6 +30,12 @@ $label2 = TkVariable.new("label2")
|
|||
$label3 = TkVariable.new("label3")
|
||||
|
||||
|
||||
# setup the entry of the resourc database
|
||||
if (TkVarAccess.new('tcl_platform')['platform'] == 'unix')
|
||||
TkOptionDB.add('*Entry.background', 'white')
|
||||
end
|
||||
|
||||
|
||||
# 各イベント用のメソッド
|
||||
|
||||
def rgbToHsv(red,green,blue)
|
||||
|
@ -132,7 +138,7 @@ def tc_scaleChanged
|
|||
scale2 = $root.middle.middle.scale2
|
||||
scale3 = $root.middle.middle.scale3
|
||||
|
||||
case $colorSpace.to_i
|
||||
case $colorSpace.value.intern
|
||||
when :rgb
|
||||
$red = (scale1.get * 65.535).to_i
|
||||
$green = (scale2.get * 65.535).to_i
|
||||
|
@ -167,7 +173,7 @@ def tc_setScales
|
|||
scale2 = $root.middle.middle.scale2
|
||||
scale3 = $root.middle.middle.scale3
|
||||
|
||||
case $colorSpace.to_i
|
||||
case $colorSpace.value.intern
|
||||
when :rgb
|
||||
scale1.set($red / 65.535)
|
||||
scale2.set($green / 65.535)
|
||||
|
@ -289,7 +295,7 @@ class TkColorMenuFrame<TkFrame
|
|||
"command" => proc{changeColorSpace(:hsb)}
|
||||
add "separator"
|
||||
add "radio",
|
||||
"label" => "Qutomatic updates",
|
||||
"label" => "Automatic updates",
|
||||
"variable" => $autoUpdate,
|
||||
"value" => "1",
|
||||
"underline" => "0"
|
||||
|
@ -367,7 +373,7 @@ class TkColorMiddleLeftFrame<TkFrame
|
|||
"relief"=>"sunken",
|
||||
"borderwidth"=>"2",
|
||||
"exportselection"=>"false")
|
||||
@scroll.command(proc{|*args| @names.yview *args})
|
||||
@scroll.command(proc{|*args| @names.yview(*args)})
|
||||
@names.bind("Double-1",proc{
|
||||
tc_loadNamedColor(@names.get(@names.curselection))})
|
||||
@names.pack("side"=>"left")
|
||||
|
@ -490,8 +496,8 @@ end
|
|||
class TkColor<TkRoot
|
||||
attr_reader :menu, :bottom, :middle
|
||||
|
||||
def initialize
|
||||
super
|
||||
def initialize(*args)
|
||||
super(*args)
|
||||
@menu = TkColorMenuFrame.new(self)
|
||||
@menu.pack("side"=>"top", "fill"=>"x")
|
||||
|
||||
|
|
|
@ -80,12 +80,28 @@ end
|
|||
class ButtonFrame < TkFrame
|
||||
def initialize(parent=nil,keys=nil)
|
||||
super(parent,keys)
|
||||
=begin
|
||||
@stop = TkButton.new(self,
|
||||
'text'=>'Stop',
|
||||
'command'=>proc{timer_stop})
|
||||
@start = TkButton.new(self,
|
||||
'text'=>'Start',
|
||||
'command'=>proc{timer_start})
|
||||
=end
|
||||
@stop = TkButton.new(self, :text=>'Stop', :state=>:disabled)
|
||||
@start = TkButton.new(self, :text=>'Start', :state=>:normal)
|
||||
|
||||
@stop.command proc{
|
||||
timer_stop
|
||||
@start.state(:normal)
|
||||
@stop.state(:disabled)
|
||||
}
|
||||
@start.command proc{
|
||||
timer_start
|
||||
@stop.state(:normal)
|
||||
@start.state(:disabled)
|
||||
}
|
||||
|
||||
@reset = TkButton.new(self,
|
||||
'text'=>'Reset',
|
||||
'command'=>proc{timer_reset})
|
||||
|
@ -99,8 +115,8 @@ end
|
|||
class Timer < TkRoot
|
||||
attr_reader :countframe
|
||||
|
||||
def initialize
|
||||
super
|
||||
def initialize(*args)
|
||||
super(*args)
|
||||
@countframe = CountFrame.new(self)
|
||||
@buttonframe = ButtonFrame.new(self)
|
||||
for f in [@buttonframe,@countframe]
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#!/usr/local/bin/ruby
|
||||
#!/usr/bin/env ruby
|
||||
|
||||
# browse --
|
||||
# This script generates a directory browser, which lists the working
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#!/usr/local/bin/ruby
|
||||
#!/usr/bin/env ruby
|
||||
|
||||
# browse --
|
||||
# This script generates a directory browser, which lists the working
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#!/usr/local/bin/ruby
|
||||
#!/usr/bin/env ruby
|
||||
require 'tk'
|
||||
|
||||
TkButton.new(nil,
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#!/usr/local/bin/ruby
|
||||
#!/usr/bin/env ruby
|
||||
|
||||
# ixset --
|
||||
# A nice interface to "xset" to change X server settings
|
||||
|
@ -166,7 +166,7 @@ class Xsettings
|
|||
l = TkLabel.new(bell, 'text'=>'Bell Settings')
|
||||
@w_bellvol = TkScale.new(bell, 'from'=>0, 'to'=>100, 'length'=>200,
|
||||
'tickinterval'=>20, 'orient'=>'horizontal',
|
||||
'label'=>"Volume (%)")
|
||||
'label'=>"Volume (%)")
|
||||
|
||||
f = TkFrame.new(bell)
|
||||
@w_bellpit = LabelEntry.new(f, "Pitch (Hz)", 6)
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#!/usr/local/bin/ruby
|
||||
#!/usr/bin/env ruby
|
||||
|
||||
# rmt --
|
||||
# This script implements a simple remote-control mechanism for
|
||||
|
@ -53,10 +53,8 @@ class Rmt
|
|||
|
||||
# Create text window and scrollbar.
|
||||
|
||||
@txt = TkText.new(root, 'relief'=>'sunken', 'bd'=>2, 'setgrid'=>true) {|t|
|
||||
TkScrollbar.new(root, 'command'=>proc{|*args| t.yview *args}) {
|
||||
pack('side'=>'right', 'fill'=>'both')
|
||||
}
|
||||
@txt = TkText.new(root, 'relief'=>'sunken', 'bd'=>2, 'setgrid'=>true) {
|
||||
yscrollbar(TkScrollbar.new(root){pack('side'=>'right', 'fill'=>'y')})
|
||||
pack('side'=>'left')
|
||||
}
|
||||
|
||||
|
@ -247,13 +245,18 @@ class Rmt
|
|||
rescue
|
||||
end
|
||||
TkWinfo.interps.sort.each{|ip|
|
||||
if Tk.appsend(ip, false, 'info commands ruby') == ""
|
||||
mode = 'Tcl'
|
||||
else
|
||||
mode = 'Ruby'
|
||||
begin
|
||||
if Tk.appsend(ip, false, 'info commands ruby') == ""
|
||||
mode = 'Tcl'
|
||||
else
|
||||
mode = 'Ruby'
|
||||
end
|
||||
menu.add('command', 'label'=>format("%s (#{mode}/Tk)", ip),
|
||||
'command'=>proc{win.newApp ip, mode})
|
||||
rescue
|
||||
menu.add('command', 'label'=>format("%s (unknown Tk)", ip),
|
||||
'command'=>proc{win.newApp ip, mode}, 'state'=>'disabled')
|
||||
end
|
||||
menu.add('command', 'label'=>format("%s (#{mode}/Tk)", ip),
|
||||
'command'=>proc{win.newApp ip, mode})
|
||||
}
|
||||
menu.add('command', 'label'=>format("local (Ruby/Tk)"),
|
||||
'command'=>proc{win.newApp 'local', 'Ruby'})
|
||||
|
|
|
@ -1,10 +1,10 @@
|
|||
#!/usr/local/bin/ruby
|
||||
#!/usr/bin/env ruby
|
||||
#
|
||||
# rolodex --
|
||||
# This script is a part of Tom LaStrange's rolodex
|
||||
#
|
||||
# Copyright (C) 1998 by Takaaki Tateishi <ttate@jaist.ac.jp>
|
||||
# Time-stamp: "98/07/20 12:00:02 ttate"
|
||||
# Time-stamp: "03/08/02 12:45:21 nagai"
|
||||
#
|
||||
|
||||
require "tk"
|
||||
|
@ -176,8 +176,8 @@ end
|
|||
class Rolodex < TkRoot
|
||||
attr_reader :frame, :buttons, :menu
|
||||
|
||||
def initialize
|
||||
super
|
||||
def initialize(*args)
|
||||
super(*args)
|
||||
@frame = RolodexFrame.new(self)
|
||||
@frame.pack("side"=>"top",
|
||||
"fill"=>"y",
|
||||
|
@ -314,7 +314,7 @@ Ctrl+S: Search (dummy operation)
|
|||
EOF
|
||||
|
||||
$helpTopics["version"] = <<EOF
|
||||
This is version 1.0.
|
||||
This is version 1.0.1.
|
||||
EOF
|
||||
|
||||
Tk.mainloop
|
||||
|
|
|
@ -1,21 +1,14 @@
|
|||
#!/usr/local/bin/ruby
|
||||
#!/usr/bin/env ruby
|
||||
#
|
||||
# rolodex --
|
||||
# このスクリプトは Tom LaStrange の rolodex の一部です。
|
||||
#
|
||||
# Copyright (C) 1998 by Takaaki Tateishi <ttate@jaist.ac.jp>
|
||||
# Time-stamp: "98/07/20 12:00:36 ttate"
|
||||
# Time-stamp: "03/08/02 14:01:54 nagai"
|
||||
#
|
||||
|
||||
require "tk"
|
||||
|
||||
# UTF8への変換を行なう。
|
||||
|
||||
$encoding = "euc-jp"
|
||||
def j(str)
|
||||
Tk.toUTF8(str,$encoding)
|
||||
end
|
||||
|
||||
Tk.encoding = "euc-jp"
|
||||
|
||||
def show_help(topic,x=0,y=0)
|
||||
if( topic.is_a?(TkWindow) )
|
||||
|
@ -33,17 +26,17 @@ def show_help(topic,x=0,y=0)
|
|||
msg = "このトピックについてのヘルプはまだ使用できません"
|
||||
end
|
||||
TkDialog.new("title"=>"Rolodex Help",
|
||||
"message"=>j("「#{topic}」\n\n#{msg}"),
|
||||
"message"=>"「#{topic}」\n\n#{msg}",
|
||||
"default_button"=>0,
|
||||
"buttons"=>["OK"])
|
||||
end
|
||||
|
||||
def fillCard
|
||||
clearAction
|
||||
$root.frame.entry[1].insert(0,j("立石 孝彰"))
|
||||
$root.frame.entry[2].insert(0,j("923-1292 石川県"))
|
||||
$root.frame.entry[3].insert(0,j("辰口町 旭台 1-1"))
|
||||
$root.frame.entry[4].insert(0,j("北陸先端科学技術大学院大学"))
|
||||
$root.frame.entry[1].insert(0, "立石 孝彰")
|
||||
$root.frame.entry[2].insert(0, "923-1292 石川県")
|
||||
$root.frame.entry[3].insert(0, "辰口町 旭台 1-1")
|
||||
$root.frame.entry[4].insert(0, "北陸先端科学技術大学院大学")
|
||||
$root.frame.entry[5].insert(0,"private")
|
||||
$root.frame.entry[6].insert(0,"***-***-****")
|
||||
$root.frame.entry[7].insert(0,"***-***-****")
|
||||
|
@ -53,7 +46,7 @@ def addAction
|
|||
for i in 1..7
|
||||
STDERR.print format("%-12s %s\n",
|
||||
RolodexFrame::LABEL[i],
|
||||
Tk.fromUTF8($root.frame.entry[i].value,$encoding))
|
||||
$root.frame.entry[i].value)
|
||||
end
|
||||
end
|
||||
|
||||
|
@ -65,7 +58,7 @@ end
|
|||
|
||||
def fileAction
|
||||
TkDialog.new("title"=>"File Selection",
|
||||
"message"=>j("これはファイル選択ダイアログのダミーです。\n"),
|
||||
"message"=>"これはファイル選択ダイアログのダミーです。\n",
|
||||
"default_button"=>0,
|
||||
"buttons"=>["OK"])
|
||||
STDERR.print "dummy file name\n"
|
||||
|
@ -73,9 +66,9 @@ end
|
|||
|
||||
def deleteAction
|
||||
result = TkDialog.new("title"=>"Confirm Action",
|
||||
"message"=>j("よろしいですか?"),
|
||||
"message"=>"よろしいですか?",
|
||||
"default_button"=>0,
|
||||
"buttons"=>[j("キャンセル")])
|
||||
"buttons"=>["キャンセル"])
|
||||
if( result.value == 0 )
|
||||
clearAction
|
||||
end
|
||||
|
@ -90,7 +83,6 @@ class RolodexFrame < TkFrame
|
|||
def initialize(parent=nil,keys=nil)
|
||||
super(parent,keys)
|
||||
self["relief"] = "flat"
|
||||
|
||||
@i = []
|
||||
@label = []
|
||||
@entry = []
|
||||
|
@ -100,7 +92,7 @@ class RolodexFrame < TkFrame
|
|||
"pady"=>2,
|
||||
"anchor"=>"e")
|
||||
@label[i] = TkLabel.new(@i[i],
|
||||
"text"=>j(LABEL[i]),
|
||||
"text"=>LABEL[i],
|
||||
"anchor"=>"e")
|
||||
@entry[i] = TkEntry.new(@i[i],
|
||||
"width"=>30,
|
||||
|
@ -116,14 +108,10 @@ class RolodexButtons < TkFrame
|
|||
|
||||
def initialize(parent,keys=nil)
|
||||
super(parent,keys)
|
||||
@clear = TkButton.new(self,
|
||||
"text" => j("クリアー"))
|
||||
@add = TkButton.new(self,
|
||||
"text" => j("追加"))
|
||||
@search = TkButton.new(self,
|
||||
"text" => j("検索"))
|
||||
@delete = TkButton.new(self,
|
||||
"text" => j("消去"))
|
||||
@clear = TkButton.new(self,"text" => "クリアー")
|
||||
@add = TkButton.new(self, "text" => "追加")
|
||||
@search = TkButton.new(self, "text" => "検索")
|
||||
@delete = TkButton.new(self, "text" => "消去")
|
||||
for w in [@clear,@add,@search,@delete]
|
||||
w.pack("side"=>"left", "padx"=>2)
|
||||
end
|
||||
|
@ -139,42 +127,42 @@ class RolodexMenuFrame < TkFrame
|
|||
"borderwidth"=>1)
|
||||
|
||||
@file = TkMenubutton.new(self,
|
||||
"text"=>j("ファイル"),
|
||||
"text"=> "ファイル",
|
||||
"underline"=>0)
|
||||
@file_menu = TkMenu.new(@file)
|
||||
@file_menu.add("command",
|
||||
"label" => j("読み込み ..."),
|
||||
"label" => "読み込み ...",
|
||||
"command" => proc{fileAction},
|
||||
"underline" => 0)
|
||||
@file_menu.add("command",
|
||||
"label" => j("終了"),
|
||||
"label" => "終了",
|
||||
"command" => proc{$root.destroy},
|
||||
"underline" => 0)
|
||||
@file.menu(@file_menu)
|
||||
@file.pack("side"=>"left")
|
||||
|
||||
@help = TkMenubutton.new(self,
|
||||
"text"=>j("ヘルプ"),
|
||||
"text"=> "ヘルプ",
|
||||
"underline"=>0)
|
||||
@help_menu = TkMenu.new(@help)
|
||||
@help_menu.add("command",
|
||||
"label"=>j("コンテキストについて"),
|
||||
"label"=> "コンテキストについて",
|
||||
"command"=>proc{show_help("コンテキスト")},
|
||||
"underline"=>3)
|
||||
@help_menu.add("command",
|
||||
"label"=>j("ヘルプについて"),
|
||||
"label"=> "ヘルプについて",
|
||||
"command"=>proc{show_help("ヘルプ")},
|
||||
"underline"=>3)
|
||||
@help_menu.add("command",
|
||||
"label"=>j("ウィンドウについて"),
|
||||
"label"=> "ウィンドウについて",
|
||||
"command"=>proc{show_help("ウィンドウ")},
|
||||
"underline"=>3)
|
||||
@help_menu.add("command",
|
||||
"label"=>j("キー操作について"),
|
||||
"label"=> "キー操作について",
|
||||
"command"=>proc{show_help("キー操作")},
|
||||
"underline"=>3)
|
||||
@help_menu.add("command",
|
||||
"label"=>j("バージョン情報"),
|
||||
"label"=> "バージョン情報",
|
||||
"command"=>proc{show_help("バージョン情報")},
|
||||
"underline"=>3)
|
||||
@help.menu(@help_menu)
|
||||
|
@ -185,8 +173,8 @@ end
|
|||
class Rolodex < TkRoot
|
||||
attr_reader :frame, :buttons, :menu
|
||||
|
||||
def initialize
|
||||
super
|
||||
def initialize(*args)
|
||||
super(*args)
|
||||
@frame = RolodexFrame.new(self)
|
||||
@frame.pack("side"=>"top",
|
||||
"fill"=>"y",
|
||||
|
@ -209,16 +197,16 @@ $root.buttons.add.configure("command"=>proc{addAction})
|
|||
$root.buttons.clear.configure("command"=>proc{clearAction})
|
||||
$root.buttons.search.configure("command"=>proc{addAction; fillCard})
|
||||
|
||||
$root.buttons.clear.configure("text"=>j("クリアー Ctrl+C"))
|
||||
$root.buttons.clear.configure("text"=> "クリアー Ctrl+C")
|
||||
$root.bind("Control-c",proc{clearAction})
|
||||
|
||||
$root.buttons.add.configure("text"=>j("追加 Ctrl+A"))
|
||||
$root.buttons.add.configure("text"=> "追加 Ctrl+A")
|
||||
$root.bind("Control-a",proc{addAction})
|
||||
|
||||
$root.buttons.search.configure("text"=>j("検索 Ctrl+S"))
|
||||
$root.buttons.search.configure("text"=> "検索 Ctrl+S")
|
||||
$root.bind("Control-s",proc{addAction; fillCard})
|
||||
|
||||
$root.buttons.delete.configure("text"=>j("消去 Ctrl+D"))
|
||||
$root.buttons.delete.configure("text"=> "消去 Ctrl+D")
|
||||
$root.bind("Control-d",proc{deleteAction})
|
||||
|
||||
$root.menu.file_menu.entryconfigure(1, "accel"=>"Ctrl+F")
|
||||
|
@ -305,7 +293,7 @@ Ctrl+S:
|
|||
EOF
|
||||
|
||||
$helpTopics["バージョン情報"] = <<EOF
|
||||
バージョンは 1.0 です。
|
||||
バージョンは 1.0.1j です。
|
||||
EOF
|
||||
|
||||
Tk.mainloop
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#!/usr/local/bin/ruby
|
||||
#!/usr/bin/env ruby
|
||||
|
||||
# square --
|
||||
# This script generates a demo application containing only
|
||||
|
@ -15,13 +15,20 @@ require 'tkafter'
|
|||
|
||||
class TkSquare<TkWindow
|
||||
def create_self
|
||||
tk_call 'square', path
|
||||
begin
|
||||
tk_call 'square', path
|
||||
rescue
|
||||
STDERR.print "\nSorry. Your Tk interpreter does not contain " +
|
||||
'a "square" demonstration widget.' +
|
||||
"\n ( See documents included the Tcl/Tk source archive. )\n\n"
|
||||
exit
|
||||
end
|
||||
end
|
||||
def size(amount=nil)
|
||||
if amount
|
||||
tk_send 'size', amount
|
||||
else
|
||||
number(tk_send 'size')
|
||||
number(tk_send('size'))
|
||||
end
|
||||
end
|
||||
def position(x,y)
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#!/usr/local/bin/ruby
|
||||
#!/usr/bin/env ruby
|
||||
#
|
||||
# tcolor --
|
||||
# このスクリプトはRGB,HSB,CYM形式をサポートする
|
||||
|
@ -30,6 +30,12 @@ $label2 = TkVariable.new("label2")
|
|||
$label3 = TkVariable.new("label3")
|
||||
|
||||
|
||||
# リソースデータベースの設定
|
||||
if (TkVarAccess.new('tcl_platform')['platform'] == 'unix')
|
||||
TkOptionDB.add('*Entry.background', 'white')
|
||||
end
|
||||
|
||||
|
||||
# 各イベント用のメソッド
|
||||
|
||||
def rgbToHsv(red,green,blue)
|
||||
|
@ -132,7 +138,7 @@ def tc_scaleChanged
|
|||
scale2 = $root.middle.middle.scale2
|
||||
scale3 = $root.middle.middle.scale3
|
||||
|
||||
case $colorSpace.to_i
|
||||
case $colorSpace.value.intern
|
||||
when :rgb
|
||||
$red = (scale1.get * 65.535).to_i
|
||||
$green = (scale2.get * 65.535).to_i
|
||||
|
@ -167,7 +173,7 @@ def tc_setScales
|
|||
scale2 = $root.middle.middle.scale2
|
||||
scale3 = $root.middle.middle.scale3
|
||||
|
||||
case $colorSpace.to_i
|
||||
case $colorSpace.value.intern
|
||||
when :rgb
|
||||
scale1.set($red / 65.535)
|
||||
scale2.set($green / 65.535)
|
||||
|
@ -289,7 +295,7 @@ class TkColorMenuFrame<TkFrame
|
|||
"command" => proc{changeColorSpace(:hsb)}
|
||||
add "separator"
|
||||
add "radio",
|
||||
"label" => "Qutomatic updates",
|
||||
"label" => "Automatic updates",
|
||||
"variable" => $autoUpdate,
|
||||
"value" => "1",
|
||||
"underline" => "0"
|
||||
|
@ -367,7 +373,7 @@ class TkColorMiddleLeftFrame<TkFrame
|
|||
"relief"=>"sunken",
|
||||
"borderwidth"=>"2",
|
||||
"exportselection"=>"false")
|
||||
@scroll.command(proc{|*args| @names.yview *args})
|
||||
@scroll.command(proc{|*args| @names.yview(*args)})
|
||||
@names.bind("Double-1",proc{
|
||||
tc_loadNamedColor(@names.get(@names.curselection))})
|
||||
@names.pack("side"=>"left")
|
||||
|
@ -490,8 +496,8 @@ end
|
|||
class TkColor<TkRoot
|
||||
attr_reader :menu, :bottom, :middle
|
||||
|
||||
def initialize
|
||||
super
|
||||
def initialize(*args)
|
||||
super(*args)
|
||||
@menu = TkColorMenuFrame.new(self)
|
||||
@menu.pack("side"=>"top", "fill"=>"x")
|
||||
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#!/usr/local/bin/ruby
|
||||
#!/usr/bin/env ruby
|
||||
#
|
||||
# timer --
|
||||
# This script generates a counter with start,stop and reset buttons.
|
||||
|
@ -80,12 +80,28 @@ end
|
|||
class ButtonFrame < TkFrame
|
||||
def initialize(parent=nil,keys=nil)
|
||||
super(parent,keys)
|
||||
=begin
|
||||
@stop = TkButton.new(self,
|
||||
'text'=>'Stop',
|
||||
'command'=>proc{timer_stop})
|
||||
@start = TkButton.new(self,
|
||||
'text'=>'Start',
|
||||
'command'=>proc{timer_start})
|
||||
=end
|
||||
@stop = TkButton.new(self, :text=>'Stop', :state=>:disabled)
|
||||
@start = TkButton.new(self, :text=>'Start', :state=>:normal)
|
||||
|
||||
@stop.command proc{
|
||||
timer_stop
|
||||
@start.state(:normal)
|
||||
@stop.state(:disabled)
|
||||
}
|
||||
@start.command proc{
|
||||
timer_start
|
||||
@stop.state(:normal)
|
||||
@start.state(:disabled)
|
||||
}
|
||||
|
||||
@reset = TkButton.new(self,
|
||||
'text'=>'Reset',
|
||||
'command'=>proc{timer_reset})
|
||||
|
@ -99,8 +115,8 @@ end
|
|||
class Timer < TkRoot
|
||||
attr_reader :countframe
|
||||
|
||||
def initialize
|
||||
super
|
||||
def initialize(*args)
|
||||
super(*args)
|
||||
@countframe = CountFrame.new(self)
|
||||
@buttonframe = ButtonFrame.new(self)
|
||||
for f in [@buttonframe,@countframe]
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#!/usr/local/bin/ruby
|
||||
#!/usr/bin/env ruby
|
||||
|
||||
# tk 関係ライブラリの読み込み
|
||||
require 'tk'
|
||||
|
|
|
@ -32,6 +32,7 @@ cmd = Proc.new{|txt|
|
|||
|
||||
timer = TkTimer.new(50, -1, tick).start(0, proc{ label.text('0.00'); 0 })
|
||||
|
||||
=begin
|
||||
TkButton.new(:text=>'Start') {
|
||||
command proc{ timer.continue unless timer.running? }
|
||||
pack(:side=>:left, :fill=>:both, :expand=>true)
|
||||
|
@ -44,6 +45,30 @@ cmd = Proc.new{|txt|
|
|||
command proc{ timer.stop if timer.running? }
|
||||
pack('side'=>'right','fill'=>'both','expand'=>'yes')
|
||||
}
|
||||
=end
|
||||
b_start = TkButton.new(:text=>'Start', :state=>:disabled) {
|
||||
pack(:side=>:left, :fill=>:both, :expand=>true)
|
||||
}
|
||||
b_stop = TkButton.new(:text=>'Stop', :state=>:normal) {
|
||||
pack('side'=>'left', 'fill'=>'both', 'expand'=>'yes')
|
||||
}
|
||||
|
||||
b_start.command {
|
||||
timer.continue
|
||||
b_stop.state(:normal)
|
||||
b_start.state(:disabled)
|
||||
}
|
||||
|
||||
b_stop.command {
|
||||
timer.stop
|
||||
b_start.state(:normal)
|
||||
b_stop.state(:disabled)
|
||||
}
|
||||
|
||||
TkButton.new(:text=>'Reset', :state=>:normal) {
|
||||
command { timer.reset }
|
||||
pack('side'=>'right', 'fill'=>'both', 'expand'=>'yes')
|
||||
}
|
||||
|
||||
ev_quit = TkVirtualEvent.new('Control-c', 'Control-q')
|
||||
Tk.root.bind(ev_quit, proc{Tk.exit}).focus
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#! /usr/local/bin/ruby
|
||||
#!/usr/bin/env ruby
|
||||
|
||||
if ARGV[0] != '-d'
|
||||
unless $DEBUG
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#!/usr/local/bin/ruby
|
||||
#!/usr/bin/env ruby
|
||||
#
|
||||
# This script generates a directory browser, which lists the working
|
||||
# directory and allows you to open files or subdirectories by
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#! /usr/local/bin/ruby
|
||||
#!/usr/bin/env ruby
|
||||
require "tk"
|
||||
|
||||
root = TkFrame.new
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#! /usr/local/bin/ruby
|
||||
#!/usr/bin/env ruby
|
||||
|
||||
require "parsedate"
|
||||
require "base64"
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#!/usr/local/bin/ruby
|
||||
#!/usr/bin/env ruby
|
||||
# This script generates a counter with start and stop buttons.
|
||||
|
||||
require "tk"
|
||||
|
|
59
ext/tk/sample/tktimer3.rb
Normal file
59
ext/tk/sample/tktimer3.rb
Normal file
|
@ -0,0 +1,59 @@
|
|||
#!/usr/bin/env ruby
|
||||
# This script is a re-implementation of tktimer.rb with TkTimer(TkAfter) class.
|
||||
|
||||
require "tk"
|
||||
|
||||
# new notation :
|
||||
# * symbols are acceptable as keys or values of the option hash
|
||||
# * the parent widget can be given by :parent key on the option hash
|
||||
root = TkRoot.new(:title=>'timer sample')
|
||||
label = TkLabel.new(:parent=>root, :relief=>:raised, :width=>10) \
|
||||
.pack(:side=>:bottom, :fill=>:both)
|
||||
|
||||
# define the procedure repeated by the TkTimer object
|
||||
tick = proc{|aobj| #<== TkTimer object
|
||||
cnt = aobj.return_value + 5 # return_value keeps a result of the last proc
|
||||
label.text format("%d.%02d", *(cnt.divmod(100)))
|
||||
cnt #==> return value is kept by TkTimer object
|
||||
# (so, can be send to the next repeat-proc)
|
||||
}
|
||||
|
||||
timer = TkTimer.new(50, -1, tick).start(0, proc{ label.text('0.00'); 0 })
|
||||
# ==> repeat-interval : (about) 50 ms,
|
||||
# repeat : infinite (-1) times,
|
||||
# repeat-procedure : tick (only one, in this case)
|
||||
#
|
||||
# ==> wait-before-call-init-proc : 0 ms,
|
||||
# init_proc : proc{ label.text('0.00'); 0 }
|
||||
#
|
||||
# (0ms)-> init_proc ->(50ms)-> tick ->(50ms)-> tick ->....
|
||||
|
||||
b_start = TkButton.new(:text=>'Start', :state=>:disabled) {
|
||||
pack(:side=>:left, :fill=>:both, :expand=>true)
|
||||
}
|
||||
|
||||
b_stop = TkButton.new(:text=>'Stop', :state=>:normal) {
|
||||
pack('side'=>'left', 'fill'=>'both', 'expand'=>'yes')
|
||||
}
|
||||
|
||||
b_start.command {
|
||||
timer.continue
|
||||
b_stop.state(:normal)
|
||||
b_start.state(:disabled)
|
||||
}
|
||||
|
||||
b_stop.command {
|
||||
timer.stop
|
||||
b_start.state(:normal)
|
||||
b_stop.state(:disabled)
|
||||
}
|
||||
|
||||
TkButton.new(:text=>'Reset', :state=>:normal) {
|
||||
command { timer.reset }
|
||||
pack(:side=>:right, :fill=>:both, :expand=>:yes)
|
||||
}
|
||||
|
||||
ev_quit = TkVirtualEvent.new('Control-c', 'Control-q')
|
||||
Tk.root.bind(ev_quit, proc{Tk.exit}).focus
|
||||
|
||||
Tk.mainloop
|
Loading…
Reference in a new issue