5510     "removes all widgets, specClass, and specSelector"

  5510     "removes all widgets, specClass, and specSelector"

  5511 

  5511 

  5512     self askForModification ifFalse: [^nil].

  5512     self askForModification ifFalse: [^nil].

  5513     specClass := specClassName := specSelector := nil.

  5513     specClass := specClassName := specSelector := nil.

  5514     self painter removeAll.

  5514     self painter removeAll.

  5516     treeView canvas topView 

  5516     treeView canvas topView 

  5517         name:  self defaultNameOfCanvas;

  5517         name:  self defaultNameOfCanvas;

  5518         label: self defaultNameOfCanvas.

  5518         label: self defaultNameOfCanvas.

  5519     self helpTool doNew.

  5519     self helpTool doNew.

  5520     self treeSelectionChanged.

  5520     self treeSelectionChanged.