1  #
   2  # tk/tagfont.rb : control font of tags
   3  #
   4  require 'tk'
   5 
   6  module TkTreatTagFont
   7    def font_configinfo
   8      @parent.tagfont_configinfo(@id)
   9    end
  10  #  alias font font_configinfo
  11 
  12    def font_configure(slot)
  13      @parent.tagfont_configure(@id, slot)
  14      self
  15    end
  16 
  17    def latinfont_configure(ltn, keys=nil)
  18      @parent.latintagfont_configure(@id, ltn, keys)
  19      self
  20    end
  21    alias asciifont_configure latinfont_configure
  22 
  23    def kanjifont_configure(knj, keys=nil)
  24      @parent.kanjitagfont_configure(@id, ltn, keys)
  25      self
  26    end
  27 
  28    def font_copy(win, wintag=nil)
  29      @parent.tagfont_copy(@id, win, wintag)
  30      self
  31    end
  32 
  33    def latinfont_copy(win, wintag=nil)
  34      @parent.latintagfont_copy(@id, win, wintag)
  35      self
  36    end
  37    alias asciifont_copy latinfont_copy
  38 
  39    def kanjifont_copy(win, wintag=nil)
  40      @parent.kanjitagfont_copy(@id, win, wintag)
  41      self
  42    end
  43  end