diff options
Diffstat (limited to 'trunk/ext/tk/sample/tkextlib/iwidgets/sample')
58 files changed, 0 insertions, 1394 deletions
diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/buttonbox.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/buttonbox.rb deleted file mode 100644 index 2b7cd45205..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/buttonbox.rb +++ /dev/null @@ -1,22 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -# sample 1 -p bb1 = Tk::Iwidgets::Buttonbox.new -p bb1.add('Yes', :text=>'Yes', :command=>proc{puts 'Yes'}) -p bb1.add('No', :text=>'No', :command=>proc{puts 'No'}) -p bb1.add('Maybe', :text=>'Maybe', :command=>proc{puts 'Maybe'}) -bb1.default('Yes') -bb1.pack(:expand=>true, :fill=>:both, :pady=>5) -print "\n" - -# sample 2 -p bb2 = Tk::Iwidgets::Buttonbox.new -p btn1 = bb2.add(:text=>'Yes', :command=>proc{puts 'Yes'}) -p btn2 = bb2.add(:text=>'No', :command=>proc{puts 'No'}) -p btn3 = bb2.add(:text=>'Maybe', :command=>proc{puts 'Maybe'}) -bb2.default(btn1) -bb2.pack(:expand=>true, :fill=>:both, :pady=>5) - -Tk.mainloop diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/calendar.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/calendar.rb deleted file mode 100644 index 4dd929c035..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/calendar.rb +++ /dev/null @@ -1,10 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -Tk::Iwidgets::Calendar.new(:command=>proc{|arg| puts(arg.date)}, - :weekendbackground=>'mistyrose', - :weekdaybackground=>'ghostwhite', - :outline=>'black', :startday=>'wednesday', - :days=>%w(We Th Fr Sa Su Mo Tu)).pack -Tk.mainloop diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/canvasprintbox.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/canvasprintbox.rb deleted file mode 100644 index c7c043000a..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/canvasprintbox.rb +++ /dev/null @@ -1,8 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -Tk::Iwidgets::Canvasprintbox.new(:orient=>:landscape, :stretch=>1) \ - .pack(:padx=>10, :pady=>10, :fill=>:both, :expand=>true) - -Tk.mainloop diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/canvasprintdialog.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/canvasprintdialog.rb deleted file mode 100644 index ea8d63e6eb..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/canvasprintdialog.rb +++ /dev/null @@ -1,8 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -Tk::Iwidgets::Canvasprintdialog.new.activate - -Tk.mainloop - diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/checkbox.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/checkbox.rb deleted file mode 100644 index bae0eba73a..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/checkbox.rb +++ /dev/null @@ -1,12 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -cb = Tk::Iwidgets::Checkbox.new -cb.add('bold', :text=>'Bold') -cb.add('italic', :text=>'Italic') -cb.add('underline', :text=>'Underline') -cb.select('underline') -cb.pack(:expand=>true, :fill=>:both, :padx=>10, :pady=>10) - -Tk.mainloop diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/combobox.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/combobox.rb deleted file mode 100644 index ec9c7a1df3..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/combobox.rb +++ /dev/null @@ -1,32 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -# -# Non-editable Dropdown Combobox -# -cb1 = Tk::Iwidgets::Combobox.new(:labeltext=>'Month:', - :selectioncommand=>proc{ - puts(cb1.get_curselection) - }, - :editable=>false, :listheight=>185, - :popupcursor=>'hand1') - -cb1.insert_list('end', *%w(Jan Feb Mar Apr May June Jul Aug Sept Oct Nov Dec)) - - -# -# Editable Dropdown Combobox -# -cb2 = Tk::Iwidgets::Combobox.new(:labeltext=>'Operating System:', - :selectioncommand=>proc{ - puts(cb2.get_curselection) - }) - -cb2.insert_list('end', *%w(Linux HP-UX SunOS Solaris Irix)) -cb2.insert_entry('end', 'L') - -cb1.pack(:padx=>10, :pady=>10, :fill=>:x) -cb2.pack(:padx=>10, :pady=>10, :fill=>:x) - -Tk.mainloop diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/dateentry.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/dateentry.rb deleted file mode 100644 index 5727879217..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/dateentry.rb +++ /dev/null @@ -1,7 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -Tk::Iwidgets::Dateentry.new.pack - -Tk.mainloop diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/datefield.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/datefield.rb deleted file mode 100644 index 12d498245d..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/datefield.rb +++ /dev/null @@ -1,8 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -df = Tk::Iwidgets::Datefield.new(:command=>proc{puts(df.get)}) -df.pack(:fill=>:x, :expand=>true, :padx=>10, :pady=>10) - -Tk.mainloop diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/dialog.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/dialog.rb deleted file mode 100644 index 3449cd4b3d..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/dialog.rb +++ /dev/null @@ -1,20 +0,0 @@ -#!/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 diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/dialogshell.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/dialogshell.rb deleted file mode 100644 index 197521e0a4..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/dialogshell.rb +++ /dev/null @@ -1,14 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -ds = Tk::Iwidgets::Dialogshell.new(:modality=>:none) - -ds.add('OK', :text=>'OK', :command=>proc{puts 'OK'; ds.deactivate}) -ds.add('Cancel', :text=>'Cancel', :command=>proc{puts 'Cancel'; ds.deactivate}) -ds.default('OK') - -TkButton.new(:text=>'ACTIVATE', :padx=>7, :pady=>7, - :command=>proc{puts ds.activate}).pack(:padx=>10, :pady=>10) - -Tk.mainloop diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/disjointlistbox.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/disjointlistbox.rb deleted file mode 100644 index 85c5d03d17..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/disjointlistbox.rb +++ /dev/null @@ -1,16 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -djl = Tk::Iwidgets::Disjointlistbox.new.pack(:fill=>:both, :expand=>true, - :padx=>10, :pady=>10) -djl.set_lhs(*[0,2,4,5]) -djl.set_rhs(3,6) - -djl.insert_lhs(1,7,8) -djl.insert_rhs(9) - -p djl.get_lhs -p djl.get_rhs - -Tk.mainloop diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/entryfield-1.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/entryfield-1.rb deleted file mode 100644 index 856d883a92..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/entryfield-1.rb +++ /dev/null @@ -1,39 +0,0 @@ -#!/usr/bin/env ruby -######################################################### -# -# use Tk::UTF8_String() for a utf8 charecter -# -######################################################### -require 'tk' -require 'tkextlib/iwidgets' - -TkOption.add('*textBackground', 'white') - -ef = Tk::Iwidgets::Entryfield.new(:command=>proc{puts "Return Pressed"}) - -fef = Tk::Iwidgets::Entryfield.new(:labeltext=>'Fixed:', - :fixed=>10, :width=>12) - -nef = Tk::Iwidgets::Entryfield.new(:labeltext=>'Numeric:', - :validate=>:numeric, :width=>12) - -aef = Tk::Iwidgets::Entryfield.new(:labeltext=>'Alphabetic:', - :validate=>:alphabetic, :width=>12, - :invalid=>proc{ - puts "Alphabetic contents invalid" - }) - -pef = Tk::Iwidgets::Entryfield.new(:labeltext=>'Password:', :width=>12, - :show=>Tk::UTF8_String("\267"), - ## <=== utf8 character - :command=>proc{puts "Return Pressed"}) - -Tk::Iwidgets::Labeledwidget.alignlabels(ef, fef, nef, aef, pef) - -ef.pack(:fil=>:x, :expand=>true, :padx=>10, :pady=>5) -fef.pack(:fil=>:x, :expand=>true, :padx=>10, :pady=>5) -nef.pack(:fil=>:x, :expand=>true, :padx=>10, :pady=>5) -aef.pack(:fil=>:x, :expand=>true, :padx=>10, :pady=>5) -pef.pack(:fil=>:x, :expand=>true, :padx=>10, :pady=>5) - -Tk.mainloop diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/entryfield-2.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/entryfield-2.rb deleted file mode 100644 index e2b4eec6bc..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/entryfield-2.rb +++ /dev/null @@ -1,44 +0,0 @@ -#!/usr/bin/env ruby -######################################################### -# -# set $KCODE to 'utf' for a utf8 charecter -# -######################################################### -unless defined?(::Encoding.default_external) - $KCODE='utf' -else - DEFAULT_TK_ENCODING = 'UTF-8' -end - -require 'tk' -require 'tkextlib/iwidgets' - -TkOption.add('*textBackground', 'white') - -ef = Tk::Iwidgets::Entryfield.new(:command=>proc{puts "Return Pressed"}) - -fef = Tk::Iwidgets::Entryfield.new(:labeltext=>'Fixed:', - :fixed=>10, :width=>12) - -nef = Tk::Iwidgets::Entryfield.new(:labeltext=>'Numeric:', - :validate=>:numeric, :width=>12) - -aef = Tk::Iwidgets::Entryfield.new(:labeltext=>'Alphabetic:', - :validate=>:alphabetic, :width=>12, - :invalid=>proc{ - puts "Alphabetic contents invalid" - }) - -pef = Tk::Iwidgets::Entryfield.new(:labeltext=>'Password:', :width=>12, - :show=>"\267", ## <=== utf8 character - :command=>proc{puts "Return Pressed"}) - -Tk::Iwidgets::Labeledwidget.alignlabels(ef, fef, nef, aef, pef) - -ef.pack(:fil=>:x, :expand=>true, :padx=>10, :pady=>5) -fef.pack(:fil=>:x, :expand=>true, :padx=>10, :pady=>5) -nef.pack(:fil=>:x, :expand=>true, :padx=>10, :pady=>5) -aef.pack(:fil=>:x, :expand=>true, :padx=>10, :pady=>5) -pef.pack(:fil=>:x, :expand=>true, :padx=>10, :pady=>5) - -Tk.mainloop diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/entryfield-3.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/entryfield-3.rb deleted file mode 100644 index bddd542f64..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/entryfield-3.rb +++ /dev/null @@ -1,40 +0,0 @@ -#!/usr/bin/env ruby -######################################################### -# -# set Tk.encoding = 'utf-8' for a utf8 charecter -# -######################################################### -require 'tk' -require 'tkextlib/iwidgets' - -Tk.encoding = 'utf-8' - -TkOption.add('*textBackground', 'white') - -ef = Tk::Iwidgets::Entryfield.new(:command=>proc{puts "Return Pressed"}) - -fef = Tk::Iwidgets::Entryfield.new(:labeltext=>'Fixed:', - :fixed=>10, :width=>12) - -nef = Tk::Iwidgets::Entryfield.new(:labeltext=>'Numeric:', - :validate=>:numeric, :width=>12) - -aef = Tk::Iwidgets::Entryfield.new(:labeltext=>'Alphabetic:', - :validate=>:alphabetic, :width=>12, - :invalid=>proc{ - puts "Alphabetic contents invalid" - }) - -pef = Tk::Iwidgets::Entryfield.new(:labeltext=>'Password:', :width=>12, - :show=>"\267", ## <=== utf8 character - :command=>proc{puts "Return Pressed"}) - -Tk::Iwidgets::Labeledwidget.alignlabels(ef, fef, nef, aef, pef) - -ef.pack(:fil=>:x, :expand=>true, :padx=>10, :pady=>5) -fef.pack(:fil=>:x, :expand=>true, :padx=>10, :pady=>5) -nef.pack(:fil=>:x, :expand=>true, :padx=>10, :pady=>5) -aef.pack(:fil=>:x, :expand=>true, :padx=>10, :pady=>5) -pef.pack(:fil=>:x, :expand=>true, :padx=>10, :pady=>5) - -Tk.mainloop diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/extbutton.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/extbutton.rb deleted file mode 100644 index 6971052b60..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/extbutton.rb +++ /dev/null @@ -1,20 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -Tk::Iwidgets::Extbutton.new(:text=>'Bitmap example', :bitmap=>'info', - :background=>'bisque', :activeforeground=>'red', - :bitmapforeground=>'blue', :defaultring=>true, - :command=>proc{ - puts "Bisque is beautiful" - }).pack(:expand=>true) - -#img = TkPhotoImage.new(:file=>File.join(File.dirname(File.expand_path(__FILE__)), '../../../images/earthris.gif')) -img = TkPhotoImage.new(:file=>File.join(File.dirname(File.expand_path(__FILE__)), '../catalog_demo/images/clear.gif')) - -Tk::Iwidgets::Extbutton.new(:text=>'Image example', :relief=>:ridge, - :image=>img, :imagepos=>:e, :font=>'9x15bold', - :activebackground=>'lightyellow', - :background=>'lightgreen').pack(:expand=>true) - -Tk.mainloop diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/extfileselectionbox.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/extfileselectionbox.rb deleted file mode 100644 index 4738084d9d..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/extfileselectionbox.rb +++ /dev/null @@ -1,8 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -Tk::Iwidgets::Extfileselectionbox.new.pack(:padx=>10, :pady=>10, - :fill=>:both, :expand=>true) - -Tk.mainloop diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/extfileselectiondialog.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/extfileselectiondialog.rb deleted file mode 100644 index c1a9b3defd..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/extfileselectiondialog.rb +++ /dev/null @@ -1,29 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -mainloop = Thread.new{Tk.mainloop} - -# -# Non-modal example -# -nmfsd = Tk::Iwidgets::Extfileselectiondialog.new(:title=>'Non-Modal') -nmfsd.buttonconfigure('OK', :command=>proc{ - puts "You selected #{nmfsd.get}" - nmfsd.deactivate - }) -nmfsd.activate - -# -# Modal example -# -mfsd = Tk::Iwidgets::Extfileselectiondialog.new(:modality=>:application) -mfsd.center -if TkComm.bool(mfsd.activate) - puts "You selected #{mfsd.get}" -else - puts "You cancelled the dialog" -end - - -mainloop.join diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/feedback.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/feedback.rb deleted file mode 100644 index 7b87a029ed..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/feedback.rb +++ /dev/null @@ -1,10 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -Tk::Iwidgets::Feedback.new(:labeltext=>'Status', :steps=>20){|fb| - pack(:padx=>10, :pady=>10, :fill=>:both, :expand=>true) - TkTimer.new(500, 20, proc{fb.step}).start(2500) -} - -Tk.mainloop diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/fileselectionbox.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/fileselectionbox.rb deleted file mode 100644 index 2ad3adb974..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/fileselectionbox.rb +++ /dev/null @@ -1,8 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -Tk::Iwidgets::Fileselectionbox.new.pack(:padx=>10, :pady=>10, - :fill=>:both, :expand=>true) - -Tk.mainloop diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/fileselectiondialog.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/fileselectiondialog.rb deleted file mode 100644 index ff22b2f643..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/fileselectiondialog.rb +++ /dev/null @@ -1,28 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -mainloop = Thread.new{Tk.mainloop} - -# -# Non-modal example -# -nmfsd = Tk::Iwidgets::Fileselectiondialog.new(:title=>'Non-Modal') -nmfsd.buttonconfigure('OK', :command=>proc{ - puts "You selected #{nmfsd.get}" - nmfsd.deactivate - }) -nmfsd.activate - -# -# Modal example -# -mfsd = Tk::Iwidgets::Fileselectiondialog.new(:modality=>:application) -mfsd.center -if TkComm.bool(mfsd.activate) - puts "You selected #{mfsd.get}" -else - puts "You cancelled the dialog" -end - -mainloop.join diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/finddialog.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/finddialog.rb deleted file mode 100644 index 110efb9b96..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/finddialog.rb +++ /dev/null @@ -1,15 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -mainloop = Thread.new{Tk.mainloop} - -st = Tk::Iwidgets::Scrolledtext.new.pack -st.insert('end', "Now is the time for all good men\n") -st.insert('end', "to come to the aid of their country") - -fd = Tk::Iwidgets::Finddialog.new(:textwidget=>st) -fd.center(st) -fd.activate - -mainloop.join diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/hierarchy.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/hierarchy.rb deleted file mode 100644 index ddb08d8b78..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/hierarchy.rb +++ /dev/null @@ -1,25 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -def get_files(file) - dir = (file.empty?)? ENV['HOME'] : TkComm._fromUTF8(file) - Dir.chdir(dir) rescue return '' - Dir['*'].sort.collect{|f| - [TkComm._toUTF8(File.join(dir, f)), TkComm._toUTF8(f)] - } -end - -Tk::Iwidgets::Hierarchy.new(:querycommand=>proc{|arg| get_files(arg.node)}, - :visibleitems=>'30x15', - :labeltext=>ENV['HOME']).pack(:side=>:left, - :expand=>true, - :fill=>:both) - -# Tk::Iwidgets::Hierarchy.new(:querycommand=>[proc{|n| get_files(n)}, '%n'], -# :visibleitems=>'30x15', -# :labeltext=>ENV['HOME']).pack(:side=>:left, -# :expand=>true, -# :fill=>:both) - -Tk.mainloop diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/hyperhelp.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/hyperhelp.rb deleted file mode 100644 index f9c92bf6dc..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/hyperhelp.rb +++ /dev/null @@ -1,14 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -mainloop = Thread.new{Tk.mainloop} - -dir = '/usr/local/ActiveTcl/demos/IWidgets/html/' -href = [ 'hyperhelp.n', 'buttonbox.n', 'calendar.n' ] - -hh = Tk::Iwidgets::Hyperhelp.new(:topics=>href, :helpdir=>dir) -hh.show_topic('hyperhelp.n') -hh.activate - -mainloop.join diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/labeledframe.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/labeledframe.rb deleted file mode 100644 index 4e2e21e727..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/labeledframe.rb +++ /dev/null @@ -1,14 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -lf = Tk::Iwidgets::Labeledframe.new(:labeltext=>'Entry Frame', :labelpos=>:n) -lf.pack(:fill=>:both, :expand=>true, :padx=>10, :pady=>10) - -cs = lf.child_site - -Tk::Iwidgets::Entryfield.new(cs, :labeltext=>'Name:').pack(:side=>:top, :fill=>:x) -Tk::Iwidgets::Spinint.new(cs, :labeltext=>'Number:').pack(:side=>:top, :fill=>:x) -Tk::Iwidgets::Pushbutton.new(cs, :text=>'Details:').pack(:side=>:top, :fill=>:x) - -Tk.mainloop diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/labeledwidget.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/labeledwidget.rb deleted file mode 100644 index 1d2e0a98a3..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/labeledwidget.rb +++ /dev/null @@ -1,13 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -lw = Tk::Iwidgets::Labeledwidget.new(:labeltext=>'Canvas Widget', - :labelpos=>:s) -lw.pack(:fill=>:both, :expand=>true, :padx=>10, :pady=>10) - -cw = TkCanvas.new(lw.child_site, :relief=>:raised, :width=>200, :height=>200, - :borderwidth=>3, :background=>:white) -cw.pack(:padx=>10, :pady=>10) - -Tk.mainloop diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/mainwindow.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/mainwindow.rb deleted file mode 100644 index b87a6d27f9..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/mainwindow.rb +++ /dev/null @@ -1,64 +0,0 @@ -#!/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 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 diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/menubar2.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/menubar2.rb deleted file mode 100644 index d6f2292650..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/menubar2.rb +++ /dev/null @@ -1,44 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -helpvar = TkVariable.new -viewmode = TkVariable.new - -mb = Tk::Iwidgets::Menubar.new -mb.menubuttons = [ - [:menubutton, 'file', { - :text=>'File', :menu=>[ - [:command, 'new', {:label=>'New'}], - [:command, 'close', {:label=>'Close'}], - [:separator, 'sep1'], - [:command, 'quit', {:label=>'Quit'}] - ] - } - ], - [:menubutton, 'edit', {:text=>'Edit'}] -] - -mb.add(:command, '.edit.undo', :label=>'Undo', :underline=>0) -mb.add(:separator, '.edit.sep2') -mb.add(:command, '.edit.cut', :label=>'Cut', :underline=>1) -mb.add(:command, '.edit.copy', :label=>'Copy', :underline=>1) -mb.add(:command, '.edit.paste', :label=>'Paste', :underline=>0) - -mb.add(:menubutton, '.options', :text=>'Options', :menu=>[ - [:radiobutton, 'byName', { - :variable=>viewmode, :value=>'NAME', :label=>'by Name'} - ], - [:radiobutton, 'byDate', { - :variable=>viewmode, :value=>'DATE', :label=>'by Date'} - ] - ]) - -mb.add(:cascade, '.options.prefs', :label=>'Preferences', :menu=>[ - [:command, 'colors', {:label=>'Colors...'}], - [:command, 'fonts', {:label=>'Fonts...'}] - ]) - -mb.pack(:side=>:left, :anchor=>:nw, :fill=>:x, :expand=>true) - -Tk.mainloop diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/messagebox1.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/messagebox1.rb deleted file mode 100644 index 3221dbc30c..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/messagebox1.rb +++ /dev/null @@ -1,19 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -mb = Tk::Iwidgets::Messagebox.new(:hscrollmode=>:dynamic, - :labeltext=>'Messages', :labelpos=>:n, - :height=>120, :width=>550, - :savedir=>'/tmp', :textbackground=>'#d9d9d9') -mb.pack(:padx=>5, :pady=>5, :fill=>:both, :expand=>true) - -mb.type_add('ERROR', :background=>'red', :foreground=>'white', :bell=>true) -mb.type_add('WARNING', :background=>'yellow', :foreground=>'black') -mb.type_add('INFO', :background=>'white', :foreground=>'black') - -mb.issue('This is an error message in red with a beep', 'ERROR') -mb.issue('This warning message in yellow', 'WARNING') -mb.issue('This is an informational message', 'INFO') - -Tk.mainloop diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/messagebox2.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/messagebox2.rb deleted file mode 100644 index 2f0e3648a6..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/messagebox2.rb +++ /dev/null @@ -1,19 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -mb = Tk::Iwidgets::Messagebox.new(:hscrollmode=>:dynamic, - :labeltext=>'Messages', :labelpos=>:n, - :height=>120, :width=>550, - :savedir=>'/tmp', :textbackground=>'#d9d9d9') -mb.pack(:padx=>5, :pady=>5, :fill=>:both, :expand=>true) - -error = mb.type_add(:background=>'red', :foreground=>'white', :bell=>true) -warning = mb.type_add(:background=>'yellow', :foreground=>'black') -info = mb.type_add(:background=>'white', :foreground=>'black') - -mb.issue('This is an error message in red with a beep', error) -mb.issue('This warning message in yellow', warning) -mb.issue('This is an informational message', info) - -Tk.mainloop diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/messagedialog.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/messagedialog.rb deleted file mode 100644 index 6c6bfbca3f..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/messagedialog.rb +++ /dev/null @@ -1,44 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -mainloop = Thread.new{Tk.mainloop} - -# -# Standard question message dialog used for confirmation. -# -md = Tk::Iwidgets::Messagedialog.new(:title=>'Message Dialog', - :text=>'Are you sure ? ', - :bitmap=>'questhead', :modality=>:global) - -md.buttonconfigure('OK', :text=>'Yes') -md.buttonconfigure('Cancel', :text=>'No') - -if TkComm.bool(md.activate) - md.text('Are you really sure ? ') - if TkComm.bool(md.activate) - puts 'Yes' - else - puts 'No' - end -else - puts 'No' -end - -md.destroy - -# -# Copyright notice with automatic deactivation. -# -bmp = '@' + File.join(File.dirname(File.expand_path(__FILE__)), '../catalog_demo/images/text.xbm') - -cr = Tk::Iwidgets::Messagedialog.new(:title=>'Copyright', - :bitmap=>bmp, :imagepos=>:n, - :text=>"Copyright 200x XXX Corporation\nAll rights reserved") - -cr.hide('Cancel') - -cr.activate -Tk.after(7000, proc{cr.deactivate; Tk.root.destroy}) - -mainloop.join diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/notebook.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/notebook.rb deleted file mode 100644 index e33b81eb6f..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/notebook.rb +++ /dev/null @@ -1,30 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -# Create the tabnotebook widget and pack it. -nb = Tk::Iwidgets::Notebook.new(:width=>100, :height=>100) -nb.pack(:anchor=>:nw, :fill=>:both, :expand=>true, - :side=>:left, :padx=>10, :pady=>10) - -# Add two pages to the tabnotebook, -# labelled "Page One" and "Page Two" -nb.add(:label=>'Page One') -nb.add(:label=>'Page Two') - -# Get the child site frames of these two pages. -page1CS = nb.child_site(0) -page2CS = nb.child_site('Page Two') - -# Create buttons on each page of the tabnotebook. -TkButton.new(page1CS, :text=>'Button One').pack -TkButton.new(page2CS, :text=>'Button Two').pack - -# Select the first page of the tabnotebook. -nb.select(0) - -# Create the scrollbar and associate teh scrollbar -# and the notebook together, then pack the scrollbar -nb.scrollbar(TkScrollbar.new).pack(:fill=>:y, :expand=>true, :pady=>10) - -Tk.mainloop diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/notebook2.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/notebook2.rb deleted file mode 100644 index 649de4f024..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/notebook2.rb +++ /dev/null @@ -1,30 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -# Create the tabnotebook widget and pack it. -nb = Tk::Iwidgets::Notebook.new(:width=>100, :height=>100) -nb.pack(:anchor=>:nw, :fill=>:both, :expand=>true, - :side=>:top, :padx=>10, :pady=>0) - -# Add two pages to the tabnotebook, -# labelled "Page One" and "Page Two" -nb.add(:label=>'Page One') -nb.add(:label=>'Page Two') - -# Get the child site frames of these two pages. -page1CS = nb.child_site(0) -page2CS = nb.child_site('Page Two') - -# Create buttons on each page of the tabnotebook. -TkButton.new(page1CS, :text=>'Button One').pack -TkButton.new(page2CS, :text=>'Button Two').pack - -# Select the first page of the tabnotebook. -nb.select(0) - -# Create the scrollbar and associate teh scrollbar -# and the notebook together, then pack the scrollbar -nb.xscrollbar(TkScrollbar.new).pack(:fill=>:x, :expand=>true, :padx=>10) - -Tk.mainloop diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/optionmenu.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/optionmenu.rb deleted file mode 100644 index 1fd7a5bc05..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/optionmenu.rb +++ /dev/null @@ -1,14 +0,0 @@ -#!/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 diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/panedwindow.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/panedwindow.rb deleted file mode 100644 index 6e4458e508..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/panedwindow.rb +++ /dev/null @@ -1,22 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -pw = Tk::Iwidgets::Panedwindow.new(:width=>300, :height=>300) - -pw.add('top') -pw.add('middle', :margin=>10) -pw.add('bottom', :margin=>10, :minimum=>10) - -pw.pack(:fill=>:both, :expand=>true) - -pw.child_site_list.each{|pane| - TkButton.new(pane, :text=>pane.path, :relief=>:raised, - :borderwidth=>2).pack(:fill=>:both, :expand=>true) -} - -pw.fraction(50,30,20) -pw.paneconfigure(0, :minimum=>20) -pw.paneconfigure('bottom', :margin=>15) - -Tk.mainloop diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/panedwindow2.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/panedwindow2.rb deleted file mode 100644 index 6779cb57db..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/panedwindow2.rb +++ /dev/null @@ -1,22 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -pw = Tk::Iwidgets::Panedwindow.new(:width=>300, :height=>300) - -top = pw.add -middle = pw.add(:margin=>10) -bottom = pw.add(:margin=>10, :minimum=>10) - -pw.pack(:fill=>:both, :expand=>true) - -pw.child_site_list.each{|pane| - TkButton.new(pane, :text=>pane.path, :relief=>:raised, - :borderwidth=>2).pack(:fill=>:both, :expand=>true) -} - -pw.fraction(50,30,20) -pw.paneconfigure(0, :minimum=>20) # 0 == pw.index(top) -pw.paneconfigure(bottom, :margin=>15) - -Tk.mainloop diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/promptdialog.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/promptdialog.rb deleted file mode 100644 index 2c643e56f7..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/promptdialog.rb +++ /dev/null @@ -1,17 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -mainloop = Thread.new{Tk.mainloop} - -TkOption.add('*textBackground', 'white') - -pd = Tk::Iwidgets::Promptdialog.new(:modality=>:global, :title=>'Password', - :labeltext=>'Password:', :show=>'*') -pd.hide('Apply') - -if TkComm.bool(pd.activate) - puts "Password entered: #{pd.get}" -else - puts "Password prompt cancelled" -end diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/pushbutton.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/pushbutton.rb deleted file mode 100644 index 6e1c3fffe3..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/pushbutton.rb +++ /dev/null @@ -1,9 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -Tk::Iwidgets::Pushbutton.new(:text=>'Hello', - :command=>proc{puts 'Hello World'}, - :defaultring=>true).pack(:padx=>10, :pady=>10) - -Tk.mainloop diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/radiobox.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/radiobox.rb deleted file mode 100644 index 9cd6a002b0..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/radiobox.rb +++ /dev/null @@ -1,13 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -rb = Tk::Iwidgets::Radiobox.new(:labeltext=>'Fonts') -rb.add('times', :text=>'Times') -rb.add('helvetica', :text=>'Helvetica') -rb.add('courier', :text=>'Courier') -rb.add('symbol', :text=>'Symbol') -rb.select('courier') -rb.pack(:expand=>true, :fill=>:both, :padx=>10, :pady=>10) - -Tk.mainloop diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/scrolledcanvas.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/scrolledcanvas.rb deleted file mode 100644 index 92c94b96bb..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/scrolledcanvas.rb +++ /dev/null @@ -1,13 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -sc = Tk::Iwidgets::Scrolledcanvas.new - -sc.create(TkcRectangle, 100, 100, 400, 400, :fill=>'red') -TkcRectangle.new(sc, 300, 300, 600, 600, :fill=>'green') -TkcRectangle.new(sc, [[200, 200], [500, 500]], :fill=>'blue') - -sc.pack(:expand=>true, :fill=>:both, :padx=>10, :pady=>10) - -Tk.mainloop diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/scrolledframe.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/scrolledframe.rb deleted file mode 100644 index 5219847c9c..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/scrolledframe.rb +++ /dev/null @@ -1,18 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -sf = Tk::Iwidgets::Scrolledframe.new(:width=>150, :height=>180, - :labeltext=>'scrolledframe') -cs = sf.child_site - -TkButton.new(cs, :text=>'Hello').pack(:pady=>10) -TkButton.new(cs, :text=>'World').pack(:pady=>10) -TkButton.new(cs, :text=>'This is a test').pack(:pady=>10) -TkButton.new(cs, :text=>'This is a really big button').pack(:pady=>10) -TkButton.new(cs, :text=>'This is another really big button').pack(:pady=>10) -TkButton.new(cs, :text=>'This is the last really big button').pack(:pady=>10) - -sf.pack(:expand=>true, :fill=>:both, :padx=>10, :pady=>10) - -Tk.mainloop diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/scrolledhtml.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/scrolledhtml.rb deleted file mode 100644 index 04334b8da8..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/scrolledhtml.rb +++ /dev/null @@ -1,15 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -TkOption.add('*textBackground', 'white') - -sh = Tk::Iwidgets::Scrolledhtml.new(:fontname=>'helvetica', - :linkcommand=>proc{|href| - sh.import_link(href) - }) -sh.pack(:expand=>true, :fill=>:both, :padx=>10, :pady=>10) - -sh.import(Tk.getOpenFile(:title=>'select HTML document')) - -Tk.mainloop diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/scrolledlistbox.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/scrolledlistbox.rb deleted file mode 100644 index 0b69751911..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/scrolledlistbox.rb +++ /dev/null @@ -1,22 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -TkOption.add('*textBackground', 'white') - -slb = Tk::Iwidgets::Scrolledlistbox.new(:selectmode=>:single, - :vscrollmode=>:static, - :hscrollmode=>:dynamic, - :labeltext=>'List', - :selectioncommand=>proc{ - puts(slb.get_curselection) - }, - :dblclickcommand=>proc{ - puts('Double Click') - puts(slb.get_curselection) - }) -slb.pack(:expand=>true, :fill=>:both, :padx=>10, :pady=>10) - -slb.insert('end', *['Hello', 'Out There', 'World']) - -Tk.mainloop diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/scrolledtext.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/scrolledtext.rb deleted file mode 100644 index dd1a99a829..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/scrolledtext.rb +++ /dev/null @@ -1,11 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -st = Tk::Iwidgets::Scrolledtext.new(:hscrollmode=>:dynamic, :wrap=>:none, - :labeltext=>'Password File') -st.pack(:expand=>true, :fill=>:both, :padx=>10, :pady=>10) - -st.import('/etc/passwd') - -Tk.mainloop diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/selectionbox.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/selectionbox.rb deleted file mode 100644 index a5d623ae80..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/selectionbox.rb +++ /dev/null @@ -1,19 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -TkOption.add('*textBackground', 'white') - -sb = Tk::Iwidgets::Selectionbox.new.pack(:padx=>10, :pady=>10, - :fill=>:both, :expand=>true) - -sb.insert_items('end', *['Hello', 'Out There', 'World']) - -TkLabel.new(sb.child_site, - :text=>'Child Site is Here').pack(:fill=>:x, :padx=>10, :pady=>10) - -sb.insert_items(2, 'Cruel Cruel') - -sb.selection_set(1) - -Tk.mainloop diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/selectiondialog.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/selectiondialog.rb deleted file mode 100644 index f40b419180..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/selectiondialog.rb +++ /dev/null @@ -1,12 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -mainloop = Thread.new{Tk.mainloop} - -TkButton.new(:text=>'QUIT', - :command=>proc{Tk.root.destroy}).pack(:padx=>10, :pady=>10) - -Tk::Iwidgets::Selectiondialog.new.activate - -mainloop.join diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/shell.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/shell.rb deleted file mode 100644 index c44b5554a6..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/shell.rb +++ /dev/null @@ -1,17 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -sh = Tk::Iwidgets::Shell.new(:modality=>:application, - :padx=>20, :pady=>20, :title=>'Shell') - -TkButton.new(:text=>'ACTIVATE', :padx=>7, :pady=>7, - :command=>proc{puts sh.activate}).pack(:padx=>10, :pady=>10) - -TkLabel.new(sh.child_site, :text=>'SHELL').pack -TkButton.new(sh.child_site, :text=>'YES', - :command=>proc{sh.deactivate 'press YES'}).pack(:fill=>:x) -TkButton.new(sh.child_site, :text=>'NO', - :command=>proc{sh.deactivate 'press NO'}).pack(:fill=>:x) - -Tk.mainloop diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/spindate.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/spindate.rb deleted file mode 100644 index 17197a66b7..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/spindate.rb +++ /dev/null @@ -1,7 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -Tk::Iwidgets::Spindate.new.pack(:padx=>10, :pady=>10) - -Tk.mainloop diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/spinint.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/spinint.rb deleted file mode 100644 index 0bcdefb763..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/spinint.rb +++ /dev/null @@ -1,10 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -TkOption.add('*textBackground', 'white') - -Tk::Iwidgets::Spinint.new(:labeltext=>'Temperature', :labelpos=>:w, :width=>5, - :fixed=>true, :range=>[32, 212]).pack(:pady=>10) - -Tk.mainloop diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/spinner.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/spinner.rb deleted file mode 100644 index 295d38ee96..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/spinner.rb +++ /dev/null @@ -1,33 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -class Spinner_demo < TkWindow - Months = %w(January February March April May June July August September October November December) - - def block_input(c) - false - end - - def spin_month(step) - index = Months.index(@spinner.get) + step - index = 11 if index < 0 - index = 0 if index > 11 - - @spinner.value = Months[index] - end - - def initialize(parent=nil) - @spinner = Tk::Iwidgets::Spinner.new(parent, :labeltext=>'Month : ', - :width=>10, :fixed=>10, - :validate=>proc{|c| block_input}, - :decrement=>proc{spin_month -1}, - :increment=>proc{spin_month 1}) - @path = @spinner - @spinner.insert(0, Months[0]) - end -end - -Spinner_demo.new.pack(:padx=>10, :pady=>10) - -Tk.mainloop diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/spintime.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/spintime.rb deleted file mode 100644 index 2c13884b94..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/spintime.rb +++ /dev/null @@ -1,7 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -Tk::Iwidgets::Spintime.new.pack(:padx=>10, :pady=>10) - -Tk.mainloop diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/tabnotebook.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/tabnotebook.rb deleted file mode 100644 index 6f1ecc4fa4..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/tabnotebook.rb +++ /dev/null @@ -1,26 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -# Create the tabnotebook widget and pack it. -tn = Tk::Iwidgets::Tabnotebook.new(:width=>300, :height=>100) -tn.pack(:anchor=>:nw, :fill=>:both, :expand=>true, - :side=>:left, :padx=>10, :pady=>10) - -# Add two pages to the tabnotebook, -# labelled "Page One" and "Page Two" -tn.add(:label=>'Page One') -tn.add(:label=>'Page Two') - -# Get the child site frames of these two pages. -page1CS = tn.child_site(0) -page2CS = tn.child_site('Page Two') - -# Create buttons on each page of the tabnotebook. -TkButton.new(page1CS, :text=>'Button One').pack -TkButton.new(page2CS, :text=>'Button Two').pack - -# Select the first page of the tabnotebook. -tn.select(0) - -Tk.mainloop diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/tabnotebook2.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/tabnotebook2.rb deleted file mode 100644 index 4a5eef5a8f..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/tabnotebook2.rb +++ /dev/null @@ -1,30 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -# Create the tabnotebook widget and pack it. -tn = Tk::Iwidgets::Tabnotebook.new(:width=>300, :height=>100) -tn.pack(:anchor=>:nw, :fill=>:both, :expand=>true, - :side=>:top, :padx=>10, :pady=>0) - -# Add two pages to the tabnotebook, -# labelled "Page One" and "Page Two" -tn.add(:label=>'Page One') -tn.add(:label=>'Page Two') - -# Get the child site frames of these two pages. -page1CS = tn.child_site(0) -page2CS = tn.child_site('Page Two') - -# Create buttons on each page of the tabnotebook. -TkButton.new(page1CS, :text=>'Button One').pack -TkButton.new(page2CS, :text=>'Button Two').pack - -# Select the first page of the tabnotebook. -tn.select(0) - -# Create the scrollbar -# and the notebook together, then pack the scrollbar -tn.xscrollbar(TkScrollbar.new).pack(:fill=>:x, :expand=>true, :padx=>10) - -Tk.mainloop diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/tabset.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/tabset.rb deleted file mode 100644 index 90be46b40b..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/tabset.rb +++ /dev/null @@ -1,34 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -# Create a listbox with two items (one and two) -l = TkListbox.new(:selectmode=>:single, :exportselection=>false).pack -l.insert('end', 'one') -l.insert('end', 'two') -l.selection_set(0) - -# Define a proc that knows how to select an item -# from a list given an index from the tabset -command callback. -selectItem = proc{|item| - l.selection_clear(l.curselection) - l.selection_set(item) - l.see(item) -} - -# Create a tabset, set its -command to call selectItem -# Add two labels to the tabset (one and two). -ts = Tk::Iwidgets::Tabset.new(:command=>selectItem) -ts.add(:label=>1) -ts.add(:label=>2) -ts.select(0) -ts.pack(:fill=>:x, :expand=>true) - -# Define a proc that knows how to select a tab -# given a y pixel coordinate from the list.. -selectTab = proc{|y| ts.select(l.nearest(y)) } - -# bind button 1 press to the selectTab procedure. -l.bind('ButtonPress-1', proc{|y| selectTab.call(y) }, '%y') - -Tk.mainloop diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/timeentry.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/timeentry.rb deleted file mode 100644 index 465939947b..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/timeentry.rb +++ /dev/null @@ -1,7 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -Tk::Iwidgets::Timeentry.new.pack - -Tk.mainloop diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/timefield.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/timefield.rb deleted file mode 100644 index bb5945048d..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/timefield.rb +++ /dev/null @@ -1,8 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -tf = Tk::Iwidgets::Timefield.new(:command=>proc{puts(tf.get)}) -tf.pack(:fill=>:x, :expand=>true, :padx=>10, :pady=>10) - -Tk.mainloop diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/toolbar.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/toolbar.rb deleted file mode 100644 index 355466eb1a..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/toolbar.rb +++ /dev/null @@ -1,152 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -########################################## -# icon images -editcopy22 = TkPhotoImage.new(:data=><<'EOD') - R0lGODlhFgAWAIUAAPwCBBQSFPz+/DQyNISChDw6PMzKzMTGxERGRIyKjFxa - XMTCvKSmpHR2dPz6/Pz29PTq3MS2rPz69MTCxFxWVHx6dJyWjNzSzPz27Pzy - 7Pzu5PTm3NTKvIR+fJyGfHxuZHxqXNTCtPTq5PTi1PTezNS+rExOTFRORMyy - lPTaxOzWxOzSvNze3NTOxMy2nMyulMyqjAQCBAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAAAALAAAAAAWABYAAAbY - QIBwSCwahYGkUnk0BgTQ6IAQaBKfUWhBYKhaAU+CgXAQIAyChLeJzSIQhcH6 - GFaM0QtGY5kstqEODw8QEQELAhJTc08KBBMEFBUWDRcBE1pca20SGBkaEBsc - AY5maFRIAgoLHRQRHh8gIQFlZnByqA8ZGSIQIyQjJQEmYgJ5p2ACrK4gJx4g - KIZZAgdeAQ4ZI9kjKSor0AwEjeAs1S0cHAslLi4vMDDRWeRIfEsxMeET4ATy - VoYLC5fizXEiAR84BeMG+pEm8EsAFhAjSlR4hR6fLxiF0AkCACH+aENyZWF0 - ZWQgYnkgQk1QVG9HSUYgUHJvIHZlcnNpb24gMi41DQqpIERldmVsQ29yIDE5 - OTcsMTk5OC4gQWxsIHJpZ2h0cyByZXNlcnZlZC4NCmh0dHA6Ly93d3cuZGV2 - ZWxjb3IuY29tADs= -EOD - -editcut22 = TkPhotoImage.new(:data=><<'EOD') - R0lGODlhFgAWAIMAAPwCBAQCBAwCBPz+/OTi5JyanOzq7DQyNGxqbAAAAAAA - AAAAAAAAAAAAAAAAAAAAACH5BAEAAAAALAAAAAAWABYAAARbEMhJq704gxBE - 0Bf3cZo4kRJqBQNRfBucyudgvJS6VaxLzyMa6/bLiWA9HOg4VIIkL5vzuRkc - pkvRIIAorphJLzBW84WEuRZWp6uaT7J2Sh1Hit3OY/ZO7WvsEQAh/mhDcmVh - dGVkIGJ5IEJNUFRvR0lGIFBybyB2ZXJzaW9uIDIuNQ0KqSBEZXZlbENvciAx - OTk3LDE5OTguIEFsbCByaWdodHMgcmVzZXJ2ZWQuDQpodHRwOi8vd3d3LmRl - dmVsY29yLmNvbQA7 -EOD - -editpaste22 = TkPhotoImage.new(:data=><<'EOD') - R0lGODlhFgAWAIYAAPwCBBQWFDw6FHRuFGRaBFxSBAQCBAQKBCQiBIx6HPz6 - /NTOfKyiXDQuFOTm5Pz+/Ozu7PTq5Pz63PTyxNTOjKSeRExGLMTGxMzKzNTS - 1NTW1Dw2NKSmpKyqrKSipJyanNzWlLy6ZLSuVIx6FISChIyKhJSSlCQiJLS2 - tDw6NDQyNCQiFCQmHBQSDGRiZHRydGxubHx6dGxqbFxeXGRmZFxaXCwuLOzq - 7KyurHx+fDwmFEQuFCweFCQWDBQODBwaHBweHKSinJSWlOTi5JyepHR2dDw6 - PBQSFNze3ERGRIyKjIyOjISGhPz29Pzy7MS2rMzOzFRWVHx2dHxybDQiFPz2 - 7Pzu5PTq3PTm1NTCtJyGdHxuZHxqXPzq3PTaxNS6pFxWVFRKRNS2nPTi1PTS - tNSulNzOxNSynMymhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAAAA - LAAAAAAWABYAAAf/gACCgwABAgMEBYSLggaOjgcICQoLDA2Pj4MGDg8QEZ4F - DxITFBUWFxcYGRobjQ8cHR4fCQ8gCyEiFSMWJCUkJieNEB4dKB4pKissK8wr - LS4vMDHBAAYQHx8dFx0fJDIzNDU0M+IyHzaNNyg43Ng5Ojs7Ojw9Pj9AMkCN - DiZB/h9CSOx4QLCgihItqBkYgqIDESElitAYWJCgkQcXjjRCgi1Ihw4BB5LA - QOLCgyQYHihpUU3DBw5ElpAgAYNixSRJjKjQaECDCRPZPDB5IbIGSQwKLnh4 - wbInLA4kmJB4oaPiAwVNnER40hRK1BIAaVatUZJEFCkmpmjgCeWDCalFe4q4 - oFKwSRUrEa5gycLzwq8lUnPQ4PEgSpYcUZ5o2cIlS1O/JHLEDdfjQZMIVrpg - weLFy5e+M6WSmBGlxYMYYBRzCaOFi5imHWBIfOEiShLTVjaP6eyFTBmN1TA5 - OvLDjJksWb58OVMGDRqWjAYdmU79SIvpjqJr104nEAAh/mhDcmVhdGVkIGJ5 - IEJNUFRvR0lGIFBybyB2ZXJzaW9uIDIuNQ0KqSBEZXZlbENvciAxOTk3LDE5 - OTguIEFsbCByaWdodHMgcmVzZXJ2ZWQuDQpodHRwOi8vd3d3LmRldmVsY29y - LmNvbQA7 -EOD - -editdelete22 = TkPhotoImage.new(:data=><<'EOD') - R0lGODlhFgAWAIYAAASC/FRSVExKTERCRDw6PDQyNCwuLBweHBwaHAwODAwK - DAQCBExOTNze3NTW1MTGxLS2tJyanPz+/Ozu7BQSFCwqLDw+POTi5PTu7MzK - xIR+fCQmJPz6/Oze1NTGvPz69Pzy7Pz29LyyrPy+vPyupPTm1BQWFIQCBPwC - BMS6rPzSzNTOxPTi1NS+rPTezNzOxPTizOzWxMy2pOzaxMy2nPTaxOzOtMyy - nOzSvMyqjPx+fOzGpMSihPTq3OzKrOTCpNzKxNTCtAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAAAA - LAAAAAAWABYAAAf8gACCAQIDBAUGBwgJCgsLgpCRAAwNlZYODxALEY+SkAMN - EqKjEw0UD5yegqCjrRMVEqidkgWhraMWF7GptLa3EgEWFRSOnhW+vxgZEBqz - kBvItxwdHryRCNGjHyAhHSLOgtgSI60c2yQjJd+eJqEnKK0hJCgnJSngAO0S - F+8qEvL0VrBogW+BLX4oVKgIyMIFQU8KfDV4R+8FDBcxZBREthAFiRIsOsyg - sVEUh4Un3pGoUcPGjZInK65QicPlxg8oX5RwqNJGjo0hdJwQ6EIkjRM6dvDY - CKIHSBc1Ztjw4eOH0oIrsgIJEqSFDBo0cuTgsdSTo7No0xYTZCcQACH+aENy - ZWF0ZWQgYnkgQk1QVG9HSUYgUHJvIHZlcnNpb24gMi41DQqpIERldmVsQ29y - IDE5OTcsMTk5OC4gQWxsIHJpZ2h0cyByZXNlcnZlZC4NCmh0dHA6Ly93d3cu - ZGV2ZWxjb3IuY29tADs= -EOD - -text22 = TkPhotoImage.new(:data=><<'EOD') - R0lGODlhFgAWAIQAAPwCBAQCBBwaHAwKDBQSFLy+vLS2tJSWlBQWFKyqrFRS - VCwqLDQyNNTS1GxqbFxaXJyanIyOjAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAAAALAAAAAAWABYAAAVcICCOZGmK - QSoMaZsShBsQBdAapHvgaIDUqUPJlRjSbAoT0fRDKgODRbF0PLUYjZO2F2Bs - t9evNix+dsvDlGKK5jraudQb7qbX6a2HEJ+ycyF+LRE8ZTI+fX5oGCEAIf5o - Q3JlYXRlZCBieSBCTVBUb0dJRiBQcm8gdmVyc2lvbiAyLjUNCqkgRGV2ZWxD - b3IgMTk5NywxOTk4LiBBbGwgcmlnaHRzIHJlc2VydmVkLg0KaHR0cDovL3d3 - dy5kZXZlbGNvci5jb20AOw== -EOD - -########################################## - -bmp_dir = File.join(File.dirname(File.expand_path(__FILE__)), - '../catalog_demo/images') - -########################################## - -status_var = TkVariable.new -radio_var = TkVariable.new -check_var1 = TkVariable.new -check_var2 = TkVariable.new - -tb = Tk::Iwidgets::Toolbar.new(:helpvariable=>status_var) - -########################################## - -tb.add(:button, :helpstr=>'Copy It', :image=>editcopy22, - :balloonstr=>'Copy', :command=>proc{puts 'Copy It'}) - -tb.add(:button, :helpstr=>'Cut It', :image=>editcut22, - :balloonstr=>'Cut', :command=>proc{puts 'Cut It'}) - -tb.add(:button, :helpstr=>'Paste It', :image=>editpaste22, - :balloonstr=>'Paste', :command=>proc{puts 'Paste It'}) - -tb.add(:button, :helpstr=>'Delete It', :image=>editdelete22, - :balloonstr=>'Delete', :command=>proc{puts 'Delete It'}) - -#-------------------------------- - -tb.add(:frame, :borderwidth=>1, :width=>10, :height=>10) - -#-------------------------------- - -tb.add(:radiobutton, :variable=>radio_var, :value=>'Box', - :bitmap=>"@#{bmp_dir}/box.xbm", - :helpstr=>'Radio Button #1', :balloonstr=>'Radio', - :command=>proc{puts 'Radio Button "Box"'}) - -tb.add(:radiobutton, :variable=>radio_var, :value=>'Line', - :bitmap=>"@#{bmp_dir}/line.xbm", - :helpstr=>'Radio Button #2', :balloonstr=>'Radio', - :command=>proc{puts 'Radio Button "Line"'}) - -tb.add(:radiobutton, :variable=>radio_var, :value=>'Oval', - :bitmap=>"@#{bmp_dir}/oval.xbm", - :helpstr=>'Radio Button #3', :balloonstr=>'Radio', - :command=>proc{puts 'Radio Button "Oval"'}) - -#-------------------------------- - -tb.add(:frame, :borderwidth=>1, :width=>10, :height=>10) - -#-------------------------------- - -tb.add(:checkbutton, :variable=>check_var1, :onvalue=>'yes', :offvalue=>'no', - :image=>text22, :command=>proc{puts 'Checkbutton 1'}) - -tb.add(:checkbutton, :variable=>check_var2, :onvalue=>'yes', :offvalue=>'no', - :bitmap=>"@#{bmp_dir}/points.xbm", :command=>proc{puts 'Checkbutton 2'}) - -tb.pack(:side=>:top, :anchor=>:nw) - -Tk.mainloop diff --git a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/watch.rb b/trunk/ext/tk/sample/tkextlib/iwidgets/sample/watch.rb deleted file mode 100644 index 808c798aec..0000000000 --- a/trunk/ext/tk/sample/tkextlib/iwidgets/sample/watch.rb +++ /dev/null @@ -1,18 +0,0 @@ -#!/usr/bin/env ruby -require 'tk' -require 'tkextlib/iwidgets' - -Thread.new{ - trap('INT') {puts 'catch SIGINT'} - sleep 5 - trap('INT', 'DEFAULT') -} - -Tk::Iwidgets::Watch.new(:state=>:disabled, :showampm=>:no, - :width=>155, :height=>155){|w| - w.pack(:padx=>10, :pady=>10, :fill=>:both, :expand=>true) - # TkTimer.new(1000, -1, proc{w.show; Tk.update}).start - TkTimer.new(25, -1, proc{w.show; Tk.update}).start -} - -Tk.mainloop |