mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
532e34fcd2
* ext/tk/lib/tkextlib/blt/*.rb: ditto * ext/tk/lib/tkextlib/blt/tile/*.rb: ditto git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@7645 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
142 lines
3.7 KiB
Ruby
142 lines
3.7 KiB
Ruby
#
|
|
# BLT support
|
|
# by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
|
|
#
|
|
|
|
require 'tk'
|
|
require 'tk/variable'
|
|
|
|
# call setup script for general 'tkextlib' libraries
|
|
require 'tkextlib/setup.rb'
|
|
|
|
# call setup script
|
|
require 'tkextlib/blt/setup.rb'
|
|
|
|
# load all image format handlers
|
|
#TkPackage.require('BLT', '2.4')
|
|
TkPackage.require('BLT')
|
|
|
|
module Tk
|
|
module BLT
|
|
TkComm::TkExtlibAutoloadModule.unshift(self)
|
|
|
|
extend TkCore
|
|
|
|
VERSION = tk_call('set', 'blt_version')
|
|
PATCH_LEVEL = tk_call('set', 'blt_patchLevel')
|
|
|
|
begin
|
|
lib = INTERP._invoke('set', 'blt_library')
|
|
rescue
|
|
lib = ''
|
|
end
|
|
LIBRARY = TkVarAccess.new('blt_library', lib)
|
|
|
|
begin
|
|
lib = INTERP._invoke('set', 'blt_libPath')
|
|
rescue
|
|
lib = ''
|
|
end
|
|
LIB_PATH = TkVarAccess.new('blt_libPath', lib)
|
|
|
|
|
|
def self.package_version
|
|
begin
|
|
TkPackage.require('BLT')
|
|
rescue
|
|
''
|
|
end
|
|
end
|
|
|
|
####################################################
|
|
|
|
def self.beep(percent = 50)
|
|
tk_call('::blt::beep', percent)
|
|
end
|
|
|
|
def self.bgexec(*args)
|
|
if args[0].kind_of?(TkVariable)
|
|
var = args.shift
|
|
else
|
|
var = TkVariable.new
|
|
end
|
|
params = [var]
|
|
|
|
params.concat(hash_kv(args.shift, true)) if args[0].kind_of?(Hash)
|
|
|
|
params << '--'
|
|
params.concat(args)
|
|
|
|
tk_call('::blt::bgexec', *params)
|
|
var
|
|
end
|
|
|
|
def self.detach_bgexec(*args)
|
|
if args[0].kind_of?(TkVariable)
|
|
var = args.shift
|
|
else
|
|
var = TkVariable.new
|
|
end
|
|
params = [var]
|
|
|
|
params.concat(hash_kv(args.shift, true)) if args[0].kind_of?(Hash)
|
|
|
|
params << '--'
|
|
params.concat(args)
|
|
params << '&'
|
|
|
|
[var, tk_split_list(tk_call('::blt::bgexec', *params))]
|
|
end
|
|
|
|
def self.bltdebug(lvl = nil)
|
|
if lvl
|
|
tk_call('::blt::bltdebug', lvl)
|
|
else
|
|
number(tk_call('::blt::bltdebug'))
|
|
end
|
|
end
|
|
|
|
def self.crc32_file(name)
|
|
tk_call_without_enc('::blt::crc32', name)
|
|
end
|
|
def self.crc32_data(dat)
|
|
tk_call_without_enc('::blt::crc32', '-data', dat)
|
|
end
|
|
|
|
####################################################
|
|
|
|
autoload :PlotComponent,'tkextlib/blt/component.rb'
|
|
|
|
autoload :Barchart, 'tkextlib/blt/barchart.rb'
|
|
autoload :Bitmap, 'tkextlib/blt/bitmap.rb'
|
|
autoload :Busy, 'tkextlib/blt/busy.rb'
|
|
autoload :Container, 'tkextlib/blt/container.rb'
|
|
autoload :CutBuffer, 'tkextlib/blt/cutbuffer.rb'
|
|
autoload :DragDrop, 'tkextlib/blt/dragdrop.rb'
|
|
autoload :EPS, 'tkextlib/blt/eps.rb'
|
|
autoload :Htext, 'tkextlib/blt/htext.rb'
|
|
autoload :Graph, 'tkextlib/blt/graph.rb'
|
|
autoload :Spline, 'tkextlib/blt/spline.rb'
|
|
autoload :Stripchart, 'tkextlib/blt/stripchart.rb'
|
|
autoload :Table, 'tkextlib/blt/table.rb'
|
|
autoload :Tabnotebook, 'tkextlib/blt/tabnotebook.rb'
|
|
autoload :Tabset, 'tkextlib/blt/tabset.rb'
|
|
autoload :Ted, 'tkextlib/blt/ted.rb'
|
|
autoload :Tile, 'tkextlib/blt/tile.rb'
|
|
autoload :Tree, 'tkextlib/blt/tree.rb'
|
|
autoload :TreeView, 'tkextlib/blt/treeview.rb'
|
|
autoload :Hiertable, 'tkextlib/blt/treeview.rb'
|
|
# Hierbox is obsolete
|
|
autoload :Vector, 'tkextlib/blt/vector.rb'
|
|
autoload :VectorAccess, 'tkextlib/blt/vector.rb'
|
|
autoload :Watch, 'tkextlib/blt/watch.rb'
|
|
autoload :Winop, 'tkextlib/blt/winop.rb'
|
|
autoload :WinOp, 'tkextlib/blt/winop.rb'
|
|
|
|
# Unix only
|
|
autoload :DnD, 'tkextlib/blt/unix_dnd.rb'
|
|
|
|
# Windows only
|
|
autoload :Printer, 'tkextlib/blt/win_printer.rb'
|
|
end
|
|
end
|