1#
2#  tkextlib/tcllib/style.rb
3#                               by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
4#
5#   * Part of tcllib extension
6#   * select and use some 'style' of option (resource) DB
7#
8
9require 'tk'
10require 'tkextlib/tcllib.rb'
11
12module Tk::Tcllib
13  module Style
14    PACKAGE_NAME = 'style'.freeze
15    def self.package_name
16      PACKAGE_NAME
17    end
18
19    def self.package_version
20      begin
21        TkPackage.require('style')
22      rescue
23        ''
24      end
25    end
26
27    def self.not_available
28      fail RuntimeError, "'tkextlib/tcllib/style' extension is not available on your current environment."
29    end
30
31    def self.names
32      Tk::Tcllib::Style.not_available
33    end
34
35    def self.use(style)
36      Tk::Tcllib::Style.not_available
37    end
38  end
39end
40
41# TkPackage.require('style', '0.1')
42# TkPackage.require('style', '0.3')
43TkPackage.require('style')
44
45module Tk::Tcllib
46  class << Style
47    undef not_available
48  end
49
50  module Style
51    extend TkCore
52
53    def self.names
54      tk_split_simplelist(tk_call('style::names'))
55    end
56
57    def self.use(style)
58      tk_call('style::use', style)
59    end
60  end
61end
62