R/e__create_settings.R

In trevorlolsen/jaw: Just Another Wrapper

#' e__create_settings
#'
#' @param outer_env TODO
#'
#' @return TODO

e__create_settings <- function(outer_env = totem) {
  outer_env$settings_window <- list()
  outer_env$settings_window$settings_window <- RGtk2::gtkWindow(show = F)


  outer_env$settings_window$settings_window_sw <- RGtk2::gtkScrolledWindow()

  RGtk2::gtkScrolledWindowSetPolicy(outer_env$settings_window$settings_window_sw, "automatic", "automatic")

  outer_env$settings_window$settings_window_main_box <- RGtk2::gtkVBox()

  RGtk2::gtkScrolledWindowAddWithViewport(outer_env$settings_window$settings_window_sw, outer_env$settings_window$settings_window_main_box)

  RGtk2::gtkContainerAdd(outer_env$settings_window$settings_window, outer_env$settings_window$settings_window_sw)


  RGtk2::gtkWindowSetTitle(outer_env$settings_window$settings_window, "Settings")

  RGtk2::gtkWidgetSetSizeRequest(outer_env$settings_window$settings_window, 600, 600)





  RGtk2::gSignalConnect(outer_env$settings_window$settings_window, "delete-event", f = function(window, event, data) {
    outer_env <- data
    outer_env$hide_settings_window()
    return(T)
  }, data = outer_env)


  settings_config <- outer_env$settings_list$table_events


  outer_env$settings_window$settings_config_objs <- list()

  for (config_i in names(settings_config)) {
    header_box <- RGtk2::gtkHBox()
    RGtk2::gtkBoxPackStart(header_box, RGtk2::gtkLabel(config_i), F, F, padding = 5)

    header_reset <- RGtk2::gtkButton("reset to default")
    RGtk2::gtkButtonSetFocusOnClick(header_reset, F)


    RGtk2::gSignalConnect(header_reset, "button-press-event", function(widget,
                                                                       event, data) {
      config_i <- data[[1]]
      outer_env <- data[[2]]
      for (item_i in names(settings_config[[config_i]])) {
        item_name <- paste0(config_i, "|", item_i)

        RGtk2::gtkLabelSetLabel(outer_env$settings_window$settings_config_objs[[item_name]]$label, outer_env$settings_list$default_table_events[[config_i]][[item_i]])
        outer_env$settings_window$settings_config_objs[[item_name]]$val <- outer_env$settings_list$default_table_events[[config_i]][[item_i]]
        outer_env$settings_window$settings_config_objs[[item_name]]$area <- config_i
        outer_env$settings_window$settings_config_objs[[item_name]]$item <- item_i
        outer_env$settings_list$table_events[[config_i]][[item_i]] <- outer_env$settings_list$default_table_events[[config_i]][[item_i]]
      }
      return(T)
    }, data = list(config_i, outer_env))

    RGtk2::gtkBoxPackEnd(header_box, header_reset, F, F, padding = 5)

    RGtk2::gtkBoxPackStart(outer_env$settings_window$settings_window_main_box, header_box, F, F, padding = 4)

    RGtk2::gtkBoxPackStart(outer_env$settings_window$settings_window_main_box, RGtk2::gtkLabel("Click to change settings."), F, F, padding = 4)

    outer_env$settings_window$settings_window_inner_table <- RGtk2::gtkTableNew(rows = length(names(settings_config[[config_i]])) * 2 + 1, columns = 4, homogeneous = F)


    RGtk2::gtkBoxPackStart(outer_env$settings_window$settings_window_main_box, outer_env$settings_window$settings_window_inner_table, F, F, padding = 4)
    inner_table_i <- 0
    for (item_i in names(settings_config[[config_i]])) {
      item_name <- paste0(config_i, "|", item_i)


      evbl <- RGtk2::gtkEventBox()


      if (inner_table_i %% 2) {
        RGtk2::gtkWidgetModifyBg(object = evbl, state = "normal", color = "#DEE1D3")
      } else {
        RGtk2::gtkWidgetModifyBg(object = evbl, state = "normal", color = "#DEDEDE")
      }

      vb <- RGtk2::gtkVBox()
      RGtk2::gtkContainerAdd(evbl, vb)

      outer_env$settings_window$settings_config_objs[[item_name]]$label <- RGtk2::gtkLabel(settings_config[[config_i]][[item_i]])
      outer_env$settings_window$settings_config_objs[[item_name]]$val <- settings_config[[config_i]][[item_i]]
      outer_env$settings_window$settings_config_objs[[item_name]]$area <- config_i
      outer_env$settings_window$settings_config_objs[[item_name]]$item <- item_i
      RGtk2::gtkBoxPackStart(vb, outer_env$settings_window$settings_config_objs[[item_name]]$label, padding = 5)







      evb <- RGtk2::gtkEventBox()


      if (inner_table_i %% 2) {
        RGtk2::gtkWidgetModifyBg(object = evb, state = "normal", color = "#F7FAEB")
      } else {
        RGtk2::gtkWidgetModifyBg(object = evb, state = "normal", color = "#f7f7f7")
      }

      hb <- RGtk2::gtkHBox()
      RGtk2::gtkContainerAdd(evb, hb)

      RGtk2::gtkBoxPackStart(hb, RGtk2::gtkLabel(item_i), padding = 0)




      sep <- RGtk2::gtkHSeparatorNew(show = T)
      RGtk2::gtkWidgetModifyBg(object = sep, state = "normal", color = "#f1f1f1")
      RGtk2::gtkTableAttach(outer_env$settings_window$settings_window_inner_table,
        child = sep, left.attach = 0, right.attach = 3,
        top.attach = inner_table_i * 2, bottom.attach = inner_table_i * 2 + 1,
        xoptions = 5, yoptions = 5, xpadding = 0,
        ypadding = 0
      )


      RGtk2::gtkTableAttach(outer_env$settings_window$settings_window_inner_table,
        child = evbl, left.attach = 0, right.attach = 1,
        top.attach = inner_table_i * 2 + 1, bottom.attach = inner_table_i * 2 + 2,
        xoptions = 5, yoptions = 5, xpadding = 0, ypadding = 0
      )

      RGtk2::gtkTableAttach(outer_env$settings_window$settings_window_inner_table,
        child = evb, left.attach = 1, right.attach = 3, top.attach = inner_table_i * 2 + 1,
        bottom.attach = inner_table_i * 2 + 2,
        xoptions = 5, yoptions = 5, xpadding = 0, ypadding = 0
      )







      for (evbx in c(evbl, evb)) {
        RGtk2::gSignalConnect(evbx, "button-press-event", function(widget,
                                                                   event, data) {
          config_ia <- data[[1]]
          item_ia <- data[[2]]
          item_name <- data[[3]]
          outer_env <- data[[4]]
          current_state <- z__event_state(event)

          # if ("General" == config_ia) {
          #   config_set <- names(settings_config)
          # } else {
          #   config_set <- c(config_ia, "General")
          # }
          # for (config_i in config_set) {
          #   for (item_i in names(settings_config[[config_i]])) {
          #     item_name_i <- paste0(config_i, "|", item_i)

          #     if (outer_env$settings_window$settings_config_objs[[item_name_i]]$val == current_state) {
          #       RGtk2::gtkLabelSetLabel(outer_env$settings_window$settings_config_objs[[item_name_i]]$label, "-")
          #       outer_env$settings_window$settings_config_objs[[item_name_i]]$val <- "-"

          #       outer_env$settings_list$table_events[[config_i]][[item_i]] <- "-"
          #     }
          #   }
          # }

          RGtk2::gtkLabelSetLabel(outer_env$settings_window$settings_config_objs[[item_name]]$label, current_state)
          outer_env$settings_window$settings_config_objs[[item_name]]$val <- current_state
          outer_env$settings_list$table_events[[config_ia]][[item_ia]] <- current_state

          return(T)
        }, data = list(config_i, item_i, item_name, outer_env))
      }



      cb <- RGtk2::gtkCheckButtonNewWithLabel("show", show = TRUE)
      RGtk2::gtkToggleButtonSetActive(cb, T)

      RGtk2::gtkTableAttach(outer_env$settings_window$settings_window_inner_table,
        child = cb, left.attach = 3, right.attach = 4, top.attach = inner_table_i * 2 + 1,
        bottom.attach = inner_table_i * 2 + 2,
        xoptions = 5, yoptions = 5, xpadding = 0, ypadding = 0
      )



      RGtk2::gSignalConnect(cb, "toggled", function(cb, data) {
        config_ia <- data[[1]]
        item_ia <- data[[2]]
        item_name <- data[[3]]
        outer_env <- data[[4]]
        current_state <- RGtk2::gtkToggleButtonGetActive(cb)


        print(current_state)

        # RGtk2::gtkLabelSetLabel(outer_env$settings_window$settings_config_objs[[item_name]]$label, current_state)
        # outer_env$settings_window$settings_config_objs[[item_name]]$val <- current_state
        # outer_env$settings_list$table_events[[config_ia]][[item_ia]] <- current_state

        return(T)
      }, data = list(config_i, item_i, item_name, outer_env))





      inner_table_i <- inner_table_i + 1
    }
  }
}