5a4163800f16 — Gerald Klix (speedy) 2 months ago
SUM: Fixed the remaining bugs.
M haver/Haverize.pck.st +7 -7
@@ 1,6 1,6 @@ 
-'From Haver 6.0 [latest update: #5344] on 1 July 2022 at 9:14:05 pm'!
+'From Haver 6.0 [latest update: #5344] on 1 July 2022 at 9:53:44 pm'!
 'Description Convert the running Cuis image to an Haver image.'!
-!provides: 'Haverize' 1 81!
+!provides: 'Haverize' 1 83!
 SystemOrganization addCategory: 'Haverize'!
 
 

          
@@ 147,7 147,7 @@ installHaver
 				show: 'Haver is already installed!!'.
 			self halt: 'Double Install!!' ]! !
 
-!HaverizePackage class methodsFor: 'installing' stamp: 'KLG 5/25/2022 21:54:01'!
+!HaverizePackage class methodsFor: 'installing' stamp: 'KLG 7/1/2022 21:53:36'!
 installHaverPackagesFromRepository: aRootDirectory
 	"Install all the haver packages from the Mercurial repository."
 

          
@@ 165,7 165,7 @@ installHaverPackagesFromRepository: aRoo
 	(coreChangesDirectory // 'CuisCoreEnvironmentSupport.cs.st') readStream fileIn.
     Feature
 		require: (klgPackagesDirectory // 'Accessability.pck.st') pathName;
-"		require: (klgPackagesDirectory // 'KeyboardFocus.pck.st') pathName;"
+		require: (klgPackagesDirectory // 'KeyboardFocus.pck.st') pathName;
 		require: (environmentsDirectory // 'SimpleEnvironments.pck.st') pathName;
 		require: (environmentsDirectory // 'Environments.pck.st') pathName;
 		require: (haverDirectory / 'modules' // 'Modules.pck.st') pathName;

          
@@ 587,7 587,7 @@ recreateDefaultDesktop
 			world: self
 			hand: self activeHand :: buildWorldMenu.
 		menu
-			addTitle: Preference desktopMenuTitle;
+			addTitle: 'The World of Haver';
 			popUpInWorld: self;
 			stayUp 	]! !
 

          
@@ 596,11 596,11 @@ defaultColor
 	"answer the default color/fill style for the receiver"
 	^ Theme current text! !
 
-!SmalltalkCompleterMorph methodsFor: '*Haverize-selector documentation' stamp: 'KLG 5/10/2021 20:25:35'!
+!SmalltalkCompleterMorph methodsFor: '*Haverize-selector documentation' stamp: 'KLG 7/1/2022 21:45:16'!
 initializeSelectorDocumentation
 
 	selectorDocumentation := TextModelMorph withText: ''.
-	selectorDocumentation textMorph
+	selectorDocumentation innerTextMorph
 		acceptOnCR: false;
 		crAction: [ self crPressedOnSelectorDocumentation ].
 

          
M haver/ui/LegacyButtons.pck.st +1 -1
@@ 424,7 424,7 @@ extentChanged: oldExtent
 minimumExtent
 
 	| e |
-	e _ Preference at:  #windowTitleFont :: pointSize + 2.
+	e _ Preferences at:  #windowTitleFont :: pointSize + 2.
 	^e @ e! !
 
 !(Modules>>#LegacyButtons>>#PluggableButtonMorph) class methodsFor: 'example' stamp: 'jmv 3/12/2018 17:59:10'!

          
M klg-packages/Accessability.pck.st +11 -11
@@ 1,50 1,50 @@ 
-'From Haver 6.0 [latest update: #5170] on 17 May 2022 at 9:55:20 pm'!
+'From Haver 6.0 [latest update: #5344] on 1 July 2022 at 9:37:03 pm'!
 'Description '!
-!provides: 'Accessability' 1 6!
+!provides: 'Accessability' 1 7!
 
 
 
-!Preferences class methodsFor: '*Accessability-get/set' stamp: 'KLG 8/13/2021 16:14:23'!
+!PreferenceSet methodsFor: '*Accessability-get/set' stamp: 'KLG 8/13/2021 16:14:23'!
 defaultHoverHelpBorder
 	"Reset the hover help border to the default value."
 
 	self hoverHelpBorderWidth: 6! !
 
-!Preferences class methodsFor: '*Accessability-standard queries'!
+!PreferenceSet methodsFor: '*Accessability-standard queries'!
 hoverHelpBorderWidth
 	^ self
 		valueOfFlag: #hoverHelpBorderWidth
 		ifAbsent: [ 6 ].! !
 
-!Preferences class methodsFor: '*Accessability-get/set' stamp: 'KLG 8/13/2021 16:07:52'!
+!PreferenceSet methodsFor: '*Accessability-get/set' stamp: 'KLG 8/13/2021 16:07:52'!
 hoverHelpBorderWidth: aWidth
 	"Set the hover help border width."
 
 	self setPreference: #hoverHelpBorderWidth toValue: (aWidth min: 100 max: 0)
 ! !
 
-!Preferences class methodsFor: '*Accessability-get/set' stamp: 'KLG 8/13/2021 16:09:46'!
+!PreferenceSet methodsFor: '*Accessability-get/set' stamp: 'KLG 8/13/2021 16:09:46'!
 mediumHoverHelpBorder
 	"Hover help a big border."
 
 	self hoverHelpBorderWidth: 6
 ! !
 
-!Preferences class methodsFor: '*Accessability-get/set' stamp: 'KLG 8/6/2021 21:42:59'!
+!PreferenceSet methodsFor: '*Accessability-get/set' stamp: 'KLG 8/6/2021 21:42:59'!
 noHoverHelpBorder
 	"Hover help should have no border."
 
 	self hoverHelpBorderWidth: 0
 ! !
 
-!Preferences class methodsFor: '*Accessability-get/set' stamp: 'KLG 8/13/2021 16:07:32'!
+!PreferenceSet methodsFor: '*Accessability-get/set' stamp: 'KLG 8/13/2021 16:07:32'!
 thickHoverHelpBorder
 	"Hover help thik border."
 
 	self hoverHelpBorderWidth: 10
 ! !
 
-!Preferences class methodsFor: '*Accessability-get/set' stamp: 'KLG 8/13/2021 16:10:18'!
+!PreferenceSet methodsFor: '*Accessability-get/set' stamp: 'KLG 8/13/2021 16:10:18'!
 thinHoverHelpBorder
 	"Hover help thik border."
 

          
@@ 110,11 110,11 @@ hoverHelpBorderColor
 
 	^ `Color black`! !
 
-!Theme methodsFor: '*Accessability-other options' stamp: 'KLG 5/17/2022 21:40:36'!
+!Theme methodsFor: '*Accessability-other options' stamp: 'KLG 7/1/2022 21:36:43'!
 hoverHelpBorderWidth
 	"Answer the hover help morph's border width."
 	
 	| borderWidth |
-	borderWidth _ PreferenceNG at: #standardListFont :: pointSize / 11.
+	borderWidth _ Preferences at: #standardListFont :: pointSize / 11.
 	borderWidth _ borderWidth * Theme current hoverHelpBorderWidth + 3.
 	^ borderWidth rounded max: 0! !

          
M klg-packages/KeyboardFocus.pck.st +0 -8
@@ 4,14 4,6 @@ 
 
 
 
-!Preference class methodsFor: '*KeyboardFocus-standard queries' stamp: 'KLG 11/29/2021 12:44:29'!
-titlebarIndicatesKeyboardFocus
-	"Answer true if the title bar should indicate the keyboard focus."
-
-	^ self
-		valueOfFlag: #titlebarIndicatesKeyboardFocus
-		ifAbsent: [ true ].! !
-
 !Morph methodsFor: '*KeyboardFocus-focus handling' stamp: 'KLG 12/2/2021 16:18:50'!
 catchesKeyboardFocus
 	"Answer true if I catch the keyboard focus, if no one else wants it.