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/tkextlib/iwidgets/sample/menubar.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/tkextlib/iwidgets/sample/menubar.rb')
-rw-r--r-- | trunk/ext/tk/sample/tkextlib/iwidgets/sample/menubar.rb | 124 |
1 files changed, 0 insertions, 124 deletions
diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/menubar.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/menubar.rb deleted file mode 100644 index 891761adc1..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/menubar.rb +++ /dev/null @@ -1,124 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -helpvar = TkVariable.new -viewmode = TkVariable.new - -menu_spec = [ - [:menubutton, 'file', { - :text=>'File', :menu=>[ - [:options, {:tearoff=>false}], - - [:command, 'new', { - :label=>'New', :helpstr=>'Open new document', - :command=>proc{puts 'NEW'} - } - ], - - [:command, 'close', { - :label=>'Close', :helpstr=>'Close current document', - :command=>proc{puts 'CLOSE'} - } - ], - - [:separator, 'sep1'], - - [:command, 'exit', { - :label=>'Exit', :helpstr=>'Exit application', - :command=>proc{exit} - } - ] - ] - } - ], - - [:menubutton, 'edit', { - :text=>'Edit', :menu=>[ - [:options, {:tearoff=>false}], - - [:command, 'undo', { - :label=>'Undo', :underline=>0, - :helpstr=>'Undo last command', - :command=>proc{puts 'UNDO'} - } - ], - - [:separator, 'sep2'], - - [:command, 'cut', { - :label=>'Cut', :underline=>1, - :helpstr=>'Cut selection to clipboard', - :command=>proc{puts 'CUT'} - } - ], - - [:command, 'copy', { - :label=>'Copy', :underline=>1, - :helpstr=>'Copy selection to clipboard', - :command=>proc{puts 'COPY'} - } - ], - - [:command, 'paste', { - :label=>'Paste', :underline=>0, - :helpstr=>'Paste clipboard contents', - :command=>proc{puts 'PASTE'} - } - ] - ] - } - ], - - [:menubutton, 'options', { - :text=>'Options', :menu=>[ - [:options, {:tearoff=>false, :selectcolor=>'blue'}], - - [:radiobutton, 'byName', { - :variable=>viewmode, :value=>'NAME', - :label=>'by Name', :helpstr=>'View files by name order', - :command=>proc{puts 'NAME'} - } - ], - - [:radiobutton, 'byDate', { - :variable=>viewmode, :value=>'DATE', - :label=>'by Date', :helpstr=>'View files by date order', - :command=>proc{puts 'DATE'} - } - ], - - [:cascade, 'prefs', { - :label=>'Preferences', :menu=>[ - [:command, 'colors', { - :label=>'Colors...', :helpstr=>'Change text colors', - :command=>proc{puts 'COLORS'} - } - ], - - [:command, 'fonts', { - :label=>'Fonts...', :helpstr=>'Change text font', - :command=>proc{puts 'COLORS'} - } - ] - ] - } - ] - ] - } - ] -] - -#mb = Tk::Iwidgets::Menubar.new(:helpvariable=>helpvar, -# :menubuttons=>menu_spec) -mb = Tk::Iwidgets::Menubar.new(:helpvariable=>helpvar) -mb.configure(:menubuttons=>menu_spec) - -fr = TkFrame.new(:width=>300, :height=>300) -ef = TkEntry.new(:textvariable=>helpvar) - -mb.pack(:anchor=>:nw, :fill=>:x, :expand=>true) -fr.pack(:fill=>:both, :expand=>true) -ef.pack(:anchor=>:sw, :fill=>:x, :expand=>true) - -Tk.mainloop |