Bwidget Source Code
Check-in [0cd7560b8b]
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:ongoing developement
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 0cd7560b8bff0ef97f50f9969a7097a274be8d7d
User & Date: oberdorfer 2009-10-25 19:09:09
Context
2009-10-25
19:21
ongoing developement check-in: 704815e7b7 user: oberdorfer tags: trunk
19:09
ongoing developement check-in: 0cd7560b8b user: oberdorfer tags: trunk
2009-09-16
20:41
demo themes are now base64 encoded check-in: 1a065c3764 user: oberdorfer tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to demo/themes/aquativo/CreateImageLib.def.

12
13
14
15
16
17
18


19
20
21
22
23
24
25
26
27
28
29
30


arrow_up_normal
button
buttonNorm
buttonPressed
checkbox_checked
checkbox_unchecked
horizontal_trough


menubar_option
menubar_option_arrow
menubar_option_arrow_insensitive
notebook
notebook_active
option_in
option_out
progressbar
scrollbar_horizontal
scrollbar_horizontal_inactive
scrollbar_vertical
vertical_trough








>
>












>
>
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
arrow_up_normal
button
buttonNorm
buttonPressed
checkbox_checked
checkbox_unchecked
horizontal_trough
hseparator-a
hseparator-n
menubar_option
menubar_option_arrow
menubar_option_arrow_insensitive
notebook
notebook_active
option_in
option_out
progressbar
scrollbar_horizontal
scrollbar_horizontal_inactive
scrollbar_vertical
vertical_trough
vseparator-a
vseparator-n

Changes to demo/themes/aquativo/ImageLib.tcl.

72
73
74
75
76
77
78













79
80
81
82
83
84
85
..
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
...
598
599
600
601
602
603
604





















R0lGODlhDwAPAPMLAEZGRlhYWGVlZXFxcZGRka6urrq6usHBwdvb2+jo6Pj4
+AAAAAAAAAAAAAAAAAAAACH5BAEBAAsALAAAAAAPAA8AAASYsBhjjDGmGGOM
gaUopZRSSimlFFSlKKWUUkoppaBSpSillFJKKQWVSqUopRRRSimolFKlJKUU
CEZBpZRSpaCkFAAADqSUSqWghBIAEABQEEKlpJQSgACIk1JKpSSVFASgpJRS
SqUopaAiSSmllEqlKAWVUkoppZRSpSiolFJKKaWUUqVApZRSSimllFIFllKK
KaWYUkopsEQAOw==
}]













