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