-- Originally posted by (AT sourceforge.net): keepiru --

-- This ticket was imported from http://sourceforge.net/p/rkward/bugs/56 on 2017-05-30 15:26:43 +0100 --
Example from TkWidgetcmds help:
try:
	require\(tcltk\)
	tt <- tktoplevel\(\)
	tkpack\(txt.w <- tktext\(tt\)\)
	tkinsert\(txt.w, "0.0", "plot\(1:10\)"\)
	eval.txt <- function\(\) eval\(parse\(text=tclvalue\(tkget\(txt.w, "0.0", "end"\)\)\)\)
	tkpack\(but.w <- tkbutton\(tt,text="Submit", command=eval.txt\)\)
Click the button.
Result:  RKWward hangs.

Example from slider help:
try:
	require\(relax\)
	plot.sample.norm<-function\(\)\{
	refresh.code<-function\(...\)\{
	mu<-slider\(no=1\); sd<-slider\(no=2\); n<-slider\(no=3\)
	x<-rnorm\(n,mu,sd\)
	plot\(x\)
	\}
	slider\(refresh.code,sl.names=c\("value of mu","value of sd","n number of observations"\),
		sl.mins=c\(-10,.01,5\),sl.maxs=c\(+10,50,100\),sl.deltas=c\(.01,.01,1\),sl.defaults=c\(0,1,20\)\)
	\}
	plot.sample.norm\(\)
Slide a slider.
result:  SIGSEGV