--- a/DataSetBuilder.st	Fri Mar 19 22:02:01 1999 +0100
+++ b/DataSetBuilder.st	Fri Mar 19 22:07:28 1999 +0100
@@ -2566,7 +2566,6 @@
         ]
     ].
     self specChannel value:specSelector.
-"/    (self window notNil and: [self window shown]) ifTrue: [self updateFonts]
 
 ! !
 

--- a/MenuEditor.st	Fri Mar 19 22:02:01 1999 +0100
+++ b/MenuEditor.st	Fri Mar 19 22:07:28 1999 +0100
@@ -2290,7 +2290,6 @@
         aspects do: [:holder| holder removeDependent:self].
         specCanvas client:self spec:(self class perform:(slices at:tabSelection) last) builder:builder.
         aspects do: [:holder| holder addDependent:self].
-"/        self updateFonts.
         specCanvas raise.
     ]
 

--- a/UILayoutTool.st	Fri Mar 19 22:02:01 1999 +0100
+++ b/UILayoutTool.st	Fri Mar 19 22:07:28 1999 +0100
@@ -766,7 +766,6 @@
 
         appl notNil ifTrue:[
             noteBook scrolledView allViewBackground:(noteBook viewBackground).
-"/            masterApplication updateFonts
         ]
     ].
     self update

--- a/UIPainterView.st	Fri Mar 19 22:02:01 1999 +0100
+++ b/UIPainterView.st	Fri Mar 19 22:07:28 1999 +0100
@@ -699,7 +699,7 @@
      - but do not overwrite existing ones.
      Return a string ready to compile into the application class."
 
-    |cls code skip menuSelector protoSpec thisCode
+    |cls code skip protoSpec thisCode
      definedMethodSelectors iVars t|
 
     definedMethodSelectors := IdentitySet new.
@@ -717,7 +717,7 @@
     ].
 
     treeView propertiesDo:[:aProp|
-        |modelSelector menuSelector|
+        |modelSelector|
 
         protoSpec := aProp spec.
 
@@ -856,7 +856,7 @@
      - but do not overwrite existing ones.
      Return a string ready to compile into the application class."
 
-    |cls code skip menuSelector protoSpec thisCode|
+    |cls code|
 
     code := ''.
 
@@ -1035,19 +1035,19 @@
      - but do not overwrite existing ones.
      Return a string ready to compile into the application class."
 
-    |cls code skip menuSelector protoSpec thisCode
-     definedMethodSelectors iVars t 
+    |cls code menuSelector thisCode
+     definedMethodSelectors
      specArray fullSpec winSpec menuSpec
      |
 
     className isNil ifTrue:[
-        self warn:'Set first the class!!'.
-        ^ code
+        self warn:'Define the class first !!'.
+        ^ nil
     ].
 
     (cls := self resolveName:className) isNil ifTrue:[
         self warn:'Class ', className asString, ' does not exist!!'.
-        ^ code
+        ^ nil
     ].
 
     specArray := treeView generateFullSpecForComponents:#() named:nil.
@@ -1055,13 +1055,10 @@
     winSpec := fullSpec window.
     menuSelector := winSpec menu.
 
-    menuSelector isNil ifTrue:[
+    (menuSelector notNil 
+    and:[ (cls respondsTo:menuSelector) ]) ifFalse:[
         self warn:'No menu defined (yet)'.
-        ^ code
-    ].
-    (cls respondsTo:menuSelector) ifFalse:[
-        self warn:'No menu defined (yet)'.
-        ^ code.
+        ^ nil.
     ].
     menuSpec := cls perform:menuSelector.
     menuSpec := menuSpec decodeAsLiteralArray.

--- a/UISpecificationTool.st	Fri Mar 19 22:02:01 1999 +0100
+++ b/UISpecificationTool.st	Fri Mar 19 22:07:28 1999 +0100
@@ -731,7 +731,7 @@
 selection:something
     "selection changed
     "
-    |slices idx spec frame y window|
+    |slices idx spec window|
 
     specification notNil ifTrue:[
         slices := specification class slices.
@@ -753,7 +753,6 @@
 
             window allViewBackground:(self windowFrame viewBackground).
             window extent:1.0@(window preferredExtent y).
-"/            masterApplication updateFonts.
             window realizeAllSubViews.
             self scrolledView sizeChanged:nil.
         ]