advancedOptionsWin ::  IO  G.Window
advancedOptionsWin  =  do
     win <- G.windowNew
     opsBox <- advOptionsBox win
     G.set win [G.containerChild G.:= opsBox]
     G.widgetShow opsBox
     return win

--- dialog to edit the selected list
--drawingCanvas <-  getDrawingCanvas tabRef -- the drawing canvas --
-- openEditDialog :: [String] -> IO ([String], Bool)
advancedOptionsWin ::  IO  G.Window
advancedOptionsWin  =  do
     win <- G.windowNew
     opsBox <- advOptionsBox win
     G.set win [G.containerChild G.:= opsBox]
     G.widgetShow opsBox
     return win

--- dialog to edit the selected list
--drawingCanvas <-  getDrawingCanvas tabRef -- the drawing canvas --
-- openEditDialog :: [String] -> IO ([String], Bool)
advancedOptionsWin  =  do
     win <- G.windowNew
     opsBox <- advOptionsBox win
     G.set win [G.containerChild G.:= opsBox]
     G.widgetShow opsBox
     return win

--- dialog to edit the selected list
--drawingCanvas <-  getDrawingCanvas tabRef -- the drawing canvas --
-- openEditDialog :: [String] -> IO ([String], Bool)