summaryrefslogtreecommitdiff
path: root/ext/tk/sample/tkextlib/iwidgets/sample/optionmenu.rb
blob: 2b921ffab98cb2bf2391fdce32e1067749885912 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/env ruby
require 'tk'
require 'tkextlib/iwidgets'

om = Tk::Iwidgets::Optionmenu.new(:labelmargin=>5, :labelpos=>:w,
                                  :labeltext=>"Operating System :")

om.insert('end', 'Unix', 'VMS', 'Linux', 'OS/2', 'Windows NT', 'DOS')
om.sort_ascending
om.select('Linux')

om.pack(:padx=>10, :pady=>10)

Tk.mainloop