@@ 1,6 1,6 @@
'From Haver 6.0 [latest update: #5991] on 7 September 2023 at 3:13:22 pm'!
'From Haver 6.0 [latest update: #5991] on 7 September 2023 at 11:09:20 pm'!
'Description I implement a bew perferences menu.'!
!provides: 'PreferencesMenu' 1 36!
!provides: 'PreferencesMenu' 1 37!
!requires: 'PackageIntegrators' 1 4 nil!
SystemOrganization addCategory: 'PreferencesMenu'!
@@ 39,23 39,6 @@ postPackageInstall
category: #gui
type: Boolean
value: true! !
!PreferencesMenuPackage class methodsFor: 'menu building' stamp: 'KLG 8/9/2022 13:30:56'!
worldMenuOptions
^ {
{
#submenuOf -> TheWorldMenu preferencesLabel.
#itemGroup -> 50.
#itemOrder -> 10.
#label -> 'Haver''s preferences...'.
#object -> TheWorldMenu.
#selector -> #haversPreferencesMenu.
#icon -> #preferencesIcon.
#balloonText -> 'Open Haver''s preferences menu.'
} asDictionary.
}
! !
PreferencesMenuPackage prePackageInstall!
!classDefinition: #PreferencesMenuPackage category: 'PreferencesMenu'!
(Modules>>#PackageIntegrators>>#IntegratorCodePackage) subclass: #PreferencesMenuPackage
@@ 88,23 71,6 @@ postPackageInstall
type: Boolean
value: true! !
!PreferencesMenuPackage class methodsFor: 'menu building' stamp: 'KLG 8/9/2022 13:30:56'!
worldMenuOptions
^ {
{
#submenuOf -> TheWorldMenu preferencesLabel.
#itemGroup -> 50.
#itemOrder -> 10.
#label -> 'Haver''s preferences...'.
#object -> TheWorldMenu.
#selector -> #haversPreferencesMenu.
#icon -> #preferencesIcon.
#balloonText -> 'Open Haver''s preferences menu.'
} asDictionary.
}
! !
!Boolean methodsFor: '*PreferencesMenu-user interface support' stamp: 'KLG 9/1/2021 17:33:22'!
asMenuItemTextPrefix
"Answer '<Yes>' or '<No>' to prefix a menu item text with a check box. "
@@ 152,6 118,26 @@ displayStringFromUnarySelector: aUpperca
ifFalse: [ character asLowercase ]) ].
wasUpperCase _ isUpperCase ] ]! !
!HaverizePackage class methodsFor: '*PreferencesMenu-menu building' stamp: 'KLG 9/7/2023 23:08:47'!
worldMenuOptions
"Haver's prerfernce menu."
"Installed in this package class, because the preference packages' package class
will be removed during integration."
^ `{
{
#submenuOf -> TheWorldMenu preferencesLabel.
#itemGroup -> 50.
#itemOrder -> 10.
#label -> 'Haver''s preferences...'.
#object -> TheWorldMenu.
#selector -> #haversPreferencesMenu.
#icon -> #preferencesIcon.
#balloonText -> 'Open Haver''s preferences menu.'
} asDictionary.
}`! !
!PreferenceSet methodsFor: '*PreferencesMenu-accessing' stamp: 'KLG 7/1/2022 20:52:38'!
addBooleanItemsForCategory: aCategory toMenu: aMenu
"Add the items for aCategory to aMenu."