tk_as_gem 0.0.0

Sign up to get free protection for your applications and to get access to all the features.
Files changed (345) hide show
  1. data/README +22 -0
  2. data/Rakefile +11 -0
  3. data/VERSION +1 -0
  4. data/ext/ChangeLog.tkextlib +935 -0
  5. data/ext/MANUAL_tcltklib.eng +469 -0
  6. data/ext/MANUAL_tcltklib.eucj +579 -0
  7. data/ext/README.1st +19 -0
  8. data/ext/README.ActiveTcl +49 -0
  9. data/ext/README.fork +34 -0
  10. data/ext/README.macosx-aqua +67 -0
  11. data/ext/README.tcltklib +85 -0
  12. data/ext/depend +2 -0
  13. data/ext/extconf.rb +451 -0
  14. data/ext/lib/README +30 -0
  15. data/ext/lib/multi-tk.rb +3491 -0
  16. data/ext/lib/remote-tk.rb +530 -0
  17. data/ext/lib/tcltk.rb +367 -0
  18. data/ext/lib/tk.rb +5584 -0
  19. data/ext/lib/tk/after.rb +6 -0
  20. data/ext/lib/tk/autoload.rb +414 -0
  21. data/ext/lib/tk/bgerror.rb +29 -0
  22. data/ext/lib/tk/bindtag.rb +138 -0
  23. data/ext/lib/tk/button.rb +30 -0
  24. data/ext/lib/tk/canvas.rb +789 -0
  25. data/ext/lib/tk/canvastag.rb +434 -0
  26. data/ext/lib/tk/checkbutton.rb +30 -0
  27. data/ext/lib/tk/clipboard.rb +75 -0
  28. data/ext/lib/tk/clock.rb +71 -0
  29. data/ext/lib/tk/composite.rb +458 -0
  30. data/ext/lib/tk/console.rb +52 -0
  31. data/ext/lib/tk/dialog.rb +326 -0
  32. data/ext/lib/tk/encodedstr.rb +187 -0
  33. data/ext/lib/tk/entry.rb +119 -0
  34. data/ext/lib/tk/event.rb +542 -0
  35. data/ext/lib/tk/font.rb +2344 -0
  36. data/ext/lib/tk/frame.rb +131 -0
  37. data/ext/lib/tk/grid.rb +279 -0
  38. data/ext/lib/tk/image.rb +275 -0
  39. data/ext/lib/tk/itemconfig.rb +1215 -0
  40. data/ext/lib/tk/itemfont.rb +327 -0
  41. data/ext/lib/tk/kinput.rb +71 -0
  42. data/ext/lib/tk/label.rb +21 -0
  43. data/ext/lib/tk/labelframe.rb +29 -0
  44. data/ext/lib/tk/listbox.rb +282 -0
  45. data/ext/lib/tk/macpkg.rb +78 -0
  46. data/ext/lib/tk/menu.rb +681 -0
  47. data/ext/lib/tk/menubar.rb +131 -0
  48. data/ext/lib/tk/menuspec.rb +275 -0
  49. data/ext/lib/tk/message.rb +22 -0
  50. data/ext/lib/tk/mngfocus.rb +33 -0
  51. data/ext/lib/tk/msgcat.rb +296 -0
  52. data/ext/lib/tk/namespace.rb +551 -0
  53. data/ext/lib/tk/optiondb.rb +377 -0
  54. data/ext/lib/tk/optionobj.rb +212 -0
  55. data/ext/lib/tk/pack.rb +107 -0
  56. data/ext/lib/tk/package.rb +143 -0
  57. data/ext/lib/tk/palette.rb +55 -0
  58. data/ext/lib/tk/panedwindow.rb +258 -0
  59. data/ext/lib/tk/place.rb +128 -0
  60. data/ext/lib/tk/radiobutton.rb +71 -0
  61. data/ext/lib/tk/root.rb +95 -0
  62. data/ext/lib/tk/scale.rb +111 -0
  63. data/ext/lib/tk/scrollable.rb +82 -0
  64. data/ext/lib/tk/scrollbar.rb +177 -0
  65. data/ext/lib/tk/scrollbox.rb +39 -0
  66. data/ext/lib/tk/selection.rb +86 -0
  67. data/ext/lib/tk/spinbox.rb +119 -0
  68. data/ext/lib/tk/tagfont.rb +43 -0
  69. data/ext/lib/tk/text.rb +1596 -0
  70. data/ext/lib/tk/textimage.rb +88 -0
  71. data/ext/lib/tk/textmark.rb +204 -0
  72. data/ext/lib/tk/texttag.rb +318 -0
  73. data/ext/lib/tk/textwindow.rb +154 -0
  74. data/ext/lib/tk/timer.rb +669 -0
  75. data/ext/lib/tk/toplevel.rb +262 -0
  76. data/ext/lib/tk/ttk_selector.rb +76 -0
  77. data/ext/lib/tk/txtwin_abst.rb +39 -0
  78. data/ext/lib/tk/validation.rb +397 -0
  79. data/ext/lib/tk/variable.rb +1765 -0
  80. data/ext/lib/tk/virtevent.rb +139 -0
  81. data/ext/lib/tk/winfo.rb +392 -0
  82. data/ext/lib/tk/winpkg.rb +153 -0
  83. data/ext/lib/tk/wm.rb +552 -0
  84. data/ext/lib/tk/xim.rb +122 -0
  85. data/ext/lib/tkafter.rb +4 -0
  86. data/ext/lib/tkbgerror.rb +4 -0
  87. data/ext/lib/tkcanvas.rb +4 -0
  88. data/ext/lib/tkclass.rb +47 -0
  89. data/ext/lib/tkconsole.rb +4 -0
  90. data/ext/lib/tkdialog.rb +4 -0
  91. data/ext/lib/tkentry.rb +4 -0
  92. data/ext/lib/tkextlib/ICONS.rb +13 -0
  93. data/ext/lib/tkextlib/ICONS/icons.rb +129 -0
  94. data/ext/lib/tkextlib/ICONS/setup.rb +8 -0
  95. data/ext/lib/tkextlib/SUPPORT_STATUS +196 -0
  96. data/ext/lib/tkextlib/blt.rb +187 -0
  97. data/ext/lib/tkextlib/blt/barchart.rb +79 -0
  98. data/ext/lib/tkextlib/blt/bitmap.rb +112 -0
  99. data/ext/lib/tkextlib/blt/busy.rb +82 -0
  100. data/ext/lib/tkextlib/blt/component.rb +2145 -0
  101. data/ext/lib/tkextlib/blt/container.rb +28 -0
  102. data/ext/lib/tkextlib/blt/cutbuffer.rb +23 -0
  103. data/ext/lib/tkextlib/blt/dragdrop.rb +268 -0
  104. data/ext/lib/tkextlib/blt/eps.rb +32 -0
  105. data/ext/lib/tkextlib/blt/graph.rb +67 -0
  106. data/ext/lib/tkextlib/blt/htext.rb +111 -0
  107. data/ext/lib/tkextlib/blt/setup.rb +8 -0
  108. data/ext/lib/tkextlib/blt/spline.rb +23 -0
  109. data/ext/lib/tkextlib/blt/stripchart.rb +74 -0
  110. data/ext/lib/tkextlib/blt/table.rb +399 -0
  111. data/ext/lib/tkextlib/blt/tabnotebook.rb +110 -0
  112. data/ext/lib/tkextlib/blt/tabset.rb +500 -0
  113. data/ext/lib/tkextlib/blt/ted.rb +65 -0
  114. data/ext/lib/tkextlib/blt/tile.rb +21 -0
  115. data/ext/lib/tkextlib/blt/tile/button.rb +16 -0
  116. data/ext/lib/tkextlib/blt/tile/checkbutton.rb +17 -0
  117. data/ext/lib/tkextlib/blt/tile/frame.rb +16 -0
  118. data/ext/lib/tkextlib/blt/tile/label.rb +16 -0
  119. data/ext/lib/tkextlib/blt/tile/radiobutton.rb +17 -0
  120. data/ext/lib/tkextlib/blt/tile/scrollbar.rb +16 -0
  121. data/ext/lib/tkextlib/blt/tile/toplevel.rb +16 -0
  122. data/ext/lib/tkextlib/blt/tree.rb +1058 -0
  123. data/ext/lib/tkextlib/blt/treeview.rb +1272 -0
  124. data/ext/lib/tkextlib/blt/unix_dnd.rb +135 -0
  125. data/ext/lib/tkextlib/blt/vector.rb +256 -0
  126. data/ext/lib/tkextlib/blt/watch.rb +175 -0
  127. data/ext/lib/tkextlib/blt/win_printer.rb +61 -0
  128. data/ext/lib/tkextlib/blt/winop.rb +107 -0
  129. data/ext/lib/tkextlib/bwidget.rb +151 -0
  130. data/ext/lib/tkextlib/bwidget/arrowbutton.rb +21 -0
  131. data/ext/lib/tkextlib/bwidget/bitmap.rb +21 -0
  132. data/ext/lib/tkextlib/bwidget/button.rb +31 -0
  133. data/ext/lib/tkextlib/bwidget/buttonbox.rb +90 -0
  134. data/ext/lib/tkextlib/bwidget/combobox.rb +51 -0
  135. data/ext/lib/tkextlib/bwidget/dialog.rb +182 -0
  136. data/ext/lib/tkextlib/bwidget/dragsite.rb +31 -0
  137. data/ext/lib/tkextlib/bwidget/dropsite.rb +39 -0
  138. data/ext/lib/tkextlib/bwidget/dynamichelp.rb +63 -0
  139. data/ext/lib/tkextlib/bwidget/entry.rb +43 -0
  140. data/ext/lib/tkextlib/bwidget/label.rb +41 -0
  141. data/ext/lib/tkextlib/bwidget/labelentry.rb +80 -0
  142. data/ext/lib/tkextlib/bwidget/labelframe.rb +52 -0
  143. data/ext/lib/tkextlib/bwidget/listbox.rb +358 -0
  144. data/ext/lib/tkextlib/bwidget/mainframe.rb +128 -0
  145. data/ext/lib/tkextlib/bwidget/messagedlg.rb +192 -0
  146. data/ext/lib/tkextlib/bwidget/notebook.rb +166 -0
  147. data/ext/lib/tkextlib/bwidget/pagesmanager.rb +73 -0
  148. data/ext/lib/tkextlib/bwidget/panedwindow.rb +37 -0
  149. data/ext/lib/tkextlib/bwidget/panelframe.rb +57 -0
  150. data/ext/lib/tkextlib/bwidget/passwddlg.rb +44 -0
  151. data/ext/lib/tkextlib/bwidget/progressbar.rb +20 -0
  152. data/ext/lib/tkextlib/bwidget/progressdlg.rb +58 -0
  153. data/ext/lib/tkextlib/bwidget/scrollableframe.rb +40 -0
  154. data/ext/lib/tkextlib/bwidget/scrolledwindow.rb +38 -0
  155. data/ext/lib/tkextlib/bwidget/scrollview.rb +25 -0
  156. data/ext/lib/tkextlib/bwidget/selectcolor.rb +73 -0
  157. data/ext/lib/tkextlib/bwidget/selectfont.rb +86 -0
  158. data/ext/lib/tkextlib/bwidget/separator.rb +20 -0
  159. data/ext/lib/tkextlib/bwidget/setup.rb +8 -0
  160. data/ext/lib/tkextlib/bwidget/spinbox.rb +98 -0
  161. data/ext/lib/tkextlib/bwidget/statusbar.rb +52 -0
  162. data/ext/lib/tkextlib/bwidget/titleframe.rb +33 -0
  163. data/ext/lib/tkextlib/bwidget/tree.rb +453 -0
  164. data/ext/lib/tkextlib/bwidget/widget.rb +129 -0
  165. data/ext/lib/tkextlib/itcl.rb +13 -0
  166. data/ext/lib/tkextlib/itcl/incr_tcl.rb +178 -0
  167. data/ext/lib/tkextlib/itcl/setup.rb +13 -0
  168. data/ext/lib/tkextlib/itk.rb +13 -0
  169. data/ext/lib/tkextlib/itk/incr_tk.rb +446 -0
  170. data/ext/lib/tkextlib/itk/setup.rb +13 -0
  171. data/ext/lib/tkextlib/iwidgets.rb +94 -0
  172. data/ext/lib/tkextlib/iwidgets/buttonbox.rb +120 -0
  173. data/ext/lib/tkextlib/iwidgets/calendar.rb +125 -0
  174. data/ext/lib/tkextlib/iwidgets/canvasprintbox.rb +53 -0
  175. data/ext/lib/tkextlib/iwidgets/canvasprintdialog.rb +38 -0
  176. data/ext/lib/tkextlib/iwidgets/checkbox.rb +129 -0
  177. data/ext/lib/tkextlib/iwidgets/combobox.rb +104 -0
  178. data/ext/lib/tkextlib/iwidgets/dateentry.rb +20 -0
  179. data/ext/lib/tkextlib/iwidgets/datefield.rb +58 -0
  180. data/ext/lib/tkextlib/iwidgets/dialog.rb +20 -0
  181. data/ext/lib/tkextlib/iwidgets/dialogshell.rb +120 -0
  182. data/ext/lib/tkextlib/iwidgets/disjointlistbox.rb +50 -0
  183. data/ext/lib/tkextlib/iwidgets/entryfield.rb +185 -0
  184. data/ext/lib/tkextlib/iwidgets/extbutton.rb +40 -0
  185. data/ext/lib/tkextlib/iwidgets/extfileselectionbox.rb +46 -0
  186. data/ext/lib/tkextlib/iwidgets/extfileselectiondialog.rb +33 -0
  187. data/ext/lib/tkextlib/iwidgets/feedback.rb +35 -0
  188. data/ext/lib/tkextlib/iwidgets/fileselectionbox.rb +46 -0
  189. data/ext/lib/tkextlib/iwidgets/fileselectiondialog.rb +33 -0
  190. data/ext/lib/tkextlib/iwidgets/finddialog.rb +42 -0
  191. data/ext/lib/tkextlib/iwidgets/hierarchy.rb +365 -0
  192. data/ext/lib/tkextlib/iwidgets/hyperhelp.rb +50 -0
  193. data/ext/lib/tkextlib/iwidgets/labeledframe.rb +39 -0
  194. data/ext/lib/tkextlib/iwidgets/labeledwidget.rb +45 -0
  195. data/ext/lib/tkextlib/iwidgets/mainwindow.rb +67 -0
  196. data/ext/lib/tkextlib/iwidgets/menubar.rb +211 -0
  197. data/ext/lib/tkextlib/iwidgets/messagebox.rb +92 -0
  198. data/ext/lib/tkextlib/iwidgets/messagedialog.rb +20 -0
  199. data/ext/lib/tkextlib/iwidgets/notebook.rb +174 -0
  200. data/ext/lib/tkextlib/iwidgets/optionmenu.rb +92 -0
  201. data/ext/lib/tkextlib/iwidgets/panedwindow.rb +133 -0
  202. data/ext/lib/tkextlib/iwidgets/promptdialog.rb +131 -0
  203. data/ext/lib/tkextlib/iwidgets/pushbutton.rb +35 -0
  204. data/ext/lib/tkextlib/iwidgets/radiobox.rb +120 -0
  205. data/ext/lib/tkextlib/iwidgets/scopedobject.rb +24 -0
  206. data/ext/lib/tkextlib/iwidgets/scrolledcanvas.rb +353 -0
  207. data/ext/lib/tkextlib/iwidgets/scrolledframe.rb +59 -0
  208. data/ext/lib/tkextlib/iwidgets/scrolledhtml.rb +58 -0
  209. data/ext/lib/tkextlib/iwidgets/scrolledlistbox.rb +207 -0
  210. data/ext/lib/tkextlib/iwidgets/scrolledtext.rb +564 -0
  211. data/ext/lib/tkextlib/iwidgets/scrolledwidget.rb +20 -0
  212. data/ext/lib/tkextlib/iwidgets/selectionbox.rb +102 -0
  213. data/ext/lib/tkextlib/iwidgets/selectiondialog.rb +92 -0
  214. data/ext/lib/tkextlib/iwidgets/setup.rb +8 -0
  215. data/ext/lib/tkextlib/iwidgets/shell.rb +38 -0
  216. data/ext/lib/tkextlib/iwidgets/spindate.rb +48 -0
  217. data/ext/lib/tkextlib/iwidgets/spinint.rb +30 -0
  218. data/ext/lib/tkextlib/iwidgets/spinner.rb +169 -0
  219. data/ext/lib/tkextlib/iwidgets/spintime.rb +48 -0
  220. data/ext/lib/tkextlib/iwidgets/tabnotebook.rb +180 -0
  221. data/ext/lib/tkextlib/iwidgets/tabset.rb +144 -0
  222. data/ext/lib/tkextlib/iwidgets/timeentry.rb +25 -0
  223. data/ext/lib/tkextlib/iwidgets/timefield.rb +58 -0
  224. data/ext/lib/tkextlib/iwidgets/toolbar.rb +112 -0
  225. data/ext/lib/tkextlib/iwidgets/watch.rb +56 -0
  226. data/ext/lib/tkextlib/pkg_checker.rb +184 -0
  227. data/ext/lib/tkextlib/setup.rb +8 -0
  228. data/ext/lib/tkextlib/tcllib.rb +90 -0
  229. data/ext/lib/tkextlib/tcllib/README +135 -0
  230. data/ext/lib/tkextlib/tcllib/autoscroll.rb +158 -0
  231. data/ext/lib/tkextlib/tcllib/ctext.rb +160 -0
  232. data/ext/lib/tkextlib/tcllib/cursor.rb +97 -0
  233. data/ext/lib/tkextlib/tcllib/datefield.rb +57 -0
  234. data/ext/lib/tkextlib/tcllib/dialog.rb +84 -0
  235. data/ext/lib/tkextlib/tcllib/getstring.rb +134 -0
  236. data/ext/lib/tkextlib/tcllib/history.rb +73 -0
  237. data/ext/lib/tkextlib/tcllib/ico.rb +116 -0
  238. data/ext/lib/tkextlib/tcllib/ip_entry.rb +66 -0
  239. data/ext/lib/tkextlib/tcllib/panelframe.rb +72 -0
  240. data/ext/lib/tkextlib/tcllib/plotchart.rb +886 -0
  241. data/ext/lib/tkextlib/tcllib/ruler.rb +65 -0
  242. data/ext/lib/tkextlib/tcllib/screenruler.rb +68 -0
  243. data/ext/lib/tkextlib/tcllib/scrollwin.rb +61 -0
  244. data/ext/lib/tkextlib/tcllib/setup.rb +8 -0
  245. data/ext/lib/tkextlib/tcllib/style.rb +61 -0
  246. data/ext/lib/tkextlib/tcllib/superframe.rb +51 -0
  247. data/ext/lib/tkextlib/tcllib/swaplist.rb +150 -0
  248. data/ext/lib/tkextlib/tcllib/tablelist.rb +27 -0
  249. data/ext/lib/tkextlib/tcllib/tablelist_core.rb +782 -0
  250. data/ext/lib/tkextlib/tcllib/tablelist_tile.rb +25 -0
  251. data/ext/lib/tkextlib/tcllib/tkpiechart.rb +314 -0
  252. data/ext/lib/tkextlib/tcllib/tooltip.rb +95 -0
  253. data/ext/lib/tkextlib/tcllib/widget.rb +48 -0
  254. data/ext/lib/tkextlib/tclx.rb +13 -0
  255. data/ext/lib/tkextlib/tclx/setup.rb +8 -0
  256. data/ext/lib/tkextlib/tclx/tclx.rb +74 -0
  257. data/ext/lib/tkextlib/tile.rb +419 -0
  258. data/ext/lib/tkextlib/tile/dialog.rb +96 -0
  259. data/ext/lib/tkextlib/tile/setup.rb +8 -0
  260. data/ext/lib/tkextlib/tile/sizegrip.rb +29 -0
  261. data/ext/lib/tkextlib/tile/style.rb +316 -0
  262. data/ext/lib/tkextlib/tile/tbutton.rb +33 -0
  263. data/ext/lib/tkextlib/tile/tcheckbutton.rb +36 -0
  264. data/ext/lib/tkextlib/tile/tcombobox.rb +54 -0
  265. data/ext/lib/tkextlib/tile/tentry.rb +48 -0
  266. data/ext/lib/tkextlib/tile/tframe.rb +33 -0
  267. data/ext/lib/tkextlib/tile/tlabel.rb +33 -0
  268. data/ext/lib/tkextlib/tile/tlabelframe.rb +36 -0
  269. data/ext/lib/tkextlib/tile/tmenubutton.rb +36 -0
  270. data/ext/lib/tkextlib/tile/tnotebook.rb +139 -0
  271. data/ext/lib/tkextlib/tile/tpaned.rb +231 -0
  272. data/ext/lib/tkextlib/tile/tprogressbar.rb +56 -0
  273. data/ext/lib/tkextlib/tile/tradiobutton.rb +36 -0
  274. data/ext/lib/tkextlib/tile/treeview.rb +1239 -0
  275. data/ext/lib/tkextlib/tile/tscale.rb +53 -0
  276. data/ext/lib/tkextlib/tile/tscrollbar.rb +54 -0
  277. data/ext/lib/tkextlib/tile/tseparator.rb +33 -0
  278. data/ext/lib/tkextlib/tile/tsquare.rb +30 -0
  279. data/ext/lib/tkextlib/tkDND.rb +18 -0
  280. data/ext/lib/tkextlib/tkDND/setup.rb +8 -0
  281. data/ext/lib/tkextlib/tkDND/shape.rb +125 -0
  282. data/ext/lib/tkextlib/tkDND/tkdnd.rb +182 -0
  283. data/ext/lib/tkextlib/tkHTML.rb +13 -0
  284. data/ext/lib/tkextlib/tkHTML/htmlwidget.rb +453 -0
  285. data/ext/lib/tkextlib/tkHTML/setup.rb +8 -0
  286. data/ext/lib/tkextlib/tkimg.rb +36 -0
  287. data/ext/lib/tkextlib/tkimg/README +26 -0
  288. data/ext/lib/tkextlib/tkimg/bmp.rb +33 -0
  289. data/ext/lib/tkextlib/tkimg/gif.rb +33 -0
  290. data/ext/lib/tkextlib/tkimg/ico.rb +33 -0
  291. data/ext/lib/tkextlib/tkimg/jpeg.rb +33 -0
  292. data/ext/lib/tkextlib/tkimg/pcx.rb +33 -0
  293. data/ext/lib/tkextlib/tkimg/pixmap.rb +44 -0
  294. data/ext/lib/tkextlib/tkimg/png.rb +33 -0
  295. data/ext/lib/tkextlib/tkimg/ppm.rb +33 -0
  296. data/ext/lib/tkextlib/tkimg/ps.rb +33 -0
  297. data/ext/lib/tkextlib/tkimg/setup.rb +8 -0
  298. data/ext/lib/tkextlib/tkimg/sgi.rb +33 -0
  299. data/ext/lib/tkextlib/tkimg/sun.rb +33 -0
  300. data/ext/lib/tkextlib/tkimg/tga.rb +33 -0
  301. data/ext/lib/tkextlib/tkimg/tiff.rb +33 -0
  302. data/ext/lib/tkextlib/tkimg/window.rb +33 -0
  303. data/ext/lib/tkextlib/tkimg/xbm.rb +33 -0
  304. data/ext/lib/tkextlib/tkimg/xpm.rb +33 -0
  305. data/ext/lib/tkextlib/tktable.rb +14 -0
  306. data/ext/lib/tkextlib/tktable/setup.rb +8 -0
  307. data/ext/lib/tkextlib/tktable/tktable.rb +957 -0
  308. data/ext/lib/tkextlib/tktrans.rb +14 -0
  309. data/ext/lib/tkextlib/tktrans/setup.rb +8 -0
  310. data/ext/lib/tkextlib/tktrans/tktrans.rb +64 -0
  311. data/ext/lib/tkextlib/treectrl.rb +13 -0
  312. data/ext/lib/tkextlib/treectrl/setup.rb +8 -0
  313. data/ext/lib/tkextlib/treectrl/tktreectrl.rb +2461 -0
  314. data/ext/lib/tkextlib/trofs.rb +13 -0
  315. data/ext/lib/tkextlib/trofs/setup.rb +8 -0
  316. data/ext/lib/tkextlib/trofs/trofs.rb +51 -0
  317. data/ext/lib/tkextlib/version.rb +6 -0
  318. data/ext/lib/tkextlib/vu.rb +48 -0
  319. data/ext/lib/tkextlib/vu/bargraph.rb +61 -0
  320. data/ext/lib/tkextlib/vu/charts.rb +53 -0
  321. data/ext/lib/tkextlib/vu/dial.rb +102 -0
  322. data/ext/lib/tkextlib/vu/pie.rb +282 -0
  323. data/ext/lib/tkextlib/vu/setup.rb +8 -0
  324. data/ext/lib/tkextlib/vu/spinbox.rb +22 -0
  325. data/ext/lib/tkextlib/winico.rb +14 -0
  326. data/ext/lib/tkextlib/winico/setup.rb +8 -0
  327. data/ext/lib/tkextlib/winico/winico.rb +224 -0
  328. data/ext/lib/tkfont.rb +4 -0
  329. data/ext/lib/tkmacpkg.rb +4 -0
  330. data/ext/lib/tkmenubar.rb +4 -0
  331. data/ext/lib/tkmngfocus.rb +4 -0
  332. data/ext/lib/tkpalette.rb +4 -0
  333. data/ext/lib/tkscrollbox.rb +4 -0
  334. data/ext/lib/tktext.rb +4 -0
  335. data/ext/lib/tkvirtevent.rb +4 -0
  336. data/ext/lib/tkwinpkg.rb +4 -0
  337. data/ext/old-README.tcltklib.eucj +159 -0
  338. data/ext/stubs.c +531 -0
  339. data/ext/stubs.h +33 -0
  340. data/ext/tcltklib.c +10155 -0
  341. data/ext/tkutil/.cvsignore +3 -0
  342. data/ext/tkutil/depend +1 -0
  343. data/ext/tkutil/extconf.rb +14 -0
  344. data/ext/tkutil/tkutil.c +1789 -0
  345. metadata +418 -0
@@ -0,0 +1,154 @@
1
+ #
2
+ # tk/textwindow.rb - treat Tk text window object
3
+ #
4
+ require 'tk'
5
+ require 'tk/text'
6
+
7
+ class TkTextWindow<TkObject
8
+ include Tk::Text::IndexModMethods
9
+
10
+ def initialize(parent, index, keys = {})
11
+ #unless parent.kind_of?(Tk::Text)
12
+ # fail ArgumentError, "expect Tk::Text for 1st argument"
13
+ #end
14
+ @t = parent
15
+ if index == 'end' || index == :end
16
+ @path = TkTextMark.new(@t, tk_call_without_enc(@t.path, 'index',
17
+ 'end - 1 chars'))
18
+ elsif index.kind_of?(TkTextMark)
19
+ if tk_call_without_enc(@t.path,'index',index.path) == tk_call_without_enc(@t.path,'index','end')
20
+ @path = TkTextMark.new(@t, tk_call_without_enc(@t.path, 'index',
21
+ 'end - 1 chars'))
22
+ else
23
+ @path = TkTextMark.new(@t, tk_call_without_enc(@t.path, 'index',
24
+ index.path))
25
+ end
26
+ else
27
+ @path = TkTextMark.new(@t, tk_call_without_enc(@t.path, 'index', _get_eval_enc_str(index)))
28
+ end
29
+ @path.gravity = 'left'
30
+ @index = @path.path
31
+ keys = _symbolkey2str(keys)
32
+ @id = keys['window']
33
+ # keys['window'] = @id.epath if @id.kind_of?(TkWindow)
34
+ keys['window'] = _epath(@id) if @id
35
+ if keys['create']
36
+ @p_create = keys['create']
37
+ # if @p_create.kind_of?(Proc)
38
+ if TkComm._callback_entry?(@p_create)
39
+ =begin
40
+ keys['create'] = install_cmd(proc{
41
+ @id = @p_create.call
42
+ if @id.kind_of?(TkWindow)
43
+ @id.epath
44
+ else
45
+ @id
46
+ end
47
+ })
48
+ =end
49
+ keys['create'] = install_cmd(proc{@id = @p_create.call; _epath(@id)})
50
+ end
51
+ end
52
+ tk_call_without_enc(@t.path, 'window', 'create', @index,
53
+ *hash_kv(keys, true))
54
+ @path.gravity = 'right'
55
+ end
56
+
57
+ def id
58
+ Tk::Text::IndexString.new(_epath(@id))
59
+ end
60
+ def mark
61
+ @path
62
+ end
63
+
64
+ def [](slot)
65
+ cget(slot)
66
+ end
67
+ def []=(slot, value)
68
+ configure(slot, value)
69
+ value
70
+ end
71
+
72
+ def cget(slot)
73
+ @t.window_cget(@index, slot)
74
+ end
75
+ def cget_strict(slot)
76
+ @t.window_cget_strict(@index, slot)
77
+ end
78
+
79
+ def configure(slot, value=None)
80
+ if slot.kind_of?(Hash)
81
+ slot = _symbolkey2str(slot)
82
+ if slot['window']
83
+ @id = slot['window']
84
+ # slot['window'] = @id.epath if @id.kind_of?(TkWindow)
85
+ slot['window'] = _epath(@id) if @id
86
+ end
87
+ if slot['create']
88
+ self.create=slot.delete('create')
89
+ end
90
+ if slot.size > 0
91
+ tk_call_without_enc(@t.path, 'window', 'configure', @index,
92
+ *hash_kv(slot, true))
93
+ end
94
+ else
95
+ if slot == 'window' || slot == :window
96
+ @id = value
97
+ # value = @id.epath if @id.kind_of?(TkWindow)
98
+ value = _epath(@id) if @id
99
+ end
100
+ if slot == 'create' || slot == :create
101
+ self.create=value
102
+ else
103
+ tk_call_without_enc(@t.path, 'window', 'configure', @index,
104
+ "-#{slot}", _get_eval_enc_str(value))
105
+ end
106
+ end
107
+ self
108
+ end
109
+
110
+ def configinfo(slot = nil)
111
+ @t.window_configinfo(@index, slot)
112
+ end
113
+
114
+ def current_configinfo(slot = nil)
115
+ @t.current_window_configinfo(@index, slot)
116
+ end
117
+
118
+ def window
119
+ @id
120
+ end
121
+
122
+ def window=(value)
123
+ @id = value
124
+ # value = @id.epath if @id.kind_of?(TkWindow)
125
+ value = _epath(@id) if @id
126
+ tk_call_without_enc(@t.path, 'window', 'configure', @index,
127
+ '-window', _get_eval_enc_str(value))
128
+ value
129
+ end
130
+
131
+ def create
132
+ @p_create
133
+ end
134
+
135
+ def create=(value)
136
+ @p_create = value
137
+ # if @p_create.kind_of?(Proc)
138
+ if TkComm._callback_entry?(@p_create)
139
+ value = install_cmd(proc{
140
+ @id = @p_create.call
141
+ if @id.kind_of?(TkWindow)
142
+ @id.epath
143
+ else
144
+ @id
145
+ end
146
+ })
147
+ end
148
+ tk_call_without_enc(@t.path, 'window', 'configure', @index,
149
+ '-create', _get_eval_enc_str(value))
150
+ value
151
+ end
152
+ end
153
+
154
+ TktWindow = TkTextWindow
@@ -0,0 +1,669 @@
1
+ #
2
+ # tk/timer.rb : methods for Tcl/Tk after command
3
+ #
4
+ # $Id: timer.rb 17083 2008-06-10 20:59:10Z nagai $
5
+ #
6
+ require 'tk'
7
+
8
+ class TkTimer
9
+ include TkCore
10
+ extend TkCore
11
+
12
+ TkCommandNames = ['after'.freeze].freeze
13
+
14
+ (Tk_CBID = ['a'.freeze, '00000'.taint]).instance_eval{
15
+ @mutex = Mutex.new
16
+ def mutex; @mutex; end
17
+ freeze
18
+ }
19
+
20
+ Tk_CBTBL = {}.taint
21
+
22
+ TkCore::INTERP.add_tk_procs('rb_after', 'id', <<-'EOL')
23
+ if {[set st [catch {eval {ruby_cmd TkTimer callback} $id} ret]] != 0} {
24
+ return -code $st $ret
25
+ } {
26
+ return $ret
27
+ }
28
+ EOL
29
+
30
+ DEFAULT_IGNORE_EXCEPTIONS = [ NameError, RuntimeError ].freeze
31
+
32
+ ###############################
33
+ # class methods
34
+ ###############################
35
+ def self.start(*args, &b)
36
+ self.new(*args, &b).start
37
+ end
38
+
39
+ def self.callback(obj_id)
40
+ ex_obj = Tk_CBTBL[obj_id]
41
+ return "" if ex_obj == nil; # canceled
42
+ ex_obj.cb_call
43
+ end
44
+
45
+ def self.info(obj = nil)
46
+ if obj
47
+ if obj.kind_of?(TkTimer)
48
+ if obj.after_id
49
+ inf = tk_split_list(tk_call_without_enc('after','info',obj.after_id))
50
+ [Tk_CBTBL[inf[0][1]], inf[1]]
51
+ else
52
+ nil
53
+ end
54
+ else
55
+ fail ArgumentError, "TkTimer object is expected"
56
+ end
57
+ else
58
+ tk_call_without_enc('after', 'info').split(' ').collect!{|id|
59
+ ret = Tk_CBTBL.find{|key,val| val.after_id == id}
60
+ (ret == nil)? id: ret[1]
61
+ }
62
+ end
63
+ end
64
+
65
+
66
+ ###############################
67
+ # instance methods
68
+ ###############################
69
+ def do_callback
70
+ @in_callback = true
71
+ @after_id = nil
72
+ begin
73
+ @return_value = @current_proc.call(self)
74
+ rescue SystemExit
75
+ exit(0)
76
+ rescue Interrupt
77
+ exit!(1)
78
+ rescue Exception => e
79
+ if @cancel_on_exception &&
80
+ @cancel_on_exception.find{|exc| e.kind_of?(exc)}
81
+ cancel
82
+ @return_value = e
83
+ @in_callback = false
84
+ return e
85
+ else
86
+ fail e
87
+ end
88
+ end
89
+ if @set_next
90
+ set_next_callback(@current_args)
91
+ else
92
+ @set_next = true
93
+ end
94
+ @in_callback = false
95
+ @return_value
96
+ end
97
+
98
+ def set_callback(sleep, args=nil)
99
+ if TkCore::INTERP.deleted?
100
+ self.cancel
101
+ return self
102
+ end
103
+ @after_script = "rb_after #{@id}"
104
+ @current_args = args
105
+ @current_script = [sleep, @after_script]
106
+ @after_id = tk_call_without_enc('after', sleep, @after_script)
107
+ self
108
+ end
109
+
110
+ def set_next_callback(args)
111
+ if @running == false || @proc_max == 0 || @do_loop == 0
112
+ Tk_CBTBL.delete(@id) ;# for GC
113
+ @running = false
114
+ # @wait_var.value = 0
115
+ __at_end__
116
+ return
117
+ end
118
+ if @current_pos >= @proc_max
119
+ if @do_loop < 0 || (@do_loop -= 1) > 0
120
+ @current_pos = 0
121
+ else
122
+ Tk_CBTBL.delete(@id) ;# for GC
123
+ @running = false
124
+ # @wait_var.value = 0
125
+ __at_end__
126
+ return
127
+ end
128
+ end
129
+
130
+ @current_args = args
131
+
132
+ # if @sleep_time.kind_of?(Proc)
133
+ if TkComm._callback_entry?(@sleep_time)
134
+ sleep = @sleep_time.call(self)
135
+ else
136
+ sleep = @sleep_time
137
+ end
138
+ @current_sleep = sleep
139
+
140
+ cmd, *cmd_args = @loop_proc[@current_pos]
141
+ @current_pos += 1
142
+ @current_proc = cmd
143
+
144
+ set_callback(sleep, cmd_args)
145
+ end
146
+
147
+ def initialize(*args, &b)
148
+ Tk_CBID.mutex.synchronize{
149
+ # @id = Tk_CBID.join('')
150
+ @id = Tk_CBID.join(TkCore::INTERP._ip_id_)
151
+ Tk_CBID[1].succ!
152
+ }
153
+
154
+ @wait_var = TkVariable.new(0)
155
+
156
+ @at_end_proc = nil
157
+
158
+ @cb_cmd = TkCore::INTERP.get_cb_entry(self.method(:do_callback))
159
+
160
+ @set_next = true
161
+
162
+ @init_sleep = 0
163
+ @init_proc = nil
164
+ @init_args = []
165
+
166
+ @current_script = []
167
+ @current_proc = nil
168
+ @current_args = nil
169
+ @return_value = nil
170
+
171
+ @sleep_time = 0
172
+ @current_sleep = 0
173
+ @loop_exec = 0
174
+ @do_loop = 0
175
+ @loop_proc = []
176
+ @proc_max = 0
177
+ @current_pos = 0
178
+
179
+ @after_id = nil
180
+ @after_script = nil
181
+
182
+ @cancel_on_exception = DEFAULT_IGNORE_EXCEPTIONS
183
+ # Unless @cancel_on_exception, Ruby/Tk shows an error dialog box when
184
+ # an excepsion is raised on TkTimer callback procedure.
185
+ # If @cancel_on_exception is an array of exception classes and the raised
186
+ # exception is included in the array, Ruby/Tk cancels executing TkTimer
187
+ # callback procedures silently (TkTimer#cancel is called and no dialog is
188
+ # shown).
189
+
190
+ if b
191
+ case args.size
192
+ when 0
193
+ add_procs(b)
194
+ when 1
195
+ args << -1 << b
196
+ else
197
+ args << b
198
+ end
199
+ end
200
+
201
+ set_procs(*args) if args != []
202
+
203
+ @running = false
204
+ @in_callback = false
205
+ end
206
+
207
+ attr :after_id
208
+ attr :after_script
209
+ attr :current_proc
210
+ attr :current_args
211
+ attr :current_sleep
212
+ alias :current_interval :current_sleep
213
+ attr :return_value
214
+
215
+ attr_accessor :loop_exec
216
+
217
+ def __at_end__
218
+ @at_end_proc.call(self) if @at_end_proc
219
+ @wait_var.value = 0 # for wait
220
+ end
221
+ private :__at_end__
222
+
223
+ def cb_call
224
+ @cb_cmd.call
225
+ end
226
+
227
+ def get_procs
228
+ [@init_sleep, @init_proc, @init_args, @sleep_time, @loop_exec, @loop_proc]
229
+ end
230
+
231
+ def current_status
232
+ [@running, @current_sleep, @current_proc, @current_args,
233
+ @do_loop, @cancel_on_exception]
234
+ end
235
+
236
+ def cancel_on_exception?
237
+ @cancel_on_exception
238
+ end
239
+
240
+ def cancel_on_exception=(mode)
241
+ if mode.kind_of?(Array)
242
+ @cancel_on_exception = mode
243
+ elsif mode
244
+ @cancel_on_exception = DEFAULT_IGNORE_EXCEPTIONS
245
+ else
246
+ @cancel_on_exception = false
247
+ end
248
+ #self
249
+ end
250
+
251
+ def running?
252
+ @running
253
+ end
254
+
255
+ def loop_rest
256
+ @do_loop
257
+ end
258
+
259
+ def loop_rest=(rest)
260
+ @do_loop = rest
261
+ #self
262
+ end
263
+
264
+ def set_interval(interval)
265
+ #if interval != 'idle' && interval != :idle \
266
+ # && !interval.kind_of?(Integer) && !interval.kind_of?(Proc)
267
+ if interval != 'idle' && interval != :idle \
268
+ && !interval.kind_of?(Integer) && !TkComm._callback_entry?(interval)
269
+ fail ArgumentError, "expect Integer or Proc"
270
+ end
271
+ @sleep_time = interval
272
+ end
273
+
274
+ def set_procs(interval, loop_exec, *procs)
275
+ #if interval != 'idle' && interval != :idle \
276
+ # && !interval.kind_of?(Integer) && !interval.kind_of?(Proc)
277
+ if interval != 'idle' && interval != :idle \
278
+ && !interval.kind_of?(Integer) && !TkComm._callback_entry?(interval)
279
+ fail ArgumentError, "expect Integer or Proc for 1st argument"
280
+ end
281
+ @sleep_time = interval
282
+
283
+ @loop_proc = []
284
+ procs.each{|e|
285
+ # if e.kind_of?(Proc)
286
+ if TkComm._callback_entry?(e)
287
+ @loop_proc.push([e])
288
+ else
289
+ @loop_proc.push(e)
290
+ end
291
+ }
292
+ @proc_max = @loop_proc.size
293
+ @current_pos = 0
294
+
295
+ if loop_exec.kind_of?(Integer) && loop_exec < 0
296
+ @loop_exec = -1
297
+ elsif loop_exec == true
298
+ @loop_exec = -1
299
+ elsif loop_exec == nil || loop_exec == false || loop_exec == 0
300
+ @loop_exec = 0
301
+ else
302
+ if not loop_exec.kind_of?(Integer)
303
+ fail ArgumentError, "expect Integer for 2nd argument"
304
+ end
305
+ @loop_exec = loop_exec
306
+ end
307
+ @do_loop = @loop_exec
308
+
309
+ self
310
+ end
311
+
312
+ def add_procs(*procs)
313
+ procs.each{|e|
314
+ # if e.kind_of?(Proc)
315
+ if TkComm._callback_entry?(e)
316
+ @loop_proc.push([e])
317
+ else
318
+ @loop_proc.push(e)
319
+ end
320
+ }
321
+ @proc_max = @loop_proc.size
322
+
323
+ self
324
+ end
325
+
326
+ def delete_procs(*procs)
327
+ procs.each{|e|
328
+ # if e.kind_of?(Proc)
329
+ if TkComm._callback_entry?(e)
330
+ @loop_proc.delete([e])
331
+ else
332
+ @loop_proc.delete(e)
333
+ end
334
+ }
335
+ @proc_max = @loop_proc.size
336
+
337
+ cancel if @proc_max == 0
338
+
339
+ self
340
+ end
341
+
342
+ def delete_at(n)
343
+ @loop_proc.delete_at(n)
344
+ @proc_max = @loop_proc.size
345
+ cancel if @proc_max == 0
346
+ self
347
+ end
348
+
349
+ def set_start_proc(sleep=nil, init_proc=nil, *init_args, &b)
350
+ # set parameters for 'restart'
351
+ sleep = @init_sleep unless sleep
352
+
353
+ if sleep != 'idle' && sleep != :idle && !sleep.kind_of?(Integer)
354
+ fail ArgumentError, "expect Integer or 'idle' for 1st argument"
355
+ end
356
+
357
+ @init_sleep = sleep
358
+ @init_proc = init_proc
359
+ @init_args = init_args
360
+
361
+ @init_proc = b if !@init_proc && b
362
+ @init_proc = proc{|*args| } if @init_sleep > 0 && !@init_proc
363
+
364
+ self
365
+ end
366
+
367
+ def start(*init_args, &b)
368
+ return nil if @running
369
+
370
+ Tk_CBTBL[@id] = self
371
+ @do_loop = @loop_exec
372
+ @current_pos = 0
373
+ @return_value = nil
374
+ @after_id = nil
375
+
376
+ @init_sleep = 0
377
+ @init_proc = nil
378
+ @init_args = nil
379
+
380
+ argc = init_args.size
381
+ if argc > 0
382
+ sleep = init_args.shift
383
+ if sleep != 'idle' && sleep != :idle && !sleep.kind_of?(Integer)
384
+ fail ArgumentError, "expect Integer or 'idle' for 1st argument"
385
+ end
386
+ @init_sleep = sleep
387
+ end
388
+ @init_proc = init_args.shift if argc > 1
389
+ @init_args = init_args if argc > 2
390
+
391
+ @init_proc = b if !@init_proc && b
392
+ @init_proc = proc{|*args| } if @init_sleep > 0 && !@init_proc
393
+
394
+ @current_sleep = @init_sleep
395
+ @running = true
396
+ if @init_proc
397
+ # if not @init_proc.kind_of?(Proc)
398
+ if !TkComm._callback_entry?(@init_proc)
399
+ fail ArgumentError, "Argument '#{@init_proc}' need to be Proc"
400
+ end
401
+ @current_proc = @init_proc
402
+ set_callback(@init_sleep, @init_args)
403
+ @set_next = false if @in_callback
404
+ else
405
+ set_next_callback(@init_args)
406
+ end
407
+
408
+ self
409
+ end
410
+
411
+ def reset(*reset_args)
412
+ restart() if @running
413
+
414
+ if @init_proc
415
+ @return_value = @init_proc.call(self)
416
+ else
417
+ @return_value = nil
418
+ end
419
+
420
+ @current_pos = 0
421
+ @current_args = @init_args
422
+ @current_script = []
423
+
424
+ @set_next = false if @in_callback
425
+
426
+ self
427
+ end
428
+
429
+ def restart(*restart_args, &b)
430
+ cancel if @running
431
+ if restart_args == [] && !b
432
+ start(@init_sleep, @init_proc, *@init_args)
433
+ else
434
+ start(*restart_args, &b)
435
+ end
436
+ end
437
+
438
+ def cancel
439
+ @running = false
440
+ # @wait_var.value = 0
441
+ __at_end__
442
+ tk_call 'after', 'cancel', @after_id if @after_id
443
+ @after_id = nil
444
+
445
+ Tk_CBTBL.delete(@id) ;# for GC
446
+ self
447
+ end
448
+ alias stop cancel
449
+
450
+ def continue(wait=nil)
451
+ fail RuntimeError, "is already running" if @running
452
+ return restart() if @current_script.empty?
453
+ sleep, cmd = @current_script
454
+ fail RuntimeError, "no procedure to continue" unless cmd
455
+ if wait
456
+ unless wait.kind_of?(Integer)
457
+ fail ArgumentError, "expect Integer for 1st argument"
458
+ end
459
+ sleep = wait
460
+ end
461
+ Tk_CBTBL[@id] = self
462
+ @running = true
463
+ @after_id = tk_call_without_enc('after', sleep, cmd)
464
+ self
465
+ end
466
+
467
+ def skip
468
+ fail RuntimeError, "is not running now" unless @running
469
+ cancel
470
+ Tk_CBTBL[@id] = self
471
+ @running = true
472
+ set_next_callback(@current_args)
473
+ self
474
+ end
475
+
476
+ def info
477
+ if @after_id
478
+ inf = tk_split_list(tk_call_without_enc('after', 'info', @after_id))
479
+ [Tk_CBTBL[inf[0][1]], inf[1]]
480
+ else
481
+ nil
482
+ end
483
+ end
484
+
485
+ def at_end(*arg, &b)
486
+ if arg.empty?
487
+ if b
488
+ @at_end_proc = b
489
+ else
490
+ # no proc
491
+ return @at_end_proc
492
+ end
493
+ else
494
+ fail ArgumentError, "wrong number of arguments" if arg.length != 1 || b
495
+ @at_end_proc = arg[0]
496
+ end
497
+ self
498
+ end
499
+
500
+ def wait(on_thread = true, check_root = false)
501
+ if $SAFE >= 4
502
+ fail SecurityError, "can't wait timer at $SAFE >= 4"
503
+ end
504
+
505
+ unless @running
506
+ if @return_value.kind_of?(Exception)
507
+ fail @return_value
508
+ else
509
+ return @return_value
510
+ end
511
+ end
512
+
513
+ @wait_var.wait(on_thread, check_root)
514
+ if @return_value.kind_of?(Exception)
515
+ fail @return_value
516
+ else
517
+ @return_value
518
+ end
519
+ end
520
+ def eventloop_wait(check_root = false)
521
+ wait(false, check_root)
522
+ end
523
+ def thread_wait(check_root = false)
524
+ wait(true, check_root)
525
+ end
526
+ def tkwait(on_thread = true)
527
+ wait(on_thread, true)
528
+ end
529
+ def eventloop_tkwait
530
+ wait(false, true)
531
+ end
532
+ def thread_tkwait
533
+ wait(true, true)
534
+ end
535
+ end
536
+
537
+ TkAfter = TkTimer
538
+
539
+
540
+ class TkRTTimer < TkTimer
541
+ DEFAULT_OFFSET_LIST_SIZE = 5
542
+
543
+ def initialize(*args, &b)
544
+ super(*args, &b)
545
+
546
+ @offset_list = Array.new(DEFAULT_OFFSET_LIST_SIZE){ [0, 0] }
547
+ @offset_s = 0
548
+ @offset_u = 0
549
+ @est_time = nil
550
+ end
551
+
552
+ def start(*args, &b)
553
+ return nil if @running
554
+ @est_time = nil
555
+ @cb_start_time = Time.now
556
+ super(*args, &b)
557
+ end
558
+
559
+ def cancel
560
+ super()
561
+ @est_time = nil
562
+ @cb_start_time = Time.now
563
+ self
564
+ end
565
+ alias stop cancel
566
+
567
+ def continue(wait=nil)
568
+ fail RuntimeError, "is already running" if @running
569
+ @cb_start_time = Time.now
570
+ super(wait)
571
+ end
572
+
573
+ def set_interval(interval)
574
+ super(interval)
575
+ @est_time = nil
576
+ end
577
+
578
+ def _offset_ave
579
+ size = 0
580
+ d_sec = 0; d_usec = 0
581
+ @offset_list.each_with_index{|offset, idx|
582
+ # weight = 1
583
+ weight = idx + 1
584
+ size += weight
585
+ d_sec += offset[0] * weight
586
+ d_usec += offset[1] * weight
587
+ }
588
+ offset_s, mod = d_sec.divmod(size)
589
+ offset_u = ((mod * 1000000 + d_usec) / size.to_f).round
590
+ [offset_s, offset_u]
591
+ end
592
+ private :_offset_ave
593
+
594
+ def set_next_callback(args)
595
+ if @running == false || @proc_max == 0 || @do_loop == 0
596
+ Tk_CBTBL.delete(@id) ;# for GC
597
+ @running = false
598
+ # @wait_var.value = 0
599
+ __at_end__
600
+ return
601
+ end
602
+ if @current_pos >= @proc_max
603
+ if @do_loop < 0 || (@do_loop -= 1) > 0
604
+ @current_pos = 0
605
+ else
606
+ Tk_CBTBL.delete(@id) ;# for GC
607
+ @running = false
608
+ # @wait_var.value = 0
609
+ __at_end__
610
+ return
611
+ end
612
+ end
613
+
614
+ @current_args = args
615
+
616
+ cmd, *cmd_args = @loop_proc[@current_pos]
617
+ @current_pos += 1
618
+ @current_proc = cmd
619
+
620
+ @offset_s, @offset_u = _offset_ave
621
+
622
+ if TkComm._callback_entry?(@sleep_time)
623
+ sleep = @sleep_time.call(self)
624
+ else
625
+ sleep = @sleep_time
626
+ end
627
+
628
+ if @est_time
629
+ @est_time = Time.at(@est_time.to_i, @est_time.usec + sleep*1000)
630
+ else
631
+ @est_time = Time.at(@cb_start_time.to_i,
632
+ @cb_start_time.usec + sleep*1000)
633
+ end
634
+
635
+ now = Time.now
636
+ real_sleep = ((@est_time.to_i - now.to_i + @offset_s)*1000.0 +
637
+ (@est_time.usec - now.usec + @offset_u)/1000.0).round
638
+ if real_sleep <= 0
639
+ real_sleep = 0
640
+ @offset_s = now.to_i
641
+ @offset_u = now.usec
642
+ end
643
+ @current_sleep = real_sleep
644
+
645
+ set_callback(real_sleep, cmd_args)
646
+ end
647
+
648
+ def cb_call
649
+ if @est_time
650
+ @offset_list.shift
651
+
652
+ @cb_start_time = Time.now
653
+
654
+ if @current_sleep == 0
655
+ @offset_list.push([
656
+ @offset_s - @cb_start_time.to_i,
657
+ @offset_u - @cb_start_time.usec
658
+ ])
659
+ else
660
+ @offset_list.push([
661
+ @offset_s + (@est_time.to_i - @cb_start_time.to_i),
662
+ @offset_u + (@est_time.usec - @cb_start_time.usec)
663
+ ])
664
+ end
665
+ end
666
+
667
+ @cb_cmd.call
668
+ end
669
+ end