HEX
Server: Apache
System: Linux s198.coreserver.jp 5.15.0-151-generic #161-Ubuntu SMP Tue Jul 22 14:25:40 UTC 2025 x86_64
User: nagasaki (10062)
PHP: 7.1.33
Disabled: NONE
Upload Files
File: //usr/local/rvm/src/ruby-2.2.10/ext/tk/sample/tkextlib/iwidgets/sample/mainwindow.rb
#!/usr/bin/env ruby
require 'tk'
require 'tkextlib/iwidgets'

mw = Tk::Iwidgets::Mainwindow.new

mw.menubar.add(:menubutton, 'file', :text=>'File', :underline=>0,
               :padx=>8, :pady=>2, :menu=>[
                 [:options, {:tearoff=>false}],

                 [:command, 'new', {
                     :label=>'New', :underline=>0,
                     :helpstr=>'Create a new file'
                   }
                 ],

                 [:command, 'open', {
                     :label=>'Open ...', :underline=>0,
                     :helpstr=>'Open an existing file'
                   }
                 ],

                 [:command, 'save', {
                     :label=>'Save', :underline=>0,
                     :helpstr=>'Save the current file'
                   }
                 ],

                 [:command, 'saveas', {
                     :label=>'Save As', :underline=>5,
                     :helpstr=>'Save the file as a different name'
                   }
                 ],

                 [:command, 'print', {
                     :label=>'Print', :underline=>0,
                     :helpstr=>'Print the file'
                   }
                 ],

                 [:separator, 'sep1'],

                 [:command, 'close', {
                     :label=>'Close', :underline=>0,
                     :helpstr=>'Close the file'
                   }
                 ],

                 [:separator, 'sep2'],

                 [:command, 'exit', {
                     :label=>'Exit', :underline=>1,
                     :helpstr=>'Exit this application'
                   }
                 ],

                 nil
               ])

Tk::Iwidgets::Scrolledtext.new(mw.child_site).pack(:fill=>:both, :expand=>true)

mw.activate

Tk.mainloop