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