Packages March 2022

packages@lists.squeakfoundation.org

1 participants
182 discussions

The Trunk: Morphic-ct.1945.mcz
by commits＠source.squeak.org 25 Mar '22

25 Mar '22

Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.1945.mcz ==================== Summary ==================== Name: Morphic-ct.1945 Author: ct Time: 25 March 2022, 8:12:39.69861 pm UUID: 8c1a8770-0b9b-cc42-b30a-bb58e4870f75 Ancestors: Morphic-ct.1944 Merges SparseLargeTable explorerContents.1.cs: This changeset revises the ObjectExplorer representation of SparseLargeTables/SparseLargeArrays by only displaying non-default values next to the defaultValue variable. =============== Diff against Morphic-ct.1944 =============== Item was added: + ----- Method: SparseLargeTable>>explorerContents (in category '*Morphic-Explorer') ----- + explorerContents + + ^ Array streamContents: [:stream | + stream nextPut: (ObjectExplorerWrapper + with: defaultValue + name: 'defaultValue' + model: self). + self sparseElementsAndIndicesDo: [:element :index | + stream nextPut: (ObjectExplorerWrapper + with: element + name: index printString + model: self)]]!

1 0

The Trunk: Collections-ct.997.mcz
by commits＠source.squeak.org 25 Mar '22

25 Mar '22

Christoph Thiede uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ct.997.mcz ==================== Summary ==================== Name: Collections-ct.997 Author: ct Time: 25 March 2022, 8:08:33.46961 pm UUID: e320783c-fb7c-2f4d-9ea4-fe6152d9c677 Ancestors: Collections-mt.995 Merges SparseLargeTable enumerate+tests.1.cs: * Overrides #withIndexDo: to start from base index only * Adds #sparseElementsAndIndicesDo: for efficient iterating over all non-default values =============== Diff against Collections-mt.995 =============== Item was added: + ----- Method: SparseLargeTable>>sparseElementsAndIndicesDo: (in category 'accessing') ----- + sparseElementsAndIndicesDo: binaryBlock + "Evaluate binaryBlock for each element and index in the receiver that has a non-default value." + + 1 to: self basicSize do: [:chunkIndex | + (self basicAt: chunkIndex) ifNotNil: [:chunk | + chunk withIndexDo: [:element :innerIndex | + element ~= defaultValue ifTrue: [ + binaryBlock value: element value: innerIndex + base - 1 + (chunkIndex - 1 * chunkSize)]]]].! Item was added: + ----- Method: SparseLargeTable>>withIndexDo: (in category 'enumerating') ----- + withIndexDo: binaryBlock + + self base to: self size do: [:index | + binaryBlock + value: (self at: index) + value: index].!

1 0

The Trunk: CollectionsTests-ct.373.mcz
by commits＠source.squeak.org 25 Mar '22

25 Mar '22

