removed the (stupid) fontSettings menu support.
--- 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]
! !
--- 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
)
--- 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.
]
--- 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
--- 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.
]