set images(arrow_up_active) [image create photo -data {
R0lGODlhDwAPAPUiAAYNFREUFw4ZJBUnOyIoLzc/SC5La1lsfytdlThfiz5w
qRZkxjl/0l9jvT2C0nOInU6N1UyQ1liV2GCd32Ke4G6l3nOm32yp6nCs7H7A
/5WqwJy835q/6aO344HH/6jI67HP7rrU8AAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEBACIALAAAAAAPAA8AAAbK
wMVisVgsFovFYrFYLBaLRqfz+VgcEQkF48ksFo1O5wP6OCISyiXjWSwanc4H
................................................................................
R0lGODlhDwAPAPMLAEZGRlhYWGVlZXFxcZGRka6urrq6usHBwdvb2+jo6Pj4
+AAAAAAAAAAAAAAAAAAAACH5BAEBAAsALAAAAAAPAA8AAASYsJRSSimlmFJK
gcUopVRKCKWkFFTFKKWUUgglpaBSxSillFIoJQWVUsUopZRSJSWolFLFKKWU
QuDApJRSxSillBoAiqSUUsUopZQBEICilFLFKKVSgACAkJRSxiilCgQAAECU
UqUopaBSKqWklFLFKAWVUgqlpJRSxSiolFIJpaSUUsVApZRKCCGllFIFllJK
KaWUUoopsEQAOw==
}]
set images(button) [image create photo -data {
R0lGODlhGwAbAPIGAAAAAL+/v83NzdfX1+jo6Pb29gAAAAAAACH5BAEBAAYA
LAAAAAAbABsAAAP+aGZmhmZmZmhmZoZmZmZoZmaBERERGBERgRESERgRYYYW
IiIoIiKCIiIiKCIighJmISgiIoIiIiIoIiKCIiJhaCEygjIiIigyIoIiIjIo
YRaDIiMyOCMjgzIyMjgiE4YWIyM4IyODMyMyODMygxJmMTgzM4MzMzM4MzOD
MzNhaDEzgzMzMzgzNIMzMzM4YRaEMzQzOEMzg0MzM0gzE4YWM0NIQzODNDQz
ODNDgxRmQTg0M4NEM0M4NESEMzRhaEEzhERENEhDM4QzQzRIYRaERDM0OERE
hEREREhDFIYWRERIRESEQ0RDSEREhBRmQUhERIRERERIRESERERhaEGsRIRE
RERIRESFREVFSGIWhVREVUhFVIRFRERIRRSGFkRFWFREhEVFVUhFRIUUZlFY
VVSEVUVVSEVFhVVUYWhRRYVVVVVYVVWFVVVUWGEWhVVVVVhVVYVVVVVYVRWG
FlVVWFVVhVVVVVhVVYUVZlFYVVWFVVVVWFVVhVVVYWhRVYVVVVVYVVWFVVVV
WGFmgRIhIRghEYIhERIYEmKGZmZmaGZmhmZmZmhmZoZmlgA7
}]
set images(buttonNorm) [image create photo -data {
R0lGODlhGwAbAPIGAAAAAL+/v83NzdfX1+jo6Pb29gAAAAAAACH5BAEBAAYA
LAAAAAAbABsAAAP+aGZmhmZmZmhmZoZmZmZoZmaBERERGBERgRESERgRYYYW
IiIoIiKCIiIiKCIighJmISgiIoIiIiIoIiKCIiJhaCEygjIiIigyIoIiIjIo
YRaDIiMyOCMjgzIyMjgiE4YWIyM4IyODMyMyODMygxJmMTgzM4MzMzM4MzOD
MzNhaDEzgzMzMzgzNIMzMzM4YRaEMzQzOEMzg0MzM0gzE4YWM0NIQzODNDQz
ODNDgxRmQTg0M4NEM0M4NESEMzRhaEEzhERENEhDM4QzQzRIYRaERDM0OERE
................................................................................
R0lGODlhDwARAPQAALm5ubq6usDAwMfHx8jIyNLS0tPT09ra2tvb2+Pj4+np
6erq6u3t7e7u7u/v7/Dw8PLy8vPz8/T09PX19ff39/j4+Pn5+fr6+gAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAACH5BAAAAAAALAAAAAAPABEAAAViICAQxZEs
zlRZFxUxImmiKuvCY3mma/vGOsVD0rsBTUKi7ZdDDotMWSIJZQQEAwPi9Fw2
rtntouv7YrVcZRmMHqtdjeOu1oLEm/OiXU7T36V9NnZXBAZIPCwVEWaFh3SK
DSEAOw==
}]



























>
>
>
>
>
>
>
>
>
>
>
>
>







 







<
<
<
<
<
<
<
<
<
<
<
<
<







 







>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
...
110
111
112
113
114
115
116













117
118
119
120
121
122
123
...
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
R0lGODlhDwAPAPMLAEZGRlhYWGVlZXFxcZGRka6urrq6usHBwdvb2+jo6Pj4
+AAAAAAAAAAAAAAAAAAAACH5BAEBAAsALAAAAAAPAA8AAASYsBhjjDGmGGOM
gaUopZRSSimlFFSlKKWUUkoppaBSpSillFJKKQWVSqUopRRRSimolFKlJKUU
CEZBpZRSpaCkFAAADqSUSqWghBIAEABQEEKlpJQSgACIk1JKpSSVFASgpJRS
SqUopaAiSSmllEqlKAWVUkoppZRSpSiolFJKKaWUUqVApZRSSimllFIFllKK
KaWYUkopsEQAOw==
}]
set images(button) [image create photo -data {
R0lGODlhGwAbAPIGAAAAAL+/v83NzdfX1+jo6Pb29gAAAAAAACH5BAEBAAYA
LAAAAAAbABsAAAP+aGZmhmZmZmhmZoZmZmZoZmaBERERGBERgRESERgRYYYW
IiIoIiKCIiIiKCIighJmISgiIoIiIiIoIiKCIiJhaCEygjIiIigyIoIiIjIo
YRaDIiMyOCMjgzIyMjgiE4YWIyM4IyODMyMyODMygxJmMTgzM4MzMzM4MzOD
MzNhaDEzgzMzMzgzNIMzMzM4YRaEMzQzOEMzg0MzM0gzE4YWM0NIQzODNDQz
ODNDgxRmQTg0M4NEM0M4NESEMzRhaEEzhERENEhDM4QzQzRIYRaERDM0OERE
hEREREhDFIYWRERIRESEQ0RDSEREhBRmQUhERIRERERIRESERERhaEGsRIRE
RERIRESFREVFSGIWhVREVUhFVIRFRERIRRSGFkRFWFREhEVFVUhFRIUUZlFY
VVSEVUVVSEVFhVVUYWhRRYVVVVVYVVWFVVVUWGEWhVVVVVhVVYVVVVVYVRWG
FlVVWFVVhVVVVVhVVYUVZlFYVVWFVVVVWFVVhVVVYWhRVYVVVVVYVVWFVVVV
WGFmgRIhIRghEYIhERIYEmKGZmZmaGZmhmZmZmhmZoZmlgA7
}]
set images(arrow_up_active) [image create photo -data {
R0lGODlhDwAPAPUiAAYNFREUFw4ZJBUnOyIoLzc/SC5La1lsfytdlThfiz5w
qRZkxjl/0l9jvT2C0nOInU6N1UyQ1liV2GCd32Ke4G6l3nOm32yp6nCs7H7A
/5WqwJy835q/6aO344HH/6jI67HP7rrU8AAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEBACIALAAAAAAPAA8AAAbK
wMVisVgsFovFYrFYLBaLRqfz+VgcEQkF48ksFo1O5wP6OCISyiXjWSwanc4H
................................................................................
R0lGODlhDwAPAPMLAEZGRlhYWGVlZXFxcZGRka6urrq6usHBwdvb2+jo6Pj4
+AAAAAAAAAAAAAAAAAAAACH5BAEBAAsALAAAAAAPAA8AAASYsJRSSimlmFJK
gcUopVRKCKWkFFTFKKWUUgglpaBSxSillFIoJQWVUsUopZRSJSWolFLFKKWU
QuDApJRSxSillBoAiqSUUsUopZQBEICilFLFKKVSgACAkJRSxiilCgQAAECU
UqUopaBSKqWklFLFKAWVUgqlpJRSxSiolFIJpaSUUsVApZRKCCGllFIFllJK
KaWUUoopsEQAOw==
}]