Christoph Thiede uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-ct.373.mcz ==================== Summary ==================== Name: CollectionsTests-ct.373 Author: ct Time: 25 March 2022, 8:08:03.84161 pm UUID: 387ae192-2211-fb4d-9bf1-16b2c2712bf3 Ancestors: CollectionsTests-ct.372 Merges SparseLargeTable enumerate+tests.1.cs: * Tests instance creation and enumeration for SparseLargeTable/SparseLargeArray =============== Diff against CollectionsTests-ct.372 =============== Item was added: + SparseLargeTableTest subclass: #SparseLargeArrayTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'CollectionsTests-Arrayed'! Item was added: + ----- Method: SparseLargeArrayTest>>classUnderTest (in category 'accessing') ----- + classUnderTest + + ^ SparseLargeArray! Item was added: + ----- Method: SparseLargeArrayTest>>expectedFailures (in category 'accessing') ----- + expectedFailures + + ^ super expectedFailures , + #(testAccessing testSparseElementsAndIndicesDo) "SparseLargeArray(SparseLargeTable)>>zapDefaultOnlyEntries fails for last chunk"! Item was added: + ----- Method: SparseLargeArrayTest>>testAccessingWithoutZapping (in category 'testing - accessing') ----- + testAccessingWithoutZapping + + | size chunkSize indices table | + size := 60. + chunkSize := 8. + indices := #(20 22 23 27 28 29 54 56 57 58). + table := self classUnderTest new: size chunkSize: chunkSize arrayClass: DoubleByteArray base: 11 defaultValue: 0. + indices do: [:index | + table at: index put: index squared]. + self shouldRaiseError: [table at: 40 put: 2 << 15]. + + self assert: size equals: table size. + self assert: chunkSize equals: table chunkSize. + + indices do: [:index | + self assert: index squared equals: ((table at: index))].! Item was added: + ----- Method: SparseLargeArrayTest>>testSparseElementsAndIndicesDoWithoutZapping (in category 'testing - accessing') ----- + testSparseElementsAndIndicesDoWithoutZapping + + | defaultValue indices table sparse | + defaultValue := 0. + indices := #(20 22 23 27 28 29 54 56 57 58). + table := self classUnderTest new: 60 chunkSize: 8 arrayClass: DoubleByteArray base: 11 defaultValue: defaultValue. + indices do: [:index | + table at: index put: index squared]. + + sparse := Dictionary new. + table sparseElementsAndIndicesDo: [:element :index | + self deny: (sparse includesKey: index). + sparse at: index put: element]. + + table withIndexDo: [:element :index | + self assert: element equals: (sparse at: index ifAbsent: [0])].! Item was added: + TestCase subclass: #SparseLargeTableTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'CollectionsTests-Arrayed'! Item was added: + ----- Method: SparseLargeTableTest>>classUnderTest (in category 'accessing') ----- + classUnderTest + + ^ SparseLargeTable! Item was added: + ----- Method: SparseLargeTableTest>>testAccessing (in category 'tests - accessing') ----- + testAccessing + + | size chunkSize indices table | + size := 60. + chunkSize := 8. + indices := #(20 22 23 27 28 29 54 56 57 58). + table := self classUnderTest new: size chunkSize: chunkSize arrayClass: DoubleByteArray base: 11 defaultValue: 0. + indices do: [:index | + table at: index put: index squared]. + self shouldRaiseError: [table at: 40 put: 2 << 15]. + table zapDefaultOnlyEntries. + + self assert: size equals: table size. + self assert: chunkSize equals: table chunkSize. + + indices do: [:index | + self assert: index squared equals: (table at: index)].! Item was added: + ----- Method: SparseLargeTableTest>>testNew (in category 'tests - instance creation') ----- + testNew + + | table | + table := self classUnderTest new. + self assert: 0 equals: table size.! Item was added: + ----- Method: SparseLargeTableTest>>testNewFrom (in category 'tests - instance creation') ----- + testNewFrom + + | array table | + array := Array streamContents: [:stream | + 15 timesRepeat: [stream nextPutAll: #($a $b $b $b $b $c $c $a)]]. "must be longer than defaultChunkSize" + table := self classUnderTest newFrom: array. + self assert: array size equals: table size. + self assert: array equals: table asArray.! Item was added: + ----- Method: SparseLargeTableTest>>testNewWithAll (in category 'tests - instance creation') ----- + testNewWithAll + + | size table | + size := 150. "must be longer than defaultChunkSize" + table := self classUnderTest new: size withAll: 2. + self assert: size equals: table size. + self assert: (Array new: size withAll: 2) equals: table asArray.! Item was added: + ----- Method: SparseLargeTableTest>>testNewWithSize (in category 'tests - instance creation') ----- + testNewWithSize + + | size table | + size := 14. + table := self classUnderTest new: size chunkSize: 5. + self assert: size equals: table size. + 1 to: size do: [:index | self assert: (table at: index) isNil]. + self shouldRaiseError: [table at: 0]. + self shouldRaiseError: [table at: size + 1].! Item was added: + ----- Method: SparseLargeTableTest>>testSparseElementsAndIndicesDo (in category 'tests - accessing') ----- + testSparseElementsAndIndicesDo + + | defaultValue indices table sparse | + defaultValue := 0. + indices := #(20 22 23 27 28 29 54 56 57 58). + table := self classUnderTest new: 60 chunkSize: 8 arrayClass: DoubleByteArray base: 11 defaultValue: defaultValue. + indices do: [:index | + table at: index put: index squared]. + table zapDefaultOnlyEntries. + + sparse := Dictionary new. + table sparseElementsAndIndicesDo: [:element :index | + self deny: (sparse includesKey: index). + sparse at: index put: element]. + + table withIndexDo: [:element :index | + self assert: element equals: (sparse at: index ifAbsent: [0])].!

1 0

The Trunk: EToys-ct.469.mcz
by commits＠source.squeak.org 25 Mar '22

25 Mar '22

Christoph Thiede uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-ct.469.mcz ==================== Summary ==================== Name: EToys-ct.469 Author: ct Time: 25 March 2022, 7:56:46.277407 pm UUID: cf9e5a92-3dac-a348-b4e2-b4bc36867fc2 Ancestors: EToys-mt.468 Complements Morphic-ct.1944. =============== Diff against EToys-mt.468 =============== Item was removed: - ----- Method: Morph>>aboutToBeGrownViaHalo (in category '*Etoys-Squeakland-halo notification') ----- - aboutToBeGrownViaHalo - "The receiver is about to be grown via the halo."! Item was removed: - ----- Method: Morph>>aboutToBeRotatedViaHalo (in category '*Etoys-Squeakland-halo notification') ----- - aboutToBeRotatedViaHalo - "The receiver is about to be rotated via the halo."! Item was removed: - ----- Method: Morph>>aboutToBeScaledViaHalo (in category '*Etoys-Squeakland-halo notification') ----- - aboutToBeScaledViaHalo - "The receiver is about to be scaled via the halo."!

1 0

