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
|
test.gimage <- function() {
require(RUnit)
w <- gwindow()
g <- ggroup(cont = w, horizontal=FALSE)
## stock icon
im <- gimage("help", dirname="stock", cont = g)
checkEquals(svalue(im), system.file("images/help.gif",package="gWidgets"))
## svalue<-
svalue(im) <- "open"
## size
im <- gimage("help", dirname="stock", size="menu", cont = g)
im <- gimage("help", dirname="stock", size="small_toolbar", cont = g)
im <- gimage("help", dirname="stock", size="large_toolbar", cont = g)
im <- gimage("help", dirname="stock", size="button", cont = g)
im <- gimage("help", dirname="stock", size="dialog", cont = g)
## filenames
im <- gimage("test.png", dirname=".", cont = g)
## svalue<-
svalue(im) <- "/Users/verzani/export/Statistics/R/pmg/pmg3/projects/testa.png"
}
test.icons <- function() {
icon <- system.file("images/help.gif",package="gWidgets")
## addStockIcons
addStockIcons("testing",icon)
im <- gimage("testing", dirname="stock", cont = T)
checkEquals(svalue(im), icon)
## getStockIcons
lst <- getStockIcons()
checkEquals(lst[['testing',exact=TRUE]], icon)
}
|
