tk 0.1.0
Sign up to get free protection for your applications and to get access to all the features.
- checksums.yaml +7 -0
- data/.gitignore +10 -0
- data/.travis.yml +6 -0
- data/BSDL +22 -0
- data/ChangeLog.tkextlib +949 -0
- data/Gemfile +4 -0
- data/LICENSE.txt +56 -0
- data/MANUAL_tcltklib.eng +467 -0
- data/MANUAL_tcltklib.ja +578 -0
- data/README.1st +19 -0
- data/README.ActiveTcl +62 -0
- data/README.fork +34 -0
- data/README.macosx-aqua +67 -0
- data/README.md +33 -0
- data/README.tcltklib +152 -0
- data/Rakefile +16 -0
- data/bin/console +14 -0
- data/bin/setup +8 -0
- data/ext/tk/config_list.in +41 -0
- data/ext/tk/extconf.rb +2098 -0
- data/ext/tk/old-extconf.rb +441 -0
- data/ext/tk/stubs.c +592 -0
- data/ext/tk/stubs.h +33 -0
- data/ext/tk/tcltklib.c +11066 -0
- data/ext/tk/tkutil/extconf.rb +14 -0
- data/ext/tk/tkutil/tkutil.c +1900 -0
- data/lib/README +30 -0
- data/lib/multi-tk.rb +3743 -0
- data/lib/remote-tk.rb +527 -0
- data/lib/tcltk.rb +369 -0
- data/lib/tk.rb +5758 -0
- data/lib/tk/after.rb +7 -0
- data/lib/tk/autoload.rb +763 -0
- data/lib/tk/bgerror.rb +30 -0
- data/lib/tk/bindtag.rb +139 -0
- data/lib/tk/busy.rb +119 -0
- data/lib/tk/button.rb +32 -0
- data/lib/tk/canvas.rb +847 -0
- data/lib/tk/canvastag.rb +460 -0
- data/lib/tk/checkbutton.rb +33 -0
- data/lib/tk/clipboard.rb +76 -0
- data/lib/tk/clock.rb +72 -0
- data/lib/tk/composite.rb +485 -0
- data/lib/tk/console.rb +53 -0
- data/lib/tk/dialog.rb +327 -0
- data/lib/tk/encodedstr.rb +188 -0
- data/lib/tk/entry.rb +121 -0
- data/lib/tk/event.rb +563 -0
- data/lib/tk/font.rb +2352 -0
- data/lib/tk/fontchooser.rb +181 -0
- data/lib/tk/frame.rb +133 -0
- data/lib/tk/grid.rb +280 -0
- data/lib/tk/image.rb +396 -0
- data/lib/tk/itemconfig.rb +1222 -0
- data/lib/tk/itemfont.rb +328 -0
- data/lib/tk/kinput.rb +72 -0
- data/lib/tk/label.rb +23 -0
- data/lib/tk/labelframe.rb +32 -0
- data/lib/tk/listbox.rb +285 -0
- data/lib/tk/macpkg.rb +81 -0
- data/lib/tk/menu.rb +719 -0
- data/lib/tk/menubar.rb +138 -0
- data/lib/tk/menuspec.rb +457 -0
- data/lib/tk/message.rb +25 -0
- data/lib/tk/mngfocus.rb +34 -0
- data/lib/tk/msgcat.rb +300 -0
- data/lib/tk/namespace.rb +547 -0
- data/lib/tk/optiondb.rb +372 -0
- data/lib/tk/optionobj.rb +213 -0
- data/lib/tk/pack.rb +108 -0
- data/lib/tk/package.rb +144 -0
- data/lib/tk/palette.rb +56 -0
- data/lib/tk/panedwindow.rb +261 -0
- data/lib/tk/place.rb +129 -0
- data/lib/tk/radiobutton.rb +74 -0
- data/lib/tk/root.rb +96 -0
- data/lib/tk/scale.rb +113 -0
- data/lib/tk/scrollable.rb +83 -0
- data/lib/tk/scrollbar.rb +184 -0
- data/lib/tk/scrollbox.rb +40 -0
- data/lib/tk/selection.rb +87 -0
- data/lib/tk/spinbox.rb +145 -0
- data/lib/tk/tagfont.rb +44 -0
- data/lib/tk/text.rb +1605 -0
- data/lib/tk/textimage.rb +89 -0
- data/lib/tk/textmark.rb +205 -0
- data/lib/tk/texttag.rb +322 -0
- data/lib/tk/textwindow.rb +155 -0
- data/lib/tk/timer.rb +666 -0
- data/lib/tk/tk_mac.rb +159 -0
- data/lib/tk/toplevel.rb +265 -0
- data/lib/tk/ttk_selector.rb +99 -0
- data/lib/tk/txtwin_abst.rb +40 -0
- data/lib/tk/validation.rb +398 -0
- data/lib/tk/variable.rb +1797 -0
- data/lib/tk/virtevent.rb +140 -0
- data/lib/tk/winfo.rb +393 -0
- data/lib/tk/winpkg.rb +157 -0
- data/lib/tk/wm.rb +553 -0
- data/lib/tk/xim.rb +123 -0
- data/lib/tkafter.rb +5 -0
- data/lib/tkbgerror.rb +5 -0
- data/lib/tkcanvas.rb +5 -0
- data/lib/tkclass.rb +48 -0
- data/lib/tkconsole.rb +5 -0
- data/lib/tkdialog.rb +5 -0
- data/lib/tkentry.rb +5 -0
- data/lib/tkextlib/ICONS.rb +14 -0
- data/lib/tkextlib/ICONS/icons.rb +130 -0
- data/lib/tkextlib/ICONS/setup.rb +9 -0
- data/lib/tkextlib/SUPPORT_STATUS +193 -0
- data/lib/tkextlib/blt.rb +190 -0
- data/lib/tkextlib/blt/barchart.rb +80 -0
- data/lib/tkextlib/blt/bitmap.rb +113 -0
- data/lib/tkextlib/blt/busy.rb +84 -0
- data/lib/tkextlib/blt/component.rb +2219 -0
- data/lib/tkextlib/blt/container.rb +29 -0
- data/lib/tkextlib/blt/cutbuffer.rb +24 -0
- data/lib/tkextlib/blt/dragdrop.rb +270 -0
- data/lib/tkextlib/blt/eps.rb +33 -0
- data/lib/tkextlib/blt/graph.rb +68 -0
- data/lib/tkextlib/blt/htext.rb +113 -0
- data/lib/tkextlib/blt/setup.rb +9 -0
- data/lib/tkextlib/blt/spline.rb +24 -0
- data/lib/tkextlib/blt/stripchart.rb +75 -0
- data/lib/tkextlib/blt/table.rb +413 -0
- data/lib/tkextlib/blt/tabnotebook.rb +111 -0
- data/lib/tkextlib/blt/tabset.rb +505 -0
- data/lib/tkextlib/blt/ted.rb +69 -0
- data/lib/tkextlib/blt/tile.rb +26 -0
- data/lib/tkextlib/blt/tile/button.rb +17 -0
- data/lib/tkextlib/blt/tile/checkbutton.rb +18 -0
- data/lib/tkextlib/blt/tile/frame.rb +17 -0
- data/lib/tkextlib/blt/tile/label.rb +17 -0
- data/lib/tkextlib/blt/tile/radiobutton.rb +18 -0
- data/lib/tkextlib/blt/tile/scrollbar.rb +17 -0
- data/lib/tkextlib/blt/tile/toplevel.rb +17 -0
- data/lib/tkextlib/blt/tree.rb +1059 -0
- data/lib/tkextlib/blt/treeview.rb +1288 -0
- data/lib/tkextlib/blt/unix_dnd.rb +142 -0
- data/lib/tkextlib/blt/vector.rb +257 -0
- data/lib/tkextlib/blt/watch.rb +176 -0
- data/lib/tkextlib/blt/win_printer.rb +62 -0
- data/lib/tkextlib/blt/winop.rb +108 -0
- data/lib/tkextlib/bwidget.rb +154 -0
- data/lib/tkextlib/bwidget/arrowbutton.rb +22 -0
- data/lib/tkextlib/bwidget/bitmap.rb +22 -0
- data/lib/tkextlib/bwidget/button.rb +32 -0
- data/lib/tkextlib/bwidget/buttonbox.rb +91 -0
- data/lib/tkextlib/bwidget/combobox.rb +63 -0
- data/lib/tkextlib/bwidget/dialog.rb +195 -0
- data/lib/tkextlib/bwidget/dragsite.rb +32 -0
- data/lib/tkextlib/bwidget/dropsite.rb +40 -0
- data/lib/tkextlib/bwidget/dynamichelp.rb +64 -0
- data/lib/tkextlib/bwidget/entry.rb +44 -0
- data/lib/tkextlib/bwidget/label.rb +42 -0
- data/lib/tkextlib/bwidget/labelentry.rb +81 -0
- data/lib/tkextlib/bwidget/labelframe.rb +53 -0
- data/lib/tkextlib/bwidget/listbox.rb +362 -0
- data/lib/tkextlib/bwidget/mainframe.rb +133 -0
- data/lib/tkextlib/bwidget/messagedlg.rb +193 -0
- data/lib/tkextlib/bwidget/notebook.rb +167 -0
- data/lib/tkextlib/bwidget/pagesmanager.rb +74 -0
- data/lib/tkextlib/bwidget/panedwindow.rb +43 -0
- data/lib/tkextlib/bwidget/panelframe.rb +68 -0
- data/lib/tkextlib/bwidget/passwddlg.rb +45 -0
- data/lib/tkextlib/bwidget/progressbar.rb +21 -0
- data/lib/tkextlib/bwidget/progressdlg.rb +59 -0
- data/lib/tkextlib/bwidget/scrollableframe.rb +41 -0
- data/lib/tkextlib/bwidget/scrolledwindow.rb +49 -0
- data/lib/tkextlib/bwidget/scrollview.rb +26 -0
- data/lib/tkextlib/bwidget/selectcolor.rb +74 -0
- data/lib/tkextlib/bwidget/selectfont.rb +92 -0
- data/lib/tkextlib/bwidget/separator.rb +21 -0
- data/lib/tkextlib/bwidget/setup.rb +9 -0
- data/lib/tkextlib/bwidget/spinbox.rb +99 -0
- data/lib/tkextlib/bwidget/statusbar.rb +63 -0
- data/lib/tkextlib/bwidget/titleframe.rb +34 -0
- data/lib/tkextlib/bwidget/tree.rb +501 -0
- data/lib/tkextlib/bwidget/widget.rb +130 -0
- data/lib/tkextlib/itcl.rb +14 -0
- data/lib/tkextlib/itcl/incr_tcl.rb +179 -0
- data/lib/tkextlib/itcl/setup.rb +14 -0
- data/lib/tkextlib/itk.rb +14 -0
- data/lib/tkextlib/itk/incr_tk.rb +447 -0
- data/lib/tkextlib/itk/setup.rb +14 -0
- data/lib/tkextlib/iwidgets.rb +95 -0
- data/lib/tkextlib/iwidgets/buttonbox.rb +122 -0
- data/lib/tkextlib/iwidgets/calendar.rb +126 -0
- data/lib/tkextlib/iwidgets/canvasprintbox.rb +54 -0
- data/lib/tkextlib/iwidgets/canvasprintdialog.rb +39 -0
- data/lib/tkextlib/iwidgets/checkbox.rb +131 -0
- data/lib/tkextlib/iwidgets/combobox.rb +105 -0
- data/lib/tkextlib/iwidgets/dateentry.rb +21 -0
- data/lib/tkextlib/iwidgets/datefield.rb +59 -0
- data/lib/tkextlib/iwidgets/dialog.rb +21 -0
- data/lib/tkextlib/iwidgets/dialogshell.rb +122 -0
- data/lib/tkextlib/iwidgets/disjointlistbox.rb +51 -0
- data/lib/tkextlib/iwidgets/entryfield.rb +186 -0
- data/lib/tkextlib/iwidgets/extbutton.rb +41 -0
- data/lib/tkextlib/iwidgets/extfileselectionbox.rb +47 -0
- data/lib/tkextlib/iwidgets/extfileselectiondialog.rb +34 -0
- data/lib/tkextlib/iwidgets/feedback.rb +36 -0
- data/lib/tkextlib/iwidgets/fileselectionbox.rb +47 -0
- data/lib/tkextlib/iwidgets/fileselectiondialog.rb +34 -0
- data/lib/tkextlib/iwidgets/finddialog.rb +43 -0
- data/lib/tkextlib/iwidgets/hierarchy.rb +366 -0
- data/lib/tkextlib/iwidgets/hyperhelp.rb +51 -0
- data/lib/tkextlib/iwidgets/labeledframe.rb +40 -0
- data/lib/tkextlib/iwidgets/labeledwidget.rb +46 -0
- data/lib/tkextlib/iwidgets/mainwindow.rb +68 -0
- data/lib/tkextlib/iwidgets/menubar.rb +213 -0
- data/lib/tkextlib/iwidgets/messagebox.rb +94 -0
- data/lib/tkextlib/iwidgets/messagedialog.rb +21 -0
- data/lib/tkextlib/iwidgets/notebook.rb +176 -0
- data/lib/tkextlib/iwidgets/optionmenu.rb +93 -0
- data/lib/tkextlib/iwidgets/panedwindow.rb +135 -0
- data/lib/tkextlib/iwidgets/promptdialog.rb +132 -0
- data/lib/tkextlib/iwidgets/pushbutton.rb +36 -0
- data/lib/tkextlib/iwidgets/radiobox.rb +122 -0
- data/lib/tkextlib/iwidgets/scopedobject.rb +25 -0
- data/lib/tkextlib/iwidgets/scrolledcanvas.rb +354 -0
- data/lib/tkextlib/iwidgets/scrolledframe.rb +60 -0
- data/lib/tkextlib/iwidgets/scrolledhtml.rb +59 -0
- data/lib/tkextlib/iwidgets/scrolledlistbox.rb +208 -0
- data/lib/tkextlib/iwidgets/scrolledtext.rb +569 -0
- data/lib/tkextlib/iwidgets/scrolledwidget.rb +21 -0
- data/lib/tkextlib/iwidgets/selectionbox.rb +103 -0
- data/lib/tkextlib/iwidgets/selectiondialog.rb +93 -0
- data/lib/tkextlib/iwidgets/setup.rb +9 -0
- data/lib/tkextlib/iwidgets/shell.rb +39 -0
- data/lib/tkextlib/iwidgets/spindate.rb +49 -0
- data/lib/tkextlib/iwidgets/spinint.rb +31 -0
- data/lib/tkextlib/iwidgets/spinner.rb +170 -0
- data/lib/tkextlib/iwidgets/spintime.rb +49 -0
- data/lib/tkextlib/iwidgets/tabnotebook.rb +182 -0
- data/lib/tkextlib/iwidgets/tabset.rb +146 -0
- data/lib/tkextlib/iwidgets/timeentry.rb +26 -0
- data/lib/tkextlib/iwidgets/timefield.rb +59 -0
- data/lib/tkextlib/iwidgets/toolbar.rb +113 -0
- data/lib/tkextlib/iwidgets/watch.rb +57 -0
- data/lib/tkextlib/pkg_checker.rb +185 -0
- data/lib/tkextlib/setup.rb +9 -0
- data/lib/tkextlib/tcllib.rb +106 -0
- data/lib/tkextlib/tcllib/README +135 -0
- data/lib/tkextlib/tcllib/autoscroll.rb +159 -0
- data/lib/tkextlib/tcllib/calendar.rb +56 -0
- data/lib/tkextlib/tcllib/canvas_sqmap.rb +37 -0
- data/lib/tkextlib/tcllib/canvas_zoom.rb +22 -0
- data/lib/tkextlib/tcllib/chatwidget.rb +152 -0
- data/lib/tkextlib/tcllib/crosshair.rb +118 -0
- data/lib/tkextlib/tcllib/ctext.rb +161 -0
- data/lib/tkextlib/tcllib/cursor.rb +98 -0
- data/lib/tkextlib/tcllib/dateentry.rb +63 -0
- data/lib/tkextlib/tcllib/datefield.rb +58 -0
- data/lib/tkextlib/tcllib/diagrams.rb +225 -0
- data/lib/tkextlib/tcllib/dialog.rb +85 -0
- data/lib/tkextlib/tcllib/getstring.rb +135 -0
- data/lib/tkextlib/tcllib/history.rb +74 -0
- data/lib/tkextlib/tcllib/ico.rb +147 -0
- data/lib/tkextlib/tcllib/ip_entry.rb +76 -0
- data/lib/tkextlib/tcllib/khim.rb +69 -0
- data/lib/tkextlib/tcllib/menuentry.rb +48 -0
- data/lib/tkextlib/tcllib/ntext.rb +147 -0
- data/lib/tkextlib/tcllib/panelframe.rb +79 -0
- data/lib/tkextlib/tcllib/plotchart.rb +1405 -0
- data/lib/tkextlib/tcllib/ruler.rb +66 -0
- data/lib/tkextlib/tcllib/screenruler.rb +69 -0
- data/lib/tkextlib/tcllib/scrolledwindow.rb +58 -0
- data/lib/tkextlib/tcllib/scrollwin.rb +62 -0
- data/lib/tkextlib/tcllib/setup.rb +9 -0
- data/lib/tkextlib/tcllib/statusbar.rb +80 -0
- data/lib/tkextlib/tcllib/style.rb +62 -0
- data/lib/tkextlib/tcllib/superframe.rb +52 -0
- data/lib/tkextlib/tcllib/swaplist.rb +151 -0
- data/lib/tkextlib/tcllib/tablelist.rb +29 -0
- data/lib/tkextlib/tcllib/tablelist_core.rb +1073 -0
- data/lib/tkextlib/tcllib/tablelist_tile.rb +44 -0
- data/lib/tkextlib/tcllib/tkpiechart.rb +315 -0
- data/lib/tkextlib/tcllib/toolbar.rb +176 -0
- data/lib/tkextlib/tcllib/tooltip.rb +105 -0
- data/lib/tkextlib/tcllib/validator.rb +66 -0
- data/lib/tkextlib/tcllib/widget.rb +83 -0
- data/lib/tkextlib/tclx.rb +14 -0
- data/lib/tkextlib/tclx/setup.rb +9 -0
- data/lib/tkextlib/tclx/tclx.rb +75 -0
- data/lib/tkextlib/tile.rb +450 -0
- data/lib/tkextlib/tile/dialog.rb +103 -0
- data/lib/tkextlib/tile/setup.rb +9 -0
- data/lib/tkextlib/tile/sizegrip.rb +33 -0
- data/lib/tkextlib/tile/style.rb +337 -0
- data/lib/tkextlib/tile/tbutton.rb +35 -0
- data/lib/tkextlib/tile/tcheckbutton.rb +39 -0
- data/lib/tkextlib/tile/tcombobox.rb +56 -0
- data/lib/tkextlib/tile/tentry.rb +50 -0
- data/lib/tkextlib/tile/tframe.rb +35 -0
- data/lib/tkextlib/tile/tlabel.rb +35 -0
- data/lib/tkextlib/tile/tlabelframe.rb +39 -0
- data/lib/tkextlib/tile/tmenubutton.rb +39 -0
- data/lib/tkextlib/tile/tnotebook.rb +148 -0
- data/lib/tkextlib/tile/tpaned.rb +246 -0
- data/lib/tkextlib/tile/tprogressbar.rb +58 -0
- data/lib/tkextlib/tile/tradiobutton.rb +39 -0
- data/lib/tkextlib/tile/treeview.rb +1337 -0
- data/lib/tkextlib/tile/tscale.rb +57 -0
- data/lib/tkextlib/tile/tscrollbar.rb +64 -0
- data/lib/tkextlib/tile/tseparator.rb +35 -0
- data/lib/tkextlib/tile/tspinbox.rb +108 -0
- data/lib/tkextlib/tile/tsquare.rb +31 -0
- data/lib/tkextlib/tkDND.rb +19 -0
- data/lib/tkextlib/tkDND/setup.rb +9 -0
- data/lib/tkextlib/tkDND/shape.rb +126 -0
- data/lib/tkextlib/tkDND/tkdnd.rb +183 -0
- data/lib/tkextlib/tkHTML.rb +14 -0
- data/lib/tkextlib/tkHTML/htmlwidget.rb +454 -0
- data/lib/tkextlib/tkHTML/setup.rb +9 -0
- data/lib/tkextlib/tkimg.rb +37 -0
- data/lib/tkextlib/tkimg/README +26 -0
- data/lib/tkextlib/tkimg/bmp.rb +34 -0
- data/lib/tkextlib/tkimg/dted.rb +34 -0
- data/lib/tkextlib/tkimg/gif.rb +34 -0
- data/lib/tkextlib/tkimg/ico.rb +34 -0
- data/lib/tkextlib/tkimg/jpeg.rb +34 -0
- data/lib/tkextlib/tkimg/pcx.rb +34 -0
- data/lib/tkextlib/tkimg/pixmap.rb +45 -0
- data/lib/tkextlib/tkimg/png.rb +34 -0
- data/lib/tkextlib/tkimg/ppm.rb +34 -0
- data/lib/tkextlib/tkimg/ps.rb +34 -0
- data/lib/tkextlib/tkimg/raw.rb +34 -0
- data/lib/tkextlib/tkimg/setup.rb +9 -0
- data/lib/tkextlib/tkimg/sgi.rb +34 -0
- data/lib/tkextlib/tkimg/sun.rb +34 -0
- data/lib/tkextlib/tkimg/tga.rb +34 -0
- data/lib/tkextlib/tkimg/tiff.rb +34 -0
- data/lib/tkextlib/tkimg/window.rb +34 -0
- data/lib/tkextlib/tkimg/xbm.rb +34 -0
- data/lib/tkextlib/tkimg/xpm.rb +34 -0
- data/lib/tkextlib/tktable.rb +15 -0
- data/lib/tkextlib/tktable/setup.rb +9 -0
- data/lib/tkextlib/tktable/tktable.rb +967 -0
- data/lib/tkextlib/tktrans.rb +15 -0
- data/lib/tkextlib/tktrans/setup.rb +9 -0
- data/lib/tkextlib/tktrans/tktrans.rb +65 -0
- data/lib/tkextlib/treectrl.rb +14 -0
- data/lib/tkextlib/treectrl/setup.rb +9 -0
- data/lib/tkextlib/treectrl/tktreectrl.rb +2523 -0
- data/lib/tkextlib/trofs.rb +14 -0
- data/lib/tkextlib/trofs/setup.rb +9 -0
- data/lib/tkextlib/trofs/trofs.rb +52 -0
- data/lib/tkextlib/version.rb +7 -0
- data/lib/tkextlib/vu.rb +49 -0
- data/lib/tkextlib/vu/bargraph.rb +62 -0
- data/lib/tkextlib/vu/charts.rb +54 -0
- data/lib/tkextlib/vu/dial.rb +103 -0
- data/lib/tkextlib/vu/pie.rb +287 -0
- data/lib/tkextlib/vu/setup.rb +9 -0
- data/lib/tkextlib/vu/spinbox.rb +23 -0
- data/lib/tkextlib/winico.rb +15 -0
- data/lib/tkextlib/winico/setup.rb +9 -0
- data/lib/tkextlib/winico/winico.rb +225 -0
- data/lib/tkfont.rb +5 -0
- data/lib/tkmacpkg.rb +5 -0
- data/lib/tkmenubar.rb +5 -0
- data/lib/tkmngfocus.rb +5 -0
- data/lib/tkpalette.rb +5 -0
- data/lib/tkscrollbox.rb +5 -0
- data/lib/tktext.rb +5 -0
- data/lib/tkvirtevent.rb +5 -0
- data/lib/tkwinpkg.rb +5 -0
- data/old-README.tcltklib.ja +159 -0
- data/sample/24hr_clock.rb +287 -0
- data/sample/binding_sample.rb +88 -0
- data/sample/bindtag_sample.rb +128 -0
- data/sample/binstr_usage.rb +46 -0
- data/sample/btn_with_frame.rb +21 -0
- data/sample/cd_timer.rb +82 -0
- data/sample/cmd_res_test.rb +18 -0
- data/sample/cmd_resource +5 -0
- data/sample/demos-en/ChangeLog +64 -0
- data/sample/demos-en/ChangeLog.prev +9 -0
- data/sample/demos-en/README +138 -0
- data/sample/demos-en/README.1st +18 -0
- data/sample/demos-en/README.tkencoding +29 -0
- data/sample/demos-en/anilabel.rb +175 -0
- data/sample/demos-en/aniwave.rb +119 -0
- data/sample/demos-en/arrow.rb +250 -0
- data/sample/demos-en/bind.rb +128 -0
- data/sample/demos-en/bitmap.rb +76 -0
- data/sample/demos-en/browse1 +63 -0
- data/sample/demos-en/browse2 +82 -0
- data/sample/demos-en/button.rb +85 -0
- data/sample/demos-en/check.rb +73 -0
- data/sample/demos-en/check2.rb +110 -0
- data/sample/demos-en/clrpick.rb +88 -0
- data/sample/demos-en/colors.rb +159 -0
- data/sample/demos-en/combo.rb +97 -0
- data/sample/demos-en/cscroll.rb +137 -0
- data/sample/demos-en/ctext.rb +208 -0
- data/sample/demos-en/dialog1.rb +39 -0
- data/sample/demos-en/dialog2.rb +42 -0
- data/sample/demos-en/doc.org/README +7 -0
- data/sample/demos-en/doc.org/README.JP +14 -0
- data/sample/demos-en/doc.org/README.tk80 +46 -0
- data/sample/demos-en/doc.org/license.terms +39 -0
- data/sample/demos-en/doc.org/license.terms.tk80 +39 -0
- data/sample/demos-en/entry1.rb +59 -0
- data/sample/demos-en/entry2.rb +94 -0
- data/sample/demos-en/entry3.rb +221 -0
- data/sample/demos-en/filebox.rb +103 -0
- data/sample/demos-en/floor.rb +1724 -0
- data/sample/demos-en/floor2.rb +1723 -0
- data/sample/demos-en/form.rb +65 -0
- data/sample/demos-en/goldberg.rb +2007 -0
- data/sample/demos-en/hello +14 -0
- data/sample/demos-en/hscale.rb +76 -0
- data/sample/demos-en/icon.rb +106 -0
- data/sample/demos-en/image1.rb +66 -0
- data/sample/demos-en/image2.rb +108 -0
- data/sample/demos-en/image3.rb +126 -0
- data/sample/demos-en/items.rb +382 -0
- data/sample/demos-en/ixset +333 -0
- data/sample/demos-en/ixset2 +367 -0
- data/sample/demos-en/knightstour.rb +272 -0
- data/sample/demos-en/label.rb +73 -0
- data/sample/demos-en/labelframe.rb +96 -0
- data/sample/demos-en/mclist.rb +118 -0
- data/sample/demos-en/menu.rb +197 -0
- data/sample/demos-en/menu84.rb +216 -0
- data/sample/demos-en/menubu.rb +238 -0
- data/sample/demos-en/msgbox.rb +91 -0
- data/sample/demos-en/msgbox2.rb +92 -0
- data/sample/demos-en/paned1.rb +48 -0
- data/sample/demos-en/paned2.rb +95 -0
- data/sample/demos-en/pendulum.rb +241 -0
- data/sample/demos-en/plot.rb +125 -0
- data/sample/demos-en/puzzle.rb +135 -0
- data/sample/demos-en/radio.rb +87 -0
- data/sample/demos-en/radio2.rb +110 -0
- data/sample/demos-en/radio3.rb +118 -0
- data/sample/demos-en/rmt +268 -0
- data/sample/demos-en/rolodex +320 -0
- data/sample/demos-en/ruler.rb +206 -0
- data/sample/demos-en/sayings.rb +107 -0
- data/sample/demos-en/search.rb +188 -0
- data/sample/demos-en/spin.rb +66 -0
- data/sample/demos-en/square +81 -0
- data/sample/demos-en/states.rb +81 -0
- data/sample/demos-en/style.rb +232 -0
- data/sample/demos-en/tcolor +526 -0
- data/sample/demos-en/text.rb +129 -0
- data/sample/demos-en/textpeer.rb +77 -0
- data/sample/demos-en/timer +136 -0
- data/sample/demos-en/tkencoding.rb +43 -0
- data/sample/demos-en/toolbar.rb +131 -0
- data/sample/demos-en/tree.rb +120 -0
- data/sample/demos-en/ttkbut.rb +140 -0
- data/sample/demos-en/ttkmenu.rb +86 -0
- data/sample/demos-en/ttknote.rb +90 -0
- data/sample/demos-en/ttkpane.rb +214 -0
- data/sample/demos-en/ttkprogress.rb +67 -0
- data/sample/demos-en/twind.rb +292 -0
- data/sample/demos-en/twind2.rb +385 -0
- data/sample/demos-en/unicodeout.rb +115 -0
- data/sample/demos-en/vscale.rb +80 -0
- data/sample/demos-en/widget +1087 -0
- data/sample/demos-jp/README +54 -0
- data/sample/demos-jp/README.1st +20 -0
- data/sample/demos-jp/anilabel.rb +178 -0
- data/sample/demos-jp/aniwave.rb +121 -0
- data/sample/demos-jp/arrow.rb +248 -0
- data/sample/demos-jp/bind.rb +126 -0
- data/sample/demos-jp/bitmap.rb +75 -0
- data/sample/demos-jp/browse1 +63 -0
- data/sample/demos-jp/browse2 +82 -0
- data/sample/demos-jp/button.rb +84 -0
- data/sample/demos-jp/check.rb +71 -0
- data/sample/demos-jp/check2.rb +111 -0
- data/sample/demos-jp/clrpick.rb +85 -0
- data/sample/demos-jp/colors.rb +156 -0
- data/sample/demos-jp/combo.rb +99 -0
- data/sample/demos-jp/cscroll.rb +135 -0
- data/sample/demos-jp/ctext.rb +205 -0
- data/sample/demos-jp/dialog1.rb +40 -0
- data/sample/demos-jp/dialog2.rb +44 -0
- data/sample/demos-jp/doc.org/README +7 -0
- data/sample/demos-jp/doc.org/README.JP +14 -0
- data/sample/demos-jp/doc.org/README.tk80 +46 -0
- data/sample/demos-jp/doc.org/license.terms +39 -0
- data/sample/demos-jp/doc.org/license.terms.tk80 +39 -0
- data/sample/demos-jp/entry1.rb +61 -0
- data/sample/demos-jp/entry2.rb +92 -0
- data/sample/demos-jp/entry3.rb +226 -0
- data/sample/demos-jp/filebox.rb +103 -0
- data/sample/demos-jp/floor.rb +1722 -0
- data/sample/demos-jp/floor2.rb +1720 -0
- data/sample/demos-jp/form.rb +67 -0
- data/sample/demos-jp/goldberg.rb +2012 -0
- data/sample/demos-jp/hello +10 -0
- data/sample/demos-jp/hscale.rb +79 -0
- data/sample/demos-jp/icon.rb +104 -0
- data/sample/demos-jp/image1.rb +65 -0
- data/sample/demos-jp/image2.rb +107 -0
- data/sample/demos-jp/image3.rb +128 -0
- data/sample/demos-jp/items.rb +380 -0
- data/sample/demos-jp/ixset +333 -0
- data/sample/demos-jp/ixset2 +369 -0
- data/sample/demos-jp/knightstour.rb +274 -0
- data/sample/demos-jp/label.rb +70 -0
- data/sample/demos-jp/labelframe.rb +103 -0
- data/sample/demos-jp/mclist.rb +122 -0
- data/sample/demos-jp/menu.rb +202 -0
- data/sample/demos-jp/menu84.rb +214 -0
- data/sample/demos-jp/menu8x.rb +234 -0
- data/sample/demos-jp/menubu.rb +239 -0
- data/sample/demos-jp/msgbox.rb +90 -0
- data/sample/demos-jp/msgbox2.rb +91 -0
- data/sample/demos-jp/paned1.rb +53 -0
- data/sample/demos-jp/paned2.rb +101 -0
- data/sample/demos-jp/pendulum.rb +243 -0
- data/sample/demos-jp/plot.rb +127 -0
- data/sample/demos-jp/puzzle.rb +132 -0
- data/sample/demos-jp/radio.rb +85 -0
- data/sample/demos-jp/radio2.rb +113 -0
- data/sample/demos-jp/radio3.rb +120 -0
- data/sample/demos-jp/rmt +268 -0
- data/sample/demos-jp/rolodex +320 -0
- data/sample/demos-jp/rolodex-j +300 -0
- data/sample/demos-jp/ruler.rb +204 -0
- data/sample/demos-jp/sayings.rb +104 -0
- data/sample/demos-jp/search.rb +185 -0
- data/sample/demos-jp/spin.rb +72 -0
- data/sample/demos-jp/square +81 -0
- data/sample/demos-jp/states.rb +75 -0
- data/sample/demos-jp/style.rb +271 -0
- data/sample/demos-jp/tcolor +534 -0
- data/sample/demos-jp/text.rb +121 -0
- data/sample/demos-jp/textpeer.rb +83 -0
- data/sample/demos-jp/timer +136 -0
- data/sample/demos-jp/toolbar.rb +137 -0
- data/sample/demos-jp/tree.rb +121 -0
- data/sample/demos-jp/ttkbut.rb +146 -0
- data/sample/demos-jp/ttkmenu.rb +92 -0
- data/sample/demos-jp/ttknote.rb +98 -0
- data/sample/demos-jp/ttkpane.rb +217 -0
- data/sample/demos-jp/ttkprogress.rb +72 -0
- data/sample/demos-jp/twind.rb +293 -0
- data/sample/demos-jp/twind2.rb +385 -0
- data/sample/demos-jp/unicodeout.rb +120 -0
- data/sample/demos-jp/vscale.rb +81 -0
- data/sample/demos-jp/widget +1122 -0
- data/sample/editable_listbox.rb +149 -0
- data/sample/encstr_usage.rb +31 -0
- data/sample/figmemo_sample.rb +457 -0
- data/sample/images/earth.gif +0 -0
- data/sample/images/earthris.gif +0 -0
- data/sample/images/face.xbm +173 -0
- data/sample/images/flagdown.xbm +27 -0
- data/sample/images/flagup.xbm +27 -0
- data/sample/images/gray25.xbm +6 -0
- data/sample/images/grey.25 +6 -0
- data/sample/images/grey.5 +6 -0
- data/sample/images/letters.xbm +27 -0
- data/sample/images/noletter.xbm +27 -0
- data/sample/images/pattern.xbm +6 -0
- data/sample/images/tcllogo.gif +0 -0
- data/sample/images/teapot.ppm +31 -0
- data/sample/irbtk.rb +31 -0
- data/sample/irbtkw.rbw +156 -0
- data/sample/iso2022-kr.txt +2 -0
- data/sample/menubar1.rb +52 -0
- data/sample/menubar2.rb +57 -0
- data/sample/menubar3.rb +73 -0
- data/sample/msgs_rb/README +3 -0
- data/sample/msgs_rb/cs.msg +84 -0
- data/sample/msgs_rb/de.msg +88 -0
- data/sample/msgs_rb/el.msg +98 -0
- data/sample/msgs_rb/en.msg +83 -0
- data/sample/msgs_rb/en_gb.msg +7 -0
- data/sample/msgs_rb/eo.msg +87 -0
- data/sample/msgs_rb/es.msg +84 -0
- data/sample/msgs_rb/fr.msg +84 -0
- data/sample/msgs_rb/it.msg +84 -0
- data/sample/msgs_rb/ja.msg +13 -0
- data/sample/msgs_rb/nl.msg +123 -0
- data/sample/msgs_rb/pl.msg +87 -0
- data/sample/msgs_rb/ru.msg +87 -0
- data/sample/msgs_rb2/README +5 -0
- data/sample/msgs_rb2/de.msg +88 -0
- data/sample/msgs_rb2/ja.msg +85 -0
- data/sample/msgs_tk/README +4 -0
- data/sample/msgs_tk/cs.msg +84 -0
- data/sample/msgs_tk/de.msg +88 -0
- data/sample/msgs_tk/el.msg +103 -0
- data/sample/msgs_tk/en.msg +83 -0
- data/sample/msgs_tk/en_gb.msg +7 -0
- data/sample/msgs_tk/eo.msg +87 -0
- data/sample/msgs_tk/es.msg +84 -0
- data/sample/msgs_tk/fr.msg +84 -0
- data/sample/msgs_tk/it.msg +84 -0
- data/sample/msgs_tk/ja.msg +13 -0
- data/sample/msgs_tk/license.terms +39 -0
- data/sample/msgs_tk/nl.msg +123 -0
- data/sample/msgs_tk/pl.msg +87 -0
- data/sample/msgs_tk/ru.msg +87 -0
- data/sample/multi-ip_sample.rb +104 -0
- data/sample/multi-ip_sample2.rb +30 -0
- data/sample/optobj_sample.rb +68 -0
- data/sample/propagate.rb +31 -0
- data/sample/remote-ip_sample.rb +34 -0
- data/sample/remote-ip_sample2.rb +57 -0
- data/sample/resource.en +13 -0
- data/sample/resource.ja +13 -0
- data/sample/safe-tk.rb +132 -0
- data/sample/scrollframe.rb +250 -0
- data/sample/tcltklib/batsu.gif +0 -0
- data/sample/tcltklib/lines0.tcl +42 -0
- data/sample/tcltklib/lines1.rb +51 -0
- data/sample/tcltklib/lines2.rb +55 -0
- data/sample/tcltklib/lines3.rb +55 -0
- data/sample/tcltklib/lines4.rb +55 -0
- data/sample/tcltklib/maru.gif +0 -0
- data/sample/tcltklib/safeTk.rb +23 -0
- data/sample/tcltklib/sample0.rb +40 -0
- data/sample/tcltklib/sample1.rb +635 -0
- data/sample/tcltklib/sample2.rb +452 -0
- data/sample/tkalignbox.rb +236 -0
- data/sample/tkballoonhelp.rb +221 -0
- data/sample/tkbiff.rb +156 -0
- data/sample/tkbrowse.rb +80 -0
- data/sample/tkcombobox.rb +498 -0
- data/sample/tkdialog.rb +62 -0
- data/sample/tkextlib/ICONS/Orig_LICENSE.txt +61 -0
- data/sample/tkextlib/ICONS/tkIcons +195 -0
- data/sample/tkextlib/ICONS/tkIcons-sample.kde +658 -0
- data/sample/tkextlib/ICONS/tkIcons.kde +195 -0
- data/sample/tkextlib/ICONS/viewIcons.rb +330 -0
- data/sample/tkextlib/blt/barchart5.rb +102 -0
- data/sample/tkextlib/blt/calendar.rb +118 -0
- data/sample/tkextlib/blt/graph6.rb +2223 -0
- data/sample/tkextlib/blt/graph7.rb +41 -0
- data/sample/tkextlib/blt/graph7a.rb +64 -0
- data/sample/tkextlib/blt/graph7b.rb +42 -0
- data/sample/tkextlib/blt/graph7c.rb +46 -0
- data/sample/tkextlib/blt/images/buckskin.gif +0 -0
- data/sample/tkextlib/blt/images/chalk.gif +0 -0
- data/sample/tkextlib/blt/images/qv100.t.gif +0 -0
- data/sample/tkextlib/blt/images/rain.gif +0 -0
- data/sample/tkextlib/blt/images/sample.gif +0 -0
- data/sample/tkextlib/blt/pareto.rb +91 -0
- data/sample/tkextlib/blt/plot1.rb +10 -0
- data/sample/tkextlib/blt/plot1b.rb +11 -0
- data/sample/tkextlib/blt/readme.txt +2 -0
- data/sample/tkextlib/blt/scripts/stipples.rb +157 -0
- data/sample/tkextlib/blt/winop1.rb +41 -0
- data/sample/tkextlib/blt/winop2.rb +29 -0
- data/sample/tkextlib/bwidget/Orig_LICENSE.txt +53 -0
- data/sample/tkextlib/bwidget/basic.rb +199 -0
- data/sample/tkextlib/bwidget/bwidget.xbm +46 -0
- data/sample/tkextlib/bwidget/demo.rb +244 -0
- data/sample/tkextlib/bwidget/dnd.rb +47 -0
- data/sample/tkextlib/bwidget/manager.rb +151 -0
- data/sample/tkextlib/bwidget/select.rb +83 -0
- data/sample/tkextlib/bwidget/tmpldlg.rb +222 -0
- data/sample/tkextlib/bwidget/tree.rb +290 -0
- data/sample/tkextlib/bwidget/x1.xbm +2258 -0
- data/sample/tkextlib/iwidgets/catalog_demo/Orig_LICENSE.txt +42 -0
- data/sample/tkextlib/iwidgets/catalog_demo/images/box.xbm +14 -0
- data/sample/tkextlib/iwidgets/catalog_demo/images/clear.gif +0 -0
- data/sample/tkextlib/iwidgets/catalog_demo/images/close.gif +0 -0
- data/sample/tkextlib/iwidgets/catalog_demo/images/copy.gif +0 -0
- data/sample/tkextlib/iwidgets/catalog_demo/images/cut.gif +0 -0
- data/sample/tkextlib/iwidgets/catalog_demo/images/exit.gif +0 -0
- data/sample/tkextlib/iwidgets/catalog_demo/images/find.gif +0 -0
- data/sample/tkextlib/iwidgets/catalog_demo/images/help.gif +0 -0
- data/sample/tkextlib/iwidgets/catalog_demo/images/line.xbm +14 -0
- data/sample/tkextlib/iwidgets/catalog_demo/images/mag.gif +0 -0
- data/sample/tkextlib/iwidgets/catalog_demo/images/new.gif +0 -0
- data/sample/tkextlib/iwidgets/catalog_demo/images/open.gif +0 -0
- data/sample/tkextlib/iwidgets/catalog_demo/images/oval.xbm +14 -0
- data/sample/tkextlib/iwidgets/catalog_demo/images/paste.gif +0 -0
- data/sample/tkextlib/iwidgets/catalog_demo/images/points.xbm +14 -0
- data/sample/tkextlib/iwidgets/catalog_demo/images/poly.gif +0 -0
- data/sample/tkextlib/iwidgets/catalog_demo/images/print.gif +0 -0
- data/sample/tkextlib/iwidgets/catalog_demo/images/ruler.gif +0 -0
- data/sample/tkextlib/iwidgets/catalog_demo/images/save.gif +0 -0
- data/sample/tkextlib/iwidgets/catalog_demo/images/select.gif +0 -0
- data/sample/tkextlib/iwidgets/catalog_demo/images/text.xbm +14 -0
- data/sample/tkextlib/iwidgets/sample/buttonbox.rb +23 -0
- data/sample/tkextlib/iwidgets/sample/calendar.rb +11 -0
- data/sample/tkextlib/iwidgets/sample/canvasprintbox.rb +9 -0
- data/sample/tkextlib/iwidgets/sample/canvasprintdialog.rb +9 -0
- data/sample/tkextlib/iwidgets/sample/checkbox.rb +13 -0
- data/sample/tkextlib/iwidgets/sample/combobox.rb +33 -0
- data/sample/tkextlib/iwidgets/sample/dateentry.rb +8 -0
- data/sample/tkextlib/iwidgets/sample/datefield.rb +9 -0
- data/sample/tkextlib/iwidgets/sample/dialog.rb +21 -0
- data/sample/tkextlib/iwidgets/sample/dialogshell.rb +15 -0
- data/sample/tkextlib/iwidgets/sample/disjointlistbox.rb +17 -0
- data/sample/tkextlib/iwidgets/sample/entryfield-1.rb +40 -0
- data/sample/tkextlib/iwidgets/sample/entryfield-2.rb +45 -0
- data/sample/tkextlib/iwidgets/sample/entryfield-3.rb +41 -0
- data/sample/tkextlib/iwidgets/sample/extbutton.rb +21 -0
- data/sample/tkextlib/iwidgets/sample/extfileselectionbox.rb +9 -0
- data/sample/tkextlib/iwidgets/sample/extfileselectiondialog.rb +30 -0
- data/sample/tkextlib/iwidgets/sample/feedback.rb +11 -0
- data/sample/tkextlib/iwidgets/sample/fileselectionbox.rb +9 -0
- data/sample/tkextlib/iwidgets/sample/fileselectiondialog.rb +29 -0
- data/sample/tkextlib/iwidgets/sample/finddialog.rb +16 -0
- data/sample/tkextlib/iwidgets/sample/hierarchy.rb +26 -0
- data/sample/tkextlib/iwidgets/sample/hyperhelp.rb +15 -0
- data/sample/tkextlib/iwidgets/sample/labeledframe.rb +15 -0
- data/sample/tkextlib/iwidgets/sample/labeledwidget.rb +14 -0
- data/sample/tkextlib/iwidgets/sample/mainwindow.rb +65 -0
- data/sample/tkextlib/iwidgets/sample/menubar.rb +125 -0
- data/sample/tkextlib/iwidgets/sample/menubar2.rb +45 -0
- data/sample/tkextlib/iwidgets/sample/messagebox1.rb +20 -0
- data/sample/tkextlib/iwidgets/sample/messagebox2.rb +20 -0
- data/sample/tkextlib/iwidgets/sample/messagedialog.rb +45 -0
- data/sample/tkextlib/iwidgets/sample/notebook.rb +31 -0
- data/sample/tkextlib/iwidgets/sample/notebook2.rb +31 -0
- data/sample/tkextlib/iwidgets/sample/optionmenu.rb +15 -0
- data/sample/tkextlib/iwidgets/sample/panedwindow.rb +23 -0
- data/sample/tkextlib/iwidgets/sample/panedwindow2.rb +23 -0
- data/sample/tkextlib/iwidgets/sample/promptdialog.rb +18 -0
- data/sample/tkextlib/iwidgets/sample/pushbutton.rb +10 -0
- data/sample/tkextlib/iwidgets/sample/radiobox.rb +14 -0
- data/sample/tkextlib/iwidgets/sample/scrolledcanvas.rb +14 -0
- data/sample/tkextlib/iwidgets/sample/scrolledframe.rb +19 -0
- data/sample/tkextlib/iwidgets/sample/scrolledhtml.rb +16 -0
- data/sample/tkextlib/iwidgets/sample/scrolledlistbox.rb +23 -0
- data/sample/tkextlib/iwidgets/sample/scrolledtext.rb +12 -0
- data/sample/tkextlib/iwidgets/sample/selectionbox.rb +20 -0
- data/sample/tkextlib/iwidgets/sample/selectiondialog.rb +13 -0
- data/sample/tkextlib/iwidgets/sample/shell.rb +18 -0
- data/sample/tkextlib/iwidgets/sample/spindate.rb +8 -0
- data/sample/tkextlib/iwidgets/sample/spinint.rb +11 -0
- data/sample/tkextlib/iwidgets/sample/spinner.rb +34 -0
- data/sample/tkextlib/iwidgets/sample/spintime.rb +8 -0
- data/sample/tkextlib/iwidgets/sample/tabnotebook.rb +27 -0
- data/sample/tkextlib/iwidgets/sample/tabnotebook2.rb +31 -0
- data/sample/tkextlib/iwidgets/sample/tabset.rb +35 -0
- data/sample/tkextlib/iwidgets/sample/timeentry.rb +8 -0
- data/sample/tkextlib/iwidgets/sample/timefield.rb +9 -0
- data/sample/tkextlib/iwidgets/sample/toolbar.rb +153 -0
- data/sample/tkextlib/iwidgets/sample/watch.rb +19 -0
- data/sample/tkextlib/tcllib/Orig_LICENSE.txt +46 -0
- data/sample/tkextlib/tcllib/datefield.rb +30 -0
- data/sample/tkextlib/tcllib/plotdemos1.rb +159 -0
- data/sample/tkextlib/tcllib/plotdemos2.rb +72 -0
- data/sample/tkextlib/tcllib/plotdemos3.rb +84 -0
- data/sample/tkextlib/tcllib/xyplot.rb +18 -0
- data/sample/tkextlib/tile/Orig_LICENSE.txt +30 -0
- data/sample/tkextlib/tile/demo.rb +984 -0
- data/sample/tkextlib/tile/iconlib.tcl +110 -0
- data/sample/tkextlib/tile/readme.txt +2 -0
- data/sample/tkextlib/tile/repeater.tcl +117 -0
- data/sample/tkextlib/tile/themes/blue/blue.tcl +149 -0
- data/sample/tkextlib/tile/themes/blue/blue/arrowdown-h.gif +0 -0
- data/sample/tkextlib/tile/themes/blue/blue/arrowdown-p.gif +0 -0
- data/sample/tkextlib/tile/themes/blue/blue/arrowdown.gif +0 -0
- data/sample/tkextlib/tile/themes/blue/blue/arrowleft-h.gif +0 -0
- data/sample/tkextlib/tile/themes/blue/blue/arrowleft-p.gif +0 -0
- data/sample/tkextlib/tile/themes/blue/blue/arrowleft.gif +0 -0
- data/sample/tkextlib/tile/themes/blue/blue/arrowright-h.gif +0 -0
- data/sample/tkextlib/tile/themes/blue/blue/arrowright-p.gif +0 -0
- data/sample/tkextlib/tile/themes/blue/blue/arrowright.gif +0 -0
- data/sample/tkextlib/tile/themes/blue/blue/arrowup-h.gif +0 -0
- data/sample/tkextlib/tile/themes/blue/blue/arrowup-p.gif +0 -0
- data/sample/tkextlib/tile/themes/blue/blue/arrowup.gif +0 -0
- data/sample/tkextlib/tile/themes/blue/blue/button-h.gif +0 -0
- data/sample/tkextlib/tile/themes/blue/blue/button-n.gif +0 -0
- data/sample/tkextlib/tile/themes/blue/blue/button-n.xcf +0 -0
- data/sample/tkextlib/tile/themes/blue/blue/button-p.gif +0 -0
- data/sample/tkextlib/tile/themes/blue/blue/check-hc.gif +0 -0
- data/sample/tkextlib/tile/themes/blue/blue/check-hu.gif +0 -0
- data/sample/tkextlib/tile/themes/blue/blue/check-nc.gif +0 -0
- data/sample/tkextlib/tile/themes/blue/blue/check-nu.gif +0 -0
- data/sample/tkextlib/tile/themes/blue/blue/radio-hc.gif +0 -0
- data/sample/tkextlib/tile/themes/blue/blue/radio-hu.gif +0 -0
- data/sample/tkextlib/tile/themes/blue/blue/radio-nc.gif +0 -0
- data/sample/tkextlib/tile/themes/blue/blue/radio-nu.gif +0 -0
- data/sample/tkextlib/tile/themes/blue/blue/sb-thumb-p.gif +0 -0
- data/sample/tkextlib/tile/themes/blue/blue/sb-thumb.gif +0 -0
- data/sample/tkextlib/tile/themes/blue/blue/sb-vthumb-p.gif +0 -0
- data/sample/tkextlib/tile/themes/blue/blue/sb-vthumb.gif +0 -0
- data/sample/tkextlib/tile/themes/blue/blue/slider-p.gif +0 -0
- data/sample/tkextlib/tile/themes/blue/blue/slider.gif +0 -0
- data/sample/tkextlib/tile/themes/blue/blue/vslider-p.gif +0 -0
- data/sample/tkextlib/tile/themes/blue/blue/vslider.gif +0 -0
- data/sample/tkextlib/tile/themes/blue/pkgIndex.tcl +6 -0
- data/sample/tkextlib/tile/themes/keramik/keramik.tcl +194 -0
- data/sample/tkextlib/tile/themes/keramik/keramik/arrowdown-n.gif +0 -0
- data/sample/tkextlib/tile/themes/keramik/keramik/arrowdown-p.gif +0 -0
- data/sample/tkextlib/tile/themes/keramik/keramik/arrowleft-n.gif +0 -0
- data/sample/tkextlib/tile/themes/keramik/keramik/arrowleft-p.gif +0 -0
- data/sample/tkextlib/tile/themes/keramik/keramik/arrowright-n.gif +0 -0
- data/sample/tkextlib/tile/themes/keramik/keramik/arrowright-p.gif +0 -0
- data/sample/tkextlib/tile/themes/keramik/keramik/arrowup-n.gif +0 -0
- data/sample/tkextlib/tile/themes/keramik/keramik/arrowup-p.gif +0 -0
- data/sample/tkextlib/tile/themes/keramik/keramik/button-d.gif +0 -0
- data/sample/tkextlib/tile/themes/keramik/keramik/button-h.gif +0 -0
- data/sample/tkextlib/tile/themes/keramik/keramik/button-n.gif +0 -0
- data/sample/tkextlib/tile/themes/keramik/keramik/button-p.gif +0 -0
- data/sample/tkextlib/tile/themes/keramik/keramik/button-s.gif +0 -0
- data/sample/tkextlib/tile/themes/keramik/keramik/check-c.gif +0 -0
- data/sample/tkextlib/tile/themes/keramik/keramik/check-u.gif +0 -0
- data/sample/tkextlib/tile/themes/keramik/keramik/hsb-n.gif +0 -0
- data/sample/tkextlib/tile/themes/keramik/keramik/hsb-p.gif +0 -0
- data/sample/tkextlib/tile/themes/keramik/keramik/hslider-n.gif +0 -0
- data/sample/tkextlib/tile/themes/keramik/keramik/mbut-a.gif +0 -0
- data/sample/tkextlib/tile/themes/keramik/keramik/mbut-arrow-n.gif +0 -0
- data/sample/tkextlib/tile/themes/keramik/keramik/mbut-d.gif +0 -0
- data/sample/tkextlib/tile/themes/keramik/keramik/mbut-n.gif +0 -0
- data/sample/tkextlib/tile/themes/keramik/keramik/radio-c.gif +0 -0
- data/sample/tkextlib/tile/themes/keramik/keramik/radio-u.gif +0 -0
- data/sample/tkextlib/tile/themes/keramik/keramik/tab-n.gif +0 -0
- data/sample/tkextlib/tile/themes/keramik/keramik/tab-p.gif +0 -0
- data/sample/tkextlib/tile/themes/keramik/keramik/tbar-a.gif +0 -0
- data/sample/tkextlib/tile/themes/keramik/keramik/tbar-n.gif +0 -0
- data/sample/tkextlib/tile/themes/keramik/keramik/tbar-p.gif +0 -0
- data/sample/tkextlib/tile/themes/keramik/keramik/vsb-n.gif +0 -0
- data/sample/tkextlib/tile/themes/keramik/keramik/vsb-p.gif +0 -0
- data/sample/tkextlib/tile/themes/keramik/keramik/vslider-n.gif +0 -0
- data/sample/tkextlib/tile/themes/keramik/pkgIndex.tcl +15 -0
- data/sample/tkextlib/tile/themes/kroc.rb +227 -0
- data/sample/tkextlib/tile/themes/kroc/kroc.tcl +163 -0
- data/sample/tkextlib/tile/themes/kroc/kroc/button-h.gif +0 -0
- data/sample/tkextlib/tile/themes/kroc/kroc/button-n.gif +0 -0
- data/sample/tkextlib/tile/themes/kroc/kroc/button-p.gif +0 -0
- data/sample/tkextlib/tile/themes/kroc/kroc/check-hc.gif +0 -0
- data/sample/tkextlib/tile/themes/kroc/kroc/check-hu.gif +0 -0
- data/sample/tkextlib/tile/themes/kroc/kroc/check-nc.gif +0 -0
- data/sample/tkextlib/tile/themes/kroc/kroc/check-nu.gif +0 -0
- data/sample/tkextlib/tile/themes/kroc/kroc/radio-hc.gif +0 -0
- data/sample/tkextlib/tile/themes/kroc/kroc/radio-hu.gif +0 -0
- data/sample/tkextlib/tile/themes/kroc/kroc/radio-nc.gif +0 -0
- data/sample/tkextlib/tile/themes/kroc/kroc/radio-nu.gif +0 -0
- data/sample/tkextlib/tile/themes/kroc/pkgIndex.tcl +15 -0
- data/sample/tkextlib/tile/themes/plastik/pkgIndex.tcl +16 -0
- data/sample/tkextlib/tile/themes/plastik/plastik.tcl +125 -0
- data/sample/tkextlib/tile/themes/plastik/plastik/arrowdown-n.gif +0 -0
- data/sample/tkextlib/tile/themes/plastik/plastik/arrowdown-p.gif +0 -0
- data/sample/tkextlib/tile/themes/plastik/plastik/arrowleft-n.gif +0 -0
- data/sample/tkextlib/tile/themes/plastik/plastik/arrowleft-p.gif +0 -0
- data/sample/tkextlib/tile/themes/plastik/plastik/arrowright-n.gif +0 -0
- data/sample/tkextlib/tile/themes/plastik/plastik/arrowright-p.gif +0 -0
- data/sample/tkextlib/tile/themes/plastik/plastik/arrowup-n.gif +0 -0
- data/sample/tkextlib/tile/themes/plastik/plastik/arrowup-p.gif +0 -0
- data/sample/tkextlib/tile/themes/plastik/plastik/button-h.gif +0 -0
- data/sample/tkextlib/tile/themes/plastik/plastik/button-n.gif +0 -0
- data/sample/tkextlib/tile/themes/plastik/plastik/button-p.gif +0 -0
- data/sample/tkextlib/tile/themes/plastik/plastik/check-hc.gif +0 -0
- data/sample/tkextlib/tile/themes/plastik/plastik/check-hu.gif +0 -0
- data/sample/tkextlib/tile/themes/plastik/plastik/check-nc.gif +0 -0
- data/sample/tkextlib/tile/themes/plastik/plastik/check-nu.gif +0 -0
- data/sample/tkextlib/tile/themes/plastik/plastik/check-pc.gif +0 -0
- data/sample/tkextlib/tile/themes/plastik/plastik/hsb-n.gif +0 -0
- data/sample/tkextlib/tile/themes/plastik/plastik/hslider-n.gif +0 -0
- data/sample/tkextlib/tile/themes/plastik/plastik/radio-hc.gif +0 -0
- data/sample/tkextlib/tile/themes/plastik/plastik/radio-hu.gif +0 -0
- data/sample/tkextlib/tile/themes/plastik/plastik/radio-nc.gif +0 -0
- data/sample/tkextlib/tile/themes/plastik/plastik/radio-nu.gif +0 -0
- data/sample/tkextlib/tile/themes/plastik/plastik/radio-pc.gif +0 -0
- data/sample/tkextlib/tile/themes/plastik/plastik/vsb-n.gif +0 -0
- data/sample/tkextlib/tile/themes/plastik/plastik/vslider-n.gif +0 -0
- data/sample/tkextlib/tile/toolbutton.tcl +152 -0
- data/sample/tkextlib/tkHTML/Orig_COPYRIGHT.txt +12 -0
- data/sample/tkextlib/tkHTML/README +12 -0
- data/sample/tkextlib/tkHTML/hv.rb +314 -0
- data/sample/tkextlib/tkHTML/page1/image1 +0 -0
- data/sample/tkextlib/tkHTML/page1/image10 +0 -0
- data/sample/tkextlib/tkHTML/page1/image11 +0 -0
- data/sample/tkextlib/tkHTML/page1/image12 +0 -0
- data/sample/tkextlib/tkHTML/page1/image13 +0 -0
- data/sample/tkextlib/tkHTML/page1/image14 +0 -0
- data/sample/tkextlib/tkHTML/page1/image2 +0 -0
- data/sample/tkextlib/tkHTML/page1/image3 +0 -0
- data/sample/tkextlib/tkHTML/page1/image4 +0 -0
- data/sample/tkextlib/tkHTML/page1/image5 +0 -0
- data/sample/tkextlib/tkHTML/page1/image6 +0 -0
- data/sample/tkextlib/tkHTML/page1/image7 +0 -0
- data/sample/tkextlib/tkHTML/page1/image8 +0 -0
- data/sample/tkextlib/tkHTML/page1/image9 +0 -0
- data/sample/tkextlib/tkHTML/page1/index.html +115 -0
- data/sample/tkextlib/tkHTML/page2/image1 +0 -0
- data/sample/tkextlib/tkHTML/page2/image10 +0 -0
- data/sample/tkextlib/tkHTML/page2/image11 +0 -0
- data/sample/tkextlib/tkHTML/page2/image12 +0 -0
- data/sample/tkextlib/tkHTML/page2/image13 +0 -0
- data/sample/tkextlib/tkHTML/page2/image14 +0 -0
- data/sample/tkextlib/tkHTML/page2/image15 +0 -0
- data/sample/tkextlib/tkHTML/page2/image16 +0 -0
- data/sample/tkextlib/tkHTML/page2/image17 +0 -0
- data/sample/tkextlib/tkHTML/page2/image18 +0 -0
- data/sample/tkextlib/tkHTML/page2/image19 +0 -0
- data/sample/tkextlib/tkHTML/page2/image2 +0 -0
- data/sample/tkextlib/tkHTML/page2/image20 +0 -0
- data/sample/tkextlib/tkHTML/page2/image21 +0 -0
- data/sample/tkextlib/tkHTML/page2/image22 +0 -0
- data/sample/tkextlib/tkHTML/page2/image23 +0 -0
- data/sample/tkextlib/tkHTML/page2/image24 +0 -0
- data/sample/tkextlib/tkHTML/page2/image25 +0 -0
- data/sample/tkextlib/tkHTML/page2/image26 +0 -0
- data/sample/tkextlib/tkHTML/page2/image27 +0 -0
- data/sample/tkextlib/tkHTML/page2/image28 +0 -0
- data/sample/tkextlib/tkHTML/page2/image29 +0 -0
- data/sample/tkextlib/tkHTML/page2/image3 +0 -0
- data/sample/tkextlib/tkHTML/page2/image30 +0 -0
- data/sample/tkextlib/tkHTML/page2/image31 +0 -0
- data/sample/tkextlib/tkHTML/page2/image32 +0 -0
- data/sample/tkextlib/tkHTML/page2/image33 +0 -0
- data/sample/tkextlib/tkHTML/page2/image34 +0 -0
- data/sample/tkextlib/tkHTML/page2/image35 +0 -0
- data/sample/tkextlib/tkHTML/page2/image36 +0 -0
- data/sample/tkextlib/tkHTML/page2/image37 +0 -0
- data/sample/tkextlib/tkHTML/page2/image38 +0 -0
- data/sample/tkextlib/tkHTML/page2/image39 +0 -0
- data/sample/tkextlib/tkHTML/page2/image4 +0 -0
- data/sample/tkextlib/tkHTML/page2/image5 +0 -0
- data/sample/tkextlib/tkHTML/page2/image6 +0 -0
- data/sample/tkextlib/tkHTML/page2/image7 +0 -0
- data/sample/tkextlib/tkHTML/page2/image8 +0 -0
- data/sample/tkextlib/tkHTML/page2/image9 +0 -0
- data/sample/tkextlib/tkHTML/page2/index.html +433 -0
- data/sample/tkextlib/tkHTML/page3/image1 +0 -0
- data/sample/tkextlib/tkHTML/page3/image10 +0 -0
- data/sample/tkextlib/tkHTML/page3/image11 +0 -0
- data/sample/tkextlib/tkHTML/page3/image12 +0 -0
- data/sample/tkextlib/tkHTML/page3/image13 +0 -0
- data/sample/tkextlib/tkHTML/page3/image14 +0 -0
- data/sample/tkextlib/tkHTML/page3/image2 +0 -0
- data/sample/tkextlib/tkHTML/page3/image3 +0 -0
- data/sample/tkextlib/tkHTML/page3/image4 +0 -0
- data/sample/tkextlib/tkHTML/page3/image5 +0 -0
- data/sample/tkextlib/tkHTML/page3/image6 +0 -0
- data/sample/tkextlib/tkHTML/page3/image7 +0 -0
- data/sample/tkextlib/tkHTML/page3/image8 +0 -0
- data/sample/tkextlib/tkHTML/page3/image9 +0 -0
- data/sample/tkextlib/tkHTML/page3/index.html +2787 -0
- data/sample/tkextlib/tkHTML/page4/image1 +0 -0
- data/sample/tkextlib/tkHTML/page4/image2 +0 -0
- data/sample/tkextlib/tkHTML/page4/image3 +0 -0
- data/sample/tkextlib/tkHTML/page4/image4 +0 -0
- data/sample/tkextlib/tkHTML/page4/image5 +0 -0
- data/sample/tkextlib/tkHTML/page4/image6 +0 -0
- data/sample/tkextlib/tkHTML/page4/image7 +0 -0
- data/sample/tkextlib/tkHTML/page4/image8 +0 -0
- data/sample/tkextlib/tkHTML/page4/image9 +0 -0
- data/sample/tkextlib/tkHTML/page4/index.html +768 -0
- data/sample/tkextlib/tkHTML/ss.rb +437 -0
- data/sample/tkextlib/tkimg/demo.rb +1479 -0
- data/sample/tkextlib/tkimg/license_terms_of_Img_extension +41 -0
- data/sample/tkextlib/tkimg/readme.txt +3 -0
- data/sample/tkextlib/tktable/Orig_LICENSE.txt +52 -0
- data/sample/tkextlib/tktable/basic.rb +61 -0
- data/sample/tkextlib/tktable/buttons.rb +77 -0
- data/sample/tkextlib/tktable/command.rb +90 -0
- data/sample/tkextlib/tktable/debug.rb +102 -0
- data/sample/tkextlib/tktable/dynarows.rb +100 -0
- data/sample/tkextlib/tktable/maxsize.rb +68 -0
- data/sample/tkextlib/tktable/spreadsheet.rb +138 -0
- data/sample/tkextlib/tktable/tcllogo.gif +0 -0
- data/sample/tkextlib/tktable/valid.rb +89 -0
- data/sample/tkextlib/treectrl/bitmaps.rb +77 -0
- data/sample/tkextlib/treectrl/demo.rb +1306 -0
- data/sample/tkextlib/treectrl/explorer.rb +431 -0
- data/sample/tkextlib/treectrl/help.rb +405 -0
- data/sample/tkextlib/treectrl/imovie.rb +131 -0
- data/sample/tkextlib/treectrl/layout.rb +160 -0
- data/sample/tkextlib/treectrl/mailwasher.rb +270 -0
- data/sample/tkextlib/treectrl/outlook-folders.rb +125 -0
- data/sample/tkextlib/treectrl/outlook-newgroup.rb +449 -0
- data/sample/tkextlib/treectrl/pics/big-dll.gif +0 -0
- data/sample/tkextlib/treectrl/pics/big-exe.gif +0 -0
- data/sample/tkextlib/treectrl/pics/big-file.gif +0 -0
- data/sample/tkextlib/treectrl/pics/big-folder.gif +0 -0
- data/sample/tkextlib/treectrl/pics/big-txt.gif +0 -0
- data/sample/tkextlib/treectrl/pics/checked.gif +0 -0
- data/sample/tkextlib/treectrl/pics/file.gif +0 -0
- data/sample/tkextlib/treectrl/pics/folder-closed.gif +0 -0
- data/sample/tkextlib/treectrl/pics/folder-open.gif +0 -0
- data/sample/tkextlib/treectrl/pics/help-book-closed.gif +0 -0
- data/sample/tkextlib/treectrl/pics/help-book-open.gif +0 -0
- data/sample/tkextlib/treectrl/pics/help-page.gif +0 -0
- data/sample/tkextlib/treectrl/pics/imovie-01.gif +0 -0
- data/sample/tkextlib/treectrl/pics/imovie-02.gif +0 -0
- data/sample/tkextlib/treectrl/pics/imovie-03.gif +0 -0
- data/sample/tkextlib/treectrl/pics/imovie-04.gif +0 -0
- data/sample/tkextlib/treectrl/pics/imovie-05.gif +0 -0
- data/sample/tkextlib/treectrl/pics/imovie-06.gif +0 -0
- data/sample/tkextlib/treectrl/pics/imovie-07.gif +0 -0
- data/sample/tkextlib/treectrl/pics/internet-check-off.gif +0 -0
- data/sample/tkextlib/treectrl/pics/internet-check-on.gif +0 -0
- data/sample/tkextlib/treectrl/pics/internet-print.gif +0 -0
- data/sample/tkextlib/treectrl/pics/internet-radio-off.gif +0 -0
- data/sample/tkextlib/treectrl/pics/internet-radio-on.gif +0 -0
- data/sample/tkextlib/treectrl/pics/internet-search.gif +0 -0
- data/sample/tkextlib/treectrl/pics/internet-security.gif +0 -0
- data/sample/tkextlib/treectrl/pics/mac-collapse.gif +0 -0
- data/sample/tkextlib/treectrl/pics/mac-expand.gif +0 -0
- data/sample/tkextlib/treectrl/pics/outlook-arrow.gif +0 -0
- data/sample/tkextlib/treectrl/pics/outlook-clip.gif +0 -0
- data/sample/tkextlib/treectrl/pics/outlook-deleted.gif +0 -0
- data/sample/tkextlib/treectrl/pics/outlook-draft.gif +0 -0
- data/sample/tkextlib/treectrl/pics/outlook-folder.gif +0 -0
- data/sample/tkextlib/treectrl/pics/outlook-group.gif +0 -0
- data/sample/tkextlib/treectrl/pics/outlook-inbox.gif +0 -0
- data/sample/tkextlib/treectrl/pics/outlook-local.gif +0 -0
- data/sample/tkextlib/treectrl/pics/outlook-main.gif +0 -0
- data/sample/tkextlib/treectrl/pics/outlook-outbox.gif +0 -0
- data/sample/tkextlib/treectrl/pics/outlook-read-2.gif +0 -0
- data/sample/tkextlib/treectrl/pics/outlook-read.gif +0 -0
- data/sample/tkextlib/treectrl/pics/outlook-sent.gif +0 -0
- data/sample/tkextlib/treectrl/pics/outlook-server.gif +0 -0
- data/sample/tkextlib/treectrl/pics/outlook-unread.gif +0 -0
- data/sample/tkextlib/treectrl/pics/outlook-watch.gif +0 -0
- data/sample/tkextlib/treectrl/pics/sky.gif +0 -0
- data/sample/tkextlib/treectrl/pics/small-dll.gif +0 -0
- data/sample/tkextlib/treectrl/pics/small-exe.gif +0 -0
- data/sample/tkextlib/treectrl/pics/small-file.gif +0 -0
- data/sample/tkextlib/treectrl/pics/small-folder.gif +0 -0
- data/sample/tkextlib/treectrl/pics/small-txt.gif +0 -0
- data/sample/tkextlib/treectrl/pics/unchecked.gif +0 -0
- data/sample/tkextlib/treectrl/random.rb +509 -0
- data/sample/tkextlib/treectrl/readme.txt +2 -0
- data/sample/tkextlib/treectrl/www-options.rb +304 -0
- data/sample/tkextlib/vu/Orig_LICENSE.txt +51 -0
- data/sample/tkextlib/vu/README.txt +50 -0
- data/sample/tkextlib/vu/canvItems.rb +91 -0
- data/sample/tkextlib/vu/canvSticker.rb +83 -0
- data/sample/tkextlib/vu/canvSticker2.rb +102 -0
- data/sample/tkextlib/vu/dial_demo.rb +114 -0
- data/sample/tkextlib/vu/m128_000.xbm +174 -0
- data/sample/tkextlib/vu/oscilloscope.rb +69 -0
- data/sample/tkextlib/vu/pie.rb +57 -0
- data/sample/tkextlib/vu/vu_demo.rb +68 -0
- data/sample/tkfrom.rb +133 -0
- data/sample/tkhello.rb +11 -0
- data/sample/tkline.rb +48 -0
- data/sample/tkmenubutton.rb +136 -0
- data/sample/tkmsgcat-load_rb.rb +103 -0
- data/sample/tkmsgcat-load_rb2.rb +103 -0
- data/sample/tkmsgcat-load_tk.rb +119 -0
- data/sample/tkmulticolumnlist.rb +744 -0
- data/sample/tkmultilistbox.rb +655 -0
- data/sample/tkmultilistframe.rb +941 -0
- data/sample/tkoptdb-safeTk.rb +74 -0
- data/sample/tkoptdb.rb +107 -0
- data/sample/tkrttimer.rb +78 -0
- data/sample/tksleep_sample.rb +30 -0
- data/sample/tktextframe.rb +282 -0
- data/sample/tktextio.rb +1061 -0
- data/sample/tktimer.rb +51 -0
- data/sample/tktimer2.rb +48 -0
- data/sample/tktimer3.rb +60 -0
- data/sample/tktree.rb +104 -0
- data/sample/tktree.tcl +305 -0
- data/sample/ttk_wrapper.rb +155 -0
- data/tk.gemspec +24 -0
- metadata +1144 -0
@@ -0,0 +1,68 @@
|
|
1
|
+
#!/usr/bin/env ruby
|
2
|
+
# frozen_string_literal: false
|
3
|
+
##
|
4
|
+
## maxsize.rb
|
5
|
+
##
|
6
|
+
## This demo uses a really big table. The big startup time is in
|
7
|
+
## filling the table's Tcl array var.
|
8
|
+
##
|
9
|
+
## ( based on 'maxsize.tcl' included source archive of tktable extension )
|
10
|
+
##
|
11
|
+
require 'tk'
|
12
|
+
require 'tkextlib/tktable'
|
13
|
+
|
14
|
+
ary = TkVariable.new_hash
|
15
|
+
rows = 40000
|
16
|
+
cols = 10
|
17
|
+
|
18
|
+
# fill table variable
|
19
|
+
((-(rows))..rows).each{|x|
|
20
|
+
((-(cols))..cols).each{|y|
|
21
|
+
ary[x,y] = "#{x},#{y}"
|
22
|
+
}
|
23
|
+
}
|
24
|
+
|
25
|
+
lbl = TkLabel.new(:text=>"TkTable v2 Example")
|
26
|
+
|
27
|
+
table = Tk::TkTable.new(:rows=>rows, :cols=>cols, :variable=>ary,
|
28
|
+
:width=>6, :height=>8,
|
29
|
+
:titlerows=>1, :titlecols=>1,
|
30
|
+
:coltagcommand=>proc{|col|
|
31
|
+
col = Integer(col)
|
32
|
+
(col>0 && col%2 == 1)? 'OddCol': ''
|
33
|
+
},
|
34
|
+
:selectmode=>:extended,
|
35
|
+
:colstretch=>:unset, :rowstretch=>:unset,
|
36
|
+
:selecttitles=>false, :drawmode=>:slow)
|
37
|
+
|
38
|
+
sx = table.xscrollbar(TkScrollbar.new)
|
39
|
+
sy = table.yscrollbar(TkScrollbar.new)
|
40
|
+
|
41
|
+
btn = TkButton.new(:text=>'Exit', :command=>proc{exit})
|
42
|
+
|
43
|
+
Tk.grid(lbl, '-', :sticky=>:ew)
|
44
|
+
Tk.grid(table, sy, :sticky=>:news)
|
45
|
+
Tk.grid(sx, :sticky=>:ew)
|
46
|
+
Tk.grid(btn, :sticky=>:ew, :columnspan=>2)
|
47
|
+
|
48
|
+
Tk.root.grid_columnconfig(0, :weight=>1)
|
49
|
+
Tk.root.grid_rowconfig(1, :weight=>1)
|
50
|
+
|
51
|
+
table.tag_configure('OddCol', :bg=>'brown', :fg=>'pink')
|
52
|
+
table.tag_configure('title', :bg=>'red', :fg=>'blue', :relief=>:sunken)
|
53
|
+
table.tag_configure('dis', :state=>:disabled)
|
54
|
+
|
55
|
+
first = table[:colorigin]
|
56
|
+
%w(n s e w nw ne sw se c).each_with_index{|anchor, idx|
|
57
|
+
table.tag_configure(anchor, :anchor=>anchor)
|
58
|
+
table.tag_row(anchor, idx)
|
59
|
+
table.set([idx,first], anchor)
|
60
|
+
}
|
61
|
+
courier = TkFont.new(:family=>'Courier', :size=>10)
|
62
|
+
table.tag_configure('s', :font=>courier, :justify=>:center)
|
63
|
+
|
64
|
+
table.set_width([-2, 8], [-1, 9], [0, 12], [4, 14])
|
65
|
+
|
66
|
+
puts "Table is #{table.path} with array #{(table['variable'])}"
|
67
|
+
|
68
|
+
Tk.mainloop
|
@@ -0,0 +1,138 @@
|
|
1
|
+
#!/usr/bin/env ruby
|
2
|
+
# frozen_string_literal: false
|
3
|
+
##
|
4
|
+
## spreadsheet.rb
|
5
|
+
##
|
6
|
+
## This demos shows how you can simulate a 3D table
|
7
|
+
## and has other basic features to begin a basic spreadsheet
|
8
|
+
##
|
9
|
+
## ( based on 'spreadsheet.tcl' included source archive of tktable extension )
|
10
|
+
##
|
11
|
+
require 'tk'
|
12
|
+
require 'tkextlib/tktable'
|
13
|
+
|
14
|
+
rows = 10
|
15
|
+
cols = 10
|
16
|
+
cur_var = TkVariable.new
|
17
|
+
table_list = Hash.new{|hash, key| hash[key] = TkVariable.new_hash}
|
18
|
+
page = TkVariable.new('AA')
|
19
|
+
color = Hash.new('pink')
|
20
|
+
color['AA'] = 'orange'
|
21
|
+
color['BB'] = 'blue'
|
22
|
+
color['CC'] = 'green'
|
23
|
+
|
24
|
+
def colorize(num)
|
25
|
+
num = Integer(num)
|
26
|
+
return 'colored' if (num > 0 && num % 2 == 1)
|
27
|
+
end
|
28
|
+
|
29
|
+
def fill_table(tbl_list, page, r=10, c=10)
|
30
|
+
ary = tbl_list[page]
|
31
|
+
|
32
|
+
(0...r).each{|i|
|
33
|
+
(0...c).each{|j|
|
34
|
+
if i!=0 && j!=0
|
35
|
+
ary[i,j] = "#{page} #{i},#{j}"
|
36
|
+
elsif i!=0
|
37
|
+
ary[i,j] = i.to_s
|
38
|
+
else
|
39
|
+
ary[i,j] = (64+j).chr
|
40
|
+
end
|
41
|
+
}
|
42
|
+
}
|
43
|
+
end
|
44
|
+
|
45
|
+
def changepage(tbl_list, tbl, ent, col, var, elem, op)
|
46
|
+
if elem != ''
|
47
|
+
page = var[elem]
|
48
|
+
else
|
49
|
+
page = var.value
|
50
|
+
end
|
51
|
+
if tbl[:variable] != tbl_list[page].id
|
52
|
+
tbl.selection_clear_all
|
53
|
+
tbl.variable(tbl_list[page])
|
54
|
+
ent.textvariable(tbl_list[page].ref('active'))
|
55
|
+
tbl.activate('origin')
|
56
|
+
tbl.tag_configure('colored', :bg=>col[page])
|
57
|
+
tbl.see('active')
|
58
|
+
end
|
59
|
+
end
|
60
|
+
|
61
|
+
lbl = TkLabel.new(:text=>"TkTable v1 Spreadsheet Example")
|
62
|
+
|
63
|
+
current = TkLabel.new(:textvariable=>cur_var, :width=>5)
|
64
|
+
entry = TkEntry.new(:textvariable=>table_list[page.value].ref('active'))
|
65
|
+
lpage = TkLabel.new(:text=>'PAGE:', :width=>6, :anchor=>:e)
|
66
|
+
optmenu = TkOptionMenubutton.new(page, *(%w(AA BB CC DD)))
|
67
|
+
|
68
|
+
fill_table(table_list, page.value)
|
69
|
+
fill_table(table_list, 'BB', Integer(rows/2), Integer(cols/2))
|
70
|
+
|
71
|
+
table = Tk::TkTable.new(:rows=>rows, :cols=>cols, :width=>5, :height=>5,
|
72
|
+
:variable=>table_list[page.value],
|
73
|
+
:titlerows=>1, :titlecols=>1,
|
74
|
+
:coltagcommand=>proc{|n| colorize(n)},
|
75
|
+
:flashmode=>true, :selectmode=>:extended,
|
76
|
+
:colstretch=>:unset, :rowstretch=>:unset,
|
77
|
+
:browsecommand=>proc{|e| cur_var.value = e.new_index})
|
78
|
+
|
79
|
+
page.trace(:w, proc{|var, elem, op|
|
80
|
+
changepage(table_list, table, entry, color, var, elem, op)
|
81
|
+
})
|
82
|
+
|
83
|
+
table.tag_configure('colored', :bg=>color[page.value])
|
84
|
+
table.tag_configure('title', :fg=>'red', :relief=>:groove)
|
85
|
+
table.tag_configure('blue', :bg=>'blue')
|
86
|
+
table.tag_configure('green', :bg=>'green')
|
87
|
+
|
88
|
+
table.tag_cell('green', [6,3], [5,7], [4,9])
|
89
|
+
table.tag_cell('blue', [8,8])
|
90
|
+
table.tag_row('blue', 7)
|
91
|
+
table.tag_col('blue', 6, 8)
|
92
|
+
table.set_width([0, 3], [2, 7])
|
93
|
+
|
94
|
+
sx = table.xscrollbar(TkScrollbar.new)
|
95
|
+
sy = table.yscrollbar(TkScrollbar.new)
|
96
|
+
|
97
|
+
btn = TkButton.new(:text=>'Exit', :command=>proc{exit})
|
98
|
+
|
99
|
+
Tk.grid(lbl, '-', '-', '-', '-', :sticky=>:ew)
|
100
|
+
Tk.grid(current, entry, lpage, optmenu, '-', :sticky=>:ew)
|
101
|
+
Tk.grid(table, '-', '-', '-', sy, :sticky=>:ns)
|
102
|
+
Tk.grid(sx, '-', '-', '-', :sticky=>:ew)
|
103
|
+
Tk.grid(btn, '-', '-', '-', '-', :sticky=>:ew)
|
104
|
+
|
105
|
+
Tk.root.grid_columnconfig(1, :weight=>1)
|
106
|
+
Tk.root.grid_rowconfig(2, :weight=>1)
|
107
|
+
|
108
|
+
table.grid_configure(:sticky=>:news)
|
109
|
+
|
110
|
+
entry.bind('Return', proc{
|
111
|
+
r = table.row_index(:active)
|
112
|
+
c = table.col_index(:active)
|
113
|
+
rmax = table[:rows]
|
114
|
+
cmax = table[:cols]
|
115
|
+
|
116
|
+
c += 1
|
117
|
+
if c == cmax
|
118
|
+
c = table[:titlecols]
|
119
|
+
r += 1
|
120
|
+
if r == rmax
|
121
|
+
r = table[:titlerows]
|
122
|
+
end
|
123
|
+
end
|
124
|
+
table.activate([r, c])
|
125
|
+
table.see('active')
|
126
|
+
})
|
127
|
+
|
128
|
+
menu = TkMenu.new
|
129
|
+
m_file = TkMenu.new(menu)
|
130
|
+
Tk.root.menu(menu)
|
131
|
+
menu.add(:cascade, :label=>'File', :underline=>0, :menu=>m_file)
|
132
|
+
m_file.add(:command, :label=>'Fill Array',
|
133
|
+
:command=>proc{ fill_table(table_list, page.value) })
|
134
|
+
m_file.add(:command, :label=>'Quit', :command=>proc{exit})
|
135
|
+
|
136
|
+
puts "Table is #{table.path} with array #{(table['variable'])}"
|
137
|
+
|
138
|
+
Tk.mainloop
|
Binary file
|
@@ -0,0 +1,89 @@
|
|
1
|
+
#!/usr/bin/env ruby
|
2
|
+
# frozen_string_literal: false
|
3
|
+
##
|
4
|
+
## valid.rb
|
5
|
+
##
|
6
|
+
## This demos shows the use of the validation mechanism of the table
|
7
|
+
## and uses the table's cache (no -command or -variable)
|
8
|
+
##
|
9
|
+
## ( based on 'valid.tcl' included source archive of tktable extension )
|
10
|
+
##
|
11
|
+
require 'tk'
|
12
|
+
require 'tkextlib/tktable'
|
13
|
+
|
14
|
+
rows = 10
|
15
|
+
cols = 10
|
16
|
+
|
17
|
+
def colorize(num)
|
18
|
+
num = Integer(num)
|
19
|
+
return 'colored' if (num > 0 && num % 2 == 1)
|
20
|
+
end
|
21
|
+
|
22
|
+
def fill_headers(w, r=10, c=10)
|
23
|
+
(1..(r-1)).each{|i| w.set([i,0], i.to_s)}
|
24
|
+
|
25
|
+
(1..(c-1)).each{|j|
|
26
|
+
if j % 3 == 1
|
27
|
+
w.set([0,j], 'AlphaNum')
|
28
|
+
elsif j % 2 == 1
|
29
|
+
w.set([0,j], 'Alpha')
|
30
|
+
elsif j != 0
|
31
|
+
w.set([0,j], 'Real')
|
32
|
+
end
|
33
|
+
}
|
34
|
+
end
|
35
|
+
|
36
|
+
def validate_proc(c, val)
|
37
|
+
if c % 3 == 1
|
38
|
+
# AlphaNum
|
39
|
+
regexp = /^[A-Za-z0-9 ]*$/
|
40
|
+
elsif c % 2 == 1
|
41
|
+
# Alpha
|
42
|
+
regexp = /^[A-Za-z ]*$/
|
43
|
+
elsif c != 0
|
44
|
+
# 'Real'
|
45
|
+
regexp = /^[-+]?[0-9]*\.?[0-9]*([0-9]\.?e[-+]?[0-9]*)?$/
|
46
|
+
end
|
47
|
+
if val =~ regexp
|
48
|
+
return true
|
49
|
+
else
|
50
|
+
Tk.bell
|
51
|
+
return false
|
52
|
+
end
|
53
|
+
end
|
54
|
+
|
55
|
+
lbl = TkLabel.new(:text=>"TkTable v1 Validated Table Example")
|
56
|
+
|
57
|
+
table = Tk::TkTable.new(:rows=>rows, :cols=>cols, :cache=>1,
|
58
|
+
:width=>5, :height=>5, :titlerows=>1, :titlecols=>1,
|
59
|
+
:coltagcommand=>proc{|n| colorize(n)},
|
60
|
+
:flashmode=>true, :selectmode=>:extended,
|
61
|
+
:colstretch=>:unset, :rowstretch=>:unset,
|
62
|
+
:validate=>true,
|
63
|
+
:validatecommand=>proc{|e|
|
64
|
+
unless e.widget.tag_include?('title', e.index)
|
65
|
+
validate_proc(e.column, e.new_value)
|
66
|
+
end } )
|
67
|
+
|
68
|
+
fill_headers(table)
|
69
|
+
|
70
|
+
table.tag_configure('colored', :bg=>'lightblue')
|
71
|
+
table.tag_configure('title', :fg=>'red')
|
72
|
+
table.set_width(0,3)
|
73
|
+
|
74
|
+
sx = table.xscrollbar(TkScrollbar.new)
|
75
|
+
sy = table.yscrollbar(TkScrollbar.new)
|
76
|
+
|
77
|
+
btn = TkButton.new(:text=>'Exit', :command=>proc{exit})
|
78
|
+
|
79
|
+
Tk.grid(lbl, '-', :sticky=>:ew)
|
80
|
+
Tk.grid(table, sy, :sticky=>:news)
|
81
|
+
Tk.grid(sx, :sticky=>:ew)
|
82
|
+
Tk.grid(btn, '-', :sticky=>:ew)
|
83
|
+
|
84
|
+
Tk.root.grid_columnconfig(0, :weight=>1)
|
85
|
+
Tk.root.grid_rowconfig(1, :weight=>1)
|
86
|
+
|
87
|
+
puts "Table is #{table.path}"
|
88
|
+
|
89
|
+
Tk.mainloop
|
@@ -0,0 +1,77 @@
|
|
1
|
+
# frozen_string_literal: false
|
2
|
+
#
|
3
|
+
# Demo: Bitmaps
|
4
|
+
#
|
5
|
+
def demoBitmaps(t)
|
6
|
+
#if $Version_1_1_OrLater
|
7
|
+
if @has_bgimg
|
8
|
+
t.configure(:showroot=>false, :showbuttons=>false, :showlines=>false,
|
9
|
+
:selectmode=>:browse, :orient=>:horizontal, :wrap=>'5 items',
|
10
|
+
:showheader=>false, :backgroundimage=>@images['sky'])
|
11
|
+
else
|
12
|
+
t.configure(:showroot=>false, :showbuttons=>false, :showlines=>false,
|
13
|
+
:selectmode=>:browse, :orient=>:horizontal, :wrap=>'5 items',
|
14
|
+
:showheader=>false)
|
15
|
+
end
|
16
|
+
|
17
|
+
if $HasColumnCreate
|
18
|
+
t.column_create(:itembackground=>['gray90', []])
|
19
|
+
else
|
20
|
+
t.column_configure(0, :itembackground=>['gray90', []])
|
21
|
+
end
|
22
|
+
|
23
|
+
t.element_create('elemTxt', :text,
|
24
|
+
:fill=>[@SystemHighlightText, ['selected', 'focus']])
|
25
|
+
t.element_create('elemSelTxt', :rect, :showfocus=>true,
|
26
|
+
:fill=>[@SystemHighlight, ['selected', 'focus']])
|
27
|
+
t.element_create('elemSelBmp', :rect, :outlinewidth=>4,
|
28
|
+
:outline=>[@SystemHighlight, ['selected', 'focus']])
|
29
|
+
t.element_create('elemBmp', :bitmap,
|
30
|
+
:foreground=>[@SystemHighlight, ['selected', 'focus']],
|
31
|
+
:background=>'linen',
|
32
|
+
:bitmap=>['question' ['selected']])
|
33
|
+
|
34
|
+
s = t.style_create('STYLE', :orient=>:vertical)
|
35
|
+
t.style_elements(s, ['elemSelBmp', 'elemBmp', 'elemSelTxt', 'elemTxt'])
|
36
|
+
t.style_layout(s, 'elemSelBmp', :union=>'elemBmp', :ipadx=>6, :ipady=>6)
|
37
|
+
t.style_layout(s, 'elemBmp', :pady=>[0, 6], :expand=>:we)
|
38
|
+
t.style_layout(s, 'elemSelTxt', :union=>'elemTxt', :ipadx=>2)
|
39
|
+
t.style_layout(s, 'elemTxt', :expand=>:we)
|
40
|
+
|
41
|
+
# Set default item style
|
42
|
+
if $Version_1_1_OrLater
|
43
|
+
t.defaultstyle = [s]
|
44
|
+
end
|
45
|
+
|
46
|
+
bitmap_names = %w(error gray75 gray50 gray25 gray12
|
47
|
+
hourglass info questhead question warning)
|
48
|
+
|
49
|
+
bitmap_names.each{|name|
|
50
|
+
i = t.item_create
|
51
|
+
unless $Version_1_1_OrLater
|
52
|
+
t.item_style_set(i, 0, s)
|
53
|
+
end
|
54
|
+
t.item_text(i, 0, name)
|
55
|
+
t.item_element_configure(i, 0, 'elemBmp', :bitmap=>name)
|
56
|
+
t.item_lastchild(:root, i)
|
57
|
+
}
|
58
|
+
|
59
|
+
bitmap_names.each{|name|
|
60
|
+
i = t.item_create
|
61
|
+
t.item_style_set(i, 0, s)
|
62
|
+
t.item_text(i, 0, name)
|
63
|
+
if true
|
64
|
+
t.item_element_configure(i, 0, 'elemBmp', :bitmap=>name,
|
65
|
+
:foreground=>['brown', ''],
|
66
|
+
:background=>['', ''])
|
67
|
+
else
|
68
|
+
t.item_element_configure(i, 0, 'elemBmp', :bitmap=>name,
|
69
|
+
:foreground=>[
|
70
|
+
@SystemHighlight, ['selected', 'focus'],
|
71
|
+
'brown', []
|
72
|
+
],
|
73
|
+
:background=>['', []])
|
74
|
+
end
|
75
|
+
t.item_lastchild(:root, i)
|
76
|
+
}
|
77
|
+
end
|
@@ -0,0 +1,1306 @@
|
|
1
|
+
#!/usr/bin/env ruby
|
2
|
+
# frozen_string_literal: false
|
3
|
+
|
4
|
+
require 'tk'
|
5
|
+
require 'tkextlib/treectrl'
|
6
|
+
|
7
|
+
$ScriptDir = File.dirname(File.expand_path(__FILE__))
|
8
|
+
|
9
|
+
$HasColumnCreate = Tk::TreeCtrl::HasColumnCreateCommand
|
10
|
+
|
11
|
+
$Version_1_1_OrLater = (TkPackage.vcompare(Tk::TreeCtrl.package_version, '1.1') >= 0)
|
12
|
+
|
13
|
+
#if Hash.instance_methods.include?(:key)
|
14
|
+
if TkCore::WITH_RUBY_VM ### Ruby 1.9 !!!!
|
15
|
+
# ruby 1.9.x --> use Hash#key
|
16
|
+
# Because Hash#index show warning "Hash#index is deprecated; use Hash#key".
|
17
|
+
else
|
18
|
+
# ruby 1.8.x --> use Hash#index
|
19
|
+
class Hash
|
20
|
+
alias key index
|
21
|
+
end
|
22
|
+
end
|
23
|
+
|
24
|
+
class TkTreeCtrl_demo
|
25
|
+
def initialize(dir)
|
26
|
+
@ScriptDir = dir || '.'
|
27
|
+
|
28
|
+
@thisPlatform = Tk::PLATFORM['platform']
|
29
|
+
if @thisPlatform == 'unix' && Tk.windowingsystem == 'aqua'
|
30
|
+
@thisPlatform = 'macosx'
|
31
|
+
end
|
32
|
+
|
33
|
+
@RandomN = [500]
|
34
|
+
|
35
|
+
@images = Hash.new
|
36
|
+
@sel_images = Hash.new
|
37
|
+
|
38
|
+
@popup = Hash.new
|
39
|
+
@mTree = Hash.new
|
40
|
+
@mHeader = Hash.new
|
41
|
+
|
42
|
+
@non_clear_list = []
|
43
|
+
|
44
|
+
@demoCmd = Hash.new
|
45
|
+
@demoFile = Hash.new
|
46
|
+
|
47
|
+
# Get default colors
|
48
|
+
w = TkListbox.new
|
49
|
+
@SystemButtonFace = w[:highlightbackground]
|
50
|
+
@SystemHighlight = w[:selectbackground]
|
51
|
+
@SystemHighlightText = w[:selectforeground]
|
52
|
+
w.destroy
|
53
|
+
|
54
|
+
####################
|
55
|
+
|
56
|
+
make_source_window()
|
57
|
+
make_menubar()
|
58
|
+
make_main_window()
|
59
|
+
|
60
|
+
if $Version_1_1_OrLater
|
61
|
+
begin
|
62
|
+
@tree2[:backgroundimage]
|
63
|
+
@has_bgimg = true
|
64
|
+
rescue
|
65
|
+
@has_bgimg = false
|
66
|
+
end
|
67
|
+
else
|
68
|
+
@has_bgimg = false
|
69
|
+
end
|
70
|
+
|
71
|
+
####################
|
72
|
+
|
73
|
+
make_list_popup()
|
74
|
+
make_header_popup()
|
75
|
+
|
76
|
+
init_pics('sky')
|
77
|
+
|
78
|
+
####################
|
79
|
+
|
80
|
+
@tree2.bind('ButtonPress-3',
|
81
|
+
proc{|w, x, y, rootx, rooty|
|
82
|
+
show_list_popup(w, x, y, rootx, rooty)
|
83
|
+
}, '%W %x %y %X %Y')
|
84
|
+
|
85
|
+
# Allow "scan" bindings
|
86
|
+
if @thisPlatform == 'windows'
|
87
|
+
@tree2.bind_remove('Control-ButtonPress-3')
|
88
|
+
end
|
89
|
+
|
90
|
+
####################
|
91
|
+
|
92
|
+
init_demo_scripts_module()
|
93
|
+
load_demo_scripts()
|
94
|
+
init_demo_list()
|
95
|
+
|
96
|
+
####################
|
97
|
+
|
98
|
+
@tree1.notify_bind(@tree1, 'Selection',
|
99
|
+
proc{|c, t|
|
100
|
+
if c == 1
|
101
|
+
item = t.selection_get[0]
|
102
|
+
demo_set(@demoCmd[item], @demoFile[item])
|
103
|
+
end
|
104
|
+
}, '%c %T')
|
105
|
+
|
106
|
+
# When one item is selected in the demo list, display the styles in
|
107
|
+
# that item.
|
108
|
+
# See DemoClear for why the tag "DontDelete" is used
|
109
|
+
@tree2.notify_bind('DontDelete', 'Selection',
|
110
|
+
proc{|c, t|
|
111
|
+
display_styles_in_item(t.selection_get[0]) if c == 1
|
112
|
+
}, '%c %T')
|
113
|
+
end
|
114
|
+
|
115
|
+
##########################
|
116
|
+
|
117
|
+
def init_pics(*args)
|
118
|
+
args.each{|pat|
|
119
|
+
unless TkImage.names.find{|img| (name = @images.key(img)) && File.fnmatch(pat, name)}
|
120
|
+
Dir.glob(File.join(@ScriptDir, 'pics', "#{pat}.gif")).each{|file|
|
121
|
+
name = File.basename(file, '.gif')
|
122
|
+
img = TkPhotoImage.new(:file=>file)
|
123
|
+
@images[name] = img
|
124
|
+
@sel_images[name] = TkPhotoImage.new
|
125
|
+
@sel_images[name].copy(img)
|
126
|
+
Tk::TreeCtrl.image_tint(@sel_images[name], @SystemHighlight, 128)
|
127
|
+
}
|
128
|
+
end
|
129
|
+
}
|
130
|
+
end
|
131
|
+
|
132
|
+
##########################
|
133
|
+
|
134
|
+
private
|
135
|
+
|
136
|
+
def make_menubar
|
137
|
+
menuspec = [
|
138
|
+
[['File']]
|
139
|
+
]
|
140
|
+
if Tk::PLATFORM['platform'] != 'unix'
|
141
|
+
TkConsole.create
|
142
|
+
TkConsole.eval('.console conf -height 8')
|
143
|
+
menuspec[0] << ['Console', proc{
|
144
|
+
if TkComm.bool(TkConsole.eval('winfo ismapped .'))
|
145
|
+
TkConsole.hide
|
146
|
+
else
|
147
|
+
TkConsole.show
|
148
|
+
end
|
149
|
+
}]
|
150
|
+
end
|
151
|
+
menuspec[0] << ['View Source', proc{toggle_source_window()}]
|
152
|
+
menuspec[0] << ['Quit', proc{exit}]
|
153
|
+
Tk.root.add_menubar(menuspec)
|
154
|
+
end
|
155
|
+
|
156
|
+
def make_source_window
|
157
|
+
@src_top = TkToplevel.new
|
158
|
+
f = TkFrame.new(@src_top, :borderwidth=>0)
|
159
|
+
case @thisPlatform
|
160
|
+
when 'unix'
|
161
|
+
font = TkFont.new(['Courier', -12])
|
162
|
+
else
|
163
|
+
font = TkFont.new(['Courier', 9])
|
164
|
+
end
|
165
|
+
|
166
|
+
@src_txt = TkText.new(f, :font=>font, :tabs=>font.measure('1234'),
|
167
|
+
:wrap=>:none)
|
168
|
+
xscr = @src_txt.xscrollbar(TkScrollbar.new(f))
|
169
|
+
yscr = @src_txt.yscrollbar(TkScrollbar.new(f))
|
170
|
+
|
171
|
+
f.pack(:expand=>true, :fill=>:both)
|
172
|
+
f.grid_columnconfigure(0, :weight=>1)
|
173
|
+
f.grid_rowconfigure(0, :weight=>1)
|
174
|
+
@src_txt.grid(:row=>0, :column=>0, :sticky=>:news)
|
175
|
+
xscr.grid(:row=>1, :column=>0, :sticky=>:we)
|
176
|
+
yscr.grid(:row=>0, :column=>1, :sticky=>:ns)
|
177
|
+
|
178
|
+
@src_top.protocol('WM_DELETE_WINDOW', proc{@src_top.withdraw})
|
179
|
+
@src_top.geometry('-0+0')
|
180
|
+
@src_top.withdraw
|
181
|
+
end
|
182
|
+
|
183
|
+
def show_source(file)
|
184
|
+
@src_top.title("Demo Source: #{file}")
|
185
|
+
@src_txt.value = IO.read(File.join(@ScriptDir, file))
|
186
|
+
@src_txt.set_insert('1.0')
|
187
|
+
end
|
188
|
+
|
189
|
+
def toggle_source_window
|
190
|
+
if @src_top.winfo_mapped?
|
191
|
+
@src_top.withdraw
|
192
|
+
else
|
193
|
+
@src_top.deiconify
|
194
|
+
end
|
195
|
+
end
|
196
|
+
|
197
|
+
def tree_plus_scrollbars_in_a_frame(parent, h, v)
|
198
|
+
f = TkFrame.new(parent, :borderwidth=>1, :relief=>:sunken)
|
199
|
+
case @thisPlatform
|
200
|
+
when 'unix'
|
201
|
+
font = TkFont.new(['Helvetica', -12])
|
202
|
+
else
|
203
|
+
# There is a bug on my Win98 box with Tk_MeasureChars() and
|
204
|
+
# MS Sans Serif 8.
|
205
|
+
font = TkFont.new(['MS Sans', 8])
|
206
|
+
end
|
207
|
+
|
208
|
+
tree = Tk::TreeCtrl.new(f, :highlightthickness=>0,
|
209
|
+
:borderwidth=>0, :font=>font)
|
210
|
+
tree[:xscrollincrement] = 20
|
211
|
+
tree.debug_configure(:enable=>false, :display=>false)
|
212
|
+
|
213
|
+
if h
|
214
|
+
h_scr = TkScrollbar.new(f, :orient=>:horizontal,
|
215
|
+
:command=>proc{|*args| tree.xview(*args)})
|
216
|
+
tree.notify_bind(h_scr, 'Scroll-x',
|
217
|
+
proc{|w, l, u| w.set(l, u)}, '%W %l %u')
|
218
|
+
h_scr.bind('ButtonPress-1', proc{tree.set_focus})
|
219
|
+
end
|
220
|
+
|
221
|
+
if v
|
222
|
+
v_scr = TkScrollbar.new(f, :orient=>:vertical,
|
223
|
+
:command=>proc{|*args| tree.yview(*args)})
|
224
|
+
tree.notify_bind(v_scr, 'Scroll-y',
|
225
|
+
proc{|w, l, u| w.set(l, u)}, '%W %l %u')
|
226
|
+
v_scr.bind('ButtonPress-1', proc{tree.set_focus})
|
227
|
+
end
|
228
|
+
|
229
|
+
f.grid_columnconfigure(0, :weight=>1)
|
230
|
+
f.grid_rowconfigure(0, :weight=>1)
|
231
|
+
tree.grid(:row=>0, :column=>0, :sticky=>:news)
|
232
|
+
h_scr.grid(:row=>1, :column=>0, :sticky=>:we) if h
|
233
|
+
v_scr.grid(:row=>0, :column=>1, :sticky=>:ns) if v
|
234
|
+
|
235
|
+
[f, tree]
|
236
|
+
end
|
237
|
+
|
238
|
+
def make_main_window
|
239
|
+
Tk.root.title('Tk::TreeCtrl Demo')
|
240
|
+
|
241
|
+
case @thisPlatform
|
242
|
+
when 'macosx'
|
243
|
+
Tk.root.geometry('+40+40')
|
244
|
+
else
|
245
|
+
Tk.root.geometry('+0+30')
|
246
|
+
end
|
247
|
+
|
248
|
+
pane1 = TkPanedWindow.new(:orient=>:vertical, :borderwidth=>0)
|
249
|
+
pane2 = TkPanedWindow.new(:orient=>:horizontal, :borderwidth=>0)
|
250
|
+
|
251
|
+
# Tree + scrollbar: demos
|
252
|
+
f1, @tree1 = tree_plus_scrollbars_in_a_frame(nil, false, true)
|
253
|
+
@tree1.configure(:showbuttons=>false, :showlines=>:false,
|
254
|
+
:showroot=>false, :height=>100)
|
255
|
+
if $HasColumnCreate
|
256
|
+
@tree1.column_create(:text=>'List of Demos',
|
257
|
+
:expand=>true, :button=>false)
|
258
|
+
else
|
259
|
+
@tree1.column_configure(0, :text=>'List of Demos',
|
260
|
+
:expand=>true, :button=>false)
|
261
|
+
end
|
262
|
+
|
263
|
+
# Tree + scrollbar: styles + elements in list
|
264
|
+
f4, @tree4 = tree_plus_scrollbars_in_a_frame(nil, false, true)
|
265
|
+
@tree4.configure(:showroot=>false, :height=>140)
|
266
|
+
if $HasColumnCreate
|
267
|
+
@tree4.column_create(:text=>'Elements and Styles',
|
268
|
+
:expand=>true, :button=>false)
|
269
|
+
else
|
270
|
+
@tree4.column_configure(0, :text=>'Elements and Styles',
|
271
|
+
:expand=>true, :button=>false)
|
272
|
+
end
|
273
|
+
|
274
|
+
# Tree + scrollbar: styles + elements in selected item
|
275
|
+
f3, @tree3 = tree_plus_scrollbars_in_a_frame(nil, false, true)
|
276
|
+
@tree3.configure(:showroot=>false)
|
277
|
+
if $HasColumnCreate
|
278
|
+
@tree3.column_create(:text=>'Styles in Item',
|
279
|
+
:expand=>true, :button=>false)
|
280
|
+
else
|
281
|
+
@tree3.column_configure(0, :text=>'Styles in Item',
|
282
|
+
:expand=>true, :button=>false)
|
283
|
+
end
|
284
|
+
|
285
|
+
pane1.add(f1, f4, f3, :height=>150)
|
286
|
+
pane1.pack(:expand=>true, :fill=>:both)
|
287
|
+
|
288
|
+
# Frame on right
|
289
|
+
f2_base = TkFrame.new
|
290
|
+
|
291
|
+
# Tree + scrollbars
|
292
|
+
f2, @tree2 = tree_plus_scrollbars_in_a_frame(f2_base, true, true)
|
293
|
+
@tree2.configure(:indent=>19)
|
294
|
+
@tree2.debug_configure(:enable=>false, :display=>true,
|
295
|
+
:erasecolor=>'pink', :displaydelay=>30)
|
296
|
+
|
297
|
+
# Give it a big border to debug drawing
|
298
|
+
@tree2.configure(:borderwidth=>6, :relief=>:ridge, :highlightthickness=>3)
|
299
|
+
|
300
|
+
f2_base.grid_columnconfigure(0, :weight=>1)
|
301
|
+
f2_base.grid_rowconfigure(0, :weight=>1)
|
302
|
+
f2.grid(:row=>0, :column=>0, :sticky=>:news, :pady=>0)
|
303
|
+
|
304
|
+
pane2.add(pane1, :width=>200)
|
305
|
+
pane2.add(f2_base, :width=>450)
|
306
|
+
|
307
|
+
pane2.pack(:expand=>true, :fill=>:both)
|
308
|
+
|
309
|
+
###
|
310
|
+
# A treectrl widget can generate the following built-in events:
|
311
|
+
# <ActiveItem> called when the active item changes
|
312
|
+
# <Collapse-before> called before an item is closed
|
313
|
+
# <Collapse-after> called after an item is closed
|
314
|
+
# <Expand-before> called before an item is opened
|
315
|
+
# <Expand-after> called after an item is opened
|
316
|
+
# <Selection> called when items are added to or removed from the selection
|
317
|
+
# <Scroll-x> called when horizontal scroll position changes
|
318
|
+
# <Scroll-y> called when vertical scroll position changes
|
319
|
+
#
|
320
|
+
# The application programmer can define custom events to be
|
321
|
+
# generated by the "T notify generate" command. The following events
|
322
|
+
# are generated by the example bindings.
|
323
|
+
|
324
|
+
@tree2.notify_install_event('Header')
|
325
|
+
@tree2.notify_install_detail('Header', 'invoke')
|
326
|
+
|
327
|
+
@tree2.notify_install_event('Drag')
|
328
|
+
@tree2.notify_install_detail('Drag', 'begin')
|
329
|
+
@tree2.notify_install_detail('Drag', 'end')
|
330
|
+
@tree2.notify_install_detail('Drag', 'receive')
|
331
|
+
|
332
|
+
@tree2.notify_install_event('Edit')
|
333
|
+
@tree2.notify_install_detail('Edit', 'accept')
|
334
|
+
end
|
335
|
+
|
336
|
+
def make_list_popup
|
337
|
+
@popup[:bgimg] = TkVariable.new
|
338
|
+
@popup[:bgmode] = TkVariable.new
|
339
|
+
@popup[:debug] = Hash.new{|h, k| h[k] = TkVariable.new}
|
340
|
+
@popup[:doublebuffer] = TkVariable.new
|
341
|
+
@popup[:linestyle] = TkVariable.new
|
342
|
+
@popup[:orient] = TkVariable.new
|
343
|
+
@popup[:selectmode] = TkVariable.new
|
344
|
+
@popup[:show] = Hash.new{|h, k| h[k] = TkVariable.new}
|
345
|
+
|
346
|
+
menuspec = [
|
347
|
+
[ 'Collapse', [], nil, '', {:menu_config=>{:tearoff=>false}} ],
|
348
|
+
|
349
|
+
[ 'Expand', [], nil, '', {:menu_config=>{:tearoff=>false}} ]
|
350
|
+
]
|
351
|
+
|
352
|
+
# if $Version_1_1_OrLater
|
353
|
+
if @has_bgimg
|
354
|
+
menuspec << \
|
355
|
+
[ 'Background Image',
|
356
|
+
[
|
357
|
+
[ 'none', [@popup[:bgimg], 'none'], nil, '',
|
358
|
+
{:command=>proc{@tree2.backgroundimage = ''}} ],
|
359
|
+
[ 'sky', [@popup[:bgimg], 'sky'], nil, '',
|
360
|
+
{:command=>proc{
|
361
|
+
@tree2.backgroundimage = @images[@popup[:bgimg].value]}} ]
|
362
|
+
],
|
363
|
+
nil, '', {:menu_config=>{:tearoff=>false}}
|
364
|
+
]
|
365
|
+
end
|
366
|
+
|
367
|
+
menuspec.concat([
|
368
|
+
[ 'Background Mode',
|
369
|
+
%w(column index row visindex).collect{|val|
|
370
|
+
[ val, [@popup[:bgmode], val] , nil, '',
|
371
|
+
{:command=>proc{@tree2.backgroundmode = @popup[:bgmode].value}} ]
|
372
|
+
},
|
373
|
+
nil, '', {:menu_config=>{:tearoff=>false}}
|
374
|
+
],
|
375
|
+
|
376
|
+
[ 'Debug',
|
377
|
+
[
|
378
|
+
[ 'Data', @popup[:debug][:data], nil, '',
|
379
|
+
{:command=>proc{
|
380
|
+
@tree2.debug_configure(:data=>@popup[:debug][:data].value)
|
381
|
+
}
|
382
|
+
} ],
|
383
|
+
[ 'Display', @popup[:debug][:display], nil, '',
|
384
|
+
{:command=>proc{
|
385
|
+
@tree2.debug_configure(:display=>@popup[:debug][:display].value)
|
386
|
+
}
|
387
|
+
} ],
|
388
|
+
[ 'Enable', @popup[:debug][:enable], nil, '',
|
389
|
+
{:command=>proc{
|
390
|
+
@tree2.debug_configure(:enable=>@popup[:debug][:enable].value)
|
391
|
+
}
|
392
|
+
} ]
|
393
|
+
],
|
394
|
+
nil, '', {:menu_config=>{:tearoff=>false}}
|
395
|
+
],
|
396
|
+
|
397
|
+
[ 'Buffering',
|
398
|
+
[
|
399
|
+
[ 'none', [@popup[:doublebuffer], 'none'], nil, '',
|
400
|
+
{:command=>proc{
|
401
|
+
@tree2.doublebuffer = @popup[:doublebuffer].value
|
402
|
+
}
|
403
|
+
} ],
|
404
|
+
[ 'item', [@popup[:doublebuffer], 'item'], nil, '',
|
405
|
+
{:command=>proc{
|
406
|
+
@tree2.doublebuffer = @popup[:doublebuffer].value
|
407
|
+
}
|
408
|
+
} ],
|
409
|
+
[ 'window', [@popup[:doublebuffer], 'window'], nil, '',
|
410
|
+
{:command=>proc{
|
411
|
+
@tree2.doublebuffer = @popup[:doublebuffer].value
|
412
|
+
}
|
413
|
+
} ]
|
414
|
+
],
|
415
|
+
nil, '', {:menu_config=>{:tearoff=>false}}
|
416
|
+
],
|
417
|
+
|
418
|
+
[ 'Line style',
|
419
|
+
[
|
420
|
+
[ 'dot', [@popup[:linestyle], 'dot'], nil, '',
|
421
|
+
{:command=>proc{@tree2.linestyle = @popup[:linestyle].value}} ],
|
422
|
+
[ 'solid', [@popup[:linestyle], 'solid'], nil, '',
|
423
|
+
{:command=>proc{@tree2.linestyle = @popup[:linestyle].value}} ]
|
424
|
+
],
|
425
|
+
nil, '', {:menu_config=>{:tearoff=>false}}
|
426
|
+
],
|
427
|
+
|
428
|
+
[ 'Orient',
|
429
|
+
[
|
430
|
+
[ 'Horizontal', [@popup[:orient], 'horizontal'], nil, '',
|
431
|
+
{:command=>proc{@tree2.orient = @popup[:orient].value}} ],
|
432
|
+
[ 'Vertical', [@popup[:orient], 'vertical'], nil, '',
|
433
|
+
{:command=>proc{@tree2.orient = @popup[:orient].value}} ]
|
434
|
+
],
|
435
|
+
nil, '', {:menu_config=>{:tearoff=>false}}
|
436
|
+
],
|
437
|
+
|
438
|
+
[ 'Selectmode',
|
439
|
+
%w(list browse extended multiple single).collect{|val|
|
440
|
+
[ val, [@popup[:selectmode], val] , nil, '',
|
441
|
+
{:command=>proc{@tree2.selectmode = @popup[:selectmode].value}} ]
|
442
|
+
},
|
443
|
+
nil, '', {:menu_config=>{:tearoff=>false}}
|
444
|
+
],
|
445
|
+
|
446
|
+
[ 'Show',
|
447
|
+
[
|
448
|
+
[ 'Buttons', @popup[:show][:buttons], nil, '',
|
449
|
+
{:command=>proc{
|
450
|
+
@tree2.showbuttons = @popup[:show][:buttons].value
|
451
|
+
}
|
452
|
+
} ],
|
453
|
+
[ 'Header', @popup[:show][:header], nil, '',
|
454
|
+
{:command=>proc{
|
455
|
+
@tree2.showheader = @popup[:show][:header].value
|
456
|
+
}
|
457
|
+
} ],
|
458
|
+
[ 'Lines', @popup[:show][:lines], nil, '',
|
459
|
+
{:command=>proc{
|
460
|
+
@tree2.showlines = @popup[:show][:lines].value
|
461
|
+
}
|
462
|
+
} ],
|
463
|
+
[ 'Root', @popup[:show][:root], nil, '',
|
464
|
+
{:command=>proc{
|
465
|
+
@tree2.showroot = @popup[:show][:root].value
|
466
|
+
}
|
467
|
+
} ],
|
468
|
+
[ 'Root Button', @popup[:show][:rootbutton], nil, '',
|
469
|
+
{:command=>proc{
|
470
|
+
@tree2.showrootbutton = @popup[:show][:rootbutton].value
|
471
|
+
}
|
472
|
+
} ]
|
473
|
+
],
|
474
|
+
nil, '', {:menu_config=>{:tearoff=>false}}
|
475
|
+
],
|
476
|
+
|
477
|
+
[ 'Visible', [], nil, '', {:menu_config=>{:tearoff=>false}} ]
|
478
|
+
])
|
479
|
+
|
480
|
+
m = TkMenu.new_menuspec(menuspec, @tree2, false)
|
481
|
+
@non_clear_list << m
|
482
|
+
@mTree[@tree2] = m
|
483
|
+
end
|
484
|
+
|
485
|
+
def show_list_popup(w, x, y, rootx, rooty)
|
486
|
+
id = w.identify(x, y)
|
487
|
+
unless id.empty?
|
488
|
+
if id[0] == 'header'
|
489
|
+
col = id[1]
|
490
|
+
@popup[:column].value = col
|
491
|
+
@popup[:arrow].value = w.column_cget(col, :arrow)
|
492
|
+
@popup[:arrowside].value = w.column_cget(col, :arrowside)
|
493
|
+
@popup[:arrowgravity].value = w.column_cget(col, :arrowgravity)
|
494
|
+
@popup[:expand].value = w.column_cget(col, :expand)
|
495
|
+
@popup[:squeeze].value = w.column_cget(col, :squeeze)
|
496
|
+
@popup[:justify].value = w.column_cget(col, :justify)
|
497
|
+
@mHeader[w].popup(rootx, rooty)
|
498
|
+
return
|
499
|
+
end
|
500
|
+
end
|
501
|
+
|
502
|
+
m = @mTree[w].entrycget('Collapse', :menu)
|
503
|
+
m.delete(0, :end)
|
504
|
+
if $Version_1_1_OrLater
|
505
|
+
m.add_command(:label=>'All', :command=>proc{w.item_collapse(:all)})
|
506
|
+
else
|
507
|
+
m.add_command(:label=>'All', :command=>proc{w.collapse(:all)})
|
508
|
+
end
|
509
|
+
unless id.empty?
|
510
|
+
if id[0] == 'item'
|
511
|
+
item = id[1]
|
512
|
+
if $Version_1_1_OrLater
|
513
|
+
m.add_command(:label=>"Item #{item}",
|
514
|
+
:command=>proc{w.item_collapse(item)})
|
515
|
+
m.add_command(:label=>"Item #{item} (recurse)",
|
516
|
+
:command=>proc{w.item_collapse_recurse(item)})
|
517
|
+
else
|
518
|
+
m.add_command(:label=>"Item #{item}",
|
519
|
+
:command=>proc{w.collapse(item)})
|
520
|
+
m.add_command(:label=>"Item #{item} (recurse)",
|
521
|
+
:command=>proc{w.collapse_recurse(item)})
|
522
|
+
end
|
523
|
+
end
|
524
|
+
end
|
525
|
+
|
526
|
+
m = @mTree[w].entrycget('Expand', :menu)
|
527
|
+
m.delete(0, :end)
|
528
|
+
if $Version_1_1_OrLater
|
529
|
+
m.add_command(:label=>'All', :command=>proc{w.item_expand(:all)})
|
530
|
+
else
|
531
|
+
m.add_command(:label=>'All', :command=>proc{w.expand(:all)})
|
532
|
+
end
|
533
|
+
unless id.empty?
|
534
|
+
if id[0] == 'item'
|
535
|
+
item = id[1]
|
536
|
+
if $Version_1_1_OrLater
|
537
|
+
m.add_command(:label=>"Item #{item}",
|
538
|
+
:command=>proc{w.item_expand(item)})
|
539
|
+
m.add_command(:label=>"Item #{item} (recurse)",
|
540
|
+
:command=>proc{w.item_expand_recurse(item)})
|
541
|
+
else
|
542
|
+
m.add_command(:label=>"Item #{item}",
|
543
|
+
:command=>proc{w.expand(item)})
|
544
|
+
m.add_command(:label=>"Item #{item} (recurse)",
|
545
|
+
:command=>proc{w.expand_recurse(item)})
|
546
|
+
end
|
547
|
+
end
|
548
|
+
end
|
549
|
+
|
550
|
+
[:data, :display, :enable].each{|k|
|
551
|
+
@popup[:debug][k].value = w.debug_cget(k)
|
552
|
+
}
|
553
|
+
# if $Version_1_1_OrLater
|
554
|
+
if @has_bgimg
|
555
|
+
@popup[:bgimg].value = @images.key(w[:backgroundimage])
|
556
|
+
end
|
557
|
+
@popup[:bgmode].value = w[:backgroundmode]
|
558
|
+
@popup[:doublebuffer].value = w[:doublebuffer]
|
559
|
+
@popup[:linestyle].value = w[:linestyle]
|
560
|
+
@popup[:orient].value = w[:orient]
|
561
|
+
@popup[:selectmode].value = w[:selectmode]
|
562
|
+
@popup[:show][:buttons].value = w[:showbuttons]
|
563
|
+
@popup[:show][:header].value = w[:showheader]
|
564
|
+
@popup[:show][:lines].value = w[:showlines]
|
565
|
+
@popup[:show][:root].value = w[:showroot]
|
566
|
+
@popup[:show][:rootbutton].value = w[:showrootbutton]
|
567
|
+
|
568
|
+
m = @mTree[w].entrycget('Visible', :menu)
|
569
|
+
m.delete(0, :end)
|
570
|
+
@popup[:visible] = []
|
571
|
+
(0...(w.numcolumns)).each{|i|
|
572
|
+
@popup[:visible][i] = TkVariable.new(w.column_cget(i, :visible))
|
573
|
+
txt = w.column_cget(i, :text)
|
574
|
+
img_name = w.column_cget(i, :image)
|
575
|
+
img_name = @images.key(img_name) if img_name.kind_of?(TkImage)
|
576
|
+
m.add_checkbutton(:variable=>@popup[:visible][i],
|
577
|
+
:label=>"Column #{i} \"#{txt}\" [#{img_name}]",
|
578
|
+
:command=>proc{w.column_configure(i, :visible=>@popup[:visible][i].value)})
|
579
|
+
}
|
580
|
+
|
581
|
+
@mTree[w].popup(rootx, rooty)
|
582
|
+
end
|
583
|
+
|
584
|
+
def make_header_popup
|
585
|
+
@popup[:column] = TkVariable.new unless @popup[:column]
|
586
|
+
@popup[:arrow] = TkVariable.new
|
587
|
+
@popup[:arrowside] = TkVariable.new
|
588
|
+
@popup[:arrowgravity] = TkVariable.new
|
589
|
+
@popup[:expand] = TkVariable.new
|
590
|
+
@popup[:squeeze] = TkVariable.new
|
591
|
+
@popup[:justify] = TkVariable.new
|
592
|
+
|
593
|
+
menuspec = [
|
594
|
+
[ 'Arrow',
|
595
|
+
[
|
596
|
+
[ 'None', [@popup[:arrow], 'none'], nil, '',
|
597
|
+
{:command=>proc{
|
598
|
+
@tree2.column_configure(@popup[:column].value, :arrow=>:none)
|
599
|
+
}
|
600
|
+
} ],
|
601
|
+
[ 'Up', [@popup[:arrow], 'up'], nil, '',
|
602
|
+
{:command=>proc{
|
603
|
+
@tree2.column_configure(@popup[:column].value, :arrow=>:up)
|
604
|
+
}
|
605
|
+
} ],
|
606
|
+
[ 'Down', [@popup[:arrow], 'down'], nil, '',
|
607
|
+
{:command=>proc{
|
608
|
+
@tree2.column_configure(@popup[:column].value, :arrow=>:down)
|
609
|
+
}
|
610
|
+
} ],
|
611
|
+
|
612
|
+
'---',
|
613
|
+
|
614
|
+
[ 'Side Left', [@popup[:arrowside], 'left'], nil, '',
|
615
|
+
{:command=>proc{
|
616
|
+
@tree2.column_configure(@popup[:column].value,
|
617
|
+
:arrowside=>:left)
|
618
|
+
}
|
619
|
+
} ],
|
620
|
+
[ 'Side Right', [@popup[:arrowside], 'right'], nil, '',
|
621
|
+
{:command=>proc{
|
622
|
+
@tree2.column_configure(@popup[:column].value,
|
623
|
+
:arrowside=>:right)
|
624
|
+
}
|
625
|
+
} ],
|
626
|
+
|
627
|
+
'---',
|
628
|
+
|
629
|
+
[ 'Gravity Left', [@popup[:arrowgravity], 'left'], nil, '',
|
630
|
+
{:command=>proc{
|
631
|
+
@tree2.column_configure(@popup[:column].value,
|
632
|
+
:arrowgravity=>:left)
|
633
|
+
}
|
634
|
+
} ],
|
635
|
+
[ 'Gravity Right', [@popup[:arrowgravity], 'right'], nil, '',
|
636
|
+
{:command=>proc{
|
637
|
+
@tree2.column_configure(@popup[:column].value,
|
638
|
+
:arrowgravity=>:right)
|
639
|
+
}
|
640
|
+
} ],
|
641
|
+
],
|
642
|
+
nil, '', {:menu_config=>{:tearoff=>false}} ],
|
643
|
+
|
644
|
+
[ 'Expand', @popup[:expand], nil, '',
|
645
|
+
{:command=>proc{
|
646
|
+
@tree2.column_configure(@popup[:column].value,
|
647
|
+
:expand=>@popup[:expand].value)
|
648
|
+
}
|
649
|
+
} ],
|
650
|
+
|
651
|
+
[ 'Squeeze', @popup[:squeeze], nil, '',
|
652
|
+
{:command=>proc{
|
653
|
+
@tree2.column_configure(@popup[:column].value,
|
654
|
+
:squeeze=>@popup[:squeeze].value)
|
655
|
+
}
|
656
|
+
} ],
|
657
|
+
|
658
|
+
[ 'Justify',
|
659
|
+
[
|
660
|
+
[ 'Left', [@popup[:justify], 'left'], nil, '',
|
661
|
+
{:command=>proc{
|
662
|
+
@tree2.column_configure(@popup[:column].value, :justify=>:left)
|
663
|
+
}
|
664
|
+
} ],
|
665
|
+
[ 'Center', [@popup[:justify], 'center'], nil, '',
|
666
|
+
{:command=>proc{
|
667
|
+
@tree2.column_configure(@popup[:column].value,
|
668
|
+
:justify=>:center)
|
669
|
+
}
|
670
|
+
} ],
|
671
|
+
[ 'Right', [@popup[:justify], 'right'], nil, '',
|
672
|
+
{:command=>proc{
|
673
|
+
@tree2.column_configure(@popup[:column].value,
|
674
|
+
:justify=>:right)
|
675
|
+
}
|
676
|
+
} ]
|
677
|
+
],
|
678
|
+
nil, '', {:menu_config=>{:tearoff=>false}} ]
|
679
|
+
]
|
680
|
+
|
681
|
+
m = TkMenu.new_menuspec(menuspec, @tree2, false)
|
682
|
+
@non_clear_list << m
|
683
|
+
@mHeader[@tree2] = m
|
684
|
+
end
|
685
|
+
|
686
|
+
###########################
|
687
|
+
|
688
|
+
def init_demo_scripts_module
|
689
|
+
@demo_scripts = Module.new
|
690
|
+
|
691
|
+
master = self
|
692
|
+
|
693
|
+
has_bgimg = @has_bgimg
|
694
|
+
|
695
|
+
scriptDir = @ScriptDir
|
696
|
+
|
697
|
+
thisPlatform = @thisPlatform
|
698
|
+
|
699
|
+
randomN = @RandomN
|
700
|
+
|
701
|
+
images = @images
|
702
|
+
sel_images = @sel_images
|
703
|
+
|
704
|
+
systemButtonFace = @SystemButtonFace
|
705
|
+
systemHighlight = @SystemHighlight
|
706
|
+
systemHighlightText = @SystemHighlightText
|
707
|
+
|
708
|
+
def master._pub_display_styles_in_item(item)
|
709
|
+
display_styles_in_item(item)
|
710
|
+
end
|
711
|
+
proc_disp_styles_in_item = proc{|item|
|
712
|
+
master._pub_display_styles_in_item(item)
|
713
|
+
}
|
714
|
+
|
715
|
+
@demo_scripts.instance_eval{
|
716
|
+
@master = master
|
717
|
+
|
718
|
+
@has_bgimg = has_bgimg
|
719
|
+
|
720
|
+
@display_styles_in_item = proc_disp_styles_in_item
|
721
|
+
|
722
|
+
@Priv = TkVarAccess.new('::TreeCtrl::Priv')
|
723
|
+
|
724
|
+
@ScriptDir = scriptDir
|
725
|
+
|
726
|
+
@thisPlatform = thisPlatform
|
727
|
+
|
728
|
+
@RandomN = randomN
|
729
|
+
|
730
|
+
@images = images
|
731
|
+
@sel_images = sel_images
|
732
|
+
|
733
|
+
@SystemButtonFace = systemButtonFace
|
734
|
+
@SystemHighlight = systemHighlight
|
735
|
+
@SystemHighlightText = systemHighlightText
|
736
|
+
}
|
737
|
+
|
738
|
+
class << @demo_scripts
|
739
|
+
def _get_binding
|
740
|
+
binding
|
741
|
+
end
|
742
|
+
private :_get_binding
|
743
|
+
|
744
|
+
def load_demo(file)
|
745
|
+
puts "load \"#{file}\"" if $DEBUG
|
746
|
+
begin
|
747
|
+
eval(IO.readlines(file).join, _get_binding())
|
748
|
+
rescue Exception => e
|
749
|
+
bt = e.backtrace
|
750
|
+
|
751
|
+
if bt[0] =~ /^([^:]+):(\d+):/
|
752
|
+
errline = $2.to_i
|
753
|
+
else
|
754
|
+
raise e
|
755
|
+
end
|
756
|
+
|
757
|
+
if bt[1] =~ /^([^:]+):(\d+):/
|
758
|
+
bt.unshift("#{file}:#{errline - $2.to_i + 1}")
|
759
|
+
raise e
|
760
|
+
else
|
761
|
+
raise e
|
762
|
+
end
|
763
|
+
end
|
764
|
+
end
|
765
|
+
|
766
|
+
def init_pics(*args)
|
767
|
+
@master.init_pics(*args)
|
768
|
+
end
|
769
|
+
end
|
770
|
+
end
|
771
|
+
|
772
|
+
def load_demo_scripts
|
773
|
+
# demo sources
|
774
|
+
[
|
775
|
+
'bitmaps',
|
776
|
+
'explorer',
|
777
|
+
'help',
|
778
|
+
'imovie',
|
779
|
+
'layout',
|
780
|
+
'mailwasher',
|
781
|
+
'outlook-folders',
|
782
|
+
'outlook-newgroup',
|
783
|
+
'random',
|
784
|
+
'www-options'
|
785
|
+
].each{|f|
|
786
|
+
@demo_scripts.load_demo(File.join(@ScriptDir, "#{f}.rb"))
|
787
|
+
}
|
788
|
+
end
|
789
|
+
|
790
|
+
###########################
|
791
|
+
|
792
|
+
def init_demo_list
|
793
|
+
@tree1.element_create('e1', :text,
|
794
|
+
:fill=>[@SystemHighlightText, ['selected', 'focus']])
|
795
|
+
@tree1.element_create('e2', :rect, :showfocus=>true,
|
796
|
+
:fill=>[
|
797
|
+
@SystemHighlight, ['selected', 'focus'],
|
798
|
+
'gray', ['selected', '!focus'],
|
799
|
+
])
|
800
|
+
@tree1.style_create('s1')
|
801
|
+
@tree1.style_elements('s1', ['e2', 'e1'])
|
802
|
+
|
803
|
+
# Tk listbox has linespace + 1 height
|
804
|
+
@tree1.style_layout('s1', 'e2', :union=>['e1'],
|
805
|
+
:ipadx=>2, :ipady=>[0, 1], :iexpand=>:e)
|
806
|
+
|
807
|
+
if $Version_1_1_OrLater
|
808
|
+
@tree1.defaultstyle = 's1'
|
809
|
+
end
|
810
|
+
|
811
|
+
###
|
812
|
+
[
|
813
|
+
["Random #{@RandomN[0]} Items", :demoRandom, 'random.rb'],
|
814
|
+
["Random #{@RandomN[0]} Items, Button Images", :demoRandom2, 'random.rb'],
|
815
|
+
["Outlook Express (Folders)", :demoOutlookFolders, 'outlook-folders.rb'],
|
816
|
+
["Outlook Express (Newsgroup)", :demoOutlookNewsgroup, 'outlook-newgroup.rb'],
|
817
|
+
["Explorer (Details)", :demoExplorerDetails, 'explorer.rb'],
|
818
|
+
["Explorer (List)", :demoExplorerList, 'explorer.rb'],
|
819
|
+
["Explorer (Large icons)", :demoExplorerLargeIcons, 'explorer.rb'],
|
820
|
+
["Explorer (Small icons)", :demoExplorerSmallIcons, 'explorer.rb'],
|
821
|
+
["Internet Options", :demoInternetOptions, 'www-options.rb'],
|
822
|
+
["Help Contents", :demoHelpContents, 'help.rb'],
|
823
|
+
["Layout", :demoLayout, 'layout.rb'],
|
824
|
+
["MailWasher", :demoMailWasher, 'mailwasher.rb'],
|
825
|
+
["Bitmaps", :demoBitmaps, 'bitmaps.rb'],
|
826
|
+
["iMovie", :demoIMovie, 'imovie.rb']
|
827
|
+
].each{|label, cmd, file|
|
828
|
+
item = @tree1.item_create
|
829
|
+
@tree1.item_lastchild(:root, item)
|
830
|
+
unless $Version_1_1_OrLater
|
831
|
+
@tree1.item_style_set(item, 0, 's1')
|
832
|
+
end
|
833
|
+
@tree1.item_text(item, 0, label)
|
834
|
+
@demoCmd[item] = cmd
|
835
|
+
@demoFile[item] = file
|
836
|
+
}
|
837
|
+
|
838
|
+
@tree1.yview_moveto(0.0)
|
839
|
+
end
|
840
|
+
|
841
|
+
def demo_set(cmd, file)
|
842
|
+
demo_clear()
|
843
|
+
clicks = Tk::Clock.clicks
|
844
|
+
@demo_scripts.__send__(cmd, @tree2)
|
845
|
+
clicks = Tk::Clock.clicks - clicks
|
846
|
+
puts "set list in #{'%.2g'%(clicks/1000000.0)} seconds (#{clicks} clicks)"
|
847
|
+
@tree2.xview_moveto(0)
|
848
|
+
@tree2.yview_moveto(0)
|
849
|
+
Tk.update
|
850
|
+
display_styles_in_list()
|
851
|
+
show_source(file)
|
852
|
+
end
|
853
|
+
|
854
|
+
def display_styles_in_list
|
855
|
+
# Create elements and styles the first time this is called
|
856
|
+
if @tree4.style_names.empty?
|
857
|
+
@tree4.element_create('e1', :text,
|
858
|
+
:fill=>[@SystemHighlightText,['selected','focus']])
|
859
|
+
@tree4.element_create('e2', :text,
|
860
|
+
:fill=>[
|
861
|
+
@SystemHighlightText, ['selected','focus'],
|
862
|
+
'', ['selected','!focus'],
|
863
|
+
'blue', []
|
864
|
+
])
|
865
|
+
@tree4.element_create('e3', :rect, :showfocus=>true,
|
866
|
+
:fill=>[
|
867
|
+
@SystemHighlight, ['selected','focus'],
|
868
|
+
'gray', ['selected', '!focus']
|
869
|
+
])
|
870
|
+
|
871
|
+
@tree4.style_create('s1')
|
872
|
+
@tree4.style_elements('s1', ['e3', 'e1'])
|
873
|
+
@tree4.style_layout('s1', 'e3', :union=>['e1'], :ipadx=>1, :ipady=>[0,1])
|
874
|
+
|
875
|
+
@tree4.style_create('s2')
|
876
|
+
@tree4.style_elements('s2', ['e3', 'e1', 'e2'])
|
877
|
+
@tree4.style_layout('s2', 'e1', :padx=>[0,4])
|
878
|
+
@tree4.style_layout('s2', 'e3', :union=>['e1', 'e2'],
|
879
|
+
:ipadx=>1, :ipady=>[0,1])
|
880
|
+
end
|
881
|
+
|
882
|
+
# Clear the list
|
883
|
+
@tree4.item_delete(:all)
|
884
|
+
|
885
|
+
# One item for each element in the demo list
|
886
|
+
@tree2.element_names.sort.each{|elem|
|
887
|
+
if $Version_1_1_OrLater
|
888
|
+
item = @tree4.item_create(:button=>true)
|
889
|
+
@tree4.item_collapse(item)
|
890
|
+
else
|
891
|
+
item = @tree4.item_create
|
892
|
+
@tree4.item_hasbutton(item, true)
|
893
|
+
@tree4.collapse(item)
|
894
|
+
end
|
895
|
+
@tree4.item_style_set(item, 0, 's1')
|
896
|
+
@tree4.item_text(item, 0,
|
897
|
+
"Element #{elem} (#{@tree2.element_type(elem)})")
|
898
|
+
|
899
|
+
# One item for each configuration option for this element
|
900
|
+
@tree2.element_configinfo(elem).each{|name, x, y, default, current|
|
901
|
+
item2 = @tree4.item_create
|
902
|
+
|
903
|
+
if default == current
|
904
|
+
@tree4.item_style_set(item2, 0, 's1')
|
905
|
+
@tree4.item_complex(item2, [
|
906
|
+
['e1', {:text=>"#{name} #{current.inspect}"}]
|
907
|
+
])
|
908
|
+
else
|
909
|
+
@tree4.item_style_set(item2, 0, 's2')
|
910
|
+
@tree4.item_complex(item2, [
|
911
|
+
['e1', {:text=>name}],
|
912
|
+
['e2', {:text=>current.inspect}]
|
913
|
+
])
|
914
|
+
end
|
915
|
+
|
916
|
+
@tree4.item_lastchild(item, item2)
|
917
|
+
}
|
918
|
+
|
919
|
+
@tree4.item_lastchild(:root, item)
|
920
|
+
}
|
921
|
+
|
922
|
+
# One item for each style in the demo list
|
923
|
+
@tree2.style_names.sort.each{|sty|
|
924
|
+
if $Version_1_1_OrLater
|
925
|
+
item = @tree4.item_create(:button=>true)
|
926
|
+
@tree4.item_collapse(item)
|
927
|
+
else
|
928
|
+
item = @tree4.item_create
|
929
|
+
@tree4.item_hasbutton(item, true)
|
930
|
+
@tree4.collapse(item)
|
931
|
+
end
|
932
|
+
@tree4.item_style_set(item, 0, 's1')
|
933
|
+
@tree4.item_text(item, 0, "Style #{sty}")
|
934
|
+
|
935
|
+
# One item for each element in the style
|
936
|
+
@tree2.style_elements(sty).each{|elem|
|
937
|
+
if $Version_1_1_OrLater
|
938
|
+
item2 = @tree4.item_create(:button=>true)
|
939
|
+
@tree4.item_collapse(item2)
|
940
|
+
else
|
941
|
+
item2 = @tree4.item_create
|
942
|
+
@tree4.item_hasbutton(item2, true)
|
943
|
+
@tree4.collapse(item2)
|
944
|
+
end
|
945
|
+
@tree4.item_style_set(item2, 0, 's1')
|
946
|
+
@tree4.item_text(item2, 0,
|
947
|
+
"Element #{elem} (#{@tree2.element_type(elem)})")
|
948
|
+
|
949
|
+
# One item for each layout option for this element in this style
|
950
|
+
@tree2.style_layout(sty, elem).each{|k, v|
|
951
|
+
item3 = @tree4.item_create
|
952
|
+
unless $Version_1_1_OrLater
|
953
|
+
@tree4.item_hasbutton(item3, false)
|
954
|
+
end
|
955
|
+
@tree4.item_style_set(item3, 0, 's1')
|
956
|
+
@tree4.item_text(item3, 0, "#{k} #{v.inspect}")
|
957
|
+
@tree4.item_lastchild(item2, item3)
|
958
|
+
}
|
959
|
+
|
960
|
+
@tree4.item_lastchild(item, item2)
|
961
|
+
}
|
962
|
+
|
963
|
+
@tree4.item_lastchild(:root, item)
|
964
|
+
}
|
965
|
+
|
966
|
+
@tree4.xview_moveto(0)
|
967
|
+
@tree4.yview_moveto(0)
|
968
|
+
end
|
969
|
+
|
970
|
+
def display_styles_in_item(item)
|
971
|
+
@tree3.column_configure(0, :text=>"Styles in item #{@tree2.index(item)}")
|
972
|
+
|
973
|
+
# Create elements and styles the first time this is called
|
974
|
+
if @tree3.style_names.empty?
|
975
|
+
@tree3.element_create('e1', :text,
|
976
|
+
:fill=>[@SystemHighlightText,['selected','focus']])
|
977
|
+
@tree3.element_create('e2', :text,
|
978
|
+
:fill=>[
|
979
|
+
@SystemHighlightText, ['selected','focus'],
|
980
|
+
'', ['selected','!focus'],
|
981
|
+
'blue', []
|
982
|
+
])
|
983
|
+
@tree3.element_create('e3', :rect, :showfocus=>true,
|
984
|
+
:fill=>[
|
985
|
+
@SystemHighlight, ['selected','focus'],
|
986
|
+
'gray', ['selected', '!focus']
|
987
|
+
])
|
988
|
+
|
989
|
+
@tree3.style_create('s1')
|
990
|
+
@tree3.style_elements('s1', ['e3', 'e1'])
|
991
|
+
@tree3.style_layout('s1', 'e3', :union=>['e1'], :ipadx=>1, :ipady=>[0,1])
|
992
|
+
|
993
|
+
@tree3.style_create('s2')
|
994
|
+
@tree3.style_elements('s2', ['e3', 'e1', 'e2'])
|
995
|
+
@tree3.style_layout('s2', 'e1', :padx=>[0,4])
|
996
|
+
@tree3.style_layout('s2', 'e3', :union=>['e1', 'e2'],
|
997
|
+
:ipadx=>1, :ipady=>[0,1])
|
998
|
+
end
|
999
|
+
# Clear the list
|
1000
|
+
@tree3.item_delete(:all)
|
1001
|
+
|
1002
|
+
# One item for each item-column
|
1003
|
+
column = 0
|
1004
|
+
@tree2.item_style_set(item).each{|sty|
|
1005
|
+
item2 = @tree3.item_create
|
1006
|
+
if $Version_1_1_OrLater
|
1007
|
+
@tree3.item_collapse(item2)
|
1008
|
+
else
|
1009
|
+
@tree3.collapse(item2)
|
1010
|
+
end
|
1011
|
+
@tree3.item_style_set(item2, 0, 's1')
|
1012
|
+
@tree3.item_element_configure(item2, 0, 'e1',
|
1013
|
+
:text=>"Column #{column}: Style #{sty}")
|
1014
|
+
|
1015
|
+
button = false
|
1016
|
+
|
1017
|
+
# One item for each element in this style
|
1018
|
+
unless sty.to_s.empty?
|
1019
|
+
@tree2.item_style_elements(item, column).each{|elem|
|
1020
|
+
button = true
|
1021
|
+
if $Version_1_1_OrLater
|
1022
|
+
item3 = @tree3.item_create(:button=>true)
|
1023
|
+
else
|
1024
|
+
item3 = @tree3.item_create
|
1025
|
+
@tree3.item_hasbutton(item3, true)
|
1026
|
+
end
|
1027
|
+
if $Version_1_1_OrLater
|
1028
|
+
@tree3.item_collapse(item3)
|
1029
|
+
else
|
1030
|
+
@tree3.collapse(item3)
|
1031
|
+
end
|
1032
|
+
@tree3.item_style_set(item3, 0, 's1')
|
1033
|
+
@tree3.item_element_configure(item3, 0, 'e1',
|
1034
|
+
:text=>"Element #{elem} (#{@tree2.element_type(elem)})")
|
1035
|
+
|
1036
|
+
# One item for each configuration option in this element
|
1037
|
+
@tree2.item_element_configinfo(item, column, elem) \
|
1038
|
+
.each{|name, x, y, default, current|
|
1039
|
+
item4 = @tree3.item_create
|
1040
|
+
masterDefault = @tree2.element_cget(elem, name)
|
1041
|
+
sameAsMaster = (masterDefault == current)
|
1042
|
+
if !sameAsMaster && current == ''
|
1043
|
+
sameAsMaster = true
|
1044
|
+
current = masterDefault
|
1045
|
+
end
|
1046
|
+
|
1047
|
+
if sameAsMaster
|
1048
|
+
@tree3.item_style_set(item4, 0, 's1')
|
1049
|
+
@tree3.item_complex(item4, [
|
1050
|
+
['e1',
|
1051
|
+
{:text=>"#{name} #{current.inspect}"}]
|
1052
|
+
])
|
1053
|
+
else
|
1054
|
+
@tree3.item_style_set(item4, 0, 's2')
|
1055
|
+
@tree3.item_complex(item4, [
|
1056
|
+
['e1', {:text=>name}],
|
1057
|
+
['e2', {:text=>current.inspect}]
|
1058
|
+
])
|
1059
|
+
end
|
1060
|
+
@tree3.item_lastchild(item3, item4)
|
1061
|
+
}
|
1062
|
+
@tree3.item_lastchild(item2, item3)
|
1063
|
+
}
|
1064
|
+
if $Version_1_1_OrLater
|
1065
|
+
@tree3.item_configure(item2, :button=>true) if button
|
1066
|
+
else
|
1067
|
+
@tree3.item_hasbutton(item2, true) if button
|
1068
|
+
end
|
1069
|
+
end
|
1070
|
+
@tree3.item_lastchild(:root, item2)
|
1071
|
+
column += 1
|
1072
|
+
}
|
1073
|
+
|
1074
|
+
@tree3.xview_moveto(0)
|
1075
|
+
@tree3.yview_moveto(0)
|
1076
|
+
end
|
1077
|
+
|
1078
|
+
def demo_clear
|
1079
|
+
# Clear the demo list
|
1080
|
+
@tree2.item_delete(:all)
|
1081
|
+
|
1082
|
+
# Clear all bindings on the demo list added by the previous demo.
|
1083
|
+
# This is why DontDelete is used for the <Selection> binding.
|
1084
|
+
@tree2.notify_bindinfo(@tree2).each{|ev|
|
1085
|
+
@tree2.notify_bind_remove(@tree2, ev)
|
1086
|
+
}
|
1087
|
+
|
1088
|
+
# Clear all run-time states
|
1089
|
+
@tree2.state_names.each{|st| @tree2.state_undefine(st) }
|
1090
|
+
|
1091
|
+
# Clear the styles-in-item list
|
1092
|
+
@tree3.item_delete(:all)
|
1093
|
+
|
1094
|
+
# Delete columns in demo list
|
1095
|
+
while (@tree2.numcolumns > 0)
|
1096
|
+
@tree2.column_delete(0)
|
1097
|
+
end
|
1098
|
+
|
1099
|
+
# Delete all styles in demo list
|
1100
|
+
@tree2.style_delete(*(@tree2.style_names))
|
1101
|
+
|
1102
|
+
# Delete all elements in demo list
|
1103
|
+
@tree2.element_delete(*(@tree2.element_names))
|
1104
|
+
|
1105
|
+
if $Version_1_1_OrLater
|
1106
|
+
@tree2.item_configure(:root, :button=>false)
|
1107
|
+
@tree2.item_expand(:root)
|
1108
|
+
else
|
1109
|
+
@tree2.item_hasbutton(:root, false)
|
1110
|
+
@tree2.expand(:root)
|
1111
|
+
end
|
1112
|
+
|
1113
|
+
# Restore some happy defaults to the demo list
|
1114
|
+
# if $Version_1_1_OrLater
|
1115
|
+
if @has_bgimg
|
1116
|
+
@tree2.configure(:orient=>:vertical, :wrap=>'',
|
1117
|
+
:xscrollincrement=>0, :yscrollincrement=>0,
|
1118
|
+
:itemheight=>0, :showheader=>true,
|
1119
|
+
:background=>'white', :scrollmargin=>0,
|
1120
|
+
:xscrolldelay=>50, :yscrolldelay=>50,
|
1121
|
+
:openbuttonimage=>'', :closedbuttonimage=>'',
|
1122
|
+
:backgroundmode=>:row, :treecolumn=>0, :indent=>19,
|
1123
|
+
:defaultstyle=>'', :backgroundimage=>'')
|
1124
|
+
else
|
1125
|
+
@tree2.configure(:orient=>:vertical, :wrap=>'',
|
1126
|
+
:xscrollincrement=>0, :yscrollincrement=>0,
|
1127
|
+
:itemheight=>0, :showheader=>true,
|
1128
|
+
:background=>'white', :scrollmargin=>0,
|
1129
|
+
:xscrolldelay=>50, :yscrolldelay=>50,
|
1130
|
+
:openbuttonimage=>'', :closedbuttonimage=>'',
|
1131
|
+
:backgroundmode=>:row, :treecolumn=>0, :indent=>19)
|
1132
|
+
end
|
1133
|
+
|
1134
|
+
# Restore default bindings to the demo list
|
1135
|
+
@tree2.bindtags = [ @tree2, Tk::TreeCtrl, @tree2.winfo_toplevel, :all ]
|
1136
|
+
|
1137
|
+
@tree2.winfo_children.each{|w|
|
1138
|
+
w.destroy unless @non_clear_list.include?(w)
|
1139
|
+
}
|
1140
|
+
end
|
1141
|
+
end
|
1142
|
+
|
1143
|
+
TkTreeCtrl_demo.new($ScriptDir)
|
1144
|
+
|
1145
|
+
##############################################
|
1146
|
+
|
1147
|
+
def cursor_window(top = nil)
|
1148
|
+
top.destroy if top.kind_of?(TkWindow) && top.winfo_exist?
|
1149
|
+
top = TkToplevel.new(:title=>'Cursor Window')
|
1150
|
+
|
1151
|
+
c = TkCanvas.new(top, :background=>'white',
|
1152
|
+
:width=>50*10, :highlightthickness=>0,
|
1153
|
+
:borderwidth=>0).pack(:expand=>true, :fill=>:both)
|
1154
|
+
cursors = %w(
|
1155
|
+
X_cursor
|
1156
|
+
arrow
|
1157
|
+
based_arrow_down
|
1158
|
+
based_arrow_up
|
1159
|
+
boat
|
1160
|
+
bogosity
|
1161
|
+
bottom_left_corner
|
1162
|
+
bottom_right_corner
|
1163
|
+
bottom_side
|
1164
|
+
bottom_tee
|
1165
|
+
box_spiral
|
1166
|
+
center_ptr
|
1167
|
+
circle
|
1168
|
+
clock
|
1169
|
+
coffee_mug
|
1170
|
+
cross
|
1171
|
+
cross_reverse
|
1172
|
+
crosshair
|
1173
|
+
diamond_cross
|
1174
|
+
dot
|
1175
|
+
dotbox
|
1176
|
+
double_arrow
|
1177
|
+
draft_large
|
1178
|
+
draft_small
|
1179
|
+
draped_box
|
1180
|
+
exchange
|
1181
|
+
fleur
|
1182
|
+
gobbler
|
1183
|
+
gumby
|
1184
|
+
hand1
|
1185
|
+
hand2
|
1186
|
+
heart
|
1187
|
+
icon
|
1188
|
+
iron_cross
|
1189
|
+
left_ptr
|
1190
|
+
left_side
|
1191
|
+
left_tee
|
1192
|
+
leftbutton
|
1193
|
+
ll_angle
|
1194
|
+
lr_angle
|
1195
|
+
man
|
1196
|
+
middlebutton
|
1197
|
+
mouse
|
1198
|
+
pencil
|
1199
|
+
pirate
|
1200
|
+
plus
|
1201
|
+
question_arrow
|
1202
|
+
right_ptr
|
1203
|
+
right_side
|
1204
|
+
right_tee
|
1205
|
+
rightbutton
|
1206
|
+
rtl_logo
|
1207
|
+
sailboat
|
1208
|
+
sb_down_arrow
|
1209
|
+
sb_h_double_arrow
|
1210
|
+
sb_left_arrow
|
1211
|
+
sb_right_arrow
|
1212
|
+
sb_up_arrow
|
1213
|
+
sb_v_double_arrow
|
1214
|
+
shuttle
|
1215
|
+
sizing
|
1216
|
+
spider
|
1217
|
+
spraycan
|
1218
|
+
star
|
1219
|
+
target
|
1220
|
+
tcross
|
1221
|
+
top_left_arrow
|
1222
|
+
top_left_corner
|
1223
|
+
top_right_corner
|
1224
|
+
top_side
|
1225
|
+
top_tee
|
1226
|
+
trek
|
1227
|
+
ul_angle
|
1228
|
+
umbrella
|
1229
|
+
ur_angle
|
1230
|
+
watch
|
1231
|
+
xterm
|
1232
|
+
)
|
1233
|
+
|
1234
|
+
orig_cursor = c.cursor
|
1235
|
+
col = 0
|
1236
|
+
row = 0
|
1237
|
+
|
1238
|
+
cursors.each{|cur|
|
1239
|
+
x = col * 50
|
1240
|
+
y = row * 40
|
1241
|
+
|
1242
|
+
begin
|
1243
|
+
c.cursor = cur
|
1244
|
+
|
1245
|
+
r = TkcRectangle.new(c, x, y, x+50, y+40,
|
1246
|
+
:fill=>'gray90', :outline=>'black', :width=>2)
|
1247
|
+
t = TkcText.new(c, x+50/2, y+4, :text=>cur, :anchor=>:n, :width=>42)
|
1248
|
+
|
1249
|
+
col += 1
|
1250
|
+
if col >= 10
|
1251
|
+
col = 0
|
1252
|
+
row += 1
|
1253
|
+
end
|
1254
|
+
|
1255
|
+
r.bind('Enter', proc{c.cursor = cur; r.fill = 'linen'})
|
1256
|
+
r.bind('Leave', proc{c.cursor = ''; r.fill = 'gray90'})
|
1257
|
+
|
1258
|
+
t.bind('Enter', proc{c.cursor = cur})
|
1259
|
+
t.bind('Leave', proc{c.cursor = ''})
|
1260
|
+
rescue
|
1261
|
+
c.cursor = orig_cursor
|
1262
|
+
end
|
1263
|
+
}
|
1264
|
+
|
1265
|
+
c.cursor = orig_cursor
|
1266
|
+
c.height = (row + 1) * 40
|
1267
|
+
end
|
1268
|
+
|
1269
|
+
cursor_window()
|
1270
|
+
|
1271
|
+
##############################################
|
1272
|
+
|
1273
|
+
# A little screen magnifier for X11
|
1274
|
+
if Tk::PLATFORM['platform'] == 'unix' && Tk.windowingsystem != 'aqua'
|
1275
|
+
def show_loupe(setting=nil)
|
1276
|
+
loupe = (setting.kind_of?(Hash))? setting: {}
|
1277
|
+
loupe[:zoom] = 3 unless loupe[:zoom]
|
1278
|
+
loupe[:x] = 0 unless loupe[:x]
|
1279
|
+
loupe[:y] = 0 unless loupe[:y]
|
1280
|
+
loupe[:auto] = true unless loupe[:auto]
|
1281
|
+
loupe[:delay] = 500 unless loupe[:delay]
|
1282
|
+
loupe[:image] =
|
1283
|
+
TkPhotoImage.new(:width=>150, :height=>150) unless loupe[:image]
|
1284
|
+
|
1285
|
+
top = TkToplevel.new(:geometry=>'-0+30',
|
1286
|
+
:title=>'A little screen magnifier for X11')
|
1287
|
+
TkLabel.new(top, :image=>loupe[:image]).pack
|
1288
|
+
|
1289
|
+
TkTimer.new(proc{loupe[:delay]}, -1, proc{
|
1290
|
+
x, y = TkWinfo.pointerxy(Tk.root)
|
1291
|
+
if loupe[:auto] || loupe[:x] != x || loupe[:y] != y
|
1292
|
+
w = loupe[:image].width
|
1293
|
+
h = loupe[:image].height
|
1294
|
+
Tk::TreeCtrl.loupe(loupe[:image], x, y, w, h, loupe[:zoom])
|
1295
|
+
loupe[:x] = x
|
1296
|
+
loupe[:y] = y
|
1297
|
+
end
|
1298
|
+
}).start
|
1299
|
+
end
|
1300
|
+
|
1301
|
+
show_loupe()
|
1302
|
+
end
|
1303
|
+
|
1304
|
+
##############################################
|
1305
|
+
|
1306
|
+
Tk.mainloop
|