bug fix
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4821 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
parent
c2e6541a6a
commit
477f730aa4
@ -5058,7 +5058,7 @@ class TkScale<TkWindow
|
||||
end
|
||||
|
||||
def set(val)
|
||||
tk_send "set", val
|
||||
tk_send("set", val)
|
||||
end
|
||||
|
||||
def value
|
||||
@ -5066,7 +5066,7 @@ class TkScale<TkWindow
|
||||
end
|
||||
|
||||
def value= (val)
|
||||
set val
|
||||
set(val)
|
||||
end
|
||||
end
|
||||
|
||||
|
@ -257,9 +257,9 @@ TkEntry.new(cvs, 'width'=>20, 'relief'=>'sunken') {|e|
|
||||
'window'=>e, 'anchor'=>'nw', 'tags'=>$tag_item)
|
||||
}
|
||||
TkScale.new(cvs, 'from'=>0, 'to'=>100, 'length'=>'6c', 'sliderlength'=>'.4c',
|
||||
'width'=>'.5c', 'tickinterval'=>0 ) {|s|
|
||||
'width'=>'.5c', 'tickinterval'=>0 ) {|scl|
|
||||
TkcWindow.new(cvs, '28.5c','17.5c',
|
||||
'window'=>s, 'anchor'=>'n', 'tags'=>$tag_item)
|
||||
'window'=>scl, 'anchor'=>'n', 'tags'=>$tag_item)
|
||||
}
|
||||
TkcText.new(cvs, '21c', '17.9c', 'text'=>'Button:', 'anchor'=>'sw')
|
||||
TkcText.new(cvs, '21c', '20.9c', 'text'=>'Entry:', 'anchor'=>'sw')
|
||||
|
@ -255,9 +255,9 @@ TkEntry.new(cvs, 'width'=>20, 'relief'=>'sunken') {|e|
|
||||
'window'=>e, 'anchor'=>'nw', 'tags'=>$tag_item)
|
||||
}
|
||||
TkScale.new(cvs, 'from'=>0, 'to'=>100, 'length'=>'6c', 'sliderlength'=>'.4c',
|
||||
'width'=>'.5c', 'tickinterval'=>0 ) {|s|
|
||||
'width'=>'.5c', 'tickinterval'=>0 ) {|scl|
|
||||
TkcWindow.new(cvs, '28.5c','17.5c',
|
||||
'window'=>s, 'anchor'=>'n', 'tags'=>$tag_item)
|
||||
'window'=>scl, 'anchor'=>'n', 'tags'=>$tag_item)
|
||||
}
|
||||
TkcText.new(cvs, '21c', '17.9c', 'text'=>'ボタン:', 'anchor'=>'sw')
|
||||
TkcText.new(cvs, '21c', '20.9c', 'text'=>'エントリ:', 'anchor'=>'sw')
|
||||
|
Loading…
x
Reference in New Issue
Block a user