blob: 3449cd4b3d96a8f758a23d969bcee14143e53fa5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#!/usr/bin/env ruby
require 'tk'
require 'tkextlib/iwidgets'
Thread.new{Tk.mainloop}
d = Tk::Iwidgets::Dialog.new(:modality=>:application)
d.buttonconfigure('OK', :command=>proc{puts 'OK'; d.deactivate true})
d.buttonconfigure('Apply', :command=>proc{puts 'Apply'})
d.buttonconfigure('Cancel', :command=>proc{puts 'Cancel'; d.deactivate false})
d.buttonconfigure('Help', :command=>proc{puts 'Help'})
TkListbox.new(d.child_site, :relief=>:sunken).pack(:expand=>true, :fill=>:both)
if TkComm.bool(d.activate)
puts "Exit via OK button"
else
puts "Exit via Cancel button"
end
|