set images(buttonNorm) [image create photo -data {
R0lGODlhGwAbAPIGAAAAAL+/v83NzdfX1+jo6Pb29gAAAAAAACH5BAEBAAYA
LAAAAAAbABsAAAP+aGZmhmZmZmhmZoZmZmZoZmaBERERGBERgRESERgRYYYW
IiIoIiKCIiIiKCIighJmISgiIoIiIiIoIiKCIiJhaCEygjIiIigyIoIiIjIo
YRaDIiMyOCMjgzIyMjgiE4YWIyM4IyODMyMyODMygxJmMTgzM4MzMzM4MzOD
MzNhaDEzgzMzMzgzNIMzMzM4YRaEMzQzOEMzg0MzM0gzE4YWM0NIQzODNDQz
ODNDgxRmQTg0M4NEM0M4NESEMzRhaEEzhERENEhDM4QzQzRIYRaERDM0OERE
................................................................................
R0lGODlhDwARAPQAALm5ubq6usDAwMfHx8jIyNLS0tPT09ra2tvb2+Pj4+np
6erq6u3t7e7u7u/v7/Dw8PLy8vPz8/T09PX19ff39/j4+Pn5+fr6+gAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAACH5BAAAAAAALAAAAAAPABEAAAViICAQxZEs
zlRZFxUxImmiKuvCY3mma/vGOsVD0rsBTUKi7ZdDDotMWSIJZQQEAwPi9Fw2
rtntouv7YrVcZRmMHqtdjeOu1oLEm/OiXU7T36V9NnZXBAZIPCwVEWaFh3SK
DSEAOw==
}]
set images(hseparator-a) [image create photo -data {
R0lGODlhHAAGAOMOAC0tZi8waT5Ehz5GiVtvwl52y2B9y1+DtWaZzG6czXCf
z8bZ7Mvd7v///wAAAAAAACH+BGJsdWUAIfkEAQoADwAsAAAAABwABgAABCsQ
ERCAvThrQJA5iSKOZGmKQyE0bOu+sLsMAmPfeK7nwxeewFNKQtkYN50IADs=
}]
set images(hseparator-n) [image create photo -data {
R0lGODlhHAAGAOMAAMvLy8bGxqOjo6WlpcnJycTExM3Nzc7OzrCwsOvr6+3t
7f///////////////////yH5BAEKAA8ALAAAAAAcAAYAAAQpEAQxhL04axEA
KcYhjmRpigiBJGzrvvCLIEpt33iOp+Dp+ykJZUPcdCIAOw==
}]
set images(vseparator-a) [image create photo -data {
R0lGODlhBgAcAOMOAC0tZi8waT5Ehz5GiVtvwl52y2B9y1+DtWaZzG6czXCf
z8bZ7Mvd7v///wAAAAAAACH+BGJsdWUAIfkEAQoADwAsAAAAAAYAHAAABDYQ
lTEKIqOxQYDSCuCB4seE41mSKWq67Luq7QzTcq3nfOzjpMArAEhoEgDCYcE4
EBAGgcCAiAAAOw==
}]
set images(vseparator-n) [image create photo -data {
R0lGODlhBgAcAOMAAMvLy8nJybCwsMbGxsTExO3t7evr66Ojo83NzaWlpc7O
zv///////////////////yH5BAEKAA8ALAAAAAAGABwAAAQyEAQhAhikGDIO
0siRKJqSHKShHGjJpmurvq4cw/Rs53eN78Cf0EfUDY2ugUAjGEgolggAOw==
}]

Changes to demo/themes/aquativo/aquativo.tcl.

3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
...
103
104
105
106
107
108
109
110









111
112
113
114
115
116
117
...
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
#   Copyright (C) 2004 Pat Thoyts <[email protected]>
#
#   Import the aquativo Gtk theme (C) Andrew Wyatt, FEWT Software
#   Original: http://www.fewt.com
#   Link: http://art.gnome.org/themes/gtk2/432.php
# ------------------------------------------------------------------------------
# Revision change history:
#   $Id: aquativo.tcl,v 1.2 2009/09/16 20:41:02 oberdorfer Exp $
#
#   Aug.'08: code refractured for the use with >= tk8.5,
#            [email protected]
# ------------------------------------------------------------------------------

package require Tk 8.4;                 # minimum version for Tile
package require tile 0.8;               # depends upon tile
................................................................................
    ::ttk::style element create Vertical.Scrollbar.trough \
        image $I(vertical_trough) -border 0

    ::ttk::style element create Vertical.Scale.trough \
        image $I(vertical_trough) -border 2
    ::ttk::style element create Progress.trough \
        image $I(vertical_trough) -border 2
    









    # Buttons, Checkbuttons and Radiobuttons
    
    ::ttk::style layout TButton {
      Button.background
      Button.button -children {
        Button.focus -children {
          Button.label
................................................................................
        disabled $I(arrow_right_insensitive)]
    
    # Notebook parts
    
    ::ttk::style element create tab image \
        [list $I(notebook) selected  $I(notebook_active)] \
        -sticky news \
        -border {10 6 10 6} -height 10
    
    ::ttk::style configure TNotebook.Tab -padding {2 2}
    ::ttk::style configure TNotebook -expandtab {2 2}
    
    
    # Labelframes
    






|







 







|
>
>
>
>
>
>
>
>
>







 







|







3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
...
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
...
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
#   Copyright (C) 2004 Pat Thoyts <[email protected]>
#
#   Import the aquativo Gtk theme (C) Andrew Wyatt, FEWT Software
#   Original: http://www.fewt.com
#   Link: http://art.gnome.org/themes/gtk2/432.php
# ------------------------------------------------------------------------------
# Revision change history:
#   $Id: aquativo.tcl,v 1.3 2009/10/25 19:10:41 oberdorfer Exp $
#
#   Aug.'08: code refractured for the use with >= tk8.5,
#            [email protected]
# ------------------------------------------------------------------------------

package require Tk 8.4;                 # minimum version for Tile
package require tile 0.8;               # depends upon tile
................................................................................
    ::ttk::style element create Vertical.Scrollbar.trough \
        image $I(vertical_trough) -border 0

    ::ttk::style element create Vertical.Scale.trough \
        image $I(vertical_trough) -border 2
    ::ttk::style element create Progress.trough \
        image $I(vertical_trough) -border 2

    ## Panedwindow parts.
    #
    ::ttk::style element create hsash image \
            [list $I(hseparator-n) {active !disabled} $I(hseparator-a)] \
            -border {2 0}
    ::ttk::style element create vsash image \
            [list $I(vseparator-n) {active !disabled} $I(vseparator-a)] \
            -border {0 2}

    # Buttons, Checkbuttons and Radiobuttons
    
    ::ttk::style layout TButton {
      Button.background
      Button.button -children {
        Button.focus -children {
          Button.label
................................................................................
        disabled $I(arrow_right_insensitive)]
    
    # Notebook parts
    
    ::ttk::style element create tab image \
        [list $I(notebook) selected  $I(notebook_active)] \
        -sticky news \
        -border {10 2 10 2} -height 10
    
    ::ttk::style configure TNotebook.Tab -padding {2 2}
    ::ttk::style configure TNotebook -expandtab {2 2}
    
    
    # Labelframes
    

Changes to demo/themes/aquativo/images.tgz.

cannot compute difference between binary files