diff options
Diffstat (limited to 'trunk/ext/tk/sample/demos-jp/ttkbut.rb')
-rw-r--r-- | trunk/ext/tk/sample/demos-jp/ttkbut.rb | 145 |
1 files changed, 0 insertions, 145 deletions
diff --git a/trunk/ext/tk/sample/demos-jp/ttkbut.rb b/trunk/ext/tk/sample/demos-jp/ttkbut.rb deleted file mode 100644 index 4d577120bb..0000000000 --- a/trunk/ext/tk/sample/demos-jp/ttkbut.rb +++ /dev/null @@ -1,145 +0,0 @@ -# -*- 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ウィジェットが\ -表示されています. -最初のグループは全てボタンであり,\ -それぞれクリックすれば現在のアプリケーションのテーマが設定されます. -2番目のグループは三つのチェックボタン集合です.\ -各集合の間には,セパレータウィジェットが置かれています.\ -なお「有効化」ボタンは,このトップレベルウィジェット内の\ -他のすべてのテーマ化ウィジェットの状態(state)が"disabled"かどうかを\ -コントロールすることに注意してください. -3番目のグループは関連付けられたラジオボタン集合となっています. -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) |