1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4821 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
nagai 2003-10-21 04:46:21 +00:00
parent c2e6541a6a
commit 477f730aa4
3 changed files with 6 additions and 6 deletions

View file

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

View file

@ -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')

View file

@ -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')