Packages April 2022

packages@lists.squeakfoundation.org

1 participants
184 discussions

The Trunk: PreferenceBrowser-ct.142.mcz
by commits＠source.squeak.org 06 Apr '22

06 Apr '22

Christoph Thiede uploaded a new version of PreferenceBrowser to project The Trunk: http://source.squeak.org/trunk/PreferenceBrowser-ct.142.mcz ==================== Summary ==================== Name: PreferenceBrowser-ct.142 Author: ct Time: 6 April 2022, 9:17:51.223385 pm UUID: d97280ad-347c-b844-ad1c-f3d2004d4cc0 Ancestors: PreferenceBrowser-ct.141 Adds Preference >> #open to display a preference in a new preference browser. =============== Diff against PreferenceBrowser-ct.141 =============== Item was added: + ----- Method: Preference>>open (in category '*PreferenceBrowser') ----- + open + + ^ PreferenceBrowser open + selectedCategory: self categoryList first; + selectedPreference: self; + yourself!

1 0

The Trunk: System-ct.1337.mcz
by commits＠source.squeak.org 06 Apr '22

06 Apr '22

Christoph Thiede uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ct.1337.mcz ==================== Summary ==================== Name: System-ct.1337 Author: ct Time: 6 April 2022, 9:16:41.622385 pm UUID: 51362b3c-0a2d-2c4a-83e1-5909bbdb9a84 Ancestors: System-ct.1336 Adds pragma-preference lookup to Preferences. Internalizes pragma ID construction. Adds execute-around setter to Preference. (Preferences pragmaPreferenceFor: Model getter: #useColorfulWindows) preferenceValue: true during: [self inform: 'Carpe Squeak!'] =============== Diff against System-ct.1336 =============== Item was changed: ----- Method: PragmaPreference>>id (in category 'accessing') ----- id + ^ Preferences pragmaIdFor: self provider getter: getter! - ^ (self provider name, '>>', getter) asSymbol! Item was added: + ----- Method: Preference>>preferenceValue:during: (in category 'value') ----- + preferenceValue: val during: aBlock + + | oldValue | + (oldValue := self preferenceValue) = val ifTrue: [^ aBlock value]. + self preferenceValue: val. + ^ aBlock ensure: + [self preferenceValue: oldValue]! Item was added: + ----- Method: Preferences class>>pragmaIdFor:getter: (in category 'accessing') ----- + pragmaIdFor: provider getter: getter + + ^ (provider name , '>>' , getter) asSymbol! Item was added: + ----- Method: Preferences class>>pragmaPreferenceFor:getter: (in category 'accessing') ----- + pragmaPreferenceFor: provider getter: getter + + ^ self preferenceAt: (self pragmaIdFor: provider getter: getter)!

1 0

The Trunk: System-ct.1336.mcz
by commits＠source.squeak.org 06 Apr '22

06 Apr '22

Christoph Thiede uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ct.1336.mcz ==================== Summary ==================== Name: System-ct.1336 Author: ct Time: 6 April 2022, 9:10:17.707385 pm UUID: 8eea4965-4852-c649-aa28-138bec7f33a7 Ancestors: System-ct.1335 Corrects examples for SystemNavigation>>browseAllExtensionMethodsOfPackage:[localTo:]. =============== Diff against System-ct.1335 =============== Item was changed: ----- Method: SystemNavigation>>browseAllExtensionMethodsOfPackage: (in category 'browse') ----- browseAllExtensionMethodsOfPackage: aPackageInfoOrName + "self default browseAllExtensionMethodsOfPackage: #Morphic" - "self default browseAllExtensionMethodsOfPackage: #Morph" | packageInfo | packageInfo := self packageInfoFor: aPackageInfoOrName. ^ self browseMessageList: [self allExtensionMethodsOfPackage: packageInfo] name: ('Extensions of package {1}' translated format: {packageInfo name})! Item was changed: ----- Method: SystemNavigation>>browseAllExtensionMethodsOfPackage:localTo: (in category 'browse') ----- browseAllExtensionMethodsOfPackage: aPackageInfoOrName localTo: aClassCategory + "self default browseAllExtensionMethodsOfPackage: #Morphic localTo: 'Morphic-Support'" - "self default browseAllExtensionMethodsOfPackage: #Morph localTo: 'Morphic-Support' " | packageInfo | packageInfo := self packageInfoFor: aPackageInfoOrName. ^ self browseMessageList: [self allExtensionMethodsOfPackage: packageInfo localTo: aClassCategory] name: ('Extensions of package {1} local to {2}' translated format: {packageInfo name. aClassCategory})!

1 0

The Trunk: Morphic-ct.1961.mcz
by commits＠source.squeak.org 06 Apr '22

06 Apr '22

Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.1961.mcz ==================== Summary ==================== Name: Morphic-ct.1961 Author: ct Time: 6 April 2022, 8:16:10.262385 pm UUID: a733d275-2b98-5d4c-837c-9eb9c90912ab Ancestors: Morphic-ct.1960 Tweaks default keyboard focus in dialog windows. Makes sure that for "fill in the blank" dialogs, users can type into the text field even it is not hovered initially. For system windows, avoid focusing a locked morph and beautifies the morph search by using a chained sort function. =============== Diff against Morphic-ct.1960 =============== Item was added: + ----- Method: DialogWindow>>defaultFocusMorph (in category 'accessing') ----- + defaultFocusMorph + + (preferredPosition isMorph and: [preferredPosition wantsKeyboardFocus]) ifTrue: [^ preferredPosition]. + + ^ nil! Item was changed: ----- Method: DialogWindow>>getUserResponse (in category 'running') ----- getUserResponse | hand world | self message ifEmpty: [messageMorph delete]. "Do not waste space." self paneMorph submorphs ifEmpty: ["Do not waste space and avoid strange button-row wraps." self paneMorph delete. self buttonRowMorph wrapDirection: #none]. hand := self currentHand. world := self currentWorld. self fullBounds. self morphicLayerNumber: self class dialogLayer. self moveToPreferredPosition. self openInWorld: world. hand showTemporaryCursor: nil. "Since we are out of context, reset the cursor." hand keyboardFocus in: [:priorKeyboardFocus | hand mouseFocus in: [:priorMouseFocus | self exclusive ifTrue: [hand newMouseFocus: self]. + hand newKeyboardFocus: self defaultFocusMorph. - hand newKeyboardFocus: self. [[self isInWorld] whileTrue: [world doOneSubCycle]] ifCurtailed: [self cancelDialog]. hand newKeyboardFocus: priorKeyboardFocus. self flag: #discuss. "Since 2016 we are having this *ping pong* between (a) restoring the prior mouse focus and (b) just clearing it globally. The former solution makes more sense while the latter fixes issues with some modal dialogs. We have to investigate this further." hand releaseMouseFocus. "hand newMouseFocus: priorMouseFocus."]]. ^ result! Item was added: + ----- Method: FillInTheBlankMorph>>defaultFocusMorph (in category 'accessing') ----- + defaultFocusMorph + + ^ self textPane! Item was changed: ----- Method: SystemWindow>>defaultFocusMorph (in category 'focus') ----- defaultFocusMorph | predicate | predicate := (self hasProperty: #defaultFocusMorph) + ifFalse: [ [:morph | morph isLocked not and: [morph wantsKeyboardFocus]] ] - ifFalse: [ [:morph | morph wantsKeyboardFocus] ] ifTrue: [ | anObject | anObject := (self valueOfProperty: #defaultFocusMorph) value. anObject isMorph ifTrue: [^ anObject]. [:morph | morph knownName = anObject] ]. + - self allMorphsBreadthFirstDo: [:morph | (predicate value: morph) ifTrue: [^ morph]] + sorted: #top ascending, #left ascending. + - sorted: [:a :b | a top < b top or: [a top = b top and: [a left <= b left]]]. - ^ nil!

1 0

The Trunk: Morphic-ct.1960.mcz
by commits＠source.squeak.org 06 Apr '22

06 Apr '22

Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.1960.mcz ==================== Summary ==================== Name: Morphic-ct.1960 Author: ct Time: 6 April 2022, 7:32:52.190385 pm UUID: 7632c359-d7f1-5b46-abf1-a988d4e4db7c Ancestors: Morphic-mt.1957 Minor clean-up of MenuMorph's matchString. Add public accessors for filtering. Simplifies the value range of the match string by automatically converting '' to nil. Deprecates unused #unfilterOrEscape:. =============== Diff against Morphic-mt.1957 =============== Item was changed: ----- Method: MenuMorph>>displayFiltered: (in category 'keyboard control') ----- displayFiltered: evt | matchStr allItems matches feedbackMorph | + matchStr := self matchString. - matchStr := self valueOfProperty: #matchString. allItems := self submorphs select: [:m | m isKindOf: MenuItemMorph]. matches := allItems select: [:m | | isMatch | isMatch := + matchStr isNil or: [ - matchStr isEmpty or: [ m contents includesSubstring: matchStr caseSensitive: false]. m isEnabled: isMatch. isMatch]. feedbackMorph := self valueOfProperty: #feedbackMorph. feedbackMorph ifNil: [ feedbackMorph := TextMorph new color: Color darkGray; yourself. self addLine; addMorphBack: feedbackMorph lock. self setProperty: #feedbackMorph toValue: feedbackMorph. self fullBounds. "Lay out for submorph adjacency"]. feedbackMorph contents: '<', matchStr, '>'. + matchStr ifNil: [ - matchStr isEmpty ifTrue: [ feedbackMorph delete. self submorphs last delete. self removeProperty: #feedbackMorph]. " This method is invoked with evt = nil from MenuMorph >> removeMatchString. The current implementation can't select an item without an event. " (evt notNil and: [ matches size >= 1 ]) ifTrue: [ self selectItem: matches first event: evt]! Item was changed: ----- Method: MenuMorph>>handleDelStroke: (in category 'keystroke helpers') ----- handleDelStroke: evt evt keyCharacter = Character delete ifFalse: [^ false]. + self matchString ifNotNil: [ + self removeMatchString]. - self - valueOfProperty: #matchString - ifPresentDo: [:str | "reset filter" - self setProperty: #matchString toValue: String new. - self selectItem: nil event: evt. - self displayFiltered: evt]. ^ true! Item was changed: ----- Method: MenuMorph>>handleEscStroke: (in category 'keystroke helpers') ----- handleEscStroke: evt evt keyValue = 27 ifFalse: [ ^false ]. + self matchString ifNotNil: [ + self removeMatchString. + ^true]. - self - valueOfProperty: #matchString - ifPresentDo: [ :str | - str isEmpty ifFalse: [ "If filtered, first ESC removes filter" - self setProperty: #matchString toValue: String new. - self selectItem: nil event: evt. - self displayFiltered: evt. - ^true ] ]. self deactivate: evt. ^true! Item was changed: ----- Method: MenuMorph>>handleFiltering: (in category 'keystroke helpers') ----- handleFiltering: evt | matchString | + matchString := self matchString. - matchString := self valueOfProperty: #matchString ifAbsentPut: [ String new ]. matchString := true caseOf: { [ evt keyCharacter = Character backspace ] -> + [matchString ifNotNil: [ matchString allButLast ] ]. - [ matchString isEmpty - ifTrue: [ matchString ] - ifFalse: [ matchString allButLast ] ]. [ evt keyValue >= 32 ] -> + [ (matchString ifNil: ['']) , evt keyCharacter ] } - [ matchString , evt keyCharacter ] } otherwise: [ matchString ]. + self matchString: matchString event: evt.! - self setProperty: #matchString toValue: matchString. - self displayFiltered: evt! Item was added: + ----- Method: MenuMorph>>matchString (in category 'accessing') ----- + matchString + "Answer the current match string for filtering the menu, or nil if no filter is active. The matchString will never be an empty string." + + ^ self valueOfProperty: #matchString! Item was added: + ----- Method: MenuMorph>>matchString: (in category 'accessing') ----- + matchString: aString + + ^ self matchString: aString event: nil! Item was added: + ----- Method: MenuMorph>>matchString:event: (in category 'keyboard control') ----- + matchString: aString event: anEvent + "Set the current match string and display the filtered the menu items." + + aString ifNotNil: [aString ifEmpty: [^ self matchString: nil event: anEvent]]. + + self setProperty: #matchString toValue: aString. + self displayFiltered: anEvent.! Item was changed: ----- Method: MenuMorph>>removeMatchString (in category 'keyboard control') ----- removeMatchString + + ^ self removeMatchString: self currentEvent! - "Remove the matchString, if any." - self setProperty: #matchString toValue: String new. - self displayFiltered: nil! Item was added: + ----- Method: MenuMorph>>removeMatchString: (in category 'keyboard control') ----- + removeMatchString: anEvent + "Remove the matchString, if any." + + self selectItem: nil event: anEvent. + self matchString: nil event: anEvent.! Item was removed: - ----- Method: MenuMorph>>unfilterOrEscape: (in category 'keyboard control') ----- - unfilterOrEscape: evt - self valueOfProperty: #matchString - ifPresentDo: - [:str | - - str isEmpty - ifFalse: - ["If filtered, first ESC removes filter" - - self setProperty: #matchString toValue: String new. - self selectItem: nil event: evt. - self displayFiltered: evt]]. - "If a stand-alone menu, just delete it" - popUpOwner ifNil: [^self delete]. - "If a sub-menu, then deselect, and return focus to outer menu" - self selectSuperMenu: evt!

1 0

The Trunk: 60Deprecated-ct.109.mcz
by commits＠source.squeak.org 06 Apr '22

06 Apr '22

Christoph Thiede uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-ct.109.mcz ==================== Summary ==================== Name: 60Deprecated-ct.109 Author: ct Time: 6 April 2022, 7:32:46.765385 pm UUID: 5fc3a8e2-429b-044e-a3df-eae0c2200cbe Ancestors: 60Deprecated-ct.108 Complements Morphic-ct.1960 (clean-up of MenuMorph's matchString). =============== Diff against 60Deprecated-ct.108 =============== Item was changed: ----- Method: MenuMorph>>filterListWith: (in category '*60Deprecated-keyboard control') ----- + filterListWith: char + - filterListWith: char | matchString | self deprecated: 'ct: Use #handleFiltering: instead'. + + matchString := self matchString copyWith: char. + matchString := matchString copyWithout: Character backspace. + self matchString: matchString! - matchString := self valueOfProperty: #matchString ifAbsentPut: [String new]. - matchString := char = Character backspace - ifTrue: - [matchString isEmpty ifTrue: [matchString] ifFalse: [matchString allButLast]] - ifFalse: [matchString copyWith: char]. - self setProperty: #matchString toValue: matchString! Item was added: + ----- Method: MenuMorph>>unfilterOrEscape: (in category '*60Deprecated-keyboard control') ----- + unfilterOrEscape: evt + + self deprecated: 'Use #handleEscStroke: instead'. + + self matchString ifNil: [ + self removeMatchString]. + + "If a stand-alone menu, just delete it" + popUpOwner ifNil: [^self delete]. + "If a sub-menu, then deselect, and return focus to outer menu" + self selectSuperMenu: evt.!

1 0

The Trunk: Graphics-mt.507.mcz
by commits＠source.squeak.org 06 Apr '22

06 Apr '22

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.507.mcz ==================== Summary ==================== Name: Graphics-mt.507 Author: mt Time: 6 April 2022, 11:57:44.501029 am UUID: 98abf5e0-883f-9f42-9e3d-6cb2191866ff Ancestors: Graphics-mt.506 Activate #primitiveScreenScaleFactor bc. most recent OSVM reports NaN for unknown factor, not 1.0. Still report 1.0 for unknown cases to make #platformScaleFactor robust, see #platformScaleFactorKnown. =============== Diff against Graphics-mt.506 =============== Item was changed: ----- Method: DisplayScreen class>>actualScreenScaleFactor (in category 'snapshots') ----- actualScreenScaleFactor + <primitive: #primitiveScreenScaleFactor> - "<primitive: #primitiveScreenScaleFactor>" - "Once the primitive is ready, you can simply uncomment it. The system is prepared for changes from 'nil' to actual factors and back." + ^ Float nan "Unknown scale factor"! - ^ nil "unknown -- do not default to 1.0 here"! Item was changed: ----- Method: DisplayScreen>>platformScaleFactor (in category 'scale factor') ----- platformScaleFactor + "Answers the platform's (and thus monitor's) current scale factor as last reported via VM primitive. See #checkForNewScreenScaleFactor. For robustness, always report a sensible value. However, you should check via #platformScaleFactorKnown whether this value is reliable." - "Answers the platform's (and thus monitor's) current scale factor as last reported via VM primitive. See #checkForNewScreenScaleFactor." ^ PlatformScaleFactor ifNil: [1.0 "Primitive not ready."]! Item was changed: ----- Method: DisplayScreen>>platformScaleFactor: (in category 'scale factor') ----- platformScaleFactor: aFloatOrNil "Report a new scale factor from the platform to the image. This can happen if you move Squeak's window between monitors with different pixels-per-inch. On some platforms, you can also set a scale factor independent of monitor PPI. Note that the user might have scaled the image regardless of the previous platform scale factor." | old new | + (aFloatOrNil isNil or: [aFloatOrNil isNaN]) ifTrue: [ - aFloatOrNil ifNil: [ "Ignore. Primitive not ready (anymore)." PlatformScaleFactor := nil. ^ self]. PlatformScaleFactor ifNil: [ "First time. Ignore. Assume that the user scaled manually until now." + "self assert: [aFloatOrNil notNil]." + "self assert: [aFloatOrNil isNaN not]." PlatformScaleFactor := aFloatOrNil. ^ self]. (old := self platformScaleFactor) = (new := aFloatOrNil) ifTrue: [^ self]. PlatformScaleFactor := new. self uiScaleFactor: self uiScaleFactor * (new/old).!

1 0

The Trunk: EToys-ct.471.mcz
by commits＠source.squeak.org 05 Apr '22

05 Apr '22

Christoph Thiede uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-ct.471.mcz ==================== Summary ==================== Name: EToys-ct.471 Author: ct Time: 5 April 2022, 6:32:17.636304 pm UUID: 10627a4f-d87e-ce46-8976-21be79745d1f Ancestors: EToys-ul.470 Complements System-ct.1335 (reapplied removal of #automaticPlatformSettings). =============== Diff against EToys-ul.470 =============== Item was changed: ----- Method: Preferences class>>cambridge (in category '*Etoys-Squeakland-themes') ----- cambridge "A theme for Squeakland and OLPC project" "Preferences cambridge" "This method has three parts. Don't forget to look at the stuff at the bottom." self setPreferencesFrom: #( (allowCelesteTell false) (alternativeScrollbarLook true) (alternativeWindowLook true) (annotationPanes true) (automaticKeyGeneration true) (biggerHandles true) (blinkParen false) (browseWithDragNDrop true) (canRecordWhilePlaying true) (classicNavigatorEnabled false) (compactViewerFlaps true) (enableLocalSave false) (eToyFriendly true) (eToyLoginEnabled true) (extraDebuggerButtons false) (gradientMenu false) (haloTransitions false) (honorDesktopCmdKeys true) (includeSoundControlInNavigator true) (magicHalos false) (menuAppearance3d false) (menuKeyboardControl false) (modalColorPickers true) (mouseOverHalos false) (mvcProjectsAllowed false) (preserveTrash true) (projectViewsInWindows false) (promptForUpdateServer false) (propertySheetFromHalo false) (roundedMenuCorners false) (roundedWindowCorners false) (securityChecksEnabled true) (standaloneSecurityChecksEnabled true) (duplicateControlAndAltKeys true) (showDirectionHandles false) (showDirectionForSketches true) (showProjectNavigator false) (showSecurityStatus false) (soundQuickStart true) "see setPlatformPreferences" (soundReverb false) (soundStopWhenDone true) "see setPlatformPreferences" (startInUntrustedDirectory true) (sugarAutoSave false) (swapControlAndAltKeys false) "see setPlatformPreferences" (uniqueNamesInHalos true) (unlimitedPaintArea false) (useArtificialSweetenerBar true) (useBiggerPaintingBox true) (useFormsInPaintBox false) (useLocale true) (usePopUpArrows true) (warnAboutInsecureContent false) "The following is to make sure the default is set properly." (allowEtoyUserCustomEvents false) (alphabeticalProjectMenu false) (alternativeBrowseIt false) (alternativeWindowBoxesLook true) (alwaysHideHScrollbar false) (alwaysShowConnectionVocabulary false) (alwaysShowHScrollbar false) (alwaysShowVScrollbar true) (areaFillsAreTolerant false) (areaFillsAreVeryTolerant false) (automaticFlapLayout true) - (automaticPlatformSettings true) "enables setPlatformPreferences" (automaticViewerPlacement true) (balloonHelpEnabled true) (balloonHelpInMessageLists false) (batchPenTrails false) (biggerCursors true) (capitalizedReferences true) (caseSensitiveFinds false) (cautionBeforeClosing false) (celesteHasStatusPane false) (celesteShowsAttachmentsFlag false) (changeSetVersionNumbers true) (checkForSlips true) (checkForUnsavedProjects true) (clickOnLabelToEdit false) (cmdDotEnabled true) (collapseWindowsInPlace false) (colorWhenPrettyPrinting false) (confirmFirstUseOfStyle true) (conversionMethodsAtFileOut false) (debugHaloHandle false) (debugPrintSpaceLog false) (debugShowDamage false) (decorateBrowserButtons true) (diffsInChangeList true) (diffsWithPrettyPrint false) (dismissAllOnOptionClose false) (dismissEventTheatreUponPublish true) (dropProducesWatcher true) (duplicateControlAndAltKeys false) (easySelection false) (enablePortraitMode false) (enableVirtualOLPCDisplay false) (expandedPublishing true) (fastDragWindowForMorphic true) (fenceEnabled true) (fenceSoundEnabled false) (fullScreenLeavesDeskMargins true) (gradientScrollBars true) (haloEnclosesFullBounds false) (higherPerformance false) (ignoreStyleIfOnlyBold true) (implicitSelfInTiles false) (inboardScrollbars true) (infiniteUndo false) (keepTickingWhilePainting false) (logDebuggerStackToFile true) (menuColorFromWorld false) (menuWithIcons true) (mouseOverForKeyboardFocus false) (navigatorOnLeftEdge true) (noviceMode false) (okToReinitializeFlaps true) (oliveHandleForScriptedObjects false) (optionalButtons true) (passwordsOnPublish false) (personalizedWorldMenu true) (postscriptStoredAsEPS false) (printAlternateSyntax false) (projectsSentToDisk false) (projectZoom true) (readDocumentAtStartup true) (restartAlsoProceeds false) (reverseWindowStagger true) (rotationAndScaleHandlesInPaintBox false) (scrollBarsNarrow false) (scrollBarsOnRight true) (scrollBarsWithoutMenuButton false) (selectionsMayShrink true) (selectiveHalos true) (showAdvancedNavigatorButtons false) (showBoundsInHalo false) (showDeprecationWarnings false) (showFlapsWhenPublishing false) (showSharedFlaps true) (signProjectFiles true) (simpleMenus false) (slideDismissalsToTrash true) (smartUpdating true) (swapMouseButtons false) (systemWindowEmbedOK false) (tabAmongFields true) (tileTranslucentDrag true) (timeStampsInMenuTitles true) (turnOffPowerManager false) (twentyFourHourFileStamps true) (typeCheckingInTileScripting true) (uniTilesClassic true) (universalTiles false) (updateFromServerAtStartup false) (updateSavesFile false) (useButtonPropertiesToFire false) (useUndo true) (useVectorVocabulary false) (viewersInFlaps true) (warnIfNoChangesFile false) (warnIfNoSourcesFile false) (wordStyleCursorMovement true) ). Preferences setPreference: #haloTheme toValue: #iconicHaloSpecifications. !

1 0

The Trunk: System-ct.1335.mcz
by commits＠source.squeak.org 05 Apr '22

05 Apr '22

Christoph Thiede uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ct.1335.mcz ==================== Summary ==================== Name: System-ct.1335 Author: ct Time: 5 April 2022, 6:30:12.004304 pm UUID: f01dddfd-d921-e744-bf4f-5954cef59031 Ancestors: System-mt.1334 Fixes merge slip from System-mt.1259 and reapplies System-ct.1257 (removal of #automaticPlatformSettings preference). =============== Diff against System-mt.1334 =============== Item was changed: ----- Method: Preferences class>>defaultValueTableForCurrentRelease (in category 'defaults') ----- defaultValueTableForCurrentRelease "Answer a table defining default values for all the preferences in the release. Returns a list of (pref-symbol, boolean-symbol) pairs" ^ #( (alternativeBrowseIt false) (annotationPanes false) (areaFillsAreTolerant false) (areaFillsAreVeryTolerant false) (automaticFlapLayout true) (automaticKeyGeneration false) - (automaticPlatformSettings true) (automaticViewerPlacement true) (balloonHelpEnabled true) (balloonHelpInMessageLists false) (batchPenTrails false) (capitalizedReferences true) (caseSensitiveFinds false) (cautionBeforeClosing false) (changeSetVersionNumbers true) (checkForSlips true) (checkForUnsavedProjects true) (classicNavigatorEnabled false) (cmdDotEnabled true) (collapseWindowsInPlace false) (compactViewerFlaps false) (confirmFirstUseOfStyle true) (conversionMethodsAtFileOut false) (debugHaloHandle true) (debugPrintSpaceLog false) (debugShowDamage false) (decorateBrowserButtons true) (diffsInChangeList true) (diffsWithPrettyPrint false) (dismissAllOnOptionClose false) (eToyFriendly false) (eToyLoginEnabled false) (enableLocalSave true) (fastDragWindowForMorphic true) (fenceEnabled true) (fullScreenLeavesDeskMargins true) (haloTransitions false) (higherPerformance false) (honorDesktopCmdKeys true) (includeSoundControlInNavigator false) (infiniteUndo false) (logDebuggerStackToFile true) (magicHalos false) (menuColorFromWorld false) (menuKeyboardControl false) (modalColorPickers true) (mouseOverForKeyboardFocus false) (mouseOverHalos false) (mvcProjectsAllowed true) (navigatorOnLeftEdge true) (noviceMode false) (okToReinitializeFlaps true) (optionalButtons true) (passwordsOnPublish false) (personalizedWorldMenu true) (postscriptStoredAsEPS false) (projectViewsInWindows true) (projectZoom true) (projectsSentToDisk false) (propertySheetFromHalo false) (readDocumentAtStartup true) (restartAlsoProceeds false) (reverseWindowStagger true) (roundedMenuCorners true) (scrollBarsNarrow false) (scrollBarsOnRight true) (securityChecksEnabled false) (selectiveHalos false) (showBoundsInHalo false) (showDirectionForSketches false) (showDirectionHandles false) (showFlapsWhenPublishing false) (showProjectNavigator false) (showSecurityStatus true) (showSharedFlaps true) (signProjectFiles true) (simpleMenus false) (smartUpdating true) (startInUntrustedDirectory false) (systemWindowEmbedOK false) (tileTranslucentDrag true) (timeStampsInMenuTitles true) (turnOffPowerManager false) (twentyFourHourFileStamps true) (typeCheckingInTileScripting true) (uniTilesClassic true) (uniqueNamesInHalos false) (universalTiles false) (unlimitedPaintArea false) (useButtonPropertiesToFire false) (useUndo true) (viewersInFlaps true) (warnAboutInsecureContent true) (warnIfNoChangesFile true) (warnIfNoSourcesFile true)) " Preferences defaultValueTableForCurrentRelease do: [:pair | (Preferences preferenceAt: pair first ifAbsent: [nil]) ifNotNilDo: [:pref | pref defaultValue: (pair last == true)]]. Preferences chooseInitialSettings. "!

1 0

The Trunk: Multilingual-mt.275.mcz
by commits＠source.squeak.org 05 Apr '22

05 Apr '22

Marcel Taeumel uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-mt.275.mcz ==================== Summary ==================== Name: Multilingual-mt.275 Author: mt Time: 5 April 2022, 5:11:53.218013 pm UUID: 78036f07-7964-4e69-bcd9-ef8a71100a67 Ancestors: Multilingual-mt.274 Fixes several Unicode input interpreters to consider third buffer position (i.e. ASCII) if the sixth is zero, which aligns with the implementation in UTF32InputInterpreter and UTF32JPInputInterpreter. =============== Diff against Multilingual-mt.274 =============== Item was changed: ----- Method: MacUnicodeInputInterpreter>>nextCharFrom:firstEvt: (in category 'keyboard') ----- nextCharFrom: sensor firstEvt: evtBuf | keyValue mark | keyValue := evtBuf at: 6. + keyValue = 0 ifTrue: [keyValue := evtBuf at: 3]. mark := self japaneseSpecialMark: keyValue. + mark notNil ifTrue: [^ mark]. - mark notNil - ifTrue: [^ mark]. - "Smalltalk systemLanguage charsetClass charFromUnicode: keyValue." ^ Unicode value: keyValue! Item was changed: ----- Method: UTF32CNInputInterpreter>>nextCharFrom:firstEvt: (in category 'as yet unclassified') ----- nextCharFrom: sensor firstEvt: evtBuf | keyValue | keyValue := evtBuf at: 6. + keyValue = 0 ifTrue: [keyValue := evtBuf at: 3]. keyValue < 256 ifTrue: [^Character value: keyValue]. ^ Character leadingChar: SimplifiedChineseEnvironment leadingChar code: keyValue! Item was changed: ----- Method: UTF32GreekInputInterpreter>>nextCharFrom:firstEvt: (in category 'as yet unclassified') ----- nextCharFrom: sensor firstEvt: evtBuf | keyValue | keyValue := evtBuf at: 6. + keyValue = 0 ifTrue: [keyValue := evtBuf at: 3]. keyValue < 256 ifTrue: [^Character value: keyValue]. ^ Character leadingChar: GreekEnvironment leadingChar code: keyValue! Item was changed: ----- Method: UTF32NPInputInterpreter>>nextCharFrom:firstEvt: (in category 'all') ----- nextCharFrom: sensor firstEvt: evtBuf | keyValue | keyValue := evtBuf at: 6. + keyValue = 0 ifTrue: [keyValue := evtBuf at: 3]. keyValue < 256 ifTrue: [^Character value: keyValue]. ^ Character leadingChar: NepaleseEnvironment leadingChar code: keyValue! Item was changed: ----- Method: UTF32RussianInputInterpreter>>nextCharFrom:firstEvt: (in category 'keyboard') ----- nextCharFrom: sensor firstEvt: evtBuf | keyValue | keyValue := evtBuf at: 6. + keyValue = 0 ifTrue: [keyValue := evtBuf at: 3]. keyValue < 256 ifTrue: [^Character value: keyValue]. ^ Character leadingChar: RussianEnvironment leadingChar code: keyValue!

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages April 2022