Packages February 2020

packages@lists.squeakfoundation.org

1 participants
90 discussions

The Trunk: EToys-mt.380.mcz
by commits＠source.squeak.org 20 Feb '20

20 Feb '20

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.380.mcz ==================== Summary ==================== Name: EToys-mt.380 Author: mt Time: 20 February 2020, 1:43:12.099407 pm UUID: 4edbddf3-efc9-2343-969a-17b5ae11258c Ancestors: EToys-mt.379 In Etoys, fixes some visuals in the dialog for saving projects. =============== Diff against EToys-mt.379 =============== Item was changed: ----- Method: EToyGenericDialogMorph>>genericTextFieldNamed: (in category 'as yet unclassified') ----- genericTextFieldNamed: aString | newField | + newField := ShowEmptyTextMorph new + beAllFont: self myFont; + contentsWrapped: ''; + extent: 400 @ 20. - newField := ShowEmptyTextMorph new beAllFont: self myFont; - extent: 400 @ 20; - contentsWrapped: ''. namedFields at: aString put: newField. ^ newField! Item was changed: ----- Method: EToyGenericDialogMorph>>lockedString:font: (in category 'as yet unclassified') ----- lockedString: aString font: aFont + ^ (self inARow: {(StringMorph contents: aString font: aFont) lock})! - ^ self inAColumn: {(StringMorph contents: aString font: aFont) lock}! Item was changed: ----- Method: EToyProjectDetailsMorph>>rebuild (in category 'initialization') ----- rebuild "Rebuild the receiver from scratch." | bottomButtons header toAdd | self removeAllMorphs. header := self addARow: { + (self lockedString: 'Please describe this project' translated) listDirection: #topToBottom. - self lockedString: 'Please describe this project' translated. }. header color: ScriptingSystem baseColor. self addARow: { self lockedString: 'Project Name' translated. self inAColumnForText: {self fieldForProjectName} }. self expandedFormat ifTrue: [ self fieldToDetailsMappings do: [ :each | toAdd := (each size < 5 or: [each fifth = #text]) ifTrue: [self genericTextFieldNamed: each first] ifFalse: [self popUpEntryNamed: each first menuTitle: each third]. self addARow: { self lockedString: each third translated. self inAColumnForText: {toAdd height: each fourth} }. ]. ]. bottomButtons := self expandedFormat ifTrue: [ { self okButton. self cancelButton. } ] ifFalse: [ { self okButton. self expandButton. self cancelButton. } ]. self addARow: bottomButtons. self fillInDetails.! Item was changed: ----- Method: EToyProjectRenamerMorph>>buttonNamed:action:color:help: (in category 'as yet unclassified') ----- buttonNamed: aString action: aSymbol color: aColor help: helpString | f col | f := SimpleButtonMorph new target: self; label: aString translated font: self myFont; color: aColor; borderColor: aColor muchDarker; actionSelector: aSymbol; + setBalloonText: helpString translated; + hResizing: #spaceFill. - setBalloonText: helpString translated. col := (self inAColumn: {f}) hResizing: #spaceFill. ^col!

1 0

The Trunk: Tools-mt.940.mcz
by commits＠source.squeak.org 20 Feb '20

20 Feb '20

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.940.mcz ==================== Summary ==================== Name: Tools-mt.940 Author: mt Time: 20 February 2020, 1:41:55.866407 pm UUID: bb2cc15c-ce75-3148-b911-fb65e4af3431 Ancestors: Tools-mt.939 Minor fix to make FileList2 for project loading work again in certain situations. =============== Diff against Tools-mt.939 =============== Item was changed: ----- Method: FileList2 class>>morphicViewProjectLoader2InWorld:reallyLoad:dirFilterType: (in category 'blue ui') ----- morphicViewProjectLoader2InWorld: aWorld reallyLoad: aBoolean dirFilterType: aSymbol | window aFileList buttons treePane textColor1 fileListPane pane2a pane2b treeExtent filesExtent | window := AlignmentMorphBob1 newColumn. window hResizing: #shrinkWrap; vResizing: #shrinkWrap. textColor1 := Color r: 0.742 g: 0.839 b: 1.0. aFileList := self new. aFileList optionalButtonSpecs: aFileList servicesForProjectLoader; fileSelectionBlock: ( aSymbol == #limitedSuperSwikiDirectoryList ifTrue: [ + MessageSend receiver: Project current selector: #latestProjectVersionsFromFileEntries: - MessageSend receiver: Project selector: #latestProjectVersionsFromFileEntries: ] ifFalse: [ self projectOnlySelectionBlock ] ); "dirSelectionBlock: self hideSqueakletDirectoryBlock;" modalView: window. aFileList directory: FileDirectory default. window setProperty: #FileList toValue: aFileList; wrapCentering: #center; cellPositioning: #topCenter; borderWidth: 1; borderColor: (Color r: 0.9 g: 0.801 b: 0.2); useRoundedCorners. buttons := {{'OK'. Color lightGreen}. {'Cancel'. Color lightRed}} collect: [ :each | self blueButtonText: each first textColor: textColor1 color: each second inWindow: window ]. aWorld width < 800 ifTrue: [ treeExtent := 150@300. filesExtent := 350@300. ] ifFalse: [ treeExtent := 350@500. filesExtent := 550@500. ]. (treePane := aFileList morphicDirectoryTreePaneFiltered: aSymbol) extent: treeExtent; retractable: false; borderWidth: 0. fileListPane := aFileList morphicFileListPane extent: filesExtent; retractable: false; borderWidth: 0. window addARow: { window fancyText: 'Load A Project' translated font: Preferences standardEToysTitleFont color: textColor1 }; addARowCentered: { buttons first. (Morph new extent: 30@5) color: Color transparent. buttons second }; addARow: { window fancyText: 'Please select a project' translated font: Preferences standardEToysFont color: textColor1 }; addARow: { (window inAColumn: {(pane2a := window inARow: {window inAColumn: {treePane}}) useRoundedCorners; layoutInset: 0; borderWidth: 1; borderColor: (Color r: 0.6 g: 0.7 b: 1) }) layoutInset: 10. (window inAColumn: {(pane2b := window inARow: {window inAColumn: {fileListPane}}) useRoundedCorners; layoutInset: 0; borderWidth: 1; borderColor: (Color r: 0.6 g: 0.7 b: 1) }) layoutInset: 10. }. window fullBounds. window fillWithRamp: (Color r: 1 g: 0.85 b: 0.975) oriented: 0.65. pane2a fillWithRamp: (Color r: 0.85 g: 0.9 b: 1) oriented: (0.7 @ 0.35). pane2b fillWithRamp: (Color r: 0.85 g: 0.9 b: 1) oriented: (0.7 @ 0.35). " buttons do: [ :each | each fillWithRamp: ColorTheme current dialogButtonsRampOrColor oriented: (0.75 @ 0). ]. " buttons first on: #mouseUp send: (aBoolean ifTrue: [#okHitForProjectLoader] ifFalse: [#okHit]) to: aFileList. buttons second on: #mouseUp send: #cancelHit to: aFileList. aFileList postOpen. window position: aWorld topLeft + (aWorld extent - window extent // 2). window adoptPaneColor: (Color r: 0.548 g: 0.677 b: 1.0). ^ window openInWorld: aWorld.!

1 0

The Trunk: EToys-mt.379.mcz
by commits＠source.squeak.org 20 Feb '20

20 Feb '20

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.379.mcz ==================== Summary ==================== Name: EToys-mt.379 Author: mt Time: 20 February 2020, 12:09:34.55075 pm UUID: 983b6a29-1ced-b343-9a5d-d4cd423c2c6a Ancestors: EToys-mt.378 Some functional and visual fixes for Etoys: window title font, etoys preferences, base color for infor panels, label-edit but in sugar text fields, project history morph. =============== Diff against EToys-mt.378 =============== Item was changed: ----- Method: EToyProjectHistoryMorph>>rebuild (in category 'as yet unclassified') ----- rebuild | history r1 | history := ProjectHistory currentHistory mostRecentCopy. changeCounter := ProjectHistory changeCounter. self removeAllMorphs. + self rubberBandCells: true. - self rubberBandCells: false. "enable growing" r1 := self addARow: { self inAColumn: { StringMorph new contents: 'Jump...' translated; lock. }. }. r1 on: #mouseUp send: #jumpToProject to: self. history do: [ :each | ( self addARow: { + (each second scaledToSize: 64@64) asMorph. + (self inARow: { - (self inAColumn: { - StretchyImageMorph new form: each second; minWidth: 35; minHeight: 35; lock - }) vResizing: #spaceFill. - self inAColumn: { StringMorph new contents: each first; lock. "StringMorph new contents: each fourth first; lock." + }) hResizing: #spaceFill; layoutInset: 10@0. - }. (self inAColumn: { StringMorph new color: Color red; contents: 'X'; on: #mouseDown send: #confirmedDelete:evt:from: to: self withValue: each fourth first + }) hResizing: #shrinkWrap. - }) hResizing: #rigid. } ) color: Color paleYellow; borderStyle: (BorderStyle raised width: 1); vResizing: #spaceFill; on: #mouseUp send: #mouseUp:in: to: self; on: #mouseDown send: #mouseDown:in: to: self; on: #mouseMove send: #mouseMove:in: to: self; on: #mouseLeave send: #mouseLeave:in: to: self; setProperty: #projectParametersTuple toValue: each; setBalloonText: (each third isEmptyOrNil ifTrue: ['not saved'] ifFalse: [each third]) ]. "--- newTuple := { aProject name. aProject thumbnail. aProject url. WeakArray with: aProject. }. ---"! Item was changed: ----- Method: EtoysTheme class>>create (in category 'instance creation') ----- create "doIt: [self create apply.]" | themeName | themeName := 'Etoys'. ^ (self named: themeName) in: [:theme | theme merge: (self named: 'Squeak') overwrite: true. theme name: themeName. theme set: #background for: #MorphicProject to: (SolidFillStyle color: (Color r: 0.9 g: 0.9 b: 1)). theme set: #standardListFont to: (TTCFont familyName: 'BitstreamVeraSans' pointSize: 15 emphasis: 0); set: #standardFlapFont to: (TTCFont familyName: 'BitstreamVeraSans' pointSize: 15 emphasis: TextEmphasis bold emphasisCode); set: #eToysButtonFont to: (TTCFont familyName: 'BitstreamVeraSans' pointSize: 15 emphasis: 0); set: #eToysFont to: (TTCFont familyName: 'BitstreamVeraSans' pointSize: 15 emphasis: TextEmphasis bold emphasisCode); set: #eToysCodeFont to: (TTCFont familyName: 'BitstreamVeraSans' pointSize: 15 emphasis: 0); set: #eToysTitleFont to: (TTCFont familyName: 'BitstreamVeraSans' pointSize: 32 emphasis: 0); set: #paintBoxButtonFont to: (TTCFont familyName: 'BitstreamVeraSans' pointSize: 12 emphasis: 0); set: #standardMenuFont to: (TTCFont familyName: 'BitstreamVeraSans' pointSize: 15 emphasis: 0); set: #standardButtonFont to: (TTCFont familyName: 'BitstreamVeraSans' pointSize: 15 emphasis: 0); + set: #windowTitleFont to: (TTCFont familyName: 'BitstreamVeraSans' pointSize: 15 emphasis: TextEmphasis bold emphasisCode); - set: #windowTitleFont to: (TTCFont familyName: 'BitstreamVeraSans' pointSize: 15 emphasis: 0); set: #balloonHelpFont to: (TTCFont familyName: 'BitstreamVeraSans' pointSize: 15 emphasis: 0); set: #connectorsLabelFont to: (TTCFont familyName: 'BitstreamVeraSans' pointSize: 15 emphasis: 0); set: #standardCodeFont to: (TTCFont familyName: 'BitstreamVeraSans' pointSize: 15 emphasis: 0); set: #standardDefaultTextFont to: (TTCFont familyName: 'BitstreamVeraSans' pointSize: 15 emphasis: 0); set: #standardSystemFont to: (TTCFont familyName: 'BitstreamVeraSans' pointSize: 15 emphasis: 0). theme]! Item was added: + ----- Method: ReleaseBuilderSqueakland class>>setEtoysMode (in category 'scripts') ----- + setEtoysMode + "Use this script to transform a regular Squeak image into an Etoys environment. Keep it programmer-friendly." + + (UserInterfaceTheme current name beginsWith: 'Etoys') + ifTrue: [^ self inform: 'This environment is already\prepared for Etoys.' translated withCRs]. + + (Project uiManager + confirm: 'This step will change several preferences. The current\UI theme will be copied and Etoys fonts be installed.\\Are you sure?' translated withCRs + title: 'Prepare Etoys Environment' translated) + ifFalse: [^ self]. + + self intermediatePrepareForUsers. + + Preferences + disable: #noviceMode; + enable: #generalizedYellowButtonMenu; + enable: #showAdvancedNavigatorButtons; + disable: #eToyFriendly. + + TheWorldMainDockingBar showWorldMainDockingBar: true.! Item was changed: ----- Method: ReleaseBuilderSqueakland class>>setPreferences (in category 'scripts') ----- setPreferences super setPreferences. [ "Reset all preferences to their default value but ensure that all control and alt keys stay duplicated." Preferences cambridge. Preferences allPreferences do: [:each | each defaultValue: each preferenceValue]. Preferences enable: #duplicateAllControlAndAltKeys. ] valueSupplyingAnswer: true. Preferences disable: #alternativeWindowBoxesLook; enable: #magicHalos; enable: #mouseOverHalos; enable: #showAdvancedNavigatorButtons; disable: #honorDesktopCmdKeys; enable: #unlimitedPaintArea; enable: #fastDragWindowForMorphic; enable: #noviceMode; disable: #generalizedYellowButtonMenu; disable: #signProjectFiles; + enable: #alwaysHideHScrollBar; + enable: #alwaysShowVScrollBar. "For the menu button." + ScrollBar scrollBarsWithoutMenuButton: false. + ScrollBar scrollBarsWithoutArrowButtons: false. - enable: #alwaysShowHScrollBar; - enable: #alwaysShowVScrollBar. "Rounded corners." Morph preferredCornerRadius: 8. PluggableButtonMorph roundedButtonCorners: true. DialogWindow roundedDialogCorners: true. SystemWindow roundedWindowCorners: true. ScrollBar roundedScrollBarLook: true. Cursor useBiggerCursors: true. TrashCanMorph slideDismissalsToTrash: true; preserveTrash: true. SugarNavigatorBar showHideButton: false; showSugarNavigator: true. Preferences disable: #showAdvancedNavigatorButtons. TileMorph usePopUpArrows: true. + Morph indicateKeyboardFocus: false. "Ignore warnings." Deprecation showDeprecationWarnings: false. Preferences disable: #warnIfChangesFileReadOnly; disable: #warnIfNoChangesFile; disable: #warnIfNoSourcesFile. ! Item was changed: ----- Method: StandardScriptingSystem>>baseColor (in category '*Etoys-Squeakland-tile colors') ----- baseColor + ^ (Color r: 0.674 g: 0.91 b: 0.47)! - ^ (UserInterfaceTheme current get: #titleColor for: #MenuMorph) ifNil: [ Color transparent]! Item was changed: ----- Method: StandardScriptingSystem>>openInfoFlapWithLabel:helpContents:edge: (in category '*Etoys-Squeakland-help in a flap') ----- openInfoFlapWithLabel: aTitle helpContents: aString edge: anEdge "Open an info flap with the given label, contents, and edge" | aPlug outer leftStrip rightStrip titleRow aDismissButton aFlapTab | Preferences enable: #scrollBarsOnRight. Preferences enable: #inboardScrollbars. aFlapTab := FlapTab new. aFlapTab assureExtension visible: false. aFlapTab referentMargin: (0 @ ActiveWorld sugarAllowance). outer := HelpFlap newRow. outer assureExtension visible: false. outer clipSubmorphs: true. outer beTransparent. outer vResizing: #spaceFill; hResizing: #spaceFill. outer layoutInset: 0; cellInset: 0; borderWidth: 0. outer setProperty: #morphicLayerNumber toValue: 26. leftStrip := Morph new beTransparent. leftStrip layoutInset: 0; cellInset: 0; borderWidth: 0. leftStrip width: 20. leftStrip hResizing: #rigid; vResizing: #spaceFill. outer addMorphBack: leftStrip. rightStrip := AlignmentMorph newColumn. rightStrip beTransparent. rightStrip layoutInset: 0; cellInset: 0; borderWidth: 0. outer addMorphBack: rightStrip. outer clipSubmorphs: true. titleRow := AlignmentMorph newRow. titleRow borderColor: Color veryVeryLightGray; borderWidth: 1. titleRow hResizing: #spaceFill; vResizing: #shrinkWrap. titleRow beTransparent. aDismissButton := aFlapTab tanOButton. aDismissButton actionSelector: #dismissViaHalo. titleRow addMorphFront: aDismissButton. titleRow addTransparentSpacerOfSize: 8 @ 0. titleRow addMorphBack: (StringMorph contents: aTitle font: Preferences standardEToysTitleFont). rightStrip addMorph: titleRow. aPlug := PluggableTextMorph new. aPlug width: 540. aPlug setText: aString. aPlug textMorph beAllFont: Preferences standardEToysFont. aPlug retractable: false; scrollBarOnLeft: false. + aPlug hScrollBarPolicy: #never. - aPlug hideHScrollBarIndefinitely: true. aPlug borderColor: ScriptingSystem borderColor. aPlug setNameTo: aTitle. aPlug hResizing: #spaceFill. aPlug vResizing: #spaceFill. rightStrip addMorphBack: aPlug. aFlapTab referent ifNotNil: [aFlapTab referent delete]. aFlapTab referent: outer. aFlapTab setName: aTitle edge: anEdge color: (Color r: 0.677 g: 0.935 b: 0.484). aFlapTab submorphs first beAllFont: Preferences standardEToysFont. ActiveWorld addMorphFront: aFlapTab. aFlapTab adaptToWorld: ActiveWorld. aFlapTab computeEdgeFraction. anEdge == #left ifTrue: [aFlapTab position: (outer left @ outer top). outer extent: (540 @ ActiveWorld height)]. anEdge == #right ifTrue: [aFlapTab position: ((ActiveWorld right - aFlapTab width) @ ActiveWorld top). outer extent: (540 @ ActiveWorld height)]. outer beFlap: true. outer color: Color green veryMuchLighter. aPlug textMorph lock. aFlapTab referent hide. aFlapTab openFully. outer beSticky. leftStrip beSticky. rightStrip beSticky. ActiveWorld doOneCycle. aPlug width: 540. aPlug setText: aString. "hmm, again" aPlug color: outer color. aPlug borderWidth: 0. aPlug textMorph contents: aString wrappedTo: 520. aFlapTab applyThickness: 560. aFlapTab fitOnScreen. aFlapTab referent show. ^ aFlapTab! Item was changed: ----- Method: StandardScriptingSystem>>putUpInfoPanelFor:title:extent: (in category '*Etoys-Squeakland-utilities') ----- putUpInfoPanelFor: aString title: aTitle extent: anExtent "Put up a dismissable help panel showing the given string, with the given extent; the panel will have a slim title bar at top, by which it can be dragged, as well as dismissed." + | aPlug outer | - | aPlug outer wasOnRight wasInboard | - wasOnRight := Preferences scrollBarsOnRight. - wasInboard := Preferences inboardScrollbars. - Preferences enable: #scrollBarsOnRight. - Preferences enable: #inboardScrollbars. aPlug := PluggableTextMorph new. aPlug extent: anExtent. aPlug color: Color white. aPlug setText: aString. + aPlug hScrollBarPolicy: #never. + aPlug vScrollBarPolicy: #whenNeeded. + aPlug wrapFlag: true. - aPlug textMorph beAllFont: Preferences standardEToysFont. - aPlug retractable: false; scrollBarOnLeft: false. - aPlug hideHScrollBarIndefinitely: true. aPlug borderWidth: 0. aPlug borderColor: ScriptingSystem borderColor. aPlug setNameTo: aTitle. outer := self buildPanelTitled: aTitle. outer addMorphBack: aPlug. aPlug textMorph lock. outer openInWorld. - outer center: ActiveWorld center. - outer top: (ActiveWorld top + 10). - wasOnRight ifFalse: [Preferences disable: #scrollBarsOnRight]. - wasInboard ifFalse: [Preferences disable: #inboardScrollbars]. - - "The two lines below are force the scroll bar to recompute..." - ActiveWorld doOneCycle. - aPlug setText: aString - " ScriptingSystem putUpInfoPanelFor: AllScriptsTool new helpString title: 'Testing One Two Three' extent: 800@600. "! Item was changed: ----- Method: SugarRoundedField>>resizeLabel (in category 'as yet unclassified') ----- resizeLabel | small | + (label notNil and: [label hasFocus not]) ifTrue: [ - label ifNotNil: [ label width: self width - 10. small :=self height < 45. label label: ActiveWorld project name font: (StrikeFont familyName: 'BitstreamVeraSans' size: (small ifTrue: [15] ifFalse: [24])). label center: self center. label left: self left + 10. self addMorph: label. ]. !

1 0

The Trunk: Morphic-mt.1627.mcz
by commits＠source.squeak.org 20 Feb '20

20 Feb '20

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1627.mcz ==================== Summary ==================== Name: Morphic-mt.1627 Author: mt Time: 20 February 2020, 12:06:36.90175 pm UUID: 1ca9ce53-bee3-6640-87f4-46873a6888df Ancestors: Morphic-mt.1625 Documents an issue in StringMorph. Makes Etoys support for 5.3 visible in the 'Extras' menu in the world main docking bar. =============== Diff against Morphic-mt.1625 =============== Item was changed: ----- Method: StringMorph>>contents: (in category 'accessing') ----- contents: newContents + self flag: #todo. "mt: hasFocus == true means that the mini editor was launched. We should now ignore any external calls to this method to avoid visual glitches. However, #interimContents: does also use this callback. Figure something out." + newContents isText ifTrue: [^ self initializeFromText: newContents]. contents = newContents ifTrue: [^ self "No substantive change."]. contents := newContents. self changed. "New contents need to be drawn." self fitContents. "Resize if necessary."! Item was changed: ----- Method: StringMorphEditor>>keyStroke: (in category 'event handling') ----- keyStroke: evt "This is hugely inefficient, but it seems to work, and it's unlikely it will ever need to be any more efficient -- it's only intended to edit single-line strings." | char priorEditor newSel | (((char := evt keyCharacter) = Character enter) or: [(char = Character cr) or: [char = $s and: [evt commandKeyPressed]]]) ifTrue: [owner doneWithEdits; acceptContents. self flag: #arNote. "Probably unnecessary" evt hand releaseKeyboardFocus. ^ self delete]. + ((char := evt keyCharacter) = Character escape + or: [char = $l and: [evt commandKeyPressed]]) ifTrue: "cancel" - (char = $l and: [evt commandKeyPressed]) ifTrue: "cancel" [owner cancelEdits. evt hand releaseKeyboardFocus. ^ self delete]. super keyStroke: evt. owner ifNil: [^self]. owner interimContents: self contents asString. newSel := self editor selectionInterval. priorEditor := self editor. "Save editor state" self releaseParagraph. "Release paragraph so it will grow with selection." self paragraph. "Re-instantiate to set new bounds" self installEditorToReplace: priorEditor. "restore editor state" self editor selectFrom: newSel first to: newSel last. ! Item was changed: ----- Method: TheWorldMainDockingBar>>themesAndWindowColorsOn: (in category 'submenu - extras') ----- themesAndWindowColorsOn: menu | themes | menu addItem:[:item| item contents: (Model useColorfulWindows ifTrue: ['<yes>'] ifFalse: ['<no>']), 'Colorful Windows' translated; target: self; selector: #toggleColorfulWindows]. menu addItem:[:item| item contents: (SystemWindow gradientWindow not ifTrue: ['<yes>'] ifFalse: ['<no>']), 'Flat Widget Look' translated; target: self; selector: #toggleGradients]. menu addLine. menu addItem:[:item | item contents: (((Preferences valueOfFlag: #menuAppearance3d ifAbsent: [false]) and: [Morph useSoftDropShadow]) ifTrue: ['<yes>'] ifFalse: ['<no>']), 'Soft Shadows' translated; target: self; selector: #toggleSoftShadows]. menu addItem:[:item | item contents: (((Preferences valueOfFlag: #menuAppearance3d ifAbsent: [false]) and: [Morph useSoftDropShadow not]) ifTrue: ['<yes>'] ifFalse: ['<no>']), 'Hard Shadows' translated; target: self; selector: #toggleHardShadows]. menu addLine. menu addItem:[:item | item contents: (SystemWindow roundedWindowCorners ifTrue: ['<yes>'] ifFalse: ['<no>']), 'Rounded Window/Dialog/Menu Look' translated; target: self; selector: #toggleRoundedWindowLook]. menu addItem:[:item | item contents: (PluggableButtonMorph roundedButtonCorners ifTrue: ['<yes>'] ifFalse: ['<no>']), 'Rounded Button/Scrollbar Look' translated; target: self; selector: #toggleRoundedButtonLook]. + menu addLine. + themes := UserInterfaceTheme allThemes asArray sort: #name ascending. - themes := UserInterfaceTheme allThemes asArray sort: #name ascending. themes ifEmpty: [ menu addItem: [ :item | item contents: '(No UI themes found.)' translated; isEnabled: false ] ]. themes do: [ :each | menu addItem: [ :item | item contents: (UserInterfaceTheme current == each ifTrue: ['<yes>'] ifFalse: ['<no>']), each name; target: each; selector: #apply ] ]. menu + addLine; + add: 'Increase Font Size' translated target: Preferences selector: #increaseFontSize; + add: 'Decrease Font Size' translated target: Preferences selector: #decreaseFontSize. + menu + addLine; + add: 'Set High-DPI Mode' translated target: Preferences selector: #setDemoFonts; + add: 'Set Etoys Mode' translated target: ReleaseBuilderSqueakland selector: #setEtoysMode. - addLine ; - add: 'Increase Font Size' translated target: Preferences selector: #increaseFontSize ; - add: 'Decrease Font Size' translated target: Preferences selector: #decreaseFontSize ; - addLine. menu addLine; add: 'Restore UI Theme Background' translated target: self selector: #restoreThemeBackground; add: 'Edit Current UI Theme...' translated target: self selector: #editCurrentTheme.!

1 0

The Trunk: EToys-mt.378.mcz
by commits＠source.squeak.org 19 Feb '20

19 Feb '20

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.378.mcz ==================== Summary ==================== Name: EToys-mt.378 Author: mt Time: 19 February 2020, 5:12:07.693123 pm UUID: 9670284b-a77e-5c4f-8607-cd3fc0080719 Ancestors: EToys-mt.377 Fixes layout for automatic tile creation when dropping something in the Test area. Enable pop-up arrows by default in Etoys. =============== Diff against EToys-mt.377 =============== Item was changed: ----- Method: PhraseTileMorph>>setOperator:type:rcvrType:argType: (in category 'initialization') ----- setOperator: opSymbol type: opType rcvrType: rcvrType argType: argType "Set the operator, type, receiver type, and argument type for the phrase" | aTileMorph | resultType := opType. opType ifNotNil: [self color: (ScriptingSystem colorForType: opType)]. self removeAllMorphs. + self addMorph: (TilePadMorph new + setType: rcvrType; + changeTableLayout; + hResizing: #shrinkWrap; + vResizing: #shrinkWrap; + yourself). - self addMorph: (TilePadMorph new setType: rcvrType). aTileMorph := TileMorph new adoptVocabulary: self currentVocabulary. self addMorphBack: ((aTileMorph setOperator: opSymbol asString) typeColor: color). opSymbol numArgs = 1 ifTrue: [self addMorphBack: (TilePadMorph new setType: (argType ifNil: [#Object]))]! Item was changed: ----- Method: ReleaseBuilderSqueakland class>>setPreferences (in category 'scripts') ----- setPreferences super setPreferences. [ "Reset all preferences to their default value but ensure that all control and alt keys stay duplicated." Preferences cambridge. Preferences allPreferences do: [:each | each defaultValue: each preferenceValue]. Preferences enable: #duplicateAllControlAndAltKeys. ] valueSupplyingAnswer: true. Preferences disable: #alternativeWindowBoxesLook; enable: #magicHalos; enable: #mouseOverHalos; enable: #showAdvancedNavigatorButtons; disable: #honorDesktopCmdKeys; enable: #unlimitedPaintArea; enable: #fastDragWindowForMorphic; enable: #noviceMode; disable: #generalizedYellowButtonMenu; disable: #signProjectFiles; enable: #alwaysShowHScrollBar; enable: #alwaysShowVScrollBar. "Rounded corners." Morph preferredCornerRadius: 8. PluggableButtonMorph roundedButtonCorners: true. DialogWindow roundedDialogCorners: true. SystemWindow roundedWindowCorners: true. ScrollBar roundedScrollBarLook: true. Cursor useBiggerCursors: true. TrashCanMorph slideDismissalsToTrash: true; preserveTrash: true. SugarNavigatorBar showHideButton: false; showSugarNavigator: true. Preferences disable: #showAdvancedNavigatorButtons. + TileMorph usePopUpArrows: true. "Ignore warnings." Deprecation showDeprecationWarnings: false. Preferences disable: #warnIfChangesFileReadOnly; disable: #warnIfNoChangesFile; disable: #warnIfNoSourcesFile. ! Item was changed: ----- Method: ScriptEditorMorph>>initialize (in category 'initialization') ----- initialize "initialize the state of the receiver" super initialize. "" self listDirection: #topToBottom; hResizing: #shrinkWrap; vResizing: #shrinkWrap; cellPositioning: #topLeft; setProperty: #autoFitContents toValue: true; + minHeight: TileMorph defaultH; + layoutInset: 2. - layoutInset: 2. self useRoundedCornersInEtoys. self borderColor: ScriptingSystem borderColor. self setNameTo: 'Script Editor' translated. firstTileRow := 1. "index of first tile-carrying submorph" self addNewRow. showingMethodPane := false. !

1 0

The Trunk: MorphicExtras-mt.271.mcz
by commits＠source.squeak.org 19 Feb '20

19 Feb '20

Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-mt.271.mcz ==================== Summary ==================== Name: MorphicExtras-mt.271 Author: mt Time: 19 February 2020, 5:05:20.185123 pm UUID: 2c003dbb-22b3-df4a-b378-d365e5050d63 Ancestors: MorphicExtras-mt.270 Slightly increase default size of thumbnails (for flaps) and make them aware of scaling. Feels way better in Etoys now to work with viewers. I can actually hit them now. :-) =============== Diff against MorphicExtras-mt.270 =============== Item was changed: ----- Method: ThumbnailMorph>>initialize (in category 'initialization') ----- initialize "Initialize the receiver, obeying a #nominalExtent property if I have one" | anExtent | super initialize. "" anExtent := self valueOfProperty: #nominalExtent + ifAbsent: [((32 @ 32) * RealEstateAgent scaleFactor) truncated]. - ifAbsent: [25 @ 25]. self extent: (anExtent )!

1 0

The Trunk: System-eem.1133.mcz
by commits＠source.squeak.org 19 Feb '20

19 Feb '20

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.1133.mcz ==================== Summary ==================== Name: System-eem.1133 Author: eem Time: 18 February 2020, 7:49:07.377872 pm UUID: bc1e5119-e7e1-413f-916c-4cc22bdeb105 Ancestors: System-mt.1132 Fix a bug with recreateSpecialObjectsArray; FullBlockClosure must be present for SistaV1 to function. As a side-effect update to the latest spec, including the wide integer arrays, needed for te latest spec of the InterpreterProxy API. =============== Diff against System-mt.1132 =============== Item was changed: ----- Method: SmalltalkImage>>recreateSpecialObjectsArray (in category 'special objects') ----- recreateSpecialObjectsArray "Smalltalk recreateSpecialObjectsArray" "To external package developers: **** DO NOT OVERRIDE THIS METHOD. ***** If you are writing a plugin and need additional special object(s) for your own use, use addGCRoot() function and use own, separate special objects registry " "The Special Objects Array is an array of objects used by the Squeak virtual machine. Its contents are critical and accesses to it by the VM are unchecked, so don't even think of playing here unless you know what you are doing." | newArray | newArray := Array new: 60. "Nil false and true get used throughout the VM" newArray at: 1 put: nil. newArray at: 2 put: false. newArray at: 3 put: true. "This association holds the active process (a ProcessScheduler)" newArray at: 4 put: (self specialObjectsArray at: 4) "(self bindingOf: #Processor) but it answers an Alias". "Numerous classes below used for type checking and instantiation" newArray at: 5 put: Bitmap. newArray at: 6 put: SmallInteger. newArray at: 7 put: ByteString. newArray at: 8 put: Array. newArray at: 9 put: Smalltalk. newArray at: 10 put: BoxedFloat64. newArray at: 11 put: (self globals at: #Context). + newArray at: 12 put: WideString. "Was BlockContext" - newArray at: 12 put: nil. "was BlockContext." newArray at: 13 put: Point. newArray at: 14 put: LargePositiveInteger. newArray at: 15 put: Display. newArray at: 16 put: Message. newArray at: 17 put: CompiledMethod. newArray at: 18 put: ((self specialObjectsArray at: 18) ifNil: [Semaphore new]). "low space Semaphore" newArray at: 19 put: Semaphore. newArray at: 20 put: Character. newArray at: 21 put: #doesNotUnderstand:. newArray at: 22 put: #cannotReturn:. newArray at: 23 put: nil. "This is the process signalling low space." "An array of the 32 selectors that are compiled as special bytecodes, paired alternately with the number of arguments each takes." + newArray at: 24 put: #(+ 1 - 1 < 1 > 1 <= 1 >= 1 = 1 ~= 1 + * 1 / 1 \\ 1 @ 1 bitShift: 1 // 1 bitAnd: 1 bitOr: 1 + at: 1 at:put: 2 size 0 next 0 nextPut: 1 atEnd 0 == 1 class 0 + ~~ 1 value 0 value: 1 do: 1 new 0 new: 1 x 0 y 0 ). + newArray at: 25 put: nil. "Was an array of the 255 Characters in ascii order. This is nil in Spur, which has immediate Characters." - newArray at: 24 put: #( #+ 1 #- 1 #< 1 #> 1 #<= 1 #>= 1 #= 1 #~= 1 - #* 1 #/ 1 #\\ 1 #@ 1 #bitShift: 1 #// 1 #bitAnd: 1 #bitOr: 1 - #at: 1 #at:put: 2 #size 0 #next 0 #nextPut: 1 #atEnd 0 #== 1 #class 0 - #~~ 1 #value 0 #value: 1 #do: 1 #new 0 #new: 1 #x 0 #y 0 ). - "An array of the 255 Characters in ascii order. - Cog inlines table into machine code at: prim so do not regenerate it. - This is nil in Spur, which has immediate Characters." - newArray at: 25 put: (self specialObjectsArray at: 25). newArray at: 26 put: #mustBeBoolean. newArray at: 27 put: ByteArray. newArray at: 28 put: Process. "An array of up to 31 classes whose instances will have compact headers; an empty array in Spur" newArray at: 29 put: self compactClassesArray. newArray at: 30 put: ((self specialObjectsArray at: 30) ifNil: [Semaphore new]). "delay Semaphore" newArray at: 31 put: ((self specialObjectsArray at: 31) ifNil: [Semaphore new]). "user interrupt Semaphore" "Entries 32 - 34 unreferenced. Previously these contained prototype instances to be copied for fast initialization" + newArray at: 32 put: DoubleByteArray. "was the prototype Float" + newArray at: 33 put: WordArray. "was the prototype 4-byte LargePositiveInteger" + newArray at: 34 put: DoubleWordArray. "was the prototype Point" - newArray at: 32 put: nil. "was the prototype Float" - newArray at: 33 put: nil. "was the prototype 4-byte LargePositiveInteger" - newArray at: 34 put: nil. "was the prototype Point" newArray at: 35 put: #cannotInterpret:. newArray at: 36 put: nil. "was the prototype MethodContext" newArray at: 37 put: BlockClosure. + newArray at: 38 put: (self at: #FullBlockClosure ifAbsent: []). "was the prototype BlockContext" - newArray at: 38 put: nil. "was the prototype BlockContext" "array of objects referred to by external code" newArray at: 39 put: (self specialObjectsArray at: 39). "external semaphores" newArray at: 40 put: nil. "Reserved for Mutex in Cog VMs" newArray at: 41 put: ((self specialObjectsArray at: 41) ifNil: [LinkedList new]). "Reserved for a LinkedList instance for overlapped calls in CogMT" newArray at: 42 put: ((self specialObjectsArray at: 42) ifNil: [Semaphore new]). "finalization Semaphore" newArray at: 43 put: LargeNegativeInteger. "External objects for callout. Note: Written so that one can actually completely remove the FFI." newArray at: 44 put: (self at: #ExternalAddress ifAbsent: []). newArray at: 45 put: (self at: #ExternalStructure ifAbsent: []). newArray at: 46 put: (self at: #ExternalData ifAbsent: []). newArray at: 47 put: (self at: #ExternalFunction ifAbsent: []). newArray at: 48 put: (self at: #ExternalLibrary ifAbsent: []). newArray at: 49 put: #aboutToReturn:through:. newArray at: 50 put: #run:with:in:. "51 reserved for immutability message" newArray at: 51 put: #attemptToAssign:withIndex:. newArray at: 52 put: #(nil "nil => generic error" #'bad receiver' #'bad argument' #'bad index' #'bad number of arguments' #'inappropriate operation' #'unsupported operation' #'no modification' #'insufficient object memory' #'insufficient C memory' #'not found' #'bad method' #'internal error in named primitive machinery' #'object may move' #'resource limit exceeded' #'object is pinned' #'primitive write beyond end of object' #'object moved' #'object not pinned' #'callback error'), {PrimitiveError new errorName: #'operating system error'; yourself. ExceptionInFFICallError new errorName: #'exception in FFI call'; yourself}. "53 to 55 are for Alien" newArray at: 53 put: (self at: #Alien ifAbsent: []). newArray at: 54 put: #invokeCallbackContext:. "use invokeCallback:stack:registers:jmpbuf: for old Alien callbacks." newArray at: 55 put: (self at: #UnsafeAlien ifAbsent: []). "Used to be WeakFinalizationList for WeakFinalizationList hasNewFinalization, obsoleted by ephemeron support." newArray at: 56 put: nil. "reserved for foreign callback process" newArray at: 57 put: (self specialObjectsArray at: 57 ifAbsent: []). newArray at: 58 put: #unusedBytecode. "59 reserved for Sista counter tripped message" newArray at: 59 put: #conditionalBranchCounterTrippedOn:. "60 reserved for Sista class trap message" newArray at: 60 put: #classTrapFor:. "Now replace the virtual machine's reference in one atomic operation" self specialObjectsArray becomeForward: newArray!

1 0

The Trunk: Kernel-eem.1296.mcz
by commits＠source.squeak.org 19 Feb '20

19 Feb '20

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1296.mcz ==================== Summary ==================== Name: Kernel-eem.1296 Author: eem Time: 18 February 2020, 7:43:15.608431 pm UUID: 78e95030-3521-4dd9-b26c-2c8c7939010b Ancestors: Kernel-eem.1295, Kernel-tonyg.1293 Fix a bug in allMethodCategoriesIntegratedThrough: which can cause an error in the Debugger when prompting to define a new method. Fix bugs in CompiledCode>>messagesDo:/selectorsDo: and define the former in terms of the latter (since the former is a misnomer). Fix a bug in the definition of CompiledMethod>>hasSameLiteralsAs: which should not be confused by the methodClass literal. Fix perform:with:with:with:with:with:'s comment. =============== Diff against Kernel-tonyg.1293 =============== Item was changed: ----- Method: Behavior>>instSpec (in category 'testing') ----- instSpec "Answer the instance specification part of the format that defines what kind of object an instance of the receiver is. The formats are 0 = 0 sized objects (UndefinedObject True False et al) 1 = non-indexable objects with inst vars (Point et al) 2 = indexable objects with no inst vars (Array et al) 3 = indexable objects with inst vars (Context BlockClosure AdditionalMethodState et al) 4 = weak indexable objects with inst vars (WeakArray et al) 5 = weak non-indexable objects with inst vars (ephemerons) (Ephemeron) 6 = unused 7 = immediates (SmallInteger, Character) 8 = unused + 9 = 64-bit indexable (DoubleWordArray et al) + 10-11 = 32-bit indexable (WordArray et al) (includes one odd bit, unused in 32-bit instances) + 12-15 = 16-bit indexable (DoubleByteArray et al) (includes two odd bits, one unused in 32-bit instances) + 16-23 = 8-bit indexable (ByteArray et al) (includes three odd bits, one unused in 32-bit instances) + 24-31 = compiled code (CompiledCode et al) (includes three odd bits, one unused in 32-bit instances) + - 9 = 64-bit indexable - 10-11 = 32-bit indexable (Bitmap) (plus one odd bit, unused in 32-bits) - 12-15 = 16-bit indexable (plus two odd bits, one unused in 32-bits) - 16-23 = 8-bit indexable (plus three odd bits, one unused in 32-bits) - 24-31 = compiled methods (CompiledMethod) (plus three odd bits, one unused in 32-bits) Note that in the VM instances also have a 5 bit format field that relates to their class's format. Formats 11, 13-15, 17-23 & 25-31 are unused in classes but used in instances to define the number of elements missing up to the slot size. For example, a 2-byte ByteString instance + has format 18 in 32 bits, since its size is one 32-bit slot - 2 bytes ((18 bitAnd: 3) = 2), and + 22 in 64 bits, since its size is one 64-bit slot - 6 bytes ((22 bitAnd: 7) = 6). + Formats 24-31 are for compiled code which is a combination of pointers and bytes. The number of pointers is + determined by literal count field of the method header, which is the first field of the object and must be a SmallInteger. + The literal count field occupies the least significant 15 bits of the method header, allowing up to 32,767 pointer fields, + not including the header." - has format 18 in 32-bits, since its size is one 32-bit slot - 2 bytes ((18 bitAnd: 3) = 2), and - 22 in 64 bits, since its size is one 64-bit slot - 6 bytes ((22 bitAnd: 7) = 6)." ^(format bitShift: -16) bitAnd: 16r1F! Item was changed: ----- Method: ClassDescription>>allMethodCategoriesIntegratedThrough: (in category 'accessing method dictionary') ----- allMethodCategoriesIntegratedThrough: mostGenericClass "Answer a list of all the method categories of the receiver and all its superclasses, up through mostGenericClass" | aColl | + aColl := Set new. - aColl := OrderedCollection new. self withAllSuperclasses do: [:aClass | + (aClass includesBehavior: mostGenericClass) ifTrue: + [aColl addAll: aClass organization categories]]. - (aClass includesBehavior: mostGenericClass) - ifTrue: [aColl addAll: aClass organization categories]]. aColl remove: 'no messages' asSymbol ifAbsent: []. + ^aColl asArray sort: [:a :b | a asLowercase < b asLowercase] - ^aColl asSet asArray sort: [:a :b | a asLowercase < b asLowercase] "ColorTileMorph allMethodCategoriesIntegratedThrough: TileMorph"! Item was changed: ----- Method: CompiledCode>>messagesDo: (in category 'scanning') ----- messagesDo: workBlock + "Evaluate aBlock with all the message selectors sent by me. Duplicate seletors are possible." - "Evaluate aBlock with all the message selectors sent by me. Duplicate sends possible." + "If anything should be deprecated it is messagesDo:; it can be an extension in AST/Refactoring. + This method enumerates over selectors, not messages. c.f. Behavior>>selectorsDo: etc" + ^self selectorsDo: workBlock! - | scanner selector | - self isQuick ifTrue: [^ self]. - - self codeLiteralsDo: [:compiledCode | - scanner := InstructionStream on: compiledCode. - scanner scanFor: [ :x | - (selector := scanner selectorToSendOrSelf) == scanner - ifFalse: [workBlock value: selector]. - false "keep scanning" ] ].! Item was added: + ----- Method: CompiledCode>>selectorsDo: (in category 'scanning') ----- + selectorsDo: workBlock + "Evaluate aBlock with all the message selectors sent by me. Duplicate selectors are possible." + + | encoderClass | + self isQuick ifTrue: [^self]. + encoderClass := self encoderClass. + self codeLiteralsDo: + [:compiledCode | | scanner limit | + limit := compiledCode size - 1. + (scanner := InstructionStream on: compiledCode) scanFor: + [:byte| | selector | + (selector := scanner selectorToSendOrSelf) ~~ scanner ifTrue: + [workBlock value: selector]. + ((encoderClass isExtension: byte) + and: [scanner pc < limit]) ifTrue: + [scanner pc: scanner pc + (encoderClass bytecodeSize: (compiledCode at: scanner pc + 2))]. + false "keep scanning"]]! Item was changed: ----- Method: CompiledCode>>sendsMessage: (in category 'testing') ----- + sendsMessage: aSelector + "eem: this should be deprecated. This method does not check if a method sends a message; + it checks if a method sends a message with a particular selector." + self flag: #todo. - sendsMessage: aSelector - self messagesDo: [:selector | selector = aSelector ifTrue: [^ true]]. ^ false! Item was changed: ----- Method: CompiledCode>>sendsSelector: (in category 'testing') ----- sendsSelector: aSelector + "Answer if the receiver sends a message whose selector is aSelector." + self selectorsDo: + [:selector | selector = aSelector ifTrue: [^true]]. + self flag: #todo. "The use of #= instead of #== is extremely dubious, and IMO erroneous. eem 2/18/2020" + ^false! - self flag: #todo. "mt: Deprecate? AST/Refactoring project needs it..." - ^ self sendsMessage: aSelector! Item was changed: ----- Method: CompiledMethod>>hasSameLiteralsAs: (in category 'comparing') ----- hasSameLiteralsAs: aMethod "Answer whether the receiver has the same sequence of literals as the argument. Compare the last literal, which is the class association, specially so as not to differentiate between otherwise identical methods installed in different classes. Compare the first literal carefully if it is the binding informaiton for an FFI or external primitive call. Don't compare all of the state so that linked and unlinked methods are still considered equal." | numLits | numLits := self numLiterals. numLits = aMethod numLiterals ifFalse: [^false]. 1 to: numLits do: [:i| | lit1 lit2 | lit1 := self literalAt: i. lit2 := aMethod literalAt: i. (lit1 == lit2 or: [lit1 literalEqual: lit2]) ifFalse: [(i = 1 and: [#(117 120) includes: self primitive]) ifTrue: [lit1 isArray ifTrue: [(lit2 isArray and: [(lit1 first: 2) = (lit2 first: 2)]) ifFalse: [^false]] ifFalse: "ExternalLibraryFunction" [(lit1 analogousCodeTo: lit2) ifFalse: [^false]]] ifFalse: [i = (numLits - 1) ifTrue: "properties" [(self properties analogousCodeTo: aMethod properties) ifFalse: [^false]] ifFalse: "last literal (methodClassAssociation) of class-side methods is not unique" "last literal of CompiledBlock is outerMethod and may not be unique." [(self isCompiledBlock and: [lit1 isCompiledCode and: [lit2 isCompiledCode]]) ifTrue: [^true]. (i = numLits + and: [lit1 isVariableBinding and: [lit1 value isBehavior + and: [lit2 isVariableBinding and: [lit2 value isBehavior]]]]) ifFalse: - and: [lit1 isVariableBinding - and: [lit2 isVariableBinding - and: [lit1 key == lit2 key - and: [lit1 value == lit2 value]]]]) ifFalse: [^false]]]]]. ^true! Item was changed: ----- Method: Object>>perform:with:with:with:with:with: (in category 'message handling') ----- perform: aSymbol with: firstObject with: secondObject with: thirdObject with: fourthObject with: fifthObject "Send the selector, aSymbol, to the receiver with the given arguments. + Fail if the number of arguments expected by the selector is not five. - Fail if the number of arguments expected by the selector is not four. Primitive. Optional. See Object documentation whatIsAPrimitive." <primitive: 83> ^ self perform: aSymbol withArguments: { firstObject. secondObject. thirdObject. fourthObject. fifthObject }!

1 0

The Trunk: Morphic-mt.1625.mcz
by commits＠source.squeak.org 18 Feb '20

18 Feb '20

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1625.mcz ==================== Summary ==================== Name: Morphic-mt.1625 Author: mt Time: 18 February 2020, 2:48:07.01301 pm UUID: 6c47c890-a344-414c-90b5-588d3b8514a9 Ancestors: Morphic-mt.1624 Fixes an issue with event dispatching used (only) in halo, which affects the balloon texts for those halo handles. Adds documentation of some tricky parts. Not sure why MenuMorph is so clingy about its keyboard help. Manually delete that if the menu gets closed. =============== Diff against Morphic-mt.1624 =============== Item was changed: ----- Method: HandMorph>>balloonHelpList (in category 'balloon help') ----- balloonHelpList "Return all balloon morphs associated with this hand" + self flag: #performance. "mt: Make it an instance variable because we need to access this on every keystroke in a text field. See senders of #deleteBalloon." + ^ self valueOfProperty: #balloonHelpMorphs ifAbsentPut: [OrderedCollection new]! Item was changed: ----- Method: HandMorph>>removePendingBalloonFor: (in category 'balloon help') ----- removePendingBalloonFor: aMorph + "Get rid of pending balloon help or remove the balloon help if already shown." + + self flag: #workaround. "mt: We do not track for which morph there is a pending balloon. To avoid cancelling the wrong requests, check whether the given morph wants a balloon or not. Seems to work fine." + aMorph wantsBalloon ifFalse: [^ self]. + - "Get rid of pending balloon help." self removeAlarm: #spawnBalloonFor:. self deleteBalloonTarget: aMorph.! Item was changed: ----- Method: MenuMorph>>delete (in category 'initialization') ----- delete "Delete the receiver." + self hideKeyboardHelp. activeSubMenu ifNotNil: [activeSubMenu stayUp ifFalse: [activeSubMenu delete]]. self isFlexed ifTrue: [^ owner delete]. ^ super delete! Item was changed: ----- Method: MenuMorph>>deleteIfPopUp (in category 'control') ----- deleteIfPopUp "Remove this menu from the screen if stayUp is not true. If it is a submenu, also remove its owning menu." stayUp ifFalse: [self topRendererOrSelf delete]. (popUpOwner notNil and: [popUpOwner isKindOf: MenuItemMorph]) ifTrue: [ popUpOwner isSelected: false. (popUpOwner owner isKindOf: MenuMorph) ifTrue: [popUpOwner owner deleteIfPopUp]]. + self hideKeyboardHelp. ! Item was changed: ----- Method: MenuMorph>>deleteIfPopUp: (in category 'control') ----- deleteIfPopUp: evt "Remove this menu from the screen if stayUp is not true. If it is a submenu, also remove its owning menu." stayUp ifFalse: [self topRendererOrSelf delete]. (popUpOwner notNil) ifTrue: [ popUpOwner isSelected: false. popUpOwner deleteIfPopUp: evt]. evt ifNotNil: [ evt hand releaseMouseFocus: self. originalFocusHolder ifNotNil: [ + self hideKeyboardHelp. evt hand newKeyboardFocus: originalFocusHolder. originalFocusHolder := nil]].! Item was changed: ----- Method: MorphicEventDispatcher>>dispatchFocusEventAllOver:with: (in category 'focus events') ----- dispatchFocusEventAllOver: evt with: focusMorph "Like a full event dispatch BUT adds regular dispatch if the focus morph did nothing with the event. This is useful for letting the focusMorph's siblings handle the events instead. Take halo invocation as an example. See senders of me." | result hand mouseFocus | result := self dispatchFocusEventFully: evt with: focusMorph. + evt isMouseOver ifTrue: [^ result]. + result == #rejected ifTrue: [^ result]. result wasIgnored ifTrue: [^ result]. result wasHandled ifTrue: [^ result]. - focusMorph world ifNil: [ ^ result ]. hand := evt hand. mouseFocus := hand mouseFocus. [ "Avoid re-dispatching the event to the focus morph. See Morph >> #rejectsEvent:." focusMorph lock. - - "Handle side effect for mouse-enter and mouse-leave events." - self flag: #hacky. "mt: Maybe we find a better way to synthesize enter/leave events in the future." hand newMouseFocus: nil. - hand mouseOverHandler processMouseOver: hand lastEvent. + "Give the event's hand a chance to normally dispatch it." + ^ hand handleEvent: evt - "Give the morph's world a chance to normally dispatch the event." - ^ focusMorph world ifNotNil: [ : world | world processEvent: evt using: self] ] ensure: [ focusMorph unlock. + hand newMouseFocus: mouseFocus].! - evt hand newMouseFocus: mouseFocus].!

1 0

The Trunk: MonticelloConfigurations-mt.159.mcz
by commits＠source.squeak.org 18 Feb '20

18 Feb '20

Marcel Taeumel uploaded a new version of MonticelloConfigurations to project The Trunk: http://source.squeak.org/trunk/MonticelloConfigurations-mt.159.mcz ==================== Summary ==================== Name: MonticelloConfigurations-mt.159 Author: mt Time: 18 February 2020, 9:12:46.412015 am UUID: 0f3711f1-35a6-2542-8c0a-2465bdc516ed Ancestors: MonticelloConfigurations-dtl.158 Minor spelling/formatting fix in a progress label. =============== Diff against MonticelloConfigurations-dtl.158 =============== Item was changed: ----- Method: MCConfiguration>>updateFromRepositoriesWithoutCaching (in category 'updating') ----- updateFromRepositoriesWithoutCaching | oldNames newNames sortedNames newDeps | oldNames := self dependencies collect: [:dep | dep versionInfo versionName]. newNames := Dictionary new. self repositories do: [:repo | ProgressNotification signal: '' extra: 'Checking ', repo description. (repo possiblyNewerVersionsOfAnyOf: oldNames) do: [:newName | newNames at: newName put: repo]] displayingProgress: 'Searching new versions'. sortedNames := newNames keys asArray sort: [:a :b | a versionNumber > b versionNumber]. newDeps := OrderedCollection new: self dependencies size. self dependencies do: [:dep | newDeps add: (sortedNames detect: [:each | each packageAndBranchName = dep packageAndBranchName] ifFound: [ :newName | | repo | repo := newNames at: newName. (self versionInfoNamed: newName for: dep from: repo) ifNil: [ dep ] ifNotNil: [ :info | MCVersionDependency package: dep package info: info ] ] ifNone: [ dep ]) ] + displayingProgress: 'Downloading new versions ...' translated. - displayingProgress: 'downloading new versions'. self dependencies: newDeps. !

1 0

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

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages February 2020