R/mmenurcd.mae.R

In optrcdmaeAT: Optimal Row-Column Designs for Two-Colour cDNA Microarray Experiments

#Function for the window of main menu of TCL/TK 
mmenurcd.mae<-function(){
  fontHeading<- tkfont.create(family="times",size=40,weight="bold")#,slant="italic")
  fontHeading3<-tkfont.create(family="times",size=10,weight="bold")
  AMVDEopt.top<-tktoplevel()
  tkwm.title(AMVDEopt.top,"Optimal Row-Column Designs For Microarray Experiments")
  tkgrid(tklabel(AMVDEopt.top,text="     optrcdmaeAT 1.0.0     ",font=fontHeading))
  tkgrid(tklabel(AMVDEopt.top,text="",font=fontHeading))
  Fixp.butA<-tkbutton(AMVDEopt.top,text="A-Optimal Row-Column Design",font=fontHeading3,command=function()fixparrcd.mae("A"),width=30)
  Fixp.butMV<-tkbutton(AMVDEopt.top,text="MV-Optimal Row-Column Design",font=fontHeading3,command=function() fixparrcd.mae("MV"),width=30)
  Fixp.butD<-tkbutton(AMVDEopt.top,text="D-Optimal Row-Column Design",font=fontHeading3,command=function() fixparrcd.mae("D"),width=30)
  Fixp.butE<-tkbutton(AMVDEopt.top,text="E-Optimal Row-Column Design",font=fontHeading3,command=function() fixparrcd.mae("E"),width=30)
  exitMM<-function() {
      closeQ=tkmessageBox(title = "Bye...", message = "Bye..., Enjoy your optimal design",
                          icon = "info", type = "okcancel", default = "cancel")
      if(as.character(closeQ)=="ok") tkdestroy(AMVDEopt.top)
    }#end of exitMM
  ExitWin.but<-tkbutton(AMVDEopt.top,text="Exit",font=fontHeading3,command=exitMM,width=15)
  tkgrid(Fixp.butA)
  tkgrid(Fixp.butMV)
  tkgrid(Fixp.butD)
  tkgrid(Fixp.butE)
  tkgrid(ExitWin.but)
  tkgrid(tklabel(AMVDEopt.top,text="",font=fontHeading))   }#end of mmenu.mae function
mmenurcd.mae()