GetBitmapImage: Create Icon Bitmap Image

In RSurvey: Geographic Information System Application

Description

Create a small Tk bitmap image.

Usage

GetBitmapImage(type)

Arguments

type	character. Icon image type, see ‘Details’

Details

Icon image types include: left, right, up, down, top, bottom, upleft, upright, downleft, downright, next, previous, copy, paste, find, delete, view, info, plus, minus, print, and histogram. A recommended editor for bitmap design is Paul Obermeier's poBitmap tool; specify a square icon 11 pixels on each side.

Value

An image of class tclObj.

Author(s)

J.C. Fisher, U.S. Geological Survey, Idaho Water Science Center

See Also

tkimage.create

Examples

## Not run: 
  types <- c("left", "right", "up", "down", "top", "bottom", "upleft", "upright",
             "downleft", "downright", "next", "previous", "copy", "paste", "find",
             "delete", "view", "info", "plus", "minus", "print", "histogram")
  Fun <- function(k) print(types[k])
  tt <- tcltk::tktoplevel(padx = 50, pady = 50)
  i <- 0
  j <- 0
  d <- 5
  for (k in seq_along(types)) {
    img <- paste("img", k, sep = ".")
    but <- paste("but", k, sep = ".")
    assign(img, GetBitmapImage(types[k]))
    assign(but, tcltk::ttkbutton(tt, width = 2, image = get(img),
                                 command = local({k <- k; function() Fun(k)})))
    tcltk::tkgrid(get(but), row = i, column = j, padx = 5, pady = 5)
    i <- k %/% d
    j <- ifelse(j < d - 1, j + 1, 0)
  }

## End(Not run)

RSurvey documentation built on May 2, 2019, 3:28 p.m.