R/show_message.R

In jsta/glmgui: glmGUI

show_message <-
function(message){
  ###Msg existing Project
  window <- gwindow("Message", width = 250, height = 100)
  group <- ggroup(container = window)
  gWidgets2::gimage("info", dirname="stock", size="dialog", container=group)
  innergroup <- ggroup(horizontal=FALSE, container = group)
  gWidgets2::glabel(message, container=innergroup, expand=TRUE)
  gbutton("ok",  container=group, handler = function(h,...)dispose(window))
}