R/window_about_package.R

In GegznaV/RcmdrPlugin.BioStat: R Commander Plug-in for Basic Data Management and Analysis Tasks

#' window_about_biostat_version
#'
#' @export
#' @keywords internal
window_about_biostat_version <- function() {
  initializeDialog(title = gettext_bs("Information About The Package"))
  # ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  onOK <- function() {
    closeDialog()
    tkfocus(CommanderWindow())
  }
  # ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  descr_file <- system.file("DESCRIPTION", package = "RcmdrPlugin.biostat")
  # ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  # The main title is taken from the description file
  upper_frame <- tkframe(top)
  tkgrid(upper_frame)

  main_title_frame <-
    labelRcmdr(upper_frame,
      fg = "darkblue",
      font = tkfont.create(family = "Times New Roman", size = 14),
      text = desc::desc_get("Title", descr_file))

  tkgrid(main_title_frame, pady = c(2, 15), padx = 16)

  tkconfigure(main_title_frame, cursor = "heart")       # Mouse cursor changes

  # ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  info_frame <- tkframe(top)
  tkgrid(info_frame)

  tkgrid(
    tk_label_blue(info_frame, text = gettext_bs("Package: ")),
    tk_label(info_frame, text = "RcmdrPlugin.biostat"),
    sticky = "e", pady = c(2, 0), padx = 16)

  tkgrid(
    tk_label_blue(info_frame, text = gettext_bs("Version: ")),
    tk_label(info_frame,
      text = as.character(packageVersion("RcmdrPlugin.biostat"))),
    sticky = "e", pady = c(2, 0), padx = 16)

  tkgrid(
    tk_label_blue(info_frame, text = gettext_bs("Date: ")),
    tk_label(info_frame,   text = desc::desc_get("Date", descr_file)),
    sticky = "e", pady = c(0, 10), padx = 16
  )

  # # ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  # font_normal  <- tkfont.create(family = "Segoe UI", size = 9, underline = FALSE, weight = "normal")
  # font_over    <- tkfont.create(family = "Segoe UI", size = 9, underline = TRUE,  weight = "normal")
  #
  # set_font_n <- function(W) {
  #     tkconfigure(W, font = font_normal, foreground = "black")
  # }
  #
  # set_font_o <- function(W) {
  #     tkconfigure(W, font = font_over, foreground = "blue")
  # }
  #
  #
  #
  # # homepage_link <- "https://gegznav.github.io/RcmdrPlugin.biostat/"
  # homepage_link <- desc::desc_get("URL", descr_file)
  #
  # on_click <- function() {
  #     tkconfigure(hp_frame_2, cursor = "hand1")
  #     browseURL(homepage_link)
  # }
  # on_release <- function() {
  #     tkconfigure(hp_frame_2, cursor = "hand2")
  # }
  #
  # hp_frame_1 <- tk_label_blue(info_frame, text = gettext_bs("Homepage: "))
  # hp_frame_2 <- tk_label(info_frame,   text = homepage_link, font = font_normal)
  #
  # tkbind(hp_frame_2, "<ButtonPress-1>",   on_click)   # Link activation
  # tkbind(hp_frame_2, "<ButtonRelease-1>", on_release)
  # tkbind(hp_frame_2, "<Enter>", set_font_o)
  # tkbind(hp_frame_2, "<Leave>", set_font_n)
  #
  # tkconfigure(hp_frame_2, cursor = "hand2")       # Mouse cursor changes
  #
  # tkgrid(hp_frame_1, hp_frame_2,
  #        sticky = "w",
  #        padx = 16,
  #        pady = c(0, 0))
  #
  # tkgrid.configure(hp_frame_2, sticky = "w")

  # # ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  # # issues_link <- "https://github.com/GegznaV/RcmdrPlugin.biostat/issues"
  # issues_link <- desc::desc_get("BugReports", descr_file)
  #
  # issues_frame_1 <- tk_label_blue(info_frame, text = gettext_bs("Bug reports: "))
  # issues_frame_2 <- tk_label(info_frame,   text = issues_link, font = font_normal)
  #
  # on_click_i <- function() {
  #     tkconfigure(issues_frame_2, cursor = "hand1")
  #     browseURL(issues_link)
  # }
  #
  # on_release_i <- function() {
  #     tkconfigure(issues_frame_2, cursor = "hand2")
  # }
  #
  #
  # tkbind(issues_frame_2, "<ButtonPress-1>",   on_click_i)   # Link is activated
  # tkbind(issues_frame_2, "<ButtonRelease-1>", on_release_i)
  # tkbind(issues_frame_2, "<Enter>", set_font_o)
  # tkbind(issues_frame_2, "<Leave>", set_font_n)
  #
  # tkconfigure(issues_frame_2, cursor = "hand2")        # Mouse cursor changes
  #
  # tkgrid(issues_frame_1, issues_frame_2,  # pady = c(0, 10), columnspan = "3",
  #        sticky = "w",
  #        padx = 16,
  #        pady = c(0, 10))

  # ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  ok_cancel_help()

  tkgrid(buttonsFrame)
  tkgrid.remove(cancelButton)

  dialogSuffix()
}