The Trunk: Morphic-ct.1944.mcz
by commits＠source.squeak.org 25 Mar '22

25 Mar '22

Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.1944.mcz ==================== Summary ==================== Name: Morphic-ct.1944 Author: ct Time: 25 March 2022, 7:54:29.184407 pm UUID: 39f69026-43a3-134b-a6d6-79b127ac54de Ancestors: Morphic-ct.1943 Merges backupAndHideDropShadows.5.cs (hide drop shadows of morphs during halo manipulation). This changeset hides the drop shadow of any morph while it is being dragged, scaled/resized, or rotated via halos. We already do this for bordered morphs while resizing them via grips (see CornerGripMorph>>mouseDown:) for performance reasons, and this changeset generalizes and reuses the same mechanism for any interaction via halo, too. Furthermore, when resizing an inactive window via the grips, shadows are now hidden reliably. [...] In particular, this changeset restores the old and previously unsent Etoys hooks for 'halo notifications' (#aboutToBeGrownViaHalo et al.) and integrates them into Morphic-Kernel. See: http://lists.squeakfoundation.org/pipermail/squeak-dev/2022-February/219319… =============== Diff against Morphic-ct.1943 =============== Item was added: + ----- Method: CornerGripMorph>>backupAndHideTargetDropShadows (in category 'private') ----- + backupAndHideTargetDropShadows + + self target fastFramingOn ifFalse: [ + self setProperty: #targetHadDropShadow toValue: target hasDropShadow. + self target hasDropShadow: false].! Item was changed: ----- Method: CornerGripMorph>>mouseDown: (in category 'event handling') ----- mouseDown: anEvent "Disable drop shadow to improve performance while resizing." super mouseDown: anEvent. self target ifNil: [^ self]. + self backupAndHideTargetDropShadows.! - self target fastFramingOn ifFalse: [ - self setProperty: #targetHadDropShadow toValue: target hasDropShadow. - self target hasDropShadow: false].! Item was changed: ----- Method: CornerGripMorph>>mouseMove: (in category 'event handling') ----- mouseMove: anEvent | delta | self target ifNil: [^ self]. + (self hasProperty: #targetHadDropShadow) ifFalse: [ + "When dragging resizing an inactive system window, the shadow will be added after sending #mouseDown: on the receiver by the event filter on SystemWindow. Take a second chance to remove the expensive drop shadow temporarily." + self backupAndHideTargetDropShadows]. self target fastFramingOn ifTrue: [delta := self target doFastWindowReframe: self ptName] ifFalse: [ delta := anEvent position - (self referencePoint + self position). self apply: delta. self bounds: (self bounds origin + delta extent: self bounds extent)].! Item was changed: ----- Method: CornerGripMorph>>mouseUp: (in category 'event handling') ----- mouseUp: anEvent "Restore target drop shadow if there was one. See #mouseDown:." self target ifNil: [^ self]. self target fastFramingOn ifFalse: [ + ((self removeProperty: #targetHadDropShadow) ifNil: [false]) + ifTrue: [self target hasDropShadow: true]].! - (self valueOfProperty: #targetHadDropShadow ifAbsent: [false]) ifTrue: [self target hasDropShadow: true]. - self removeProperty: #targetHadDropShadow].! Item was added: + ----- Method: HaloMorph>>backupAndHideTargetDropShadows (in category 'private') ----- + backupAndHideTargetDropShadows + + self setProperty: #targetHadDropShadow toValue: target hasDropShadow. + self target hasDropShadow: false.! Item was changed: ----- Method: HaloMorph>>endInteraction: (in category 'private') ----- endInteraction: event "Clean up after a user interaction with the a halo control" | m | self isMagicHalo: false. "no longer" self magicAlpha: 1.0. (target isInWorld not or: [owner isNil]) ifTrue: [^self]. [target isFlexMorph and: [target hasNoScaleOrRotation]] whileTrue: [m := target firstSubmorph. target removeFlexShell. target := m]. + self restoreTargetDropShadows. + target changedViaHalo: self. self isInWorld ifTrue: ["make sure handles show in front, even if flex shell added" self flag: #tofix. "mt: Try to avoid deleting and re-creating an event handler (here: the handle) while handling the event." self comeToFront. self addHandles. event hand newMouseFocus: self]. (self valueOfProperty: #commandInProgress) ifNotNil: [:cmd | self rememberCommand: cmd. self removeProperty: #commandInProgress].! Item was added: + ----- Method: HaloMorph>>handleMouseUp: (in category 'events') ----- + handleMouseUp: evt + + super handleMouseUp: evt. + + self restoreTargetDropShadows. + target changedViaHalo: self.! Item was added: + ----- Method: HaloMorph>>restoreTargetDropShadows (in category 'private') ----- + restoreTargetDropShadows + + ((self removeProperty: #targetHadDropShadow) ifNil: [false]) + ifTrue: [self target hasDropShadow: true].! Item was changed: ----- Method: HaloMorph>>startDrag:with: (in category 'private') ----- startDrag: evt with: dragHandle "Drag my target without removing it from its owner." | itsOwner | self obtainHaloForEvent: evt andRemoveAllHandlesBut: dragHandle. + target aboutToBeDraggedViaHalo. + positionOffset := dragHandle center - (target point: target position in: owner). ((itsOwner := target topRendererOrSelf owner) notNil and: [itsOwner automaticViewing]) ifTrue: [target openViewerForArgument]! Item was changed: ----- Method: HaloMorph>>startGrow:with: (in category 'private') ----- startGrow: evt with: growHandle "Initialize resizing of my target. Launch a command representing it, to support Undo" | botRt | self obtainHaloForEvent: evt andRemoveAllHandlesBut: growHandle. + self backupAndHideTargetDropShadows. + target aboutToBeGrownViaHalo. + botRt := target point: target bottomRight in: owner. positionOffset := (self world viewBox containsPoint: botRt) ifTrue: [evt cursorPoint - botRt] ifFalse: [0@0]. self setProperty: #commandInProgress toValue: (Command new cmdWording: ('resize ' translated, target nameForUndoWording); undoTarget: target renderedMorph selector: #setFlexExtentFromHalo: argument: target extent). originalExtent := target extent! Item was changed: ----- Method: HaloMorph>>startResizeTarget: (in category 'dragging or resizing') ----- startResizeTarget: event "Begin resizing the target" growingOrRotating := true. positionOffset := event position. + self backupAndHideTargetDropShadows. + target aboutToBeScaledViaHalo. + originalExtent := target extent. self removeAllHandlesBut: nil. event hand newMouseFocus: self. event hand addMouseListener: self. "add handles back on mouse-up"! Item was changed: ----- Method: HaloMorph>>startRot:with: (in category 'private') ----- startRot: evt with: rotHandle "Initialize rotation of my target if it is rotatable. Launch a command object to represent the action" self obtainHaloForEvent: evt andRemoveAllHandlesBut: rotHandle. + self backupAndHideTargetDropShadows. + target aboutToBeRotatedViaHalo. target isFlexMorph ifFalse: [target isInWorld ifFalse: [self setTarget: target player costume]. target addFlexShellIfNecessary]. growingOrRotating := true. self removeAllHandlesBut: rotHandle. "remove all other handles" angleOffset := evt cursorPoint - (target pointInWorld: target referencePosition). angleOffset := Point r: angleOffset r degrees: angleOffset degrees - target rotationDegrees. self setProperty: #commandInProgress toValue: (Command new cmdWording: ('rotate ' translated, target nameForUndoWording); undoTarget: target renderedMorph selector: #heading: argument: target rotationDegrees) ! Item was changed: ----- Method: HaloMorph>>startScale:with: (in category 'private') ----- startScale: evt with: scaleHandle "Initialize scaling of my target." self obtainHaloForEvent: evt andRemoveAllHandlesBut: scaleHandle. + self backupAndHideTargetDropShadows. + target aboutToBeScaledViaHalo. target isFlexMorph ifFalse: [target addFlexShellIfNecessary]. growingOrRotating := true. positionOffset := 0@0. self setProperty: #commandInProgress toValue: (Command new cmdWording: ('resize ' translated, target nameForUndoWording); undoTarget: target renderedMorph selector: #setFlexExtentFromHalo: argument: target extent). originalExtent := target extent ! Item was added: + ----- Method: Morph>>aboutToBeDraggedViaHalo (in category 'halo notification') ----- + aboutToBeDraggedViaHalo + "The receiver is about to be dragged via the halo."! Item was added: + ----- Method: Morph>>aboutToBeGrownViaHalo (in category 'halo notification') ----- + aboutToBeGrownViaHalo + "The receiver is about to be grown via the halo."! Item was added: + ----- Method: Morph>>aboutToBeRotatedViaHalo (in category 'halo notification') ----- + aboutToBeRotatedViaHalo + "The receiver is about to be rotated via the halo."! Item was added: + ----- Method: Morph>>aboutToBeScaledViaHalo (in category 'halo notification') ----- + aboutToBeScaledViaHalo + "The receiver is about to be scaled via the halo."! Item was added: + ----- Method: Morph>>changedViaHalo: (in category 'halo notification') ----- + changedViaHalo: halo + "The receiver has been manipulated from a halo in an operation that has completed now."! Item was changed: ----- Method: SystemWindow>>justDroppedInto:event: (in category 'geometry') ----- justDroppedInto: aMorph event: anEvent isCollapsed ifTrue: [self position: ((self position max: 0@0) grid: 8@8). collapsedFrame := self bounds] ifFalse: [fullFrame := self bounds]. self beKeyWindow. self hasDropShadow: Preferences menuAppearance3d. "See #startDragFromLabel:." aMorph == self world ifTrue: [self assureLabelAreaVisible]. (Project uiManager openToolsAttachedToMouseCursor and: (self hasProperty: #initialDrop)) ifTrue: [ self removeProperty: #initialDrop. (self submorphs detect: [:m | m isKindOf: BottomRightGripMorph] ifNone: []) ifNotNil: [:grip | grip referencePoint: anEvent position - grip position; + backupAndHideTargetDropShadows. "See MorphicToolBuilder >> #open:" + self lookFocused. + anEvent hand newMouseFocus: grip]]. - setProperty: #targetHadDropShadow toValue: true "See MorphicToolBuilder >> #open:". - self - hasDropShadow: false; - lookFocused. - anEvent hand newMouseFocus: grip.]]. ^super justDroppedInto: aMorph event: anEvent!

1 0

The Treated Inbox: Collections-ct.995.mcz
by commits＠source.squeak.org 25 Mar '22

25 Mar '22

Christoph Thiede uploaded a new version of Collections to project The Treated Inbox: http://source.squeak.org/treated/Collections-ct.995.mcz ==================== Summary ==================== Name: Collections-ct.995 Author: ct Time: 12 March 2022, 2:46:24.947632 am UUID: 9c697903-e2ac-2244-85cb-5234b3a3c9ca Ancestors: Collections-mt.994 Accelerates Symbol condenseNewSymbols if there are no new symbols. =============== Diff against Collections-mt.994 =============== Item was changed: ----- Method: Symbol class>>condenseNewSymbols (in category 'private') ----- condenseNewSymbols "Move all symbols from NewSymbols to SymbolTable, and compact SymbolTable." | originalNewSymbols originalSymbolTable newNewSymbols newSymbolTable | + originalNewSymbols := NewSymbols ifEmpty: [^ self]. - originalNewSymbols := NewSymbols. originalSymbolTable := SymbolTable. newNewSymbols := WeakSet new. newSymbolTable := originalSymbolTable copy addAll: originalNewSymbols; compact; yourself. originalNewSymbols == NewSymbols ifFalse: [ "Some other process has modified the symbols. Try again." ^self condenseNewSymbols ]. NewSymbols := newNewSymbols. SymbolTable := newSymbolTable!

1 0

The Trunk: CollectionsTests-ct.372.mcz
by commits＠source.squeak.org 25 Mar '22

25 Mar '22

Christoph Thiede uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-ct.372.mcz ==================== Summary ==================== Name: CollectionsTests-ct.372 Author: ct Time: 25 March 2022, 2:48:11.557528 pm UUID: 2c76062b-0538-f643-855a-9f2f1771cb31 Ancestors: CollectionsTests-mt.371 Increases timeout for #testPercentEncodingJa - Locale changes might be expensive (this did not only time out on my local machine but also in some GitHub Actions jobs). =============== Diff against CollectionsTests-mt.371 =============== Item was changed: ----- Method: StringTest>>testPercentEncodingJa (in category 'tests - converting') ----- testPercentEncodingJa + <timeout: 15 "seconds"> "Locale changes are expensive" | leading hiraA hiraO hiraAO encodedHiraA encodedHiraO encodedHiraAO | "Make Japanese String from unicode. see http://www.unicode.org/charts/PDF/U3040.pdf" leading := JapaneseEnvironment leadingChar. hiraA := (Character leadingChar: leading code: 16r3042) asString. "HIRAGANA LETTER A" hiraO := (Character leadingChar: leading code: 16r304A) asString. "HIRAGANA LETTER O" hiraAO := hiraA, hiraO. "Percent Encoded Japanese String" encodedHiraA := hiraA encodeForHTTP. self assert: encodedHiraA = '%E3%81%82'. encodedHiraO := hiraO encodeForHTTP. self assert: encodedHiraO = '%E3%81%8A'. encodedHiraAO := hiraAO encodeForHTTP. self assert: encodedHiraAO = '%E3%81%82%E3%81%8A'. "without percent encoded string" self assert: '' unescapePercents = ''. self assert: 'abc' unescapePercents = 'abc'. "latin1 character" self assert: hiraAO unescapePercents = hiraAO. "multibyte character" "encoded latin1 string" self assert: '%61' unescapePercents = 'a'. self assert: '%61%62%63' unescapePercents = 'abc'. "encoded multibyte string" Locale current: (Locale isoLanguage: 'ja') during: [ self assert: encodedHiraA unescapePercents = hiraA. self assert: encodedHiraAO unescapePercents = hiraAO]. "mixed string" Locale current: (Locale isoLanguage: 'ja') during: [ self assert: (encodedHiraAO,'a') unescapePercents = (hiraAO, 'a'). self assert: ('a', encodedHiraA) unescapePercents = ('a', hiraA). self assert: ('a', encodedHiraA, 'b') unescapePercents = ('a', hiraA, 'b'). self assert: ('a', encodedHiraA, 'b', encodedHiraO) unescapePercents = ('a', hiraA, 'b', hiraO). self assert: (encodedHiraA, encodedHiraO, 'b', encodedHiraA) unescapePercents = (hiraA, hiraO, 'b', hiraA)]. "for Seaside" Locale current: (Locale isoLanguage: 'ja') during: [ self assert: (encodedHiraA, '+', encodedHiraO) unescapePercents = (hiraA, ' ', hiraO)]. !

1 0

The Trunk: Morphic-ct.1943.mcz
by commits＠source.squeak.org 24 Mar '22

24 Mar '22

Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.1943.mcz ==================== Summary ==================== Name: Morphic-ct.1943 Author: ct Time: 24 March 2022, 8:16:43.005856 pm UUID: e89b8b18-3f00-4a4f-b3d7-a779d2924240 Ancestors: Morphic-mt.1942 Marks "mini editors" for StringMorphs as plain-text-only. Thanks to Marcel for the pointer! =============== Diff against Morphic-mt.1942 =============== Item was changed: ----- Method: StringMorph>>launchMiniEditor: (in category 'editing') ----- launchMiniEditor: evt | textMorph | hasFocus := true. "Really only means edit in progress for this morph" textMorph := StringMorphEditor new contentsAsIs: contents. textMorph font: self fontToUse. textMorph color: self color. + textMorph plainTextOnly: true. textMorph innerBounds: self innerBounds. self addMorphFront: textMorph. evt hand newKeyboardFocus: textMorph. textMorph editor selectFrom: 1 to: textMorph paragraph text string size!

1 0

The Trunk: System-mt.1330.mcz
by commits＠source.squeak.org 23 Mar '22

23 Mar '22

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1330.mcz ==================== Summary ==================== Name: System-mt.1330 Author: mt Time: 23 March 2022, 10:28:17.357127 am UUID: cd055bb3-fade-4447-89b7-6b3d41ea305c Ancestors: System-mt.1329 For pref category lookup, use #sameAs: not #= to ignore letter case. =============== Diff against System-mt.1329 =============== Item was changed: ----- Method: Preferences class>>preferencesInCategory: (in category 'support') ----- preferencesInCategory: aCategorySymbol "Answer a list of Preference objects that reside in the given category." ^ self allPreferences select: [ :aPreference | + aPreference categoryList anySatisfy: [ :aCategory | + aCategory sameAs: aCategorySymbol ]]! - aPreference categoryList includes: aCategorySymbol ]!

1 0

The Trunk: PreferenceBrowser-mt.139.mcz
by commits＠source.squeak.org 23 Mar '22

23 Mar '22

Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk: http://source.squeak.org/trunk/PreferenceBrowser-mt.139.mcz ==================== Summary ==================== Name: PreferenceBrowser-mt.139 Author: mt Time: 23 March 2022, 10:22:57.915972 am UUID: 801aa3e9-251d-4b72-9809-7e44ebf4e9ed Ancestors: PreferenceBrowser-mt.138 Some visual clean-up and changes in preference browser: - Merge lowercase categories into uppercase ones - Show number of prefs per category - Correct list margin in prefs list - Cache category list for smooth interaction - Use default button color - Fixes line breaks several balloon texts =============== Diff against PreferenceBrowser-mt.138 =============== Item was changed: ----- Method: PBPreferenceButtonMorph>>initializeLayout (in category 'initialization') ----- initializeLayout self layoutPolicy: TableLayout new; beTransparent; + layoutInset: PluggableListMorph listMargins; - layoutInset: 0; cellGap: 0; listCentering: #topLeft; cellPositioning: #topLeft; listDirection: #topToBottom; hResizing: #spaceFill; vResizing: #shrinkWrap. ! Item was changed: Model subclass: #PreferenceBrowser + instanceVariableNames: 'selectedCategoryIndex selectedPreference searchPattern searchResults lastExecutedSearch preferences title categoryList categoryLabelList' - instanceVariableNames: 'selectedCategoryIndex selectedPreference searchPattern searchResults lastExecutedSearch preferences title' classVariableNames: '' poolDictionaries: '' category: 'PreferenceBrowser'! Item was added: + ----- Method: PreferenceBrowser>>categoryLabelList (in category 'accessing') ----- + categoryLabelList + + ^ categoryLabelList ifNil: [categoryLabelList := self categoryList + collect: [:category | '{1} ({2})' format: { + category. + self numPreferencesInCategory: category }]]! Item was changed: ----- Method: PreferenceBrowser>>categoryList (in category 'accessing') ----- categoryList + + ^ categoryList ifNil: [categoryList := OrderedCollection new - ^OrderedCollection new add: self allCategoryLabel; + addAll: (preferences categoryList collect: [:ea | ea capitalized]) sorted; - addAll: preferences categoryList sorted; add: self searchResultsCategoryLabel; + yourself]. - yourself. ! Item was changed: ----- Method: PreferenceBrowser>>defaultSelected (in category 'preferences search') ----- defaultSelected (Project uiManager + confirm: 'Do you really want to restore the default preferences?\\If you want to keep the current state, you have to save it first.' translated withCRs + title: 'Restore Default Preferences') - confirm: 'Do you really want to restore the default\preferences?\\If you want to keep the current state,\you have to save it first.' translated withCRs - title: 'Restore Preferences') ifFalse: [^ self]. Preferences chooseInitialSettings.! Item was changed: ----- Method: PreferenceBrowser>>loadFromDiskSelected (in category 'preferences search') ----- loadFromDiskSelected (Project uiManager + confirm: 'Do you really want to restore your personal preferences from disk?\\The file ''my.prefs'' will be loaded.' translated withCRs + title: 'Restore Preferences from Disk' translated) ifFalse: [^ self]. - confirm: 'Do you really want to restore your\personal preferences from disk?\\The file ''my.prefs'' will be loaded.' translated withCRs - title: 'Restore Preferences from Disk') ifFalse: [^ self]. preferences restorePreferencesFromDisk! Item was changed: ----- Method: PreferenceBrowser>>loadSelected (in category 'preferences search') ----- loadSelected (Project uiManager + confirm: 'Do you really want to restore your personal preferences?' translated - confirm: 'Do you really want to restore\your personal preferences?' translated withCRs title: 'Restore Preferences') ifFalse: [^ self]. preferences restorePersonalPreferences.! Item was added: + ----- Method: PreferenceBrowser>>numPreferencesInCategory: (in category 'accessing') ----- + numPreferencesInCategory: aCategory + + aCategory = self allCategoryLabel + ifTrue: [^ preferences allPreferences size]. + aCategory = self searchResultsCategoryLabel + ifTrue: [^ self searchResults size]. + ^ (preferences preferencesInCategory: aCategory) size! Item was changed: ----- Method: PreferenceBrowser>>saveSelected (in category 'preferences search') ----- saveSelected (Project uiManager + confirm: 'Do you really want to overwrite your personal preferences?' translated - confirm: 'Do you really want to overwrite\your personal preferences?' translated withCRs title: 'Save Preferences') ifFalse: [^ self]. preferences savePersonalPreferences.! Item was changed: ----- Method: PreferenceBrowser>>saveToDiskSelected (in category 'preferences search') ----- saveToDiskSelected (Project uiManager + confirm: 'Do you really want to overwrite your personal preferences on disk?\\The file ''my.prefs'' will be updated.' translated withCRs + title: 'Save Preferences to Disk' translated) ifFalse: [^ self]. - confirm: 'Do you really want to overwrite your\personal preferences on disk?\\The file ''my.prefs'' will be updated.' translated withCRs - title: 'Save Preferences to Disk') ifFalse: [^ self]. preferences storePreferencesToDisk! Item was changed: ----- Method: PreferenceBrowser>>searchPreferencesFor: (in category 'preferences search') ----- searchPreferencesFor: pattern | result | result := pattern asString asLowercase withBlanksTrimmed. result ifEmpty: [^self]. searchResults := self allPreferences select: [:aPreference | ((aPreference name includesSubstring: result caseSensitive: false) or: [aPreference helpString includesSubstring: result caseSensitive: false]) + or: [aPreference codeString includesSubstring: result caseSensitive: false] ]. + self updateSearchResultsLabel. - or: [aPreference codeString includesSubstring: result caseSensitive: false] ]. self selectSearchResultsCategory. self lastExecutedSearch: pattern. ! Item was changed: ----- Method: PreferenceBrowser>>selectedCategoryPreferences (in category 'accessing') ----- selectedCategoryPreferences self allCategorySelected ifTrue: [^self allPreferences]. self searchResultsCategorySelected ifTrue: [^self searchResults]. + ^ self selectedCategory + ifNil: [#()] + ifNotNil: [:cat | self preferencesInCategory: cat] - ^self preferencesInCategory: self selectedCategory. ! Item was added: + ----- Method: PreferenceBrowser>>updateSearchResultsLabel (in category 'user interface') ----- + updateSearchResultsLabel + + self categoryLabelList + at: self categoryLabelList size + put: ('{1} ({2})' format: { + self searchResultsCategoryLabel. + self searchResults size }). + self changed: #categoryLabelList.! Item was changed: ----- Method: PreferenceBrowserMorph>>basicButton (in category 'submorphs - buttons') ----- basicButton ^ PluggableButtonMorph new model: self model; - offColor: self paneColor; hResizing: #spaceFill; vResizing: #spaceFill; yourself! Item was changed: ----- Method: PreferenceBrowserMorph>>helpButton (in category 'submorphs - buttons') ----- helpButton ^helpButton ifNil: [helpButton := self basicButton label: 'help' translated; + setBalloonText: 'Click here to get some hints on use of this Preferences Panel' translated; - setBalloonText: - 'Click here to get some hints on use of this Preferences ', - 'Panel' translated; action: #helpSelected]! Item was changed: ----- Method: PreferenceBrowserMorph>>loadButton (in category 'submorphs - buttons') ----- loadButton ^loadButton ifNil: [loadButton := self basicButton label: 'load' translated; action: #loadSelected; + setBalloonText: 'Click here to reset all the preferences to their values in your Personal Preferences.' translated]! - setBalloonText: - 'Click here to reset all the preferences to their values ', - 'in your Personal Preferences.' translated]! Item was changed: ----- Method: PreferenceBrowserMorph>>loadFromDiskButton (in category 'submorphs - buttons') ----- loadFromDiskButton ^loadFromDiskButton ifNil: [loadFromDiskButton := self basicButton label: 'load from disk' translated; action: #loadFromDiskSelected; + setBalloonText: 'Click here to load all the preferences from their saved values on disk.' translated]! - setBalloonText: - 'Click here to load all the preferences from ', - 'their saved values on disk.' translated]! Item was changed: ----- Method: PreferenceBrowserMorph>>newButtonRow (in category 'submorphs - buttons') ----- newButtonRow ^BorderedMorph new color: Color transparent; borderWidth: 0; + cellGap: ToolBuilder default panelSpacing; - cellGap: 2; layoutPolicy: TableLayout new; listDirection: #leftToRight; listCentering: #topLeft; cellPositioning: #topLeft; on: #mouseEnter send: #paneTransition: to: self; on: #mouseLeave send: #paneTransition: to: self; addMorphBack: self defaultButton; addMorphBack: self newSeparator; addMorphBack: self saveButton; addMorphBack: self loadButton; addMorphBack: self newSeparator; addMorphBack: self saveToDiskButton; addMorphBack: self loadFromDiskButton; addMorphBack: self newSeparator; addMorphBack: self themeButton; addMorphBack: self newTransparentFiller; addMorphBack: self helpButton; yourself.! Item was changed: ----- Method: PreferenceBrowserMorph>>newCategoryList (in category 'submorphs - category list') ----- newCategoryList ^(PluggableListMorph on: self model + list: #categoryLabelList - list: #categoryList selected: #selectedCategoryIndex changeSelected: #selectedCategoryIndex:) hResizing: #spaceFill; vResizing: #spaceFill; layoutFrame: (LayoutFrame fractions: (0@0 corner: 0.25@1)); yourself.! Item was changed: ----- Method: PreferenceBrowserMorph>>newSeparator (in category 'submorphs - buttons') ----- newSeparator + ^ Morph new + color: Color transparent; + width: (5 * RealEstateAgent scaleFactor) truncated; - ^BorderedMorph new - borderWidth: 2; - borderColor: Color transparent; - color: self paneColor; - hResizing: #rigid; - width: 5; vResizing: #spaceFill; yourself! Item was changed: ----- Method: PreferenceBrowserMorph>>saveButton (in category 'submorphs - buttons') ----- saveButton ^saveButton ifNil: [saveButton := self basicButton label: 'save' translated; action: #saveSelected; + setBalloonText: 'Click here to save the current constellation of Preferences settings as your personal defaults; you can get them all reinstalled with a single gesture by clicking the "Restore my Personal Preferences".' translated]! - setBalloonText: - 'Click here to save the current constellation of Preferences ', - 'settings as your personal defaults; you can get them all ', - 'reinstalled with a single gesture by clicking the "Restore ', - 'my Personal Preferences".' translated]! Item was changed: ----- Method: PreferenceBrowserMorph>>saveToDiskButton (in category 'submorphs - buttons') ----- saveToDiskButton ^saveToDiskButton ifNil: [saveToDiskButton := self basicButton label: 'save to disk' translated; action: #saveToDiskSelected; + setBalloonText: 'Click here to save the current constellation of Preferences settings to a file; you can get them all reinstalled with a single gesture by clicking "Restore Settings From Disk".' translated]! - setBalloonText: - 'Click here to save the current constellation of Preferences ', - 'settings to a file; you can get them all reinstalled with a ', - 'single gesture by clicking "Restore Settings From Disk".' - translated]! Item was changed: ----- Method: PreferenceBrowserMorph>>updateSelectedCategoryPreferences (in category 'updating') ----- updateSelectedCategoryPreferences + + | newPanel | + self preferenceList vScrollBarValue: 0. + self preferenceList scroller removeAllMorphs. + + (self model allCategorySelected or: [self model searchResultsCategorySelected]) + ifTrue: [Cursor wait showWhile: [newPanel := self newPreferenceListInnerPanel]] + ifFalse: [newPanel := self newPreferenceListInnerPanel]. + + self preferenceList scroller addMorphBack: newPanel. + self adoptPaneColor: self paneColor.! - Cursor wait showWhile: - [self preferenceList - hScrollBarValue: 0; - vScrollBarValue: 0. - self preferenceList scroller removeAllMorphs. - self preferenceList scroller addMorphBack: self newPreferenceListInnerPanel. - self adoptPaneColor: self paneColor]!

1 0

← Newer
1
2
3
4
5
6
7
8
...
19
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages March 2022