--- 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.