# first, delete existing windows to save memory:
deleteAllWindows(CytoscapeConnection())
cw <- CytoscapeWindow ('setDefaultEdgeColor test', graph=makeSimpleGraph())
displayGraph (cw)
redraw (cw)
layoutNetwork(cw, 'grid')
setDefaultEdgeColor (cw, '#888888') # grey edges
redraw (cw) # redraw is not required anymore
Run the code above in your browser using DataLab