Packages February 2022

packages@lists.squeakfoundation.org

1 participants
200 discussions

The Trunk: Morphic-mt.1896.mcz
by commits＠source.squeak.org 14 Feb '22

14 Feb '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1896.mcz ==================== Summary ==================== Name: Morphic-mt.1896 Author: mt Time: 14 February 2022, 11:25:04.903768 am UUID: 683e3656-fae6-8a48-9c92-0690aeec2776 Ancestors: Morphic-mt.1895 Fixes regression of icon scaling in tree morphs. =============== Diff against Morphic-mt.1895 =============== Item was changed: ScrollPane subclass: #SimpleHierarchicalListMorph instanceVariableNames: 'selectedMorph hoveredMorph getListSelector keystrokeActionSelector autoDeselect columns columnsCache sortingSelector getSelectionSelector setSelectionSelector potentialDropMorph lineColor font textColor' + classVariableNames: 'ExpandedForm NotExpandedForm WrappedNavigation' - classVariableNames: 'WrappedNavigation' poolDictionaries: '' category: 'Morphic-Explorer'! - SimpleHierarchicalListMorph class - instanceVariableNames: 'expandedForm notExpandedForm'! !SimpleHierarchicalListMorph commentStamp: 'ls 3/1/2004 12:15' prior: 0! Display a hierarchical list of items. Each item should be wrapped with a ListItemWrapper. For a simple example, look at submorphsExample. For beefier examples, look at ObjectExplorer or FileList2.! - SimpleHierarchicalListMorph class - instanceVariableNames: 'expandedForm notExpandedForm'! Item was changed: ----- Method: SimpleHierarchicalListMorph class>>applyUserInterfaceTheme (in category 'preferences') ----- applyUserInterfaceTheme + ExpandedForm := nil. + NotExpandedForm := nil.! - expandedForm := nil. - notExpandedForm := nil.! Item was changed: ----- Method: SimpleHierarchicalListMorph class>>expandedForm (in category 'instance creation') ----- expandedForm + ExpandedForm + ifNotNil: [ExpandedForm depth ~= Display depth + ifTrue: [ExpandedForm := nil]]. + ^ ExpandedForm + ifNil: [ExpandedForm := ((Form - expandedForm - ifNotNil: [expandedForm depth ~= Display depth - ifTrue: [expandedForm := nil]]. - ^ expandedForm - ifNil: [expandedForm := ((Form extent: 10 @ 9 depth: 8 fromArray: #(4294967295 4294967295 4294901760 4294967295 4294967295 4294901760 4278255873 16843009 16842752 4294902089 1229539657 33488896 4294967041 1229539585 4294901760 4294967295 21561855 4294901760 4294967295 4278321151 4294901760 4294967295 4294967295 4294901760 4294967295 4294967295 4294901760 ) offset: 0 @ 0) asFormOfDepth: Display depth) replaceColor: Color white withColor: Color transparent; scaleIconToDisplay]! Item was changed: ----- Method: SimpleHierarchicalListMorph class>>notExpandedForm (in category 'instance creation') ----- notExpandedForm + NotExpandedForm + ifNotNil: [NotExpandedForm depth ~= Display depth + ifTrue: [NotExpandedForm := nil]]. + ^ NotExpandedForm + ifNil: [NotExpandedForm := ((Form - notExpandedForm - ifNotNil: [notExpandedForm depth ~= Display depth - ifTrue: [notExpandedForm := nil]]. - ^ notExpandedForm - ifNil: [notExpandedForm := ((Form extent: 10 @ 9 depth: 8 fromArray: #(4294967041 4294967295 4294901760 4294967041 33554431 4294901760 4294967041 1224867839 4294901760 4294967041 1229521407 4294901760 4294967041 1229539585 4294901760 4294967041 1229521407 4294901760 4294967041 1224867839 4294901760 4294967041 33554431 4294901760 4294967041 4294967295 4294901760 ) offset: 0 @ 0) asFormOfDepth: Display depth) replaceColor: Color white withColor: Color transparent; scaleIconToDisplay]!

