mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
287a34ae0d
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@22784 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
145 lines
5.4 KiB
Ruby
145 lines
5.4 KiB
Ruby
# -*- coding: euc-jp -*-
|
||
#
|
||
# ttkbut.rb
|
||
#
|
||
# This demonstration script creates a toplevel window containing several
|
||
# simple Ttk widgets, such as labels, labelframes, buttons, checkbuttons and
|
||
# radiobuttons.
|
||
#
|
||
# based on "Id: ttkbut.tcl,v 1.4 2007/12/13 15:27:07 dgp Exp"
|
||
|
||
if defined?($ttkbut_demo) && $ttkbut_demo
|
||
$ttkbut_demo.destroy
|
||
$ttkbut_demo = nil
|
||
end
|
||
|
||
$ttkbut_demo = TkToplevel.new {|w|
|
||
title("Simple Ttk Widgets")
|
||
iconname("ttkbut")
|
||
positionWindow(w)
|
||
}
|
||
|
||
base_frame = TkFrame.new($ttkbut_demo).pack(:fill=>:both, :expand=>true)
|
||
|
||
Ttk::Label.new(base_frame, :font=>$font, :wraplength=>'4i', :justify=>:left,
|
||
:text=><<EOL).pack(:side=>:top, :fill=>:x)
|
||
Ttkとは，テーマ指定可能な新しいウィジェット集合です．\
|
||
今，あなたが目にしているのはTtkのテーマ化ラベルで，\
|
||
下にはTtkのラベルフレームの中に三つのグループのTtkウィジェットが\
|
||
表示されています．
|
||
最初のグループは全てボタンであり，\
|
||
それぞれクリックすれば現在のアプリケーションのテーマが設定されます．
|
||
２番目のグループは三つのチェックボタン集合です．\
|
||
各集合の間には，セパレータウィジェットが置かれています．\
|
||
なお「有効化」ボタンは，このトップレベルウィジェット内の\
|
||
他のすべてのテーマ化ウィジェットの状態(state)が"disabled"かどうかを\
|
||
コントロールすることに注意してください．
|
||
３番目のグループは関連付けられたラジオボタン集合となっています．
|
||
EOL
|
||
|
||
## Add buttons for setting the theme
|
||
buttons = Ttk::Labelframe.new(base_frame, :text=>'ボタン')
|
||
# Ttk::Style.theme_names.each{|theme|
|
||
# Ttk::Button.new(buttons, :text=>theme,
|
||
# :command=>proc{Ttk::Style.theme_use theme}).pack(:pady=>2)
|
||
# }
|
||
Ttk.themes.each{|theme|
|
||
Ttk::Button.new(buttons, :text=>theme,
|
||
:command=>proc{Ttk.set_theme theme}).pack(:pady=>2)
|
||
}
|
||
|
||
## Helper procedure for the top checkbutton
|
||
def setState(root, value, *excepts)
|
||
return if excepts.member?(root)
|
||
|
||
## Non-Ttk widgets (e.g. the toplevel) will fail, so make it silent
|
||
begin
|
||
root.state = value
|
||
rescue
|
||
end
|
||
|
||
## Recursively invoke on all children of this root that are in the same
|
||
## toplevel widget
|
||
root.winfo_children.each{|w|
|
||
setState(w, value, *excepts) if w.winfo_toplevel == root.winfo_toplevel
|
||
}
|
||
end
|
||
|
||
## Set up the checkbutton group
|
||
checks = Ttk::Labelframe.new(base_frame, :text=>'チェックボタン')
|
||
enabled = TkVariable.new(true)
|
||
e = Ttk::Checkbutton.new(checks, :text=>'有効化', :variable=>enabled,
|
||
:command=>proc{
|
||
setState($ttkbut_demo,
|
||
((enabled.bool)? "!disabled" : "disabled"),
|
||
e)
|
||
})
|
||
|
||
## See ttk_widget(n) for other possible state flags
|
||
sep1 = Ttk::Separator.new(checks)
|
||
sep2 = Ttk::Separator.new(checks)
|
||
|
||
cheese = TkVariable.new
|
||
tomato = TkVariable.new
|
||
basil = TkVariable.new
|
||
oregano = TkVariable.new
|
||
|
||
c1 = Ttk::Checkbutton.new(checks, :text=>'チーズ', :variable=>cheese)
|
||
c2 = Ttk::Checkbutton.new(checks, :text=>'トマト', :variable=>tomato)
|
||
c3 = Ttk::Checkbutton.new(checks, :text=>'バジル', :variable=>basil)
|
||
c4 = Ttk::Checkbutton.new(checks, :text=>'オレガノ', :variable=>oregano)
|
||
|
||
Tk.pack(e, sep1, c1, c2, sep2, c3, c4, :fill=>:x, :pady=>2)
|
||
|
||
## Set up the radiobutton group
|
||
radios = Ttk::Labelframe.new(base_frame, :text=>'ラジオボタン')
|
||
|
||
happyness = TkVariable.new
|
||
|
||
r1 = Ttk::Radiobutton.new(radios, :variable=>happyness,
|
||
:text=>'Great', :value=>'great')
|
||
r2 = Ttk::Radiobutton.new(radios, :variable=>happyness,
|
||
:text=>'Good', :value=>'good')
|
||
r3 = Ttk::Radiobutton.new(radios, :variable=>happyness,
|
||
:text=>'Ok', :value=>'ok')
|
||
r4 = Ttk::Radiobutton.new(radios, :variable=>happyness,
|
||
:text=>'Poor', :value=>'poor')
|
||
r5 = Ttk::Radiobutton.new(radios, :variable=>happyness,
|
||
:text=>'Awful', :value=>'awful')
|
||
|
||
Tk.pack(r1, r2, r3, r4, r5, :fill=>:x, :padx=>3, :pady=>2)
|
||
|
||
## See Code / Dismiss
|
||
Ttk::Frame.new(base_frame) {|frame|
|
||
sep = Ttk::Separator.new(frame)
|
||
Tk.grid(sep, :columnspan=>4, :row=>0, :sticky=>'ew', :pady=>2)
|
||
TkGrid('x',
|
||
Ttk::Button.new(frame, :text=>'変数参照',
|
||
:image=>$image['view'], :compound=>:left,
|
||
:command=>proc{
|
||
showVars(base_frame, ['有効化', enabled],
|
||
['チーズ', cheese], ['トマト', tomato],
|
||
['バジル', basil], ['オレガノ', oregano],
|
||
['幸福度', happyness])
|
||
}),
|
||
Ttk::Button.new(frame, :text=>'コード参照',
|
||
:image=>$image['view'], :compound=>:left,
|
||
:command=>proc{showCode 'ttkbut'}),
|
||
Ttk::Button.new(frame, :text=>'閉じる',
|
||
:image=>$image['delete'], :compound=>:left,
|
||
:command=>proc{
|
||
tmppath = $ttkbut_demo
|
||
$ttkbut_demo = nil
|
||
$showVarsWin[tmppath.path] = nil
|
||
tmppath.destroy
|
||
}),
|
||
:padx=>4, :pady=>4)
|
||
grid_columnconfigure(0, :weight=>1)
|
||
pack(:side=>:bottom, :fill=>:x, :expand=>true)
|
||
}
|
||
|
||
## Arrange things neatly
|
||
f = Ttk::Frame.new(base_frame).pack(:fill=>:both, :expand=>true)
|
||
f.lower
|
||
Tk.grid(buttons, checks, radios, :in=>f, :sticky=>'nwe', :pady=>2, :padx=>3)
|
||
f.grid_columnconfigure([0, 1, 2], :weight=>1, :uniform=>:yes)
|