require(gWidgets2RGtk2)
require(gWidgetsRGtk2)
require(gWidgets2)
require(cairoDevice)
require(ggmap)
require(ggplot2)
require(rgdal)
require(maptools)

w1 <- gwindow()
w2 <- gwindow()

g1 <- ggroup(cont=w1)
g2 <- ggroup(cont=w2)

b1 <- gbutton('Click Me',cont=g2)

gr1 <- ggraphics(cont=g1)

button_press <- addhandlerchanged(b1,  handler=function(h,...) {
    qmap('California')
    })