1 0

The Trunk: System-mt.1312.mcz
by commits＠source.squeak.org 14 Feb '22

14 Feb '22

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1312.mcz ==================== Summary ==================== Name: System-mt.1312 Author: mt Time: 14 February 2022, 10:56:07.505768 am UUID: d4976d9c-d3c1-394c-b293-c9427cf3a8c7 Ancestors: System-mt.1311 Fixes the bug where Morphic windows on other than the current project where not scaled on display-scale changes. =============== Diff against System-mt.1311 =============== Item was changed: ----- Method: UserInterfaceTheme>>scaleMorphicToolsBy: (in category 'private - fonts') ----- scaleMorphicToolsBy: factor - Project current isMorphic ifFalse: [^ self]. (factor closeTo: 1) ifTrue: [^ self]. + (Project respondsTo: #allMorphicProjects) ifTrue: [ + Project allMorphicProjects do: [:ea | + ea world submorphs + select: [:morph | morph isSystemWindow] + thenDo: [:window | window displayScaleChangedBy: factor] ]].! - Project current world submorphs - select: [:morph | morph isSystemWindow] - thenDo: [:window | window displayScaleChangedBy: factor].!

1 0

The Trunk: ShoutCore-mt.92.mcz
by commits＠source.squeak.org 14 Feb '22

14 Feb '22

Marcel Taeumel uploaded a new version of ShoutCore to project The Trunk: http://source.squeak.org/trunk/ShoutCore-mt.92.mcz ==================== Summary ==================== Name: ShoutCore-mt.92 Author: mt Time: 14 February 2022, 10:30:21.84781 am UUID: e1a6deb3-9844-d546-8a8c-b125a4b4ea0f Ancestors: ShoutCore-mt.91 Fill "Accessibility" preference category with more related preferences. =============== Diff against ShoutCore-mt.91 =============== Item was changed: ----- Method: SHTextStylerST80 class>>syntaxHighlightingAsYouType (in category 'preferences') ----- syntaxHighlightingAsYouType <preference: 'syntaxHighlightingAsYouType' + categoryList: #(browsing Accessibility) - category: 'browsing' description: 'Enable, or disable, Shout - Syntax Highlighting As You Type. When enabled, code in Browsers and Workspaces is styled to reveal its syntactic structure. When the code is changed (by typing some characters, for example), the styling is changed so that it remains in sync with the modified code.' type: #Boolean> ^ (TextStyler for: #Smalltalk) = self! Item was changed: ----- Method: SHTextStylerST80 class>>syntaxHighlightingAsYouType: (in category 'preferences') ----- syntaxHighlightingAsYouType: aBoolean self syntaxHighlightingAsYouType = aBoolean ifTrue: [^ self]. TextStyler default: (aBoolean ifTrue: [self] ifFalse: [nil]) for: #Smalltalk. "Update known tools that show Smalltalk source code." (self environment classNamed: #PluggableTextMorphPlus) ifNotNil: [:widgetClass | + | stylerClass toolClass workspaceClass | + stylerClass := TextStyler for: #Smalltalk. + toolClass := self environment classNamed: #CodeHolder. + workspaceClass := self environment classNamed: #Workspace. "Actually a StringHolder but a code tool." + widgetClass allInstancesDo: [:widget | + ((widget model isKindOf: toolClass) and: [widget getTextSelector ~= #annotation]) + ifTrue: [ + widget styler: (stylerClass ifNotNil: [:c | c new view: widget]). + widget setText: widget text asString asText makeSelectorBold "drop text attributes; keep method signature styled" ]. + (widget model isKindOf: workspaceClass) + ifTrue: [ + widget styler: (stylerClass ifNotNil: [:c | c new view: widget]). + widget setText: widget text asString "drop text attributes"] ]].! - | stylerClass toolClass workspaceClass | - stylerClass := TextStyler for: #Smalltalk. - toolClass := self environment classNamed: #CodeHolder. - workspaceClass := self environment classNamed: #Workspace. "Actually a StringHolder but a code tool." - widgetClass allInstancesDo: [:widget | - (((widget model isKindOf: toolClass) or: [widget model isKindOf: workspaceClass]) - and: [widget getTextSelector ~= #annotation]) - ifTrue: [ - widget styler: (stylerClass ifNotNil: [:c | c new view: widget]). - widget setText: widget text asString "drop text attributes" ]]].!

1 0

The Trunk: Morphic-mt.1895.mcz
by commits＠source.squeak.org 14 Feb '22

14 Feb '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1895.mcz ==================== Summary ==================== Name: Morphic-mt.1895 Author: mt Time: 14 February 2022, 10:29:50.78881 am UUID: 30774b37-b3d1-724b-8ed9-59c3b8f18dd4 Ancestors: Morphic-mt.1894 Fill "Accessibility" preference category with more related preferences. =============== Diff against Morphic-mt.1894 =============== Item was changed: ----- Method: AbstractResizerMorph class>>gripThickness (in category 'preferences') ----- gripThickness "A number in pixels that encodes the area were the user can target splitters or edge grips." <preference: 'Grip Thickness' + categoryList: #(windows Accessibility) - category: 'windows' description: 'A number in pixels that encodes the area were the user can target splitters or edge grips such as in application windows. Bigger grips make it easier to click on them.' type: #Number> ^ ((GripThickness ifNil: [4]) * RealEstateAgent scaleFactor) rounded! Item was changed: ----- Method: AbstractResizerMorph class>>handleLength (in category 'preferences') ----- handleLength <preference: 'Handle Length' + categoryList: #(windows Accessibility) - category: 'windows' description: 'AThe size of a grip handle if shown. Can be interpreted as width or height, depending of the resizer orientation. Does not affect the clickable area. See grip thickness for that.' type: #Number> ^ ((HandleLength ifNil: [16]) * RealEstateAgent scaleFactor) rounded! Item was changed: ----- Method: CornerGripMorph class>>drawCornerResizeHandles (in category 'preferences') ----- drawCornerResizeHandles <preference: 'Draw Corner Resize Handles' + categoryList: #(windows Accessibility) - category: 'windows' description: 'Set whether the resize handles on windows should be drawn on the window frame. This does not enable nor disable the resizing function' type: #Boolean> ^ DrawCornerResizeHandles ifNil: [ false ]! Item was changed: ----- Method: CornerGripMorph class>>drawEdgeResizeHandles (in category 'preferences') ----- drawEdgeResizeHandles <preference: 'Draw Edge Resize Handles' + categoryList: #(windows Accessibility) - category: 'windows' description: 'Set whether the resize handles on windows should be drawn on the window frame. This does not enable nor disable the resizing function.' type: #Boolean> ^ DrawEdgeResizeHandles ifNil: [ false ]!

1 0

The Trunk: Kernel-mt.1446.mcz
by commits＠source.squeak.org 14 Feb '22

14 Feb '22

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.1446.mcz ==================== Summary ==================== Name: Kernel-mt.1446 Author: mt Time: 14 February 2022, 10:29:02.59581 am UUID: 7d1ee07f-0079-d543-aa82-473611663693 Ancestors: Kernel-mt.1445 Fill "Accessibility" preference category with more related preferences. =============== Diff against Kernel-mt.1445 =============== Item was changed: ----- Method: Model class>>useColorfulWindows (in category 'preferences') ----- useColorfulWindows <preference: 'Use colorful windows' + categoryList: #(Morphic windows Accessibility) - categoryList: #(Morphic windows) description: 'When true, windows have colors specific to their kind.' type: #Boolean> ^UseColorfulWindows ifNil:[true]!

1 0

The Trunk: Graphics-mt.480.mcz
by commits＠source.squeak.org 14 Feb '22

14 Feb '22

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.480.mcz ==================== Summary ==================== Name: Graphics-mt.480 Author: mt Time: 14 February 2022, 10:27:06.43881 am UUID: 20d902d5-929f-b448-90d2-2a3c1e4f12d2 Ancestors: Graphics-mt.479 Fill "Accessibility" preference category with more related preferences. =============== Diff against Graphics-mt.479 =============== Item was changed: ----- Method: Cursor class>>useBiggerCursors (in category 'preferences') ----- useBiggerCursors <preference: 'Use bigger mouse cursors' + categoryList: #(mouse Accessibility) - category: 'mouse' description: 'If true, mouse cursors are scaled up' type: #Boolean> ^ UseBiggerCursors ifNil: [false]! Item was changed: ----- Method: DisplayScreen class>>relativeScaleFactor (in category 'preferences') ----- relativeScaleFactor <preference: 'Scale Factor' + categoryList: #(Morphic Tools visuals Accessibility) - categoryList: #(Morphic Tools visuals) description: 'Set the size of fonts and tools according to the pixels-per-inch of your display. Can be used to zoom in even further.' type: #String> ^ Display relativeUiScaleFactor! Item was changed: ----- Method: TextStyle class>>numSpacesPerTab (in category 'preferences') ----- numSpacesPerTab <preference: 'Tab width (i.e., number of spaces)' + categoryList: #(tools visuals Accessibility) - categoryList: #(tools visuals) description: 'Amount of spaces to be used when calculating the width of a tab character for a specific font face and point size.' type: #Number> ^ NumSpacesPerTab ifNil: [6]!

1 0

The Trunk: PreferenceBrowser-mt.135.mcz
by commits＠source.squeak.org 14 Feb '22

14 Feb '22

Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk: http://source.squeak.org/trunk/PreferenceBrowser-mt.135.mcz ==================== Summary ==================== Name: PreferenceBrowser-mt.135 Author: mt Time: 14 February 2022, 10:26:05.72181 am UUID: 1b2c28f4-539f-0f40-94b3-180f5db8d97a Ancestors: PreferenceBrowser-mt.134 Move color-related preferences onto "Choose UI theme" page in preference wizard. Thanks to Christoph (ct) for the tip! =============== Diff against PreferenceBrowser-mt.134 =============== Item was changed: ----- Method: PreferenceWizardMorph>>initializePage01Themes (in category 'initialization - pages') ----- initializePage01Themes | currentPage pane | currentPage := pages add: self createPage. pane := self createScrollPane. currentPage addMorphBack: (self createLabel: 'Choose a theme' color: Color white). currentPage addMorphBack: pane. ((UserInterfaceTheme allThemes select: [:uit | uit isGenuine]) sorted: [:a :b | a name <= b name]) do: [:ea | pane scroller firstSubmorph addMorphBack: (self createRadioButton: ea name for: #Theme argument: ea)]. + + pane scroller firstSubmorph addAllMorphsBack: { + self createVerticalSpace. + self createCheckbox: 'Colorful windows' translated for: #UseColorfulWindows help: #(color window). + self createCheckbox: 'Colorful source code' translated for: #UseColorfulSourceCode help: #(syntax you type). + self createCheckbox: 'Flat widget look' translated for: #Gradients help: 'Whether to use gradients or not.' translated. + }. ! - - currentPage addMorphBack: (self createLabel: 'Note that "Colorful windows" show colors that fit the current theme. See next page.' translated color: Color banana)! Item was changed: ----- Method: PreferenceWizardMorph>>initializePage02Visuals (in category 'initialization - pages') ----- initializePage02Visuals | currentPage pane | currentPage := pages add: self createPage. pane := self createScrollPane. currentPage addMorphBack: (self createLabel: 'Choose visual settings' color: Color white). currentPage addMorphBack: pane. pane scroller firstSubmorph addAllMorphsBack: { - self createCheckbox: 'Colorful windows' translated for: #UseColorfulWindows help: #(color window). - self createCheckbox: 'Flat widget look' translated for: #Gradients help: 'Whether to use gradients or not.' translated. - self createVerticalSpace. self createCheckbox: 'Rounded windows' translated for: #RoundedWindowLook help: #(round window). self createCheckbox: 'Rounded buttons' translated for: #RoundedButtonLook help: #(round button). self createVerticalSpace. self createCheckbox: 'Compact list widgets' translated for: #UseCompactLists help: #(compact list). self createCheckbox: 'Compact text widgets' translated for: #UseCompactTextFields help: #(compact text). self createCheckbox: 'Compact button widgets' translated for: #UseCompactButtons help: #(compact text). self createVerticalSpace. self createCheckbox: 'Soft shadows' translated for: #SoftShadows help: #(soft shadow). self createCheckbox: 'Hard shadows' translated for: #HardShadows help: 'Whether to use a hard shadow for windows, menus, and dialogs.' translated. self createVerticalSpace. self createCheckbox: 'Fast drag and resize' translated for: #FastDrag help: #(fast drag). self createCheckbox: 'Blinking text cursor' translated for: #BlinkingCursor help: #(blinking cursor). self createCheckbox: 'Show keyboard focus' translated for: #ShowKeyboardFocus help: #(keyboard indicate). self createCheckbox: 'Simple edit indication' translated for: #SimpleFrameAdornments help: #(adornment simple). }.! Item was added: + ----- Method: PreferenceWizardMorph>>stateUseColorfulSourceCode (in category 'actions - buttons') ----- + stateUseColorfulSourceCode + + ^ SHTextStylerST80 syntaxHighlightingAsYouType! Item was added: + ----- Method: PreferenceWizardMorph>>toggleUseColorfulSourceCode (in category 'actions - buttons') ----- + toggleUseColorfulSourceCode + + SHTextStylerST80 syntaxHighlightingAsYouType: SHTextStylerST80 syntaxHighlightingAsYouType not. + self changed: #stateUseColorfulSourceCode.!

1 0

The Trunk: ToolBuilder-MVC-mt.65.mcz
by commits＠source.squeak.org 14 Feb '22

14 Feb '22

Marcel Taeumel uploaded a new version of ToolBuilder-MVC to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-MVC-mt.65.mcz ==================== Summary ==================== Name: ToolBuilder-MVC-mt.65 Author: mt Time: 14 February 2022, 10:10:07.21681 am UUID: 51dbb8f2-9649-b44e-aa51-b91bf349d592 Ancestors: ToolBuilder-MVC-mt.64 Fixes height of MVC button rows. =============== Diff against ToolBuilder-MVC-mt.64 =============== Item was added: + ----- Method: MVCToolBuilder>>buttonRowHeight (in category 'layout hints') ----- + buttonRowHeight + + ^ (Preferences standardButtonFont height * 1.5) truncated!

1 0

The Trunk: Tools-mt.1132.mcz
by commits＠source.squeak.org 14 Feb '22

14 Feb '22

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1132.mcz ==================== Summary ==================== Name: Tools-mt.1132 Author: mt Time: 14 February 2022, 10:09:42.32981 am UUID: d846ab41-af6e-6546-8abf-6965877811c5 Ancestors: Tools-ct.1131 Fixes appearance of MVC menus. =============== Diff against Tools-ct.1131 =============== Item was changed: ----- Method: PopUpMenu class>>standardMenuStyle (in category 'class initialization') ----- standardMenuStyle ^ (TextStyle fontArray: { Preferences standardMenuFont }) - gridForFont: 1 withLead: 0; centered; yourself! Item was changed: ----- Method: PopUpMenu>>computeForm (in category 'private') ----- computeForm "Compute and answer a Form to be displayed for this menu." | borderInset paraForm menuForm menuStyle inside | borderInset := 4@4. menuStyle := self class standardMenuStyle. paraForm := ((DisplayText text: labelString asText textStyle: menuStyle) foregroundColor: (self userInterfaceTheme textColor ifNil: [Color black]) backgroundColor: (self userInterfaceTheme color ifNil: [Color white])) form. menuForm := Form extent: paraForm extent + (borderInset * 2) depth: paraForm depth. menuForm fill: (0 @ 0 extent: menuForm extent) rule: Form over fillColor: (self userInterfaceTheme color ifNil: [Color white]). menuForm border: menuForm boundingBox width: 2 fillColor: (self userInterfaceTheme borderColor ifNil: [Color black]). paraForm displayOn: menuForm at: borderInset. lineArray == nil ifFalse: [lineArray do: [ :line | menuForm + fill: (4 @ ((line * font lineGrid) + borderInset y) - fill: (4 @ ((line * font height) + borderInset y) extent: (menuForm width - 8 @ 1)) rule: Form over fillColor: (self userInterfaceTheme lineColor ifNil: [Color black])]]. frame := Quadrangle new. frame region: menuForm boundingBox. frame borderWidth: 4. inside := frame inside. marker := inside topLeft extent: (inside width @ menuStyle lineGrid). selection := 1. ^ form := menuForm ! Item was changed: ----- Method: PopUpMenu>>markerTop: (in category 'marker adjustment') ----- markerTop: aPoint "Answer aPoint, gridded to lines in the receiver." + ^(aPoint y - frame inside top truncateTo: font lineGrid) + frame inside top! - ^(aPoint y - frame inside top truncateTo: font height) + frame inside top!

1 0

The Trunk: System-mt.1311.mcz
by commits＠source.squeak.org 14 Feb '22

14 Feb '22

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1311.mcz ==================== Summary ==================== Name: System-mt.1311 Author: mt Time: 14 February 2022, 9:49:17.820624 am UUID: 0802d867-3729-094f-95c6-9649ff5b8796 Ancestors: System-mt.1310 Complements Morphic-mt.1894. =============== Diff against System-mt.1310 =============== Item was changed: ----- Method: CommunityTheme class>>createDark (in category 'instance creation') ----- createDark "self createDark apply." | name | name := 'Community (dark)'. ^ (self named: name) in: [:theme | theme merge: (self named: 'Squeak') overwrite: true. theme name: name. "General morph stuff." theme set: #borderColor for: #ScrollPane to: (Color transparent) ; set: #keyboardFocusColor for: #Morph to: (self dbSelection adjustSaturation: -0.3 brightness: 0.10); + set: #keyboardFocusWidth for: #Morph to: 1; - set: #keyboardFocusWidth for: #Morph to: 2; set: #softShadowColor for: #Morph to: (self dbSelection muchLighter alpha: 0.025); set: #softShadowOffset for: #Morph to: (10@8 corner: 10@12); set: #hardShadowColor for: #Morph to: (self dbSelection muchLighter alpha: 0.02); set: #hardShadowOffset for: #Morph to: 1@1. self addDarkFonts: theme; addDarkWindowColors: theme; addDarkSyntaxHighlighting: theme; addDarkScrollables: theme; addDarkButtons: theme; addDarkDialogs: theme; addDarkMenusAndDockingBars: theme; addDarkToolColors: theme. theme]! Item was changed: ----- Method: TrimTheme class>>create (in category 'instance creation') ----- create "doIt: [self create apply.]" | themeName | themeName := 'Trim (dark)'. ^ (self named: themeName) in: [:theme | theme merge: (self named: 'Squeak') overwrite: true. theme name: themeName. "General morph stuff." theme set: #keyboardFocusColor for: #Morph to: self blue; + set: #keyboardFocusWidth for: #Morph to: 1. - set: #keyboardFocusWidth for: #Morph to: 2. theme set: #background for: #MorphicProject to: self backgroundForm. self addFonts: theme. self addWindowColors: theme. self addSyntaxHighlighting: theme. self addMenusAndDockingBars: theme. self addDialogs: theme. self addButtons: theme. self addScrollables: theme. self addToolColors: theme. theme]! Item was changed: + (PackageInfo named: 'System') postscript: 'UserInterfaceTheme cleanUpAndReset. "Reduces keyboardFocusWidth in themes because we now add borderWidth of scrollables extra. See Morph >> #drawKeyboardFocusIndicationOn:."'! - (PackageInfo named: 'System') postscript: 'SystemNavigation initializeAuthors. "Adds David O''Toole"'!

1 0

← Newer
1
2
3
4
5
6
7
8
9
...
20
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 February 2022