1#
2# $Id: icons.tcl,v 1.4 2006/11/06 14:46:42 jenglish Exp $
3#
4# Tile package -- stock icons.
5#
6# Usage:
7#	$w configure -image [ttk::stockIcon $context/$icon]
8#
9# At present, only includes icons for dialog boxes,
10# dialog/info, dialog/warning, dialog/error, etc.
11#
12# This list should be expanded.
13#
14# See the Icon Naming Specification from the Tango project:
15# http://standards.freedesktop.org/icon-naming-spec/
16# They've finally gotten around to publishing something.
17#
18
19namespace eval ttk {
20    variable Icons		;# Map: icon name -> image
21    namespace eval icons {}	;# container namespace for images
22}
23
24# stockIcon $name --
25#	Returns a Tk image for built-in icon $name.
26#
27proc ttk::stockIcon {name} {
28    variable Icons
29    return $Icons($name)
30}
31
32# defineImage --
33#	Define a new stock icon.
34#
35proc ttk::defineImage {name args} {
36    variable Icons
37    set iconName ::ttk::icons::$name
38    eval [linsert $args 0 image create photo $iconName]
39    set Icons($name) $iconName
40}
41
42#
43# Stock icons for dialogs
44#
45# SOURCE: dialog icons taken from BWidget toolkit.
46#
47ttk::defineImage dialog/error -data {
48    R0lGODlhIAAgALMAAIQAAISEhPf/Mf8AAP//////////////////////////
49    /////////////////////yH5BAEAAAIALAAAAAAgACAAAASwUMhJBbj41s0n
50    HmAIYl0JiCgKlNWVvqHGnnA9mnY+rBytw4DAxhci2IwqoSdFaMKaSBFPQhxA
51    nahrdKS0MK8ibSoorBbBVvS4XNOKgey2e7sOmLPvGvkezsPtR3M2e3JzdFIB
52    gC9vfohxfVCQWI6PII1pkZReeIeWkzGJS1lHdV2bPy9koaKopUOtSatDfECq
53    phWKOra3G3YuqReJwiwUiRkZwsPEuMnNycslzrIdEQAAOw==
54}
55
56ttk::defineImage dialog/info -data {
57    R0lGODlhIAAgALMAAAAAAAAA/4SEhMbGxvf/Mf//////////////////////
58    /////////////////////yH5BAEAAAQALAAAAAAgACAAAAStkMhJibj41s0n
59    HkUoDljXXaCoqqRgUkK6zqP7CvQQ7IGsAiYcjcejFYAb4ZAYMB4rMaeO51sN
60    kBKlc/uzRbng0NWlnTF3XAAZzExj2ET3BV7cqufctv2Tj0vvFn11RndkVSt6
61    OYVZRmeDXRoTAGFOhTaSlDOWHACHW2MlHQCdYFebN6OkVqkZlzcXqTKWoS8w
62    GJMhs7WoIoC7v7i+v7uTwsO1o5HHu7TLtcodEQAAOw==
63}
64
65ttk::defineImage dialog/question -data {
66    R0lGODlhIAAgALMAAAAAAAAA/4SEhMbGxvf/Mf//////////////////////
67    /////////////////////yH5BAEAAAQALAAAAAAgACAAAAS2kMhJibj41s0n
68    HkUoDljXXaCoqqRgUkK6zqP7CnS+AiY+D4GgUKbibXwrYEoYIIqMHmcoqGLS
69    BlBLzlrgzgC22FZYAJKvYG3ODPLS0khd+awDX+Qieh2Dnzb7dnE6VIAffYdl
70    dmo6bHiBFlJVej+PizRuXyUTAIxBkSGBNpuImZoVAJ9roSYAqH1Yqzetrkmz
71    GaI3F7MyoaYvHhicoLe/sk8axcnCisnKBczNxa3I0cW+1bm/EQAAOw==
72}
73
74ttk::defineImage dialog/warning -data {
75    R0lGODlhIAAgALMAAAAAAISEAISEhMbGxv//AP//////////////////////
76    /////////////////////yH5BAEAAAUALAAAAAAgACAAAASrsMhJZ7g16y0D
77    IQPAjZr3gYBAroV5piq7uWcoxHJFv3eun0BUz9cJAmHElhFow8lcIQBgwHOu
78    aNJsDfk8ZgHH4TX4BW/Fo12ZjJ4Z10wuZ0cIZOny0jI6NTbnSwRaS3kUdCd2
79    h0JWRYEhVIGFSoEfZo6FipRvaJkfUZB7cp2Cg5FDo6RSmn+on5qCPaivYTey
80    s4sqtqswp2W+v743whTCxcbHyG0FyczJEhEAADs=
81}
82
83ttk::defineImage dialog/auth -data {
84    R0lGODlhIAAgAIQAAAAA/wAAAICAgICAAP///7CwsMDAwMjIAPjIAOjo6Pj4
85    AODg4HBwcMj4ANjY2JiYANDQ0MjIyPj4yKCgoMiYAMjImDAwAMjIMJiYmJCQ
86    kAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAAAALAAAAAAgACAAAAX+ICCOYmCa
87    ZKquZCCMQsDOqWC7NiAMvEyvAoLQVdgZCAfEAPWDERIJk8AwIJwUil5T91y4
88    GC6ry4RoKH2zYGLhnS5tMUNAcaAvaUF2m1A9GeQIAQeDaEAECw6IJlVYAmAK
89    AWZJD3gEDpeXOwRYnHOCCgcPhTWWDhAQQYydkGYIoaOkp6h8m1ieSYOvP0ER
90    EQwEEap0dWagok1BswmMdbiursfIBHnBQs10oKF30tQ8QkISuAcB25UGQQ4R
91    EzzsA4MU4+WGBkXo6hMTMQADFQfwFtHmFSlCAEKEU2jc+YsHy8nAML4iJKzQ
92    Dx65hiWKTIA4pRC7CxblORRA8E/HFfxfQo4KUiBfPgL0SDbkV0ElKZcmEjwE
93    wqPCgwMiAQTASQDDzhkD4IkMkg+DiwU4aSTVQiIIBgFXE+ATsPHHCRVWM8QI
94    oJUrxi04TCzA0PQsWh9kMVx1u6UFA3116zLJGwIAOw==
95}
96
97ttk::defineImage dialog/busy -data {
98    R0lGODlhIAAgALMAAAAAAIAAAACAAICAAAAAgIAAgACAgMDAwICAgP8AAAD/
99    AP//AAAA//8A/wD//////yH5BAEAAAsALAAAAAAgACAAAASAcMlJq7046827
100    /2AYBmRpkoC4BMlzvEkspypg3zitIsfjvgcEQifi+X7BoUpi9AGFxFATCV0u
101    eMEDQFu1GrdbpZXZC0e9LvF4gkifl8aX2tt7bIPvz/Q5l9btcn0gTWBJeR1G
102    bWBdO0EPPIuHHDmUSyxIMjM1lJVrnp+goaIfEQAAOw==
103}
104
105#*EOF*
106