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