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
|
w <- gwindow("edit, text", visible=FALSE)
g <- ggroup(cont = w, horizontal=FALSE)
## gedit
e <- gedit("edit", cont = g)
# svalue
print(svalue(e))
# svalue<-
svalue(e) <- "new text"
# handler
addHandlerChanged(e, function(h,...) print("changed"))
addHandlerKeystroke(e, function(h,...) print(h$key))
##?? others
## gtext
t <- gtext("edit", cont = g)
#svalue
print(svalue(t))
# svalue<-
svalue(t) <- "new text"
# insert
insert(t, "more new text") # ?\n?
insert(t, "even more with font.attr", font.attr = c("color"="red"))
# handler
addHandlerKeystroke(t, handler=function(h,...) print(h$key))
visible(w) <- TRUE
|
