mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
334325f72a
a class is available for a callback entry. * ext/tk/lib/tk.rb (after_cancel): add Tk.after_cancel(afterID) method. * ext/tk/lib/tk.rb (array2tk_list): change from private module method of TkComm to public module method. * ext/tk/lib/tk.rb (cget): add check that slot argument is not empty string. * ext/tk/lib/tk.rb (configinfo): ditto. * ext/tk/lib/tk/itemconfig.rb (itemcget): add check that slot argument is not empty string. * ext/tk/lib/tk/itemconfig.rb (itemconfiginfo): ditto. * ext/tk/lib/tk/entry.rb: add TkEntry#icursor and icursor= (alias of cursor and cursor= method). * ext/tk/lib/tk/font.rb: improve font treatment when the font name is empty string. * ext/tk/lib/tk/variable.rb: add :variable, :window and :procedure type. * ext/tk/lib/tk/variable.rb: improve treatment of array-type tkvariable. * ext/tk/lib/tkextlib/blt.rb: add commands for zooming. * ext/tk/lib/tkextlib/blt/*: bug fix. * ext/tk/lib/tkextlib/treectrl/tktreectrl.rb: bug fix and add methods to call TreeCtrl commands for bindings. * ext/tk/sample/tkextlib/blt/*: new sample scritps. * ext/tk/sample/tkextlib/treectrl/*: ditto. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@8195 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
156 lines
4.2 KiB
Ruby
156 lines
4.2 KiB
Ruby
$stipples = {} unless $stipples
|
|
|
|
$stipples['bdiagonal1'] = Tk::BLT::Bitmap.new(<<EOD)
|
|
#define bdiagonal1_width 8
|
|
#define bdiagonal1_height 8
|
|
static unsigned char bdiagonal1_bits[] = {
|
|
0x88, 0x44, 0x22, 0x11, 0x88, 0x44, 0x22, 0x11};
|
|
EOD
|
|
|
|
$stipples['bdiagonal2'] = Tk::BLT::Bitmap.new(<<EOD)
|
|
#define bdiagonal2_width 8
|
|
#define bdiagonal2_height 8
|
|
static unsigned char bdiagonal2_bits[] = {
|
|
0x08, 0x04, 0x02, 0x01, 0x80, 0x40, 0x20, 0x10};
|
|
EOD
|
|
|
|
$stipples['checker2'] = Tk::BLT::Bitmap.new(<<EOD)
|
|
#define checker2_width 8
|
|
#define checker2_height 8
|
|
static unsigned char checker2_bits[] = {
|
|
0x33, 0x33, 0xcc, 0xcc, 0x33, 0x33, 0xcc, 0xcc};
|
|
EOD
|
|
|
|
|
|
$stipples['checker3'] = Tk::BLT::Bitmap.new(<<EOD)
|
|
#define checker3_width 8
|
|
#define checker3_height 8
|
|
static unsigned char checker3_bits[] = {
|
|
0x0f, 0x0f, 0x0f, 0x0f, 0xf0, 0xf0, 0xf0, 0xf0};
|
|
EOD
|
|
|
|
$stipples['cross1'] = Tk::BLT::Bitmap.new(<<EOD)
|
|
#define cross1_width 8
|
|
#define cross1_height 8
|
|
static unsigned char cross_bits[] = {
|
|
0xff, 0xaa, 0xff, 0xaa, 0xff, 0xaa, 0xff, 0xaa};
|
|
EOD
|
|
|
|
$stipples['cross2'] = Tk::BLT::Bitmap.new(<<EOD)
|
|
#define cross2_width 8
|
|
#define cross2_height 8
|
|
static unsigned char cross2_bits[] = {
|
|
0xff, 0x88, 0x88, 0x88, 0xff, 0x88, 0x88, 0x88};
|
|
EOD
|
|
|
|
$stipples['cross3'] = Tk::BLT::Bitmap.new(<<EOD)
|
|
#define cross3_width 8
|
|
#define cross3_height 8
|
|
static unsigned char cross3_bits[] = {
|
|
0xff, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01};
|
|
EOD
|
|
|
|
$stipples['crossdiag'] = Tk::BLT::Bitmap.new(<<EOD)
|
|
#define crossdiag_width 8
|
|
#define crossdiag_height 8
|
|
static unsigned char crossdiag2_bits[] = {
|
|
0x18, 0x24, 0x42, 0x81, 0x81, 0x42, 0x24, 0x18};
|
|
EOD
|
|
|
|
$stipples['dot1'] = Tk::BLT::Bitmap.new(<<EOD)
|
|
#define dot1_width 8
|
|
#define dot1_height 8
|
|
static unsigned char dot1_bits[] = {
|
|
0x55, 0xaa, 0x55, 0xaa, 0x55, 0xaa, 0x55, 0xaa};
|
|
EOD
|
|
|
|
$stipples['dot2'] = Tk::BLT::Bitmap.new(<<EOD)
|
|
#define dot2_width 8
|
|
#define dot2_height 8
|
|
static unsigned char dot2_bits[] = {
|
|
0x55, 0x00, 0x55, 0x00, 0x55, 0x00, 0x55, 0x00};
|
|
EOD
|
|
|
|
$stipples['dot3'] = Tk::BLT::Bitmap.new(<<EOD)
|
|
#define dot3_width 8
|
|
#define dot3_height 8
|
|
static unsigned char dot3_bits[] = {
|
|
0x11, 0x00, 0x00, 0x00, 0x11, 0x00, 0x00, 0x00};
|
|
EOD
|
|
|
|
$stipples['dot4'] = Tk::BLT::Bitmap.new(<<EOD)
|
|
#define dot4_width 8
|
|
#define dot4_height 8
|
|
static unsigned char dot4_bits[] = {
|
|
0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
|
|
EOD
|
|
|
|
$stipples['fdiagonal1'] = Tk::BLT::Bitmap.new(<<EOD)
|
|
#define fdiagonal1_width 8
|
|
#define fdiagonal1_height 8
|
|
static unsigned char fdiagonal1_bits[] = {
|
|
0x11, 0x22, 0x44, 0x88, 0x11, 0x22, 0x44, 0x88};
|
|
EOD
|
|
|
|
$stipples['fdiagonal2'] = Tk::BLT::Bitmap.new(<<EOD)
|
|
#define fdiagonal2_width 8
|
|
#define fdiagonal2_height 8
|
|
static unsigned char fdiagonal2_bits[] = {
|
|
0x10, 0x20, 0x40, 0x80, 0x01, 0x02, 0x04, 0x08};
|
|
EOD
|
|
|
|
$stipples['hline1'] = Tk::BLT::Bitmap.new(<<EOD)
|
|
#define hline1_width 8
|
|
#define hline1_height 8
|
|
static unsigned char hline1_bits[] = {
|
|
0xff, 0x00, 0xff, 0x00, 0xff, 0x00, 0xff, 0x00};
|
|
EOD
|
|
|
|
$stipples['hline2'] = Tk::BLT::Bitmap.new(<<EOD)
|
|
#define hline2_width 8
|
|
#define hline2_height 8
|
|
static unsigned char hline2_bits[] = {
|
|
0xff, 0xff, 0x00, 0x00, 0xff, 0xff, 0x00, 0x00};
|
|
EOD
|
|
|
|
$stipples['lbottom'] = Tk::BLT::Bitmap.new(<<EOD)
|
|
#define lbottom_width 8
|
|
#define lbottom_height 8
|
|
static unsigned char lbottom_bits[] = {
|
|
0x00, 0x11, 0x11, 0x77, 0x00, 0x11, 0x11, 0x77};
|
|
EOD
|
|
|
|
$stipples['ltop'] = Tk::BLT::Bitmap.new(<<EOD)
|
|
#define ltop_width 8
|
|
#define ltop_height 8
|
|
static unsigned char ltop_bits[] = {
|
|
0xee, 0x88, 0x88, 0x00, 0xee, 0x88, 0x88, 0x00};
|
|
EOD
|
|
|
|
$stipples['rbottom'] = Tk::BLT::Bitmap.new(<<EOD)
|
|
#define rbottom_width 8
|
|
#define rbottom_height 8
|
|
static unsigned char rbottom_bits[] = {
|
|
0x00, 0x88, 0x88, 0xee, 0x00, 0x88, 0x88, 0xee};
|
|
EOD
|
|
|
|
$stipples['rtop'] = Tk::BLT::Bitmap.new(<<EOD)
|
|
#define rtop_width 8
|
|
#define rtop_height 8
|
|
static unsigned char rtop_bits[] = {
|
|
0x77, 0x11, 0x11, 0x00, 0x77, 0x11, 0x11, 0x00};
|
|
EOD
|
|
|
|
$stipples['vline1'] = Tk::BLT::Bitmap.new(<<EOD)
|
|
#define vline1_width 8
|
|
#define vline1_height 8
|
|
static unsigned char vline1_bits[] = {
|
|
0x55, 0x55, 0x55, 0x55, 0x55, 0x55, 0x55, 0x55};
|
|
EOD
|
|
|
|
$stipples['vline2'] = Tk::BLT::Bitmap.new(<<EOD)
|
|
#define vline2_width 8
|
|
#define vline2_height 8
|
|
static unsigned char vline2_bits[] = {
|
|
0x33, 0x33, 0x33, 0x33, 0x33, 0x33, 0x33, 0x33};
|
|
EOD
|