155 lines
5.0 KiB
Ruby
155 lines
5.0 KiB
Ruby
#!/usr/bin/env ruby
|
|
#
|
|
# ttk_wrapper.rb -- use Ttk widgets as default on old Ruby/Tk scripts
|
|
#
|
|
# by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
|
|
#
|
|
version = '0.1.3'
|
|
#
|
|
##########################################################################
|
|
# parse commandline arguments
|
|
##########################################################################
|
|
require 'optparse'
|
|
opt = OptionParser.new("Usage: #{$0} [options] rubytk_script" << "\n " <<
|
|
"Ruby/Tk script wrapper. Use Ttk widgets as default.")
|
|
opt.version = version
|
|
|
|
OPTS = {}
|
|
OPTS[:themedir] = []
|
|
OPTS[:rb_theme] = []
|
|
OPTS[:theme] = 'default'
|
|
|
|
opt.on('-l', '--list', 'list available theme names'){|v| OPTS[:list] = true}
|
|
opt.on('-t', '--theme theme', 'theme name'){|v| OPTS[:theme] = v}
|
|
opt.on('-d', '--themedir themes_dir', 'directory of theme definitions'){|v|
|
|
OPTS[:themedir] << v
|
|
}
|
|
opt.on('-r', '--rubytheme rb_theme', 'theme definition file (ruby script)'){|v|
|
|
OPTS[:rb_theme] << v
|
|
}
|
|
opt.on('-v', '--verbose', 'print verbose messages'){|v| OPTS[:verbose] = true}
|
|
|
|
opt.parse!(ARGV)
|
|
|
|
|
|
##########################################################################
|
|
# load Ttk (Tile) extension
|
|
##########################################################################
|
|
require 'tk'
|
|
|
|
begin
|
|
require 'tkextlib/tile'
|
|
Tk.default_widget_set = :Ttk
|
|
rescue LoadError
|
|
if OPTS[:verbose]
|
|
print "warning: fail to load 'Ttk' extension. use standard widgets.\n"
|
|
end
|
|
end
|
|
|
|
if OPTS[:verbose]
|
|
print "current default widget set is '#{Tk.default_widget_set}'\n"
|
|
end
|
|
|
|
|
|
##########################################################################
|
|
# define Tcl/Tk procedures for compatibility.
|
|
# those are required when want to use themes included
|
|
# in "sample/tkextlib/tile/demo.rb".
|
|
##########################################################################
|
|
Tk::Tile.__define_LoadImages_proc_for_compatibility__!
|
|
Tk::Tile::Style.__define_wrapper_proc_for_compatibility__!
|
|
|
|
|
|
##########################################################################
|
|
# use themes defined on the demo of Ttk (Tile) extension
|
|
##########################################################################
|
|
demodir = File.dirname(__FILE__)
|
|
demo_themesdir = File.expand_path(File.join(demodir, 'tkextlib', 'tile', 'themes'))
|
|
|
|
Tk::AUTO_PATH.lappend(*OPTS[:themedir]) unless OPTS[:themedir].empty?
|
|
Tk::AUTO_PATH.lappend('.', demodir, demo_themesdir)
|
|
|
|
OPTS[:themedir] << demo_themesdir
|
|
print "theme-dirs: #{OPTS[:themedir].inspect}\n" if OPTS[:verbose]
|
|
|
|
OPTS[:themedir].each{|themesdir|
|
|
if File.directory?(themesdir)
|
|
Dir.foreach(themesdir){|name|
|
|
next if name == '.' || name == '..'
|
|
path = File.join(themesdir, name)
|
|
Tk::AUTO_PATH.lappend(path) if File.directory?(path)
|
|
}
|
|
end
|
|
}
|
|
|
|
# This forces an update of the available packages list. It's required
|
|
# for package names to find the themes in demos/themes/*.tcl
|
|
Tk.ip_eval("#{TkPackage.unknown_proc} Tcl #{TkPackage.provide('Tcl')}")
|
|
|
|
# load themes written in Ruby.
|
|
themes_by_ruby = [File.join(demo_themesdir, 'kroc.rb')]
|
|
themes_by_ruby.concat OPTS[:rb_theme]
|
|
print "ruby-themes: #{themes_by_ruby.inspect}\n" if OPTS[:verbose]
|
|
|
|
themes_by_ruby.each{|f|
|
|
begin
|
|
load(f, true)
|
|
rescue LoadError
|
|
print "fail to load \"#{f}\"\n" if OPTS[:verbose]
|
|
end
|
|
}
|
|
|
|
|
|
##########################################################################
|
|
# ignore unsupported options of Ttk widgets
|
|
##########################################################################
|
|
TkConfigMethod.__set_IGNORE_UNKNOWN_CONFIGURE_OPTION__! true
|
|
TkItemConfigMethod.__set_IGNORE_UNKNOWN_CONFIGURE_OPTION__! true
|
|
|
|
|
|
##########################################################################
|
|
# set theme of widget style
|
|
##########################################################################
|
|
if OPTS[:list] || OPTS[:verbose]
|
|
print "supported theme names: #{Tk::Tile.themes.inspect}\n"
|
|
exit if OPTS[:list] && ARGV.empty?
|
|
end
|
|
print "use theme: \"#{OPTS[:theme]}\"\n" if OPTS[:theme] && OPTS[:verbose]
|
|
#setTheme(OPTS[:theme]) if OPTS[:theme]
|
|
Tk::Tile.set_theme(OPTS[:theme]) if OPTS[:theme]
|
|
|
|
|
|
##########################################################################
|
|
# replace $0 and $RPAGRAM_NAME
|
|
##########################################################################
|
|
# When the expand_path of the target script is long, ruby sometimes
|
|
# fails to set the path to $0 (the path string is trimmed).
|
|
# The following replaces $0 and $PROGNAME to avoid such trouble.
|
|
progname_obj = $0.dup
|
|
$program_name = progname_obj
|
|
|
|
alias $REAL_PROGRAM_NAME $0
|
|
alias $PROGRAM_NAME $program_name
|
|
alias $0 $program_name
|
|
|
|
trace_var(:$program_name){|val|
|
|
unless progname_obj.object_id == val.object_id
|
|
progname_obj.replace(val.to_s)
|
|
$program_name = progname_obj
|
|
end
|
|
}
|
|
|
|
|
|
##########################################################################
|
|
# load script
|
|
##########################################################################
|
|
if (path = ARGV.shift) && (script = File.expand_path(path))
|
|
print "load script \"#{script}\"\n" if OPTS[:verbose]
|
|
$0 = script
|
|
load(script)
|
|
else
|
|
print "Error: no script is given.\n"
|
|
print opt.help
|
|
exit(1)
|
|
end
|