319 lines
11 KiB
Tcl
319 lines
11 KiB
Tcl
#==============================================================================
|
|
# Contains procedures that create various bitmap images. The argument w
|
|
# specifies a canvas displaying a sort arrow, while the argument win stands for
|
|
# a tablelist widget.
|
|
#
|
|
# Copyright (c) 2006 Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
|
|
#==============================================================================
|
|
|
|
#------------------------------------------------------------------------------
|
|
# tablelist::flat7x4Arrows
|
|
#------------------------------------------------------------------------------
|
|
proc tablelist::flat7x4Arrows w {
|
|
image create bitmap triangleUp$w -data "
|
|
#define triangleUp7x4_width 7
|
|
#define triangleUp7x4_height 4
|
|
static unsigned char triangleUp7x4_bits[] = {
|
|
0x08, 0x1c, 0x3e, 0x7f};
|
|
"
|
|
image create bitmap triangleDn$w -data "
|
|
#define triangleDn7x4_width 7
|
|
#define triangleDn7x4_height 4
|
|
static unsigned char triangleDn7x4_bits[] = {
|
|
0x7f, 0x3e, 0x1c, 0x08};
|
|
"
|
|
}
|
|
|
|
#------------------------------------------------------------------------------
|
|
# tablelist::flat7x5Arrows
|
|
#------------------------------------------------------------------------------
|
|
proc tablelist::flat7x5Arrows w {
|
|
image create bitmap triangleUp$w -data "
|
|
#define triangleUp7x5_width 7
|
|
#define triangleUp7x5_height 5
|
|
static unsigned char triangleUp7x5_bits[] = {
|
|
0x08, 0x1c, 0x3e, 0x7f, 0x22};
|
|
"
|
|
image create bitmap triangleDn$w -data "
|
|
#define triangleDn7x5_width 7
|
|
#define triangleDn7x5_height 5
|
|
static unsigned char triangleDn7x5_bits[] = {
|
|
0x22, 0x7f, 0x3e, 0x1c, 0x08};
|
|
"
|
|
}
|
|
|
|
#------------------------------------------------------------------------------
|
|
# tablelist::flat7x7Arrows
|
|
#------------------------------------------------------------------------------
|
|
proc tablelist::flat7x7Arrows w {
|
|
image create bitmap triangleUp$w -data "
|
|
#define triangleUp7x7_width 7
|
|
#define triangleUp7x7_height 7
|
|
static unsigned char triangleUp7x7_bits[] = {
|
|
0x08, 0x1c, 0x1c, 0x3e, 0x3e, 0x7f, 0x7f};
|
|
"
|
|
image create bitmap triangleDn$w -data "
|
|
#define triangleDn7x7_width 7
|
|
#define triangleDn7x7_height 7
|
|
static unsigned char triangleDn7x7_bits[] = {
|
|
0x7f, 0x7f, 0x3e, 0x3e, 0x1c, 0x1c, 0x08};
|
|
"
|
|
}
|
|
|
|
#------------------------------------------------------------------------------
|
|
# tablelist::flat8x5Arrows
|
|
#------------------------------------------------------------------------------
|
|
proc tablelist::flat8x5Arrows w {
|
|
image create bitmap triangleUp$w -data "
|
|
#define triangleUp8x5_width 8
|
|
#define triangleUp8x5_height 5
|
|
static unsigned char triangleUp8x5_bits[] = {
|
|
0x18, 0x3c, 0x7e, 0xff, 0xff};
|
|
"
|
|
image create bitmap triangleDn$w -data "
|
|
#define triangleDn8x5_width 8
|
|
#define triangleDn8x5_height 5
|
|
static unsigned char triangleDn8x5_bits[] = {
|
|
0xff, 0xff, 0x7e, 0x3c, 0x18};
|
|
"
|
|
}
|
|
|
|
#------------------------------------------------------------------------------
|
|
# tablelist::flat9x5Arrows
|
|
#------------------------------------------------------------------------------
|
|
proc tablelist::flat9x5Arrows w {
|
|
image create bitmap triangleUp$w -data "
|
|
#define triangleUp9x5_width 9
|
|
#define triangleUp9x5_height 5
|
|
static unsigned char triangleUp9x5_bits[] = {
|
|
0x10, 0x00, 0x38, 0x00, 0x7c, 0x00, 0xfe, 0x00, 0xff, 0x01};
|
|
"
|
|
image create bitmap triangleDn$w -data "
|
|
#define triangleDn9x5_width 9
|
|
#define triangleDn9x5_height 5
|
|
static unsigned char triangleDn9x5_bits[] = {
|
|
0xff, 0x01, 0xfe, 0x00, 0x7c, 0x00, 0x38, 0x00, 0x10, 0x00};
|
|
"
|
|
}
|
|
|
|
#------------------------------------------------------------------------------
|
|
# tablelist::sunken8x7Arrows
|
|
#------------------------------------------------------------------------------
|
|
proc tablelist::sunken8x7Arrows w {
|
|
image create bitmap triangleUp$w -data "
|
|
#define triangleUp8x7_width 8
|
|
#define triangleUp8x7_height 7
|
|
static unsigned char triangleUp8x7_bits[] = {
|
|
0x18, 0x3c, 0x3c, 0x7e, 0x7e, 0xff, 0xff};
|
|
"
|
|
image create bitmap darkLineUp$w -data "
|
|
#define darkLineUp8x7_width 8
|
|
#define darkLineUp8x7_height 7
|
|
static unsigned char darkLineUp8x7_bits[] = {
|
|
0x08, 0x0c, 0x04, 0x06, 0x02, 0x03, 0x00};
|
|
"
|
|
image create bitmap lightLineUp$w -data "
|
|
#define lightLineUp8x7_width 8
|
|
#define lightLineUp8x7_height 7
|
|
static unsigned char lightLineUp8x7_bits[] = {
|
|
0x10, 0x30, 0x20, 0x60, 0x40, 0xc0, 0xff};
|
|
"
|
|
image create bitmap triangleDn$w -data "
|
|
#define triangleDn8x7_width 8
|
|
#define triangleDn8x7_height 7
|
|
static unsigned char triangleDn8x7_bits[] = {
|
|
0xff, 0xff, 0x7e, 0x7e, 0x3c, 0x3c, 0x18};
|
|
"
|
|
image create bitmap darkLineDn$w -data "
|
|
#define darkLineDn8x7_width 8
|
|
#define darkLineDn8x7_height 7
|
|
static unsigned char darkLineDn8x7_bits[] = {
|
|
0xff, 0x03, 0x02, 0x06, 0x04, 0x0c, 0x08};
|
|
"
|
|
image create bitmap lightLineDn$w -data "
|
|
#define lightLineDn8x7_width 8
|
|
#define lightLineDn8x7_height 7
|
|
static unsigned char lightLineDn8x7_bits[] = {
|
|
0x00, 0xc0, 0x40, 0x60, 0x20, 0x30, 0x10};
|
|
"
|
|
}
|
|
|
|
#------------------------------------------------------------------------------
|
|
# tablelist::sunken10x9Arrows
|
|
#------------------------------------------------------------------------------
|
|
proc tablelist::sunken10x9Arrows w {
|
|
image create bitmap triangleUp$w -data "
|
|
#define triangleUp10x9_width 10
|
|
#define triangleUp10x9_height 9
|
|
static unsigned char triangleUp10x9_bits[] = {
|
|
0x30, 0x00, 0x78, 0x00, 0x78, 0x00, 0xfc, 0x00, 0xfc, 0x00, 0xfe, 0x01,
|
|
0xfe, 0x01, 0xff, 0x03, 0xff, 0x03};
|
|
"
|
|
image create bitmap darkLineUp$w -data "
|
|
#define darkLineUp10x9_width 10
|
|
#define darkLineUp10x9_height 9
|
|
static unsigned char darkLineUp10x9_bits[] = {
|
|
0x10, 0x00, 0x18, 0x00, 0x08, 0x00, 0x0c, 0x00, 0x04, 0x00, 0x06, 0x00,
|
|
0x02, 0x00, 0x03, 0x00, 0x00, 0x00};
|
|
"
|
|
image create bitmap lightLineUp$w -data "
|
|
#define lightLineUp10x9_width 10
|
|
#define lightLineUp10x9_height 9
|
|
static unsigned char lightLineUp10x9_bits[] = {
|
|
0x20, 0x00, 0x60, 0x00, 0x40, 0x00, 0xc0, 0x00, 0x80, 0x00, 0x80, 0x01,
|
|
0x00, 0x01, 0x00, 0x03, 0xff, 0x03};
|
|
"
|
|
image create bitmap triangleDn$w -data "
|
|
#define triangleDn10x9_width 10
|
|
#define triangleDn10x9_height 9
|
|
static unsigned char triangleDn10x9_bits[] = {
|
|
0xff, 0x03, 0xff, 0x03, 0xfe, 0x01, 0xfe, 0x01, 0xfc, 0x00, 0xfc, 0x00,
|
|
0x78, 0x00, 0x78, 0x00, 0x30, 0x00};
|
|
"
|
|
image create bitmap darkLineDn$w -data "
|
|
#define darkLineDn10x9_width 10
|
|
#define darkLineDn10x9_height 9
|
|
static unsigned char darkLineDn10x9_bits[] = {
|
|
0xff, 0x03, 0x03, 0x00, 0x02, 0x00, 0x06, 0x00, 0x04, 0x00, 0x0c, 0x00,
|
|
0x08, 0x00, 0x18, 0x00, 0x10, 0x00};
|
|
"
|
|
image create bitmap lightLineDn$w -data "
|
|
#define lightLineDn10x9_width 10
|
|
#define lightLineDn10x9_height 9
|
|
static unsigned char lightLineDn10x9_bits[] = {
|
|
0x00, 0x00, 0x00, 0x03, 0x00, 0x01, 0x80, 0x01, 0x80, 0x00, 0xc0, 0x00,
|
|
0x40, 0x00, 0x60, 0x00, 0x20, 0x00};
|
|
"
|
|
}
|
|
|
|
#------------------------------------------------------------------------------
|
|
# tablelist::sunken12x11Arrows
|
|
#------------------------------------------------------------------------------
|
|
proc tablelist::sunken12x11Arrows w {
|
|
image create bitmap triangleUp$w -data "
|
|
#define triangleUp12x11_width 12
|
|
#define triangleUp12x11_height 11
|
|
static unsigned char triangleUp12x11_bits[] = {
|
|
0x60, 0x00, 0xf0, 0x00, 0xf0, 0x00, 0xf8, 0x01, 0xf8, 0x01, 0xfc, 0x03,
|
|
0xfc, 0x03, 0xfe, 0x07, 0xfe, 0x07, 0xff, 0x0f, 0xff, 0x0f};
|
|
"
|
|
image create bitmap darkLineUp$w -data "
|
|
#define darkLineUp12x11_width 12
|
|
#define darkLineUp12x11_height 11
|
|
static unsigned char darkLineUp12x11_bits[] = {
|
|
0x20, 0x00, 0x30, 0x00, 0x10, 0x00, 0x18, 0x00, 0x08, 0x00, 0x0c, 0x00,
|
|
0x04, 0x00, 0x06, 0x00, 0x02, 0x00, 0x03, 0x00, 0x00, 0x00};
|
|
"
|
|
image create bitmap lightLineUp$w -data "
|
|
#define lightLineUp12x11_width 12
|
|
#define lightLineUp12x11_height 11
|
|
static unsigned char lightLineUp12x11_bits[] = {
|
|
0x40, 0x00, 0xc0, 0x00, 0x80, 0x00, 0x80, 0x01, 0x00, 0x01, 0x00, 0x03,
|
|
0x00, 0x02, 0x00, 0x06, 0x00, 0x04, 0x00, 0x0c, 0xff, 0x0f};
|
|
"
|
|
image create bitmap triangleDn$w -data "
|
|
#define triangleDn12x11_width 12
|
|
#define triangleDn12x11_height 11
|
|
static unsigned char triangleDn12x11_bits[] = {
|
|
0xff, 0x0f, 0xff, 0x0f, 0xfe, 0x07, 0xfe, 0x07, 0xfc, 0x03, 0xfc, 0x03,
|
|
0xf8, 0x01, 0xf8, 0x01, 0xf0, 0x00, 0xf0, 0x00, 0x60, 0x00};
|
|
"
|
|
image create bitmap darkLineDn$w -data "
|
|
#define darkLineDn12x11_width 12
|
|
#define darkLineDn12x11_height 11
|
|
static unsigned char darkLineDn12x11_bits[] = {
|
|
0xff, 0x0f, 0x03, 0x00, 0x02, 0x00, 0x06, 0x00, 0x04, 0x00, 0x0c, 0x00,
|
|
0x08, 0x00, 0x18, 0x00, 0x10, 0x00, 0x30, 0x00, 0x20, 0x00};
|
|
"
|
|
image create bitmap lightLineDn$w -data "
|
|
#define lightLineDn12x11_width 12
|
|
#define lightLineDn12x11_height 11
|
|
static unsigned char lightLineDn12x11_bits[] = {
|
|
0x00, 0x00, 0x00, 0x0c, 0x00, 0x04, 0x00, 0x06, 0x00, 0x02, 0x00, 0x03,
|
|
0x00, 0x01, 0x80, 0x01, 0x80, 0x00, 0xc0, 0x00, 0x40, 0x00};
|
|
"
|
|
}
|
|
|
|
#------------------------------------------------------------------------------
|
|
# tablelist::createSortRankImgs
|
|
#------------------------------------------------------------------------------
|
|
proc tablelist::createSortRankImgs win {
|
|
image create bitmap sortRank1$win -data "
|
|
#define sortRank1_width 4
|
|
#define sortRank1_height 6
|
|
static unsigned char sortRank1_bits[] = {
|
|
0x04, 0x06, 0x04, 0x04, 0x04, 0x04};
|
|
"
|
|
image create bitmap sortRank2$win -data "
|
|
#define sortRank2_width 4
|
|
#define sortRank2_height 6
|
|
static unsigned char sortRank2_bits[] = {
|
|
0x06, 0x09, 0x08, 0x04, 0x02, 0x0f};
|
|
"
|
|
image create bitmap sortRank3$win -data "
|
|
#define sortRank3_width 4
|
|
#define sortRank3_height 6
|
|
static unsigned char sortRank3_bits[] = {
|
|
0x0f, 0x08, 0x06, 0x08, 0x09, 0x06};
|
|
"
|
|
image create bitmap sortRank4$win -data "
|
|
#define sortRank4_width 4
|
|
#define sortRank4_height 6
|
|
static unsigned char sortRank4_bits[] = {
|
|
0x04, 0x06, 0x05, 0x0f, 0x04, 0x04};
|
|
"
|
|
image create bitmap sortRank5$win -data "
|
|
#define sortRank5_width 4
|
|
#define sortRank5_height 6
|
|
static unsigned char sortRank5_bits[] = {
|
|
0x0f, 0x01, 0x07, 0x08, 0x09, 0x06};
|
|
"
|
|
image create bitmap sortRank6$win -data "
|
|
#define sortRank6_width 4
|
|
#define sortRank6_height 6
|
|
static unsigned char sortRank6_bits[] = {
|
|
0x06, 0x01, 0x07, 0x09, 0x09, 0x06};
|
|
"
|
|
image create bitmap sortRank7$win -data "
|
|
#define sortRank7_width 4
|
|
#define sortRank7_height 6
|
|
static unsigned char sortRank7_bits[] = {
|
|
0x0f, 0x08, 0x04, 0x04, 0x02, 0x02};
|
|
"
|
|
image create bitmap sortRank8$win -data "
|
|
#define sortRank8_width 4
|
|
#define sortRank8_height 6
|
|
static unsigned char sortRank8_bits[] = {
|
|
0x06, 0x09, 0x06, 0x09, 0x09, 0x06};
|
|
"
|
|
image create bitmap sortRank9$win -data "
|
|
#define sortRank9_width 4
|
|
#define sortRank9_height 6
|
|
static unsigned char sortRank9_bits[] = {
|
|
0x06, 0x09, 0x09, 0x0e, 0x08, 0x06};
|
|
"
|
|
}
|
|
|
|
#------------------------------------------------------------------------------
|
|
# tablelist::createCheckbuttonImgs
|
|
#------------------------------------------------------------------------------
|
|
proc tablelist::createCheckbuttonImgs {} {
|
|
variable checkedImg
|
|
variable uncheckedImg
|
|
|
|
set checkedImg [image create bitmap -data "
|
|
#define checked_width 9
|
|
#define checked_height 9
|
|
static unsigned char checked_bits[] = {
|
|
0x00, 0x00, 0x80, 0x00, 0xc0, 0x00, 0xe2, 0x00, 0x76, 0x00, 0x3e, 0x00,
|
|
0x1c, 0x00, 0x08, 0x00, 0x00, 0x00};
|
|
"]
|
|
set uncheckedImg [image create bitmap -data "
|
|
#define unchecked_width 9
|
|
#define unchecked_height 9
|
|
static unsigned char unchecked_bits[] = {
|
|
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
|
|
0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
|
|
"]
|
|
}
|