--- a/FontMenu.st Fri Feb 27 18:44:54 1998 +0100
+++ b/FontMenu.st Fri Feb 27 20:32:08 1998 +0100
@@ -69,74 +69,83 @@
!FontMenu class methodsFor:'menu spec'!
menu
+
<resource: #menu>
- ^ #(#Menu #(
- (#MenuItem
- #'label:' ''
- #'indication:' false
- )
- (#MenuItem
- #'label:' 'family'
- #'value:' #fontFamily:
- #'submenu:'
- #(#Menu #( #(#MenuItem #'label:' 'helvetica' value:#helvetica )
- #(#MenuItem #'label:' 'courier' value:#courier )
- #(#MenuItem #'label:' 'times' value:#times )
- #(#MenuItem #'label:' 'clean' value:#clean )
- #(#MenuItem #'label:' 'fixed' value:#fixed )
- #(#MenuItem #'label:' 'lucida' value:#lucida )
+ ^
+
+ #(#Menu
+
+ #(
+ #(#MenuItem
+ #label: ''
+ #indication: false
+ )
+ #(#MenuItem
+ #label: '-'
+ )
+ (#MenuItem
+ #label: 'family'
+ #value: #fontFamily:
+ #isButton: true
+ #submenu:
+ #(#Menu #( #(#MenuItem #label: 'helvetica' value:#helvetica)
+ #(#MenuItem #label: 'courier' value:#courier)
+ #(#MenuItem #label: 'times' value:#times)
+ #(#MenuItem #label: 'clean' value:#clean)
+ #(#MenuItem #label: 'fixed' value:#fixed)
+ #(#MenuItem #label: 'lucida' value:#lucida)
)
nil
nil
)
- )
- (#MenuItem
- #'label:' 'face'
- #'value:' #fontFace:
- #'submenu:'
- #(#Menu #( #(#MenuItem #label: 'bold' value:#bold )
- #(#MenuItem #label: 'medium' value:#medium )
+ )
+ (#MenuItem
+ #label: 'face'
+ #value: #fontFace:
+ #isButton: true
+ #submenu:
+ #(#Menu #( #(#MenuItem #label: 'bold' value:#bold)
+ #(#MenuItem #label: 'medium' value:#medium)
)
nil
nil
)
- )
- (#MenuItem
- #'label:' 'style'
- #'value:' #fontStyle:
- #'submenu:'
- #(#Menu #( #(#MenuItem #label: 'roman' value:#roman )
- #(#MenuItem #label: 'italic' value:#italic )
- #(#MenuItem #label: 'oblique' value:#oblique )
- )
+ )
+ (#MenuItem
+ #label: 'style'
+ #value: #fontStyle:
+ #isButton: true
+ #submenu:
+ #(#Menu #( #(#MenuItem #label: 'roman' value:#roman)
+ #(#MenuItem #label: 'italic' value:#italic)
+ #(#MenuItem #label: 'oblique' value:#oblique)
+ )
nil
nil
)
- )
- (#MenuItem
- #'label:' 'size'
- #'value:' #fontSize:
- #'submenu:'
- #(#Menu #( #(#MenuItem #label: '6' value:6 )
- #(#MenuItem #label: '8' value:8 )
- #(#MenuItem #label: '10' value:10 )
- #(#MenuItem #label: '12' value:12 )
- #(#MenuItem #label: '14' value:14 )
- #(#MenuItem #label: '16' value:16 )
- #(#MenuItem #label: '18' value:18 )
+ )
+ (#MenuItem
+ #label: 'size'
+ #value: #fontSize:
+ #isButton: true
+ #submenu:
+ #(#Menu #( #(#MenuItem #label: '6' value:6)
+ #(#MenuItem #label: '8' value:8)
+ #(#MenuItem #label: '10' value:10)
+ #(#MenuItem #label: '12' value:12)
+ #(#MenuItem #label: '14' value:14)
+ #(#MenuItem #label: '16' value:16)
+ #(#MenuItem #label: '18' value:18)
#(#MenuItem #label: 'other ...' value:#size)
)
nil
nil
)
- )
- )
- #( 1 )
- nil
- ) decodeAsLiteralArray
-
- "Modified: / 27.10.1997 / 17:11:30 / cg"
+ )
+ ) nil
+ nil
+ )
! !
!FontMenu methodsFor:'accept'!
@@ -354,5 +363,5 @@
!FontMenu class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/FontMenu.st,v 1.6 1997-11-14 09:08:29 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/FontMenu.st,v 1.7 1998-02-27 19:32:08 tz Exp $'
! !