From murdoch.duncan at gmail.com  Mon Nov 19 12:51:29 2012
From: murdoch.duncan at gmail.com (Duncan Murdoch)
Date: Mon, 19 Nov 2012 06:51:29 -0500
Subject: [Rd] tcltk freezing using MS Windows for R-2.14+
In-Reply-To: <50A9BE27.7090404@wehi.edu.au>
References: <50A9BE27.7090404@wehi.edu.au>
Message-ID: <50AA1D41.5030506@gmail.com>

I see the freeze that you mentioned.  I'm not likely to be able to track 
this down in the next while, so I'd suggest posting it to the R bug 
list.  (If you can determine what makes it 100% reproducible, or shorten 
the script even more, that will make it easier to find and fix.)

Duncan Murdoch

On 12-11-19 12:05 AM, Keith wrote:
> I am the maintainer of a Bioconductor package (affylmGUI) which uses
> tcltk. It freezes inconsistently on MS Windows, but not Mac or Unix. see
> details below.
>
> After considerable testing I have reduced the problem from a few
> thousand lines of code to 30 lines!
>
> If you paste the following lines of code into an R window:
>
>
> testGUI <- function(){
>       require(tcltk)
>       MainWindow <- tktoplevel()
>       topMenu <- tkmenu(MainWindow)
>       tkconfigure(MainWindow,menu=topMenu)
>       normalizeMenu <- tkmenu(topMenu, tearoff=FALSE)
>       tkadd(normalizeMenu,"command",label="Normalize",command =
> function() NormalizeNow(MainWindow))
>       tkadd(topMenu, "cascade", label="MainWindow", menu = normalizeMenu)
>       tkfocus(MainWindow)
>       #
> }#end of testGUI <- function()
> #
> NormalizeNow <- function(MainWindow){
>       NMethod <- GetNMethod(MainWindow)
>       if (NMethod=="") return()
>       tkconfigure(MainWindow,cursor="watch")
>       tkfocus(MainWindow)
> }#end of NormalizeNow <- function(){
> #
> GetNMethod <- function(MainWindow){
>       ReturnVal <- "RMA"
>       GNMethod <- tktoplevel(MainWindow)
>       tkwm.deiconify(GNMethod)
>       tkgrab.set(GNMethod)
>       tkfocus(GNMethod)
>       tkwm.title(GNMethod,"Get Method")
>       tkbind(GNMethod,"<Destroy>",function() {ReturnVal <-
> "";tkgrab.release(GNMethod);tkfocus(MainWindow);})
>       tkwait.window(GNMethod)
>       return (ReturnVal)
> }#end of GetNMethod <- function()
>
>
> and then run the function testGUI()
>
> A Main Window pops up with "Main Window" in the Menu bar. Click on "Main
> Window" and the first (and only) item on the menu drops down and it is
> called "Normalize". Clicking this opens another windows entitled "Get
> Method". If there is a problem (it is intermittent), it is evidenced by
> the fact that the "Get Method" window will not close.
>
> It cannot be closed by clicking. The window is frozen open. It can be
> moved but not closed. On MS Windows, the "Get Method" window can be
> closed using the right button close window option on the task bar icon
> Typically the problem occurs infrequently in the first 10 presses on the
> "Normalize" item, but more frequently there after.
>
> I have NOT had the problem on Mac OSX or Linux.
>
> On MS Windows (I have tested on Win XP-32bit and Win7-64bit) the problem
> occurs in R-2.16.0, R-2.15.2, R-2.15.1,R-2.14.0.
>
> THERE IS NO PROBLEM WITH R-2.13.1 and R-2.13.0
>
> I have run it using debug("GetNMethod"). Stepping through the GetNMethod
> function results in freezing when asked to do the "tkgrab.set(GNMethod)"
> instruction.
>
> I would appreciate if others can confirm similar behaviour.
>
> Can anyone suggest why it worked under R-2.13.x but not in later
> versions of R.
>
> Was there a change in R that impacts with this aspect of tcltk?
>
> Is there a work around for this problem?
>
> Any suggestions appreciated,
>
> thanks
>
> Keith Satterley
> affylmGUI, limmaGUI maintainer.
> Bioinformatics Division
> The Walter and Eliza Hall Institute
> Melbourne, Australia.
>
> Some sessionInfo() outputs:
>
>
>
> Win7-64bit-R-2.15.2  testGUI() fails intermittently.
>   > sessionInfo()
> R version 2.15.2 (2012-10-26)
> Platform: x86_64-w64-mingw32/x64 (64-bit)
>
> locale:
> [1] LC_COLLATE=English_Australia.1252 LC_CTYPE=C
> [3] LC_MONETARY=English_Australia.1252 LC_NUMERIC=C
> [5] LC_TIME=English_Australia.1252
>
> attached base packages:
> [1] tcltk     stats     graphics  grDevices utils     datasets methods
> base
>
>
>
> Linux x64-R-2.15.2. testGUI() works always
> R version 2.15.2 (2012-10-26)
> Platform: x86_64-unknown-linux-gnu (64-bit)
>
> locale:
>    [1] LC_CTYPE=en_US.UTF-8       LC_NUMERIC=C
>    [3] LC_TIME=en_US.UTF-8        LC_COLLATE=en_US.UTF-8
>    [5] LC_MONETARY=en_US.UTF-8    LC_MESSAGES=en_US.UTF-8
>    [7] LC_PAPER=C                 LC_NAME=C
>    [9] LC_ADDRESS=C               LC_TELEPHONE=C
> [11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C
>
> attached base packages:
> [1] tcltk     stats     graphics  grDevices utils     datasets methods
> [8] base
>
>
>
> Mac OS X R-2.15.2.  testGUI() works always
>   > sessionInfo()
> R version 2.15.2 (2012-10-26)
> Platform: x86_64-apple-darwin9.8.0/x86_64 (64-bit)
>
> locale:
> [1] en_AU.UTF-8/en_AU.UTF-8/en_AU.UTF-8/C/en_AU.UTF-8/en_AU.UTF-8
>
> attached base packages:
> [1] tcltk     stats     graphics  grDevices utils     datasets methods
> base
>
>
>
> WinXP-32bit--R-2.15.2.  testGUI() fails intermittently
>    > sessionInfo()
>    R version 2.15.2 (2012-10-26)
>    Platform: i386-w64-mingw32/i386 (32-bit)
>
>    locale:
>    [1] LC_COLLATE=English_Australia.1252 LC_CTYPE=English_Australia.1252
> LC_MONETARY=English_Australia.1252 LC_NUMERIC=C
>    [5] LC_TIME=English_Australia.1252
>
>    attached base packages:
>    [1] tcltk     stats     graphics  grDevices utils     datasets
> methods   base
>
>
>
> Win7-R-2.13.1.  testGUI() works always
>   > sessionInfo()
> R version 2.13.1 (2011-07-08)
> Platform: x86_64-pc-mingw32/x64 (64-bit)
>
> locale:
> [1] LC_COLLATE=English_Australia.1252 LC_CTYPE=C
> [3] LC_MONETARY=English_Australia.1252 LC_NUMERIC=C
> [5] LC_TIME=English_Australia.1252
>
> attached base packages:
> [1] tcltk     stats     graphics  grDevices utils     datasets methods
> base
>
>
>
>
> ______________________________________________________________________
> The information in this email is confidential and intend...{{dropped:4}}
>
> ______________________________________________
> R-devel at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-devel
>



[Rd] tcltk freezing using MS Windows for R-2.14+
Duncan Murdoch