1# 2# tkextlib/tcllib/canvas.rb 3# by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp) 4# 5# * Part of tcllib extension 6# * 7# 8 9require 'tk' 10require 'tkextlib/tcllib.rb' 11 12# TkPackage.require('widget::canvas_sqmap', '0.2') 13TkPackage.require('widget::canvas_sqmap') 14 15module Tk::Tcllib 16 module Widget 17 class Canvas_Sqmap < Canvas 18 TkCommandNames = ['::widget::canvas_sqmap'.freeze].freeze 19 20 def image_set(cell, img) 21 tk_send('image', 'set', cell, img) 22 self 23 end 24 25 def image_unset(cell) 26 tk_send('image', 'unset', cell) 27 self 28 end 29 30 def flush 31 tk_send('flush') 32 self 33 end 34 end 35 end 36end 37