1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
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
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
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
|
# This file is a Tcl script to test systray and sysnotify features in Tk.
# It is organized in the standard fashion for Tcl tests.
#
# Copyright © 2020 Kevin Walzer/WordTech Communications LLC.
# Copyright © 2020 Francois Vogel.
# All rights reserved.
package require tcltest 2.2
namespace import ::tcltest::*
eval tcltest::configure $argv
tcltest::loadTestedCommands
test systray-1 {systray icon creation, all options} -setup {
image create photo _book -data R0lGODlhDwAPAKIAAP//////AP8AAMDAwICAgAAAAAAAAAAAACwAAAAADwAPAAADSQhA2u5ksPeKABKSCaya29d4WKgERFF0l1IMQCAKatvBJ0OTdzzXI1xMB3TBZAvATtB6NSLKleXi3OBoLqrVgc0yv+DVSEUuFxIAOw==
} -body {
tk systray create -image _book -text "Systray sample" \
-button1 {puts "button 1 click"} -button3 {puts "button 3 click"}
} -cleanup {
tk systray destroy
image delete _book
} -result {}
test systray-2 {systray create, argument checking} -body {
tk systray create
} -returnCodes {error} -result {missing required option "-image"}
test systray-3 {systray create, argument checking} -body {
tk systray create -text Hell
} -returnCodes {error} -result {missing required option "-image"}
test systray-4 {systray create, argument checking} -setup {
image create photo _book -data R0lGODlhDwAPAKIAAP//////AP8AAMDAwICAgAAAAAAAAAAAACwAAAAADwAPAAADSQhA2u5ksPeKABKSCaya29d4WKgERFF0l1IMQCAKatvBJ0OTdzzXI1xMB3TBZAvATtB6NSLKleXi3OBoLqrVgc0yv+DVSEUuFxIAOw==
} -body {
tk systray create -image _book -gorp invalidOption
} -returnCodes {error} -result {unknown option "-gorp": must be -image, -text, -button1 or -button3}
test systray-5 {systray icon creation, only required option present} -setup {
image create photo _book -data R0lGODlhDwAPAKIAAP//////AP8AAMDAwICAgAAAAAAAAAAAACwAAAAADwAPAAADSQhA2u5ksPeKABKSCaya29d4WKgERFF0l1IMQCAKatvBJ0OTdzzXI1xMB3TBZAvATtB6NSLKleXi3OBoLqrVgc0yv+DVSEUuFxIAOw==
} -body {
tk systray create -image _book
} -cleanup {
tk systray destroy
image delete _book
} -result {}
test systray-6 {systray icon creation, some options present} -setup {
image create photo _book -data R0lGODlhDwAPAKIAAP//////AP8AAMDAwICAgAAAAAAAAAAAACwAAAAADwAPAAADSQhA2u5ksPeKABKSCaya29d4WKgERFF0l1IMQCAKatvBJ0OTdzzXI1xMB3TBZAvATtB6NSLKleXi3OBoLqrVgc0yv+DVSEUuFxIAOw==
} -body {
tk systray create -image _book -button3 {puts b3}
} -cleanup {
tk systray destroy
image delete _book
} -result {}
test systray-7 {systray icon, all parameters modification, introspection} -setup {
image create photo _book -data R0lGODlhDwAPAKIAAP//////AP8AAMDAwICAgAAAAAAAAAAAACwAAAAADwAPAAADSQhA2u5ksPeKABKSCaya29d4WKgERFF0l1IMQCAKatvBJ0OTdzzXI1xMB3TBZAvATtB6NSLKleXi3OBoLqrVgc0yv+DVSEUuFxIAOw==
image create photo _page -data R0lGODlhCwAPAKIAAP//////AMDAwICAgAAA/wAAAAAAAAAAACwAAAAACwAPAAADMzi6CzAugiAgDGE68aB0RXgRJBFVX0SNpQlUWfahQOvSsgrX7eZJMlQMWBEYj8iQchlKAAA7
} -body {
tk systray create -image _book -text "Systray icon text"
tk systray configure -image _page
tk systray configure -text "Another text for my icon"
tk systray configure -button1 {set a 1}
tk systray configure -button3 {set b 2}
tk systray configure
} -cleanup {
tk systray destroy
image delete _book
image delete _page
} -result {-image _page -text {Another text for my icon} -button1 {set a 1} -button3 {set b 2}}
test systray-8 {systray icon, single parameter modification, introspection} -setup {
image create photo _book -data R0lGODlhDwAPAKIAAP//////AP8AAMDAwICAgAAAAAAAAAAAACwAAAAADwAPAAADSQhA2u5ksPeKABKSCaya29d4WKgERFF0l1IMQCAKatvBJ0OTdzzXI1xMB3TBZAvATtB6NSLKleXi3OBoLqrVgc0yv+DVSEUuFxIAOw==
} -body {
tk systray create -image _book -text "Systray icon text" -button1 {puts b1}
tk systray configure -button1 {set a 1}
tk systray configure -button1
} -cleanup {
tk systray destroy
image delete _book
} -result {set a 1}
test systray-9 {systray icon, several parameters modification at once, introspection} -setup {
image create photo _book -data R0lGODlhDwAPAKIAAP//////AP8AAMDAwICAgAAAAAAAAAAAACwAAAAADwAPAAADSQhA2u5ksPeKABKSCaya29d4WKgERFF0l1IMQCAKatvBJ0OTdzzXI1xMB3TBZAvATtB6NSLKleXi3OBoLqrVgc0yv+DVSEUuFxIAOw==
} -body {
tk systray create -image _book -text "Systray icon text" -button1 {puts b1}
tk systray configure -button1 {set a 1} -text NewText
list [tk systray configure -button1] [tk systray configure -text]
} -cleanup {
tk systray destroy
image delete _book
} -result {{set a 1} NewText}
test systray-10 {configure non-existing systray icon} -setup {
catch {tk systray destroy}
} -body {
tk systray configure
} -returnCodes {error} -result {systray not created}
test systray-11 {destroy non-existing systray icon} -setup {
catch {tk systray destroy}
} -body {
tk systray destroy
} -returnCodes {error} -result {systray not created}
test systray-12 {destroy systray icon works} -setup {
image create photo _book -data R0lGODlhDwAPAKIAAP//////AP8AAMDAwICAgAAAAAAAAAAAACwAAAAADwAPAAADSQhA2u5ksPeKABKSCaya29d4WKgERFF0l1IMQCAKatvBJ0OTdzzXI1xMB3TBZAvATtB6NSLKleXi3OBoLqrVgc0yv+DVSEUuFxIAOw==
} -body {
tk systray create -image _book
tk systray destroy
tk systray create -image _book
} -result {}
test systray-13 {systray icon creation, attempt to create more than one in an interp} -setup {
image create photo _book -data R0lGODlhDwAPAKIAAP//////AP8AAMDAwICAgAAAAAAAAAAAACwAAAAADwAPAAADSQhA2u5ksPeKABKSCaya29d4WKgERFF0l1IMQCAKatvBJ0OTdzzXI1xMB3TBZAvATtB6NSLKleXi3OBoLqrVgc0yv+DVSEUuFxIAOw==
} -body {
tk systray create -image _book
tk systray create -image _book
} -cleanup {
tk systray destroy
image delete _book
} -returnCodes {error} -result {only one system tray icon supported per interpeter}
test systray-14 {systray icon creation, create one per interp, visibiliy checks} -setup {
image create photo _book -data R0lGODlhDwAPAKIAAP//////AP8AAMDAwICAgAAAAAAAAAAAACwAAAAADwAPAAADSQhA2u5ksPeKABKSCaya29d4WKgERFF0l1IMQCAKatvBJ0OTdzzXI1xMB3TBZAvATtB6NSLKleXi3OBoLqrVgc0yv+DVSEUuFxIAOw==
} -body {
tk systray create -image _book -text "first interp"
interp create second
# load Tk into the 'second' interp
foreach pkg [info loaded] {
if {[lindex $pkg 1] == "Tk"} {
set loadTk "load $pkg"
break
}
}
eval $loadTk second
# create the icon in the 'second' interp
second eval {
# should trigger an error: image _book unknown in 'second' interp'
# image from higer interp should not be visible by 'tk systray'
tk systray create -image _book -text "second interp"
}
} -cleanup {
tk systray destroy
image delete _book
interp delete second
} -returnCodes {error} -result {image "_book" doesn't exist}
test systray-15 {systray icon creation, create one per interp} -setup {
image create photo _book -data R0lGODlhDwAPAKIAAP//////AP8AAMDAwICAgAAAAAAAAAAAACwAAAAADwAPAAADSQhA2u5ksPeKABKSCaya29d4WKgERFF0l1IMQCAKatvBJ0OTdzzXI1xMB3TBZAvATtB6NSLKleXi3OBoLqrVgc0yv+DVSEUuFxIAOw==
} -body {
tk systray create -image _book -text "first interp"
interp create second
# load Tk into the 'second' interp
foreach pkg [info loaded] {
if {[lindex $pkg 1] == "Tk"} {
set loadTk "load $pkg"
break
}
}
eval $loadTk second
# create the icon in the 'second' interp
second eval {
image create photo _page -data R0lGODlhCwAPAKIAAP//////AMDAwICAgAAA/wAAAAAAAAAAACwAAAAACwAPAAADMzi6CzAugiAgDGE68aB0RXgRJBFVX0SNpQlUWfahQOvSsgrX7eZJMlQMWBEYj8iQchlKAAA7
tk systray create -image _page -text "second interp"
}
} -cleanup {
second eval {
tk systray destroy
image delete _page
}
interp delete second
tk systray destroy
image delete _book
} -result {}
test systray-16 {systray icon creation from a bitmap, on Linux and macOS only} -constraints {
nonwin
} -setup {
set data1 {
#define foo_width 16
#define foo_height 16
static unsigned char foo_bits[] = {
0xff, 0xff, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81,
0x81, 0x81, 0xff, 0xff, 0xff, 0xff, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81,
0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0xff, 0xff
};
}
image create bitmap cross -data $data1
} -body {
tk systray create -image cross
} -cleanup {
tk systray destroy
image delete cross
} -result {}
test sysnotify-1 {system notification popup} -setup {
image create photo _book -data R0lGODlhDwAPAKIAAP//////AP8AAMDAwICAgAAAAAAAAAAAACwAAAAADwAPAAADSQhA2u5ksPeKABKSCaya29d4WKgERFF0l1IMQCAKatvBJ0OTdzzXI1xMB3TBZAvATtB6NSLKleXi3OBoLqrVgc0yv+DVSEUuFxIAOw==
tk systray create -image _book -text "Systray sample"
} -body {
tk sysnotify {Alert} {This is an alert}
} -cleanup {
tk systray destroy
image delete _book
} -result {}
test sysnotify-2.1 {system notification stems from a systray icon on Windows} -constraints {
win
} -setup {
catch {tk systray destroy}
} -body {
tk sysnotify {Alert} {This is an alert}
} -returnCodes {error} -result {must create a system tray icon with the "tk systray" command first}
test sysnotify-2.2 {system notification is not linked to any systray icon on X11 or aqua} -constraints {
nonwin
} -setup {
catch {tk systray destroy}
} -body {
tk sysnotify {Alert} {This is an alert}
} -result {}
cleanupTests
|
