# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 919342624 -3600
# Node ID 21b3bc025e0c812c4e26f1fefccdfd861abb3628
# Parent  abe3ed3bebc99007ccd3b96e1ac594fdbba4f55a
removed the (stupid) fontSettings menu support.

diff -r abe3ed3bebc9 -r 21b3bc025e0c DataSetBuilder.st
--- a/DataSetBuilder.st	Thu Feb 18 13:54:09 1999 +0100
+++ b/DataSetBuilder.st	Thu Feb 18 13:57:04 1999 +0100
@@ -22,7 +22,7 @@
 	category:'Interface-UIPainter'
 !
 
-Array subclass:#Row
+Array variableSubclass:#Row
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
@@ -1562,23 +1562,23 @@
                     nil
                 )
             )
-             #(#MenuItem
-                #label: 'Settings'
-                #translateLabel: true
-                #activeHelpKey: #settings
-                #submenu: 
-                 #(#Menu
-                    
-                     #(
-                       #(#MenuItem
-                          #label: 'Fonts'
-                          #translateLabel: true
-                          #submenuChannel: #menuFont
-                      )
-                    ) nil
-                    nil
-                )
-            )
+"/             #(#MenuItem
+"/                #label: 'Settings'
+"/                #translateLabel: true
+"/                #activeHelpKey: #settings
+"/                #submenu: 
+"/                 #(#Menu
+"/                    
+"/                     #(
+"/                       #(#MenuItem
+"/                          #label: 'Fonts'
+"/                          #translateLabel: true
+"/                          #submenuChannel: #menuFont
+"/                      )
+"/                    ) nil
+"/                    nil
+"/                )
+"/            )
              #(#MenuItem
                 #label: 'History'
                 #translateLabel: true
@@ -2496,7 +2496,7 @@
         ]
     ].
     self specChannel value:specSelector.
-    (self window notNil and: [self window shown]) ifTrue: [self updateFonts]
+"/    (self window notNil and: [self window shown]) ifTrue: [self updateFonts]
 
 ! !
 
diff -r abe3ed3bebc9 -r 21b3bc025e0c ImageEditor.st
--- a/ImageEditor.st	Thu Feb 18 13:54:09 1999 +0100
+++ b/ImageEditor.st	Thu Feb 18 13:57:04 1999 +0100
@@ -1148,14 +1148,14 @@
                           #value: #doChangeGridMagnification
                           #activeHelpKey: #settingsGridMagnification
                       )
-                       #(#MenuItem
-                          #label: '-'
-                      )
-                       #(#MenuItem
-                          #label: 'Fonts'
-                          #translateLabel: true
-                          #submenuChannel: #menuFont
-                      )
+"/                       #(#MenuItem
+"/                          #label: '-'
+"/                      )
+"/                       #(#MenuItem
+"/                          #label: 'Fonts'
+"/                          #translateLabel: true
+"/                          #submenuChannel: #menuFont
+"/                      )
                     ) nil
                     nil
                 )
diff -r abe3ed3bebc9 -r 21b3bc025e0c MenuEditor.st
--- a/MenuEditor.st	Thu Feb 18 13:54:09 1999 +0100
+++ b/MenuEditor.st	Thu Feb 18 13:57:04 1999 +0100
@@ -1305,21 +1305,21 @@
                 #translateLabel: true
                 #submenuChannel: #submenuTest
             )
-             #(#MenuItem
-                #label: 'Settings'
-                #submenu: 
-                 #(#Menu
-                    
-                     #(
-                       #(#MenuItem
-                          #label: 'Fonts'
-                          #translateLabel: true
-                          #submenuChannel: #menuFont
-                      )
-                    ) nil
-                    nil
-                )
-            )
+"/             #(#MenuItem
+"/                #label: 'Settings'
+"/                #submenu: 
+"/                 #(#Menu
+"/                    
+"/                     #(
+"/                       #(#MenuItem
+"/                          #label: 'Fonts'
+"/                          #translateLabel: true
+"/                          #submenuChannel: #menuFont
+"/                      )
+"/                    ) nil
+"/                    nil
+"/                )
+"/            )
              #(#MenuItem
                 #label: 'History'
                 #activeHelpKey: #history
@@ -2242,7 +2242,7 @@
         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.
+"/        self updateFonts.
         specCanvas raise.
     ]
 
diff -r abe3ed3bebc9 -r 21b3bc025e0c UILayoutTool.st
--- a/UILayoutTool.st	Thu Feb 18 13:54:09 1999 +0100
+++ b/UILayoutTool.st	Thu Feb 18 13:57:04 1999 +0100
@@ -748,7 +748,7 @@
 
         appl notNil ifTrue:[
             noteBook scrolledView allViewBackground:(noteBook viewBackground).
-            masterApplication updateFonts
+"/            masterApplication updateFonts
         ]
     ].
     self update
diff -r abe3ed3bebc9 -r 21b3bc025e0c UISpecificationTool.st
--- a/UISpecificationTool.st	Thu Feb 18 13:54:09 1999 +0100
+++ b/UISpecificationTool.st	Thu Feb 18 13:57:04 1999 +0100
@@ -739,7 +739,7 @@
 
             window allViewBackground:(self windowFrame viewBackground).
             window extent:1.0@(window preferredExtent y).
-            masterApplication updateFonts.
+"/            masterApplication updateFonts.
             window realizeAllSubViews.
             self scrolledView sizeChanged:nil.
         ]