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,119 @@
1
+ #
2
+ # tk/entry.rb - Tk entry classes
3
+ # by Yukihiro Matsumoto <matz@caelum.co.jp>
4
+
5
+ require 'tk'
6
+ require 'tk/label'
7
+ require 'tk/scrollable'
8
+ require 'tk/validation'
9
+
10
+ class Tk::Entry<Tk::Label
11
+ include X_Scrollable
12
+ include TkValidation
13
+
14
+ TkCommandNames = ['entry'.freeze].freeze
15
+ WidgetClassName = 'Entry'.freeze
16
+ WidgetClassNames[WidgetClassName] = self
17
+
18
+ #def create_self(keys)
19
+ # super(__conv_vcmd_on_hash_kv(keys))
20
+ #end
21
+ #private :create_self
22
+
23
+ def __strval_optkeys
24
+ super() + ['show', 'disabledbackground', 'readonlybackground']
25
+ end
26
+ private :__strval_optkeys
27
+
28
+ def bbox(index)
29
+ list(tk_send_without_enc('bbox', index))
30
+ end
31
+ def cursor
32
+ number(tk_send_without_enc('index', 'insert'))
33
+ end
34
+ alias icursor cursor
35
+ def cursor=(index)
36
+ tk_send_without_enc('icursor', index)
37
+ #self
38
+ index
39
+ end
40
+ alias icursor= cursor=
41
+ def index(idx)
42
+ number(tk_send_without_enc('index', idx))
43
+ end
44
+ def insert(pos,text)
45
+ tk_send_without_enc('insert', pos, _get_eval_enc_str(text))
46
+ self
47
+ end
48
+ def delete(first, last=None)
49
+ tk_send_without_enc('delete', first, last)
50
+ self
51
+ end
52
+ def mark(pos)
53
+ tk_send_without_enc('scan', 'mark', pos)
54
+ self
55
+ end
56
+ def dragto(pos)
57
+ tk_send_without_enc('scan', 'dragto', pos)
58
+ self
59
+ end
60
+ def selection_adjust(index)
61
+ tk_send_without_enc('selection', 'adjust', index)
62
+ self
63
+ end
64
+ def selection_clear
65
+ tk_send_without_enc('selection', 'clear')
66
+ self
67
+ end
68
+ def selection_from(index)
69
+ tk_send_without_enc('selection', 'from', index)
70
+ self
71
+ end
72
+ def selection_present()
73
+ bool(tk_send_without_enc('selection', 'present'))
74
+ end
75
+ def selection_range(s, e)
76
+ tk_send_without_enc('selection', 'range', s, e)
77
+ self
78
+ end
79
+ def selection_to(index)
80
+ tk_send_without_enc('selection', 'to', index)
81
+ self
82
+ end
83
+
84
+ def invoke_validate
85
+ bool(tk_send_without_enc('validate'))
86
+ end
87
+ def validate(mode = nil)
88
+ if mode
89
+ configure 'validate', mode
90
+ else
91
+ invoke_validate
92
+ end
93
+ end
94
+
95
+ def value
96
+ _fromUTF8(tk_send_without_enc('get'))
97
+ end
98
+ def value= (val)
99
+ tk_send_without_enc('delete', 0, 'end')
100
+ tk_send_without_enc('insert', 0, _get_eval_enc_str(val))
101
+ val
102
+ end
103
+ alias get value
104
+ alias set value=
105
+
106
+ def [](*args)
107
+ self.value[*args]
108
+ end
109
+ def []=(*args)
110
+ val = args.pop
111
+ str = self.value
112
+ str[*args] = val
113
+ self.value = str
114
+ val
115
+ end
116
+ end
117
+
118
+ #TkEntry = Tk::Entry unless Object.const_defined? :TkEntry
119
+ Tk.__set_toplevel_aliases__(:Tk, Tk::Entry, :TkEntry)
@@ -0,0 +1,542 @@
1
+ #
2
+ # tk/event.rb - module for event
3
+ #
4
+
5
+ module TkEvent
6
+ end
7
+
8
+ ########################
9
+
10
+ require 'tkutil'
11
+ require 'tk'
12
+
13
+ ########################
14
+
15
+ module TkEvent
16
+ class Event < TkUtil::CallbackSubst
17
+ module Grp
18
+ KEY = 0x1
19
+ BUTTON = 0x2
20
+ MOTION = 0x4
21
+ CROSSING = 0x8
22
+ FOCUS = 0x10
23
+ EXPOSE = 0x20
24
+ VISIBILITY = 0x40
25
+ CREATE = 0x80
26
+ DESTROY = 0x100
27
+ UNMAP = 0x200
28
+ MAP = 0x400
29
+ REPARENT = 0x800
30
+ CONFIG = 0x1000
31
+ GRAVITY = 0x2000
32
+ CIRC = 0x4000
33
+ PROP = 0x8000
34
+ COLORMAP = 0x10000
35
+ VIRTUAL = 0x20000
36
+ ACTIVATE = 0x40000
37
+ MAPREQ = 0x80000
38
+ CONFIGREQ = 0x100000
39
+ RESIZEREQ = 0x200000
40
+ CIRCREQ = 0x400000
41
+
42
+ MWHEEL = KEY
43
+
44
+ STRING_DATA = 0x80000000 # special flag for 'data' field
45
+
46
+ ALL = 0xFFFFFFFF
47
+
48
+ KEY_BUTTON_MOTION_VIRTUAL = (KEY|MWHEEL|BUTTON|MOTION|VIRTUAL)
49
+ KEY_BUTTON_MOTION_CROSSING = (KEY|MWHEEL|BUTTON|MOTION|CROSSING|VIRTUAL)
50
+ end
51
+
52
+ type_data = [
53
+ #-----+-------------------+------------------+-----------------------#
54
+ # ID | const | group_flag | context_name #
55
+ #-----+-------------------+------------------+-----------------------#
56
+ [ 2, :KeyPress, Grp::KEY, 'KeyPress', 'Key' ],
57
+ [ 3, :KeyRelease, Grp::KEY, 'KeyRelease' ],
58
+ [ 4, :ButtonPress, Grp::BUTTON, 'ButtonPress', 'Button' ],
59
+ [ 5, :ButtonRelease, Grp::BUTTON, 'ButtonRelease' ],
60
+ [ 6, :MotionNotify, Grp::MOTION, 'Motion' ],
61
+ [ 7, :EnterNotify, Grp::CROSSING, 'Enter' ],
62
+ [ 8, :LeaveNotify, Grp::CROSSING, 'Leave' ],
63
+ [ 9, :FocusIn, Grp::FOCUS, 'FocusIn' ],
64
+ [ 10, :FocusOut, Grp::FOCUS, 'FocusOut' ],
65
+ [ 11, :KeymapNotify, 0, ],
66
+ [ 12, :Expose, Grp::EXPOSE, 'Expose' ],
67
+ [ 13, :GraphicsExpose, Grp::EXPOSE, ],
68
+ [ 14, :NoExpose, 0, ],
69
+ [ 15, :VisibilityNotify, Grp::VISIBILITY, 'Visibility' ],
70
+ [ 16, :CreateNotify, Grp::CREATE, 'Create' ],
71
+ [ 17, :DestroyNotify, Grp::DESTROY, 'Destroy' ],
72
+ [ 18, :UnmapNotify, Grp::UNMAP, 'Unmap' ],
73
+ [ 19, :MapNotify, Grp::MAP, 'Map' ],
74
+ [ 20, :MapRequest, Grp::MAPREQ, 'MapRequest' ],
75
+ [ 21, :ReparentNotify, Grp::REPARENT, 'Reparent' ],
76
+ [ 22, :ConfigureNotify, Grp::CONFIG, 'Configure' ],
77
+ [ 23, :ConfigureRequest, Grp::CONFIGREQ, 'ConfigureRequest' ],
78
+ [ 24, :GravityNotify, Grp::GRAVITY, 'Gravity' ],
79
+ [ 25, :ResizeRequest, Grp::RESIZEREQ, 'ResizeRequest' ],
80
+ [ 26, :CirculateNotify, Grp::CIRC, 'Circulate' ],
81
+ [ 27, :CirculateRequest, 0, 'CirculateRequest' ],
82
+ [ 28, :PropertyNotify, Grp::PROP, 'Property' ],
83
+ [ 29, :SelectionClear, 0, ],
84
+ [ 30, :SelectionRequest, 0, ],
85
+ [ 31, :SelectionNotify, 0, ],
86
+ [ 32, :ColormapNotify, Grp::COLORMAP, 'Colormap' ],
87
+ [ 33, :ClientMessage, 0, ],
88
+ [ 34, :MappingNotify, 0, ],
89
+ [ 35, :VirtualEvent, Grp::VIRTUAL, ],
90
+ [ 36, :ActivateNotify, Grp::ACTIVATE, 'Activate' ],
91
+ [ 37, :DeactivateNotify, Grp::ACTIVATE, 'Deactivate' ],
92
+ [ 38, :MouseWheelEvent, Grp::MWHEEL, 'MouseWheel' ],
93
+ [ 39, :TK_LASTEVENT, 0, ]
94
+ ]
95
+
96
+ module TypeNum
97
+ end
98
+
99
+ TYPE_NAME_TBL = Hash.new
100
+ TYPE_ID_TBL = Hash.new
101
+ TYPE_GROUP_TBL = Hash.new
102
+
103
+ type_data.each{|id, c_name, g_flag, *t_names|
104
+ TypeNum.const_set(c_name, id)
105
+ t_names.each{|t_name| t_name.freeze; TYPE_NAME_TBL[t_name] = id }
106
+ TYPE_ID_TBL[id] = t_names
107
+ TYPE_GROUP_TBL[id] = g_flag
108
+ }
109
+
110
+ TYPE_NAME_TBL.freeze
111
+ TYPE_ID_TBL.freeze
112
+
113
+ def self.type_id(name)
114
+ TYPE_NAME_TBL[name.to_s]
115
+ end
116
+
117
+ def self.type_name(id)
118
+ TYPE_ID_TBL[id] && TYPE_ID_TBL[id][0]
119
+ end
120
+
121
+ def self.group_flag(id)
122
+ TYPE_GROUP_TBL[id] || 0
123
+ end
124
+
125
+ #############################################
126
+
127
+ module StateMask
128
+ ShiftMask = (1<<0)
129
+ LockMask = (1<<1)
130
+ ControlMask = (1<<2)
131
+ Mod1Mask = (1<<3)
132
+ Mod2Mask = (1<<4)
133
+ Mod3Mask = (1<<5)
134
+ Mod4Mask = (1<<6)
135
+ Mod5Mask = (1<<7)
136
+ Button1Mask = (1<<8)
137
+ Button2Mask = (1<<9)
138
+ Button3Mask = (1<<10)
139
+ Button4Mask = (1<<11)
140
+ Button5Mask = (1<<12)
141
+
142
+ AnyModifier = (1<<15)
143
+
144
+ META_MASK = (AnyModifier<<1)
145
+ ALT_MASK = (AnyModifier<<2)
146
+ EXTENDED_MASK = (AnyModifier<<3)
147
+
148
+ CommandMask = Mod1Mask
149
+ OptionMask = Mod2Mask
150
+ end
151
+
152
+ #############################################
153
+
154
+ FIELD_FLAG = {
155
+ # key => flag
156
+ 'above' => Grp::CONFIG,
157
+ 'borderwidth' => (Grp::CREATE|Grp::CONFIG),
158
+ 'button' => Grp::BUTTON,
159
+ 'count' => Grp::EXPOSE,
160
+ 'data' => (Grp::VIRTUAL|Grp::STRING_DATA),
161
+ 'delta' => Grp::MWHEEL,
162
+ 'detail' => (Grp::FOCUS|Grp::CROSSING),
163
+ 'focus' => Grp::CROSSING,
164
+ 'height' => (Grp::EXPOSE|Grp::CONFIG),
165
+ 'keycode' => Grp::KEY,
166
+ 'keysym' => Grp::KEY,
167
+ 'mode' => (Grp::CROSSING|Grp::FOCUS),
168
+ 'override' => (Grp::CREATE|Grp::MAP|Grp::REPARENT|Grp::CONFIG),
169
+ 'place' => Grp::CIRC,
170
+ 'root' => (Grp::KEY_BUTTON_MOTION_VIRTUAL|Grp::CROSSING),
171
+ 'rootx' => (Grp::KEY_BUTTON_MOTION_VIRTUAL|Grp::CROSSING),
172
+ 'rooty' => (Grp::KEY_BUTTON_MOTION_VIRTUAL|Grp::CROSSING),
173
+ 'sendevent' => Grp::ALL,
174
+ 'serial' => Grp::ALL,
175
+ 'state' => (Grp::KEY_BUTTON_MOTION_VIRTUAL|
176
+ Grp::CROSSING|Grp::VISIBILITY),
177
+ 'subwindow' => (Grp::KEY_BUTTON_MOTION_VIRTUAL|Grp::CROSSING),
178
+ 'time' => (Grp::KEY_BUTTON_MOTION_VIRTUAL|Grp::CROSSING|
179
+ Grp::PROP),
180
+ 'warp' => Grp::KEY_BUTTON_MOTION_VIRTUAL,
181
+ 'width' => (Grp::EXPOSE|Grp::CREATE|Grp::CONFIG),
182
+ 'window' => (Grp::CREATE|Grp::UNMAP|Grp::MAP|Grp::REPARENT|
183
+ Grp::CONFIG|Grp::GRAVITY|Grp::CIRC),
184
+ 'when' => Grp::ALL,
185
+ 'x' => (Grp::KEY_BUTTON_MOTION_VIRTUAL|Grp::CROSSING|
186
+ Grp::EXPOSE|Grp::CREATE|Grp::CONFIG|Grp::GRAVITY|
187
+ Grp::REPARENT),
188
+ 'y' => (Grp::KEY_BUTTON_MOTION_VIRTUAL|Grp::CROSSING|
189
+ Grp::EXPOSE|Grp::CREATE|Grp::CONFIG|Grp::GRAVITY|
190
+ Grp::REPARENT),
191
+ }
192
+
193
+ FIELD_OPERATION = {
194
+ 'root' => proc{|val|
195
+ begin
196
+ Tk.tk_call_without_enc('winfo', 'pathname', val)
197
+ val
198
+ rescue
199
+ nil
200
+ end
201
+ },
202
+
203
+ 'subwindow' => proc{|val|
204
+ begin
205
+ Tk.tk_call_without_enc('winfo', 'pathname', val)
206
+ val
207
+ rescue
208
+ nil
209
+ end
210
+ },
211
+
212
+ 'window' => proc{|val| nil}
213
+ }
214
+
215
+ #-------------------------------------------
216
+
217
+ def valid_fields(group_flag=nil)
218
+ group_flag = self.class.group_flag(self.type) unless group_flag
219
+
220
+ fields = {}
221
+ FIELD_FLAG.each{|key, flag|
222
+ next if (flag & group_flag) == 0
223
+ begin
224
+ val = self.__send__(key)
225
+ rescue
226
+ next
227
+ end
228
+ # next if !val || val == '??'
229
+ next if !val || (val == '??' && (flag & Grp::STRING_DATA))
230
+ fields[key] = val
231
+ }
232
+
233
+ fields
234
+ end
235
+
236
+ def valid_for_generate(group_flag=nil)
237
+ fields = valid_fields(group_flag)
238
+
239
+ FIELD_OPERATION.each{|key, cmd|
240
+ next unless fields.has_key?(key)
241
+ val = FIELD_OPERATION[key].call(fields[key])
242
+ if val
243
+ fields[key] = val
244
+ else
245
+ fields.delete(key)
246
+ end
247
+ }
248
+
249
+ fields
250
+ end
251
+
252
+ def generate(win, modkeys={})
253
+ klass = self.class
254
+
255
+ if modkeys.has_key?(:type) || modkeys.has_key?('type')
256
+ modkeys = TkComm._symbolkey2str(modkeys)
257
+ type_id = modkeys.delete('type')
258
+ else
259
+ type_id = self.type
260
+ end
261
+
262
+ type_name = klass.type_name(type_id)
263
+ unless type_name
264
+ fail RuntimeError, "type_id #{type_id} is invalid"
265
+ end
266
+
267
+ group_flag = klass.group_flag(type_id)
268
+
269
+ opts = valid_for_generate(group_flag)
270
+
271
+ modkeys.each{|key, val|
272
+ if val
273
+ opts[key.to_s] = val
274
+ else
275
+ opts.delete(key.to_s)
276
+ end
277
+ }
278
+
279
+ if group_flag != Grp::KEY
280
+ Tk.event_generate(win, type_name, opts)
281
+ else
282
+ # If type is KEY event, focus should be set to target widget.
283
+ # If not set, original widget will get the same event.
284
+ # That will make infinite loop.
285
+ w = Tk.tk_call_without_enc('focus')
286
+ begin
287
+ Tk.tk_call_without_enc('focus', win)
288
+ Tk.event_generate(win, type_name, opts)
289
+ ensure
290
+ Tk.tk_call_without_enc('focus', w)
291
+ end
292
+ end
293
+ end
294
+
295
+ #############################################
296
+
297
+ # [ <'%' subst-key char>, <proc type char>, <instance var (accessor) name>]
298
+ KEY_TBL = [
299
+ [ ?#, ?n, :serial ],
300
+ [ ?a, ?s, :above ],
301
+ [ ?b, ?n, :num ],
302
+ [ ?c, ?n, :count ],
303
+ [ ?d, ?s, :detail ],
304
+ # ?e
305
+ [ ?f, ?b, :focus ],
306
+ # ?g
307
+ [ ?h, ?n, :height ],
308
+ [ ?i, ?s, :win_hex ],
309
+ # ?j
310
+ [ ?k, ?n, :keycode ],
311
+ # ?l
312
+ [ ?m, ?s, :mode ],
313
+ # ?n
314
+ [ ?o, ?b, :override ],
315
+ [ ?p, ?s, :place ],
316
+ # ?q
317
+ # ?r
318
+ [ ?s, ?x, :state ],
319
+ [ ?t, ?n, :time ],
320
+ # ?u
321
+ [ ?v, ?n, :value_mask ],
322
+ [ ?w, ?n, :width ],
323
+ [ ?x, ?n, :x ],
324
+ [ ?y, ?n, :y ],
325
+ # ?z
326
+ [ ?A, ?s, :char ],
327
+ [ ?B, ?n, :borderwidth ],
328
+ # ?C
329
+ [ ?D, ?n, :wheel_delta ],
330
+ [ ?E, ?b, :send_event ],
331
+ # ?F
332
+ # ?G
333
+ # ?H
334
+ # ?I
335
+ # ?J
336
+ [ ?K, ?s, :keysym ],
337
+ # ?L
338
+ # ?M
339
+ [ ?N, ?n, :keysym_num ],
340
+ # ?O
341
+ [ ?P, ?s, :property ],
342
+ # ?Q
343
+ [ ?R, ?s, :rootwin_id ],
344
+ [ ?S, ?s, :subwindow ],
345
+ [ ?T, ?n, :type ],
346
+ # ?U
347
+ # ?V
348
+ [ ?W, ?w, :widget ],
349
+ [ ?X, ?n, :x_root ],
350
+ [ ?Y, ?n, :y_root ],
351
+ # ?Z
352
+ nil
353
+ ]
354
+
355
+ # [ <'%' subst-key str>, <proc type char>, <instance var (accessor) name>]
356
+ # the subst-key string will be converted to a bytecode (128+idx).
357
+ LONGKEY_TBL = [
358
+ # for example, for %CTT and %CST subst-key on tkdnd-2.0
359
+ # ['CTT', ?l, :drop_target_type],
360
+ # ['CST', ?l, :drop_source_type],
361
+ ]
362
+
363
+ # [ <proc type char>, <proc/method to convert tcl-str to ruby-obj>]
364
+ PROC_TBL = [
365
+ [ ?n, TkComm.method(:num_or_str) ],
366
+ [ ?s, TkComm.method(:string) ],
367
+ [ ?b, TkComm.method(:bool) ],
368
+ [ ?w, TkComm.method(:window) ],
369
+
370
+ [ ?x, proc{|val|
371
+ begin
372
+ TkComm::number(val)
373
+ rescue ArgumentError
374
+ val
375
+ end
376
+ }
377
+ ],
378
+
379
+ nil
380
+ ]
381
+
382
+ =begin
383
+ # for Ruby m17n :: ?x --> String --> char-code ( getbyte(0) )
384
+ KEY_TBL.map!{|inf|
385
+ if inf.kind_of?(Array)
386
+ inf[0] = inf[0].getbyte(0) if inf[0].kind_of?(String)
387
+ inf[1] = inf[1].getbyte(0) if inf[1].kind_of?(String)
388
+ end
389
+ inf
390
+ }
391
+
392
+ PROC_TBL.map!{|inf|
393
+ if inf.kind_of?(Array)
394
+ inf[0] = inf[0].getbyte(0) if inf[0].kind_of?(String)
395
+ end
396
+ inf
397
+ }
398
+ =end
399
+
400
+ # setup tables to be used by scan_args, _get_subst_key, _get_all_subst_keys
401
+ #
402
+ # _get_subst_key() and _get_all_subst_keys() generates key-string
403
+ # which describe how to convert callback arguments to ruby objects.
404
+ # When binding parameters are given, use _get_subst_key().
405
+ # But when no parameters are given, use _get_all_subst_keys() to
406
+ # create a Event class object as a callback parameter.
407
+ #
408
+ # scan_args() is used when doing callback. It convert arguments
409
+ # ( which are Tcl strings ) to ruby objects based on the key string
410
+ # that is generated by _get_subst_key() or _get_all_subst_keys().
411
+ #
412
+ _setup_subst_table(KEY_TBL, PROC_TBL)
413
+ # _setup_subst_table(KEY_TBL, LONGKEY_TBL, PROC_TBL) # if use longname-keys
414
+
415
+ #
416
+ # NOTE: The order of parameters which passed to callback procedure is
417
+ # <extra_arg>, <extra_arg>, ... , <subst_arg>, <subst_arg>, ...
418
+ #
419
+
420
+ # If you need support extra arguments given by Tcl/Tk,
421
+ # please override _get_extra_args_tbl
422
+ #
423
+ #def self._get_extra_args_tbl
424
+ # # return an array of convert procs
425
+ # []
426
+ #end
427
+
428
+ =begin
429
+ alias button num
430
+ alias delta wheel_delta
431
+ alias root rootwin_id
432
+ alias rootx x_root
433
+ alias root_x x_root
434
+ alias rooty y_root
435
+ alias root_y y_root
436
+ alias sendevent send_event
437
+ =end
438
+ ALIAS_TBL = {
439
+ :button => :num,
440
+ :data => :detail,
441
+ :delta => :wheel_delta,
442
+ :root => :rootwin_id,
443
+ :rootx => :x_root,
444
+ :root_x => :x_root,
445
+ :rooty => :y_root,
446
+ :root_y => :y_root,
447
+ :sendevent => :send_event,
448
+ :window => :widget
449
+ }
450
+
451
+ _define_attribute_aliases(ALIAS_TBL)
452
+
453
+ end
454
+
455
+ ###############################################
456
+
457
+ def install_bind_for_event_class(klass, cmd, *args)
458
+ extra_args_tbl = klass._get_extra_args_tbl
459
+
460
+ if args.compact.size > 0
461
+ args.map!{|arg| klass._sym2subst(arg)}
462
+ args = args.join(' ')
463
+ keys = klass._get_subst_key(args)
464
+
465
+ if cmd.kind_of?(String)
466
+ id = cmd
467
+ elsif cmd.kind_of?(TkCallbackEntry)
468
+ id = install_cmd(cmd)
469
+ else
470
+ id = install_cmd(proc{|*arg|
471
+ ex_args = []
472
+ extra_args_tbl.reverse_each{|conv| ex_args << conv.call(arg.pop)}
473
+ begin
474
+ TkUtil.eval_cmd(cmd, *(ex_args.concat(klass.scan_args(keys, arg))))
475
+ rescue Exception=>e
476
+ if TkCore::INTERP.kind_of?(TclTkIp)
477
+ fail e
478
+ else
479
+ # MultiTkIp
480
+ fail Exception, "#{e.class}: #{e.message.dup}"
481
+ end
482
+ end
483
+ })
484
+ end
485
+ else
486
+ keys, args = klass._get_all_subst_keys
487
+
488
+ if cmd.kind_of?(String)
489
+ id = cmd
490
+ elsif cmd.kind_of?(TkCallbackEntry)
491
+ id = install_cmd(cmd)
492
+ else
493
+ id = install_cmd(proc{|*arg|
494
+ ex_args = []
495
+ extra_args_tbl.reverse_each{|conv| ex_args << conv.call(arg.pop)}
496
+ begin
497
+ TkUtil.eval_cmd(cmd, *(ex_args << klass.new(*klass.scan_args(keys, arg))))
498
+ rescue Exception=>e
499
+ if TkCore::INTERP.kind_of?(TclTkIp)
500
+ fail e
501
+ else
502
+ # MultiTkIp
503
+ fail Exception, "#{e.class}: #{e.message.dup}"
504
+ end
505
+ end
506
+ })
507
+ end
508
+ end
509
+
510
+ if TkCore::INTERP.kind_of?(TclTkIp)
511
+ id + ' ' + args
512
+ else
513
+ # MultiTkIp
514
+ "if {[set st [catch {#{id} #{args}} ret]] != 0} {
515
+ if {$st == 4} {
516
+ return -code continue $ret
517
+ } elseif {$st == 3} {
518
+ return -code break $ret
519
+ } elseif {$st == 2} {
520
+ return -code return $ret
521
+ } elseif {[regexp {^Exception: (TkCallbackContinue: .*)$} \
522
+ $ret m msg]} {
523
+ return -code continue $msg
524
+ } elseif {[regexp {^Exception: (TkCallbackBreak: .*)$} $ret m msg]} {
525
+ return -code break $msg
526
+ } elseif {[regexp {^Exception: (TkCallbackReturn: .*)$} $ret m msg]} {
527
+ return -code return $msg
528
+ } elseif {[regexp {^Exception: (\\S+: .*)$} $ret m msg]} {
529
+ return -code return $msg
530
+ } else {
531
+ return -code error $ret
532
+ }
533
+ } else {
534
+ set ret
535
+ }"
536
+ end
537
+ end
538
+
539
+ def install_bind(cmd, *args)
540
+ install_bind_for_event_class(TkEvent::Event, cmd, *args)
541
+ end
542
+ end