objref ShapeWindow

proc shape(){
     ShapeWindow = new PlotShape()
     ShapeWindow.show(0)
     ShapeWindow.exec_menu("Shape Plot")
     fast_flush_list.append(ShapeWindow)
}