diff options
author | yugui <yugui@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2008-08-25 15:13:14 +0000 |
---|---|---|
committer | yugui <yugui@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2008-08-25 15:13:14 +0000 |
commit | d0233291bc8a5068e52c69c210e5979e5324b5bc (patch) | |
tree | 7d9459449c33792c63eeb7baa071e76352e0baab /trunk/ext/tk/sample/demos-jp/ttknote.rb | |
parent | 0dc342de848a642ecce8db697b8fecd83a63e117 (diff) | |
parent | 72eaacaa15256ab95c3b52ea386f88586fb9da40 (diff) |
re-adding tag v1_9_0_4 as an alias of trunk@18848v1_9_0_4
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/tags/v1_9_0_4@18849 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'trunk/ext/tk/sample/demos-jp/ttknote.rb')
-rw-r--r-- | trunk/ext/tk/sample/demos-jp/ttknote.rb | 97 |
1 files changed, 0 insertions, 97 deletions
diff --git a/trunk/ext/tk/sample/demos-jp/ttknote.rb b/trunk/ext/tk/sample/demos-jp/ttknote.rb deleted file mode 100644 index 09cc7960a3..0000000000 --- a/trunk/ext/tk/sample/demos-jp/ttknote.rb +++ /dev/null @@ -1,97 +0,0 @@ -# -*- coding: euc-jp -*- -# -# ttknote.rb -- -# -# This demonstration script creates a toplevel window containing a Ttk -# notebook widget. -# -# based on "Id: ttknote.tcl,v 1.5 2007/12/13 15:27:07 dgp Exp" - -if defined?($ttknote_demo) && $ttknote_demo - $ttknote_demo.destroy - $ttknote_demo = nil -end - -$ttknote_demo = TkToplevel.new {|w| - title("Ttk Notebook Widget") - iconname("ttknote") - positionWindow(w) -} - -## See Code / Dismiss -Ttk::Frame.new($ttknote_demo) {|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{showCode 'ttknote'}), - Ttk::Button.new(frame, :text=>'閉じる', - :image=>$image['delete'], :compound=>:left, - :command=>proc{ - $ttknote_demo.destroy - $ttknote_demo = nil - }), - :padx=>4, :pady=>4) - grid_columnconfigure(0, :weight=>1) - pack(:side=>:bottom, :fill=>:x) -} - -base_frame = Ttk::Frame.new($ttknote_demo).pack(:fill=>:both, :expand=>true) - -## Make the notebook and set up Ctrl+Tab traversal -notebook = Ttk::Notebook.new(base_frame).pack(:fill=>:both, :expand=>true, - :padx=>2, :pady=>3) -notebook.enable_traversal - -## Popuplate the first pane -f_msg = Ttk::Frame.new(notebook) -msg_m = Ttk::Label.new(f_msg, :font=>$font, :wraplength=>'5i', - :justify=>:left, :anchor=>'n', :text=><<EOL) -Ttkとは,テーマ指定可能な新しいウィジェット集合です.\ -その中に含まれるウィジェットのひとつにノートブックウィジェットがあります.\ -ノートブックウィジェットは,\ -個別の内容を持ったパネルからの選択を可能にするような\ -タブの集合(タブセット)を定めます.\ -タブセットは最近の多くのユーザインターフェースで見られる機能です.\ -タブの選択は,マウスによるだけでなく,\ -ノートブックウィジェットのページの見出しが選択されている時であれば\ -Ctrl+Tabキーの入力によっても行うことができます.\ -このデモでは,見出しで下線付きの文字のキーとAltキーとを組み合わせることで\ -ページを選択することができるようにも設定しています.\ -ただし,2番目のタブは無効化されて選択できないようになっていることには\ -注意してください. -EOL -neat = TkVariable.new -after_id = nil -msg_b = Ttk::Button.new(f_msg, :text=>'すてきだ!(Neat!)', :underline=>6, - :command=>proc{ - neat.value = 'あぁ,そのとおりさ...' - Tk.after_cancel(after_id) if after_id - after_id = Tk.after(500){neat.value = ''} - }) -msg_b.winfo_toplevel.bind('Alt-n'){ msg_b.focus; msg_b.invoke } -msg_l = Ttk::Label.new(f_msg, :textvariable=>neat) -notebook.add(f_msg, :text=>'説明(Description)', :underline=>3, :padding=>2) -Tk.grid(msg_m, '-', :sticky=>'new', :pady=>2) -Tk.grid(msg_b, msg_l, :pady=>[2, 4], :padx=>20) -msg_b.grid_configure(:sticky=>'e') -msg_l.grid_configure(:sticky=>'w') -f_msg.grid_rowconfigure(1, :weight=>1) -f_msg.grid_columnconfigure([0, 1], :weight=>1, :uniform=>1) - -## Populate the second pane. Note that the content doesn't really matter -f_disabled = Ttk::Frame.new(notebook) -notebook.add(f_disabled, :text=>'無効化されたタブ', :state=>:disabled) - -## Popuplate the third pane -f_editor = Ttk::Frame.new(notebook) -notebook.add(f_editor, :text=>'テキストエディタ(Text Editor)', :underline=>9) -editor_t = Tk::Text.new(f_editor, :width=>40, :height=>10, :wrap=>:char) -if Tk.windowingsystem != 'aqua' - editor_s = editor_t.yscrollbar(Ttk::Scrollbar.new(f_editor)) -else - editor_s = editor_t.yscrollbar(Tk::Scrollbar.new(f_editor)) -end -editor_s.pack(:side=>:right, :fill=>:y, :padx=>[0,2], :pady=>2) -editor_t.pack(:fill=>:both, :expand=>true, :padx=>[2,0], :pady=>2) |