# HG changeset patch
# User ca
# Date 951501222 -3600
# Node ID a54466f799622f14582258e6a5f34e875ca6a70f
# Parent  c931ea91276c55b68aa45656673e1e4e5afb4dd5
support setting font in MenuPanel and Editor

diff -r c931ea91276c -r a54466f79962 MenuEditor.st
--- a/MenuEditor.st	Fri Feb 25 16:51:25 2000 +0100
+++ b/MenuEditor.st	Fri Feb 25 18:53:42 2000 +0100
@@ -31,7 +31,7 @@
 	instanceVariableNames:'activeHelpKey enabled label value nameKey indication shortcutKey
 		accessCharacterPos retriever icon iconAndLabel submenuChannel
 		startGroup argument translateLabel isButton isVisible choice
-		choiceValue auxValue hideMenuOnActivated
+		choiceValue auxValue hideMenuOnActivated font
 		showBusyCursorWhilePerforming'
 	classVariableNames:''
 	poolDictionaries:''
@@ -117,6 +117,7 @@
         label
         accessCharacterPos
         showBusyCursorWhilePerforming
+        font
         argument
         submenuChannel
         enabled
@@ -948,7 +949,7 @@
           #name: 'Details Edit'
           #min: #(#Point 10 10)
           #max: #(#Point 1280 1024)
-          #bounds: #(#Rectangle 670 329 985 613)
+          #bounds: #(#Rectangle 12 22 327 306)
         )
         #component: 
        #(#SpecCollection
@@ -1086,6 +1087,23 @@
               #modifiedChannel: #modifiedChannel
               #acceptOnPointerLeave: false
             )
+           #(#LabelSpec
+              #label: 'Font:'
+              #name: 'fontLabel'
+              #layout: #(#AlignmentOrigin 75 0 231 0 1 0.5)
+              #resizeForLabel: true
+              #adjust: #right
+            )
+           #(#FontMenuSpec
+              #attributes: 
+             #(#tabable
+                true
+              )
+              #name: 'fontMenu'
+              #layout: #(#LayoutFrame 78 0 220 0 -5 1.0 242 0)
+              #activeHelpKey: #fontMenu
+              #model: #font
+            )
            )
          
         )
@@ -3267,6 +3285,7 @@
         startGroup         := (aspects at:#startGroup) value.
         accessCharacterPos := (aspects at:#accessCharacterPos) value.
         showBusyCursorWhilePerforming := (aspects at:#showBusyCursorWhilePerforming) value.
+        font               := (aspects at:#font) value.
         argument           := (aspects at:#argument) value.
         translateLabel     := (aspects at:#translateLabel) value.
         isButton           := (aspects at:#isButton) value.
@@ -3321,6 +3340,7 @@
     startGroup          := anItem startGroup.
     accessCharacterPos  := anItem accessCharacterPosition.
     showBusyCursorWhilePerforming  := anItem showBusyCursorWhilePerforming.
+    font                := anItem font.
     argument            := anItem argument.
 
     submenuChannel      := anItem submenuChannel.
@@ -3360,6 +3380,7 @@
         item enabled:enabled.
         item accessCharacterPosition:accessCharacterPos.
         item showBusyCursorWhilePerforming:showBusyCursorWhilePerforming.
+        item font:font.
         item argument:argument.
         item submenuChannel:submenuChannel.
         item nameKey:nameKey.
@@ -3407,6 +3428,7 @@
         (aspects at:#startGroup)           value:startGroup.
         (aspects at:#accessCharacterPos)   value:accessCharacterPos.
         (aspects at:#showBusyCursorWhilePerforming)   value:showBusyCursorWhilePerforming.
+        (aspects at:#font)                 value:font.
         (aspects at:#translateLabel)       value:translateLabel.
         (aspects at:#submenuChannel)       value:submenuChannel.
         (aspects at:#retriever)            value:retriever.