ed016985ad20 — Gerald Klix (speedy) tip 25 days ago
SUM: Moved Haver's preference menu to class that will survive package integration.
1 files changed, 22 insertions(+), 36 deletions(-)

M klg-packages/PreferencesMenu.pck.st
M klg-packages/PreferencesMenu.pck.st +22 -36
@@ 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."