Squeak-dev January 2023

squeak-dev@lists.squeakfoundation.org

31 participants
224 discussions

The Trunk: HelpSystem-Core-mt.142.mcz
by commits＠source.squeak.org 27 Jan '23

27 Jan '23

Marcel Taeumel uploaded a new version of HelpSystem-Core to project The Trunk: http://source.squeak.org/trunk/HelpSystem-Core-mt.142.mcz ==================== Summary ==================== Name: HelpSystem-Core-mt.142 Author: mt Time: 27 January 2023, 3:30:24.814326 pm UUID: af2b0c63-e7c8-cf4a-bca1-c95e881be31c Ancestors: HelpSystem-Core-tpr.141 Model only. Use a more compact #itemName for help-topic wrappers. =============== Diff against HelpSystem-Core-tpr.141 =============== Item was added: + ----- Method: HelpTopicListItemWrapper>>itemName (in category 'accessing') ----- + itemName + + ^ self asString!

1 0

The Inbox: KernelTests-jar.442.mcz
by commits＠source.squeak.org 26 Jan '23

26 Jan '23

A new version of KernelTests was added to project The Inbox: http://source.squeak.org/inbox/KernelTests-jar.442.mcz ==================== Summary ==================== Name: KernelTests-jar.442 Author: jar Time: 26 January 2023, 10:37:59.494205 pm UUID: d69aa3b9-4497-6840-935d-1be1ea5f6b80 Ancestors: KernelTests-tpr.441 add setUp and tearDown methods to MonitorTest class to prevent tests from leaving unterminated (blocked on a semaphore) processes behind =============== Diff against KernelTests-tpr.441 =============== Item was changed: TestCase subclass: #MonitorTest + instanceVariableNames: 'semaphore' - instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'KernelTests-Processes'! Item was added: + ----- Method: MonitorTest>>setUp (in category 'as yet unclassified') ----- + setUp + + super setUp. + semaphore := Semaphore new.! Item was added: + ----- Method: MonitorTest>>tearDown (in category 'as yet unclassified') ----- + tearDown + "Release all processes still waiting at the semaphore or in the active priority queue." + + Processor yield. + [semaphore isEmpty] whileFalse: [semaphore signal]. + + super tearDown.! Item was changed: ----- Method: MonitorTest>>testCheckOwnerProcess (in category 'tests') ----- testCheckOwnerProcess self should: [Monitor new checkOwnerProcess] raise: Error. self shouldnt: [| m | m := Monitor new. m critical: [m checkOwnerProcess]] raise: Error. self should: [| s m | m := Monitor new. + [m critical: [s := #in. semaphore wait]] fork. - [m critical: [s := #in. Semaphore new wait]] fork. Processor yield. self assert: #in equals: s. m checkOwnerProcess] raise: Error! Item was changed: ----- Method: MonitorTest>>testCriticalIfLocked (in category 'tests') ----- testCriticalIfLocked | m s | m := Monitor new. self assert: #unlocked == (m critical: [#unlocked] ifLocked: [#locked]). + [m critical: [s := #in. semaphore wait]] fork. - [m critical: [s := #in. Semaphore new wait]] fork. Processor yield. self assert: #in equals: s. self assert: #locked equals: (m critical: [#unlocked] ifLocked: [#locked])!

1 0

(no subject)
by Jaromir Matas 26 Jan '23

26 Jan '23

Hi Marcel, all, For some reason my previous contributions that were either integrated into the Trunk or moved to the Treated box, have reappeared in the Inbox; has there been some server recovery that may have caused that? I can't say when that happened because I've checked the Inbox after a rather long pause. It kind of looks like I've spammed the Inbox :) Here's a list of all my Inbox files that shouldn't be there: Kernel-jar.1487 Kernel-jar.1368 Kernel-jar.1399 Kernel-jar.1415 Kernel-jar.1421 Kernel-jar.1447 Kernel-jar.1471 Kernel-jar.1468 Kernel-jar.1469 Kernel-jar.1470 Kernel-jar.1473 Kernel-jar.1475 Kernel-jar.1476 Kernel-jar.1477 Kernel-jar.1478 Tests-jar.466 Tests-jar.476 KernelTests-jar.393 KernelTests-jar.421 KernelTests-jar.426 up to 432 KernelTests-jar.433 KernelTests-jar.436 ToolsTests-jar.105 ToolsTests-jar.109 ToolsTests-jar.110 ToolsTests-jar.111 ToolsTests-jar.116 Tools-jar.1159 Tools-jar.1161 Here are the only ones that I'd like to keep in the Inbox: KernelTests-jar.437 (#testTerminateTerminatingProcessInUnwindTo) System-jar.1367 (#installLowSpaceWatcher fix) Kernel-jar.1480 (stepOver bug - latest; bug flagged in Trunk) Kernel-jar.1445 (#restart - simplify method) KernelTests-jar.418 (#priority bug - expected failure) Morphic-jar.2018 (doOneCycle) Many thanks for your help.. Best, Jaromir -- Jaromír Matas +420 777 492 777 mail(a)jaromir.net

1 0

The Trunk: ToolBuilder-Morphic-mt.328.mcz
by commits＠source.squeak.org 26 Jan '23

26 Jan '23

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.328.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.328 Author: mt Time: 26 January 2023, 4:12:17.889707 pm UUID: 1f707e6f-a9bf-c344-874a-5227b5d1f129 Ancestors: ToolBuilder-Morphic-mt.327 Avoid use of (recently) deprecated method. =============== Diff against ToolBuilder-Morphic-mt.327 =============== Item was changed: ----- Method: PluggableTreeMorph>>startDrag: (in category 'drag and drop') ----- startDrag: evt | itemMorph | self dragItemSelector ifNil: [^ self]. evt hand hasSubmorphs ifTrue: [^ self]. self model okToChange ifFalse: [^ self]. itemMorph := scroller submorphs detect: [:any | any highlightedForMouseDown] ifNone: [^ self]. "Prepare visuals." + itemMorph highlightedForMouseDown: false. - itemMorph highlightForMouseDown: false. self setSelectedMorph: itemMorph. [ "Initiate drag." (self model perform: self dragItemSelector with: itemMorph withoutListWrapper) ifNotNil: [:passenger | | ddm | ddm := (self valueOfProperty: #dragTransferClass ifAbsent: [TransferMorph]) withPassenger: passenger from: self. ddm dragTransferType: (self dragTypeSelector ifNotNil: [:s | self model perform: s with: itemMorph withoutListWrapper]). ddm updateFromUserInputEvent: evt. self dragStartedSelector ifNotNil: [:s | self model perform: s with: itemMorph with: ddm]. evt hand grabMorph: ddm]. ] ensure: [ Cursor normal show. evt hand releaseMouseFocus: self].!

1 0

The Trunk: Morphic-mt.2080.mcz
by commits＠source.squeak.org 26 Jan '23

26 Jan '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2080.mcz ==================== Summary ==================== Name: Morphic-mt.2080 Author: mt Time: 26 January 2023, 4:04:49.673707 pm UUID: b3d5d82c-7ba6-434e-9683-e00fcc9defb1 Ancestors: Morphic-mt.2079 Reset UI themes as colors for tree widgets have been updated. =============== Diff against Morphic-mt.2079 =============== Item was changed: + (PackageInfo named: 'Morphic') postscript: 'UserInterfaceTheme cleanUpAndReset.'! - (PackageInfo named: 'Morphic') postscript: 'TheWorldMainDockingBar updateInstances. "Fix ''Tools > Transcript'' to make it late-bound."'!

1 0

The Trunk: System-mt.1387.mcz
by commits＠source.squeak.org 26 Jan '23

26 Jan '23

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1387.mcz ==================== Summary ==================== Name: System-mt.1387 Author: mt Time: 26 January 2023, 4:01:44.653707 pm UUID: 2f717336-854b-5044-8cd1-f9f19005b047 Ancestors: System-mt.1386 Revert post-load script. It must be in Morphic because of package load order. =============== Diff against System-mt.1386 =============== Item was removed: - (PackageInfo named: 'System') postscript: 'UserInterfaceTheme cleanUpAndReset.'!

1 0

The Trunk: System-mt.1386.mcz
by commits＠source.squeak.org 26 Jan '23

26 Jan '23

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1386.mcz ==================== Summary ==================== Name: System-mt.1386 Author: mt Time: 26 January 2023, 3:57:50.818707 pm UUID: e7300c66-01f4-8144-aa96-1dec788404a3 Ancestors: System-mt.1385 Complements Morphic-mt.2079. Fixes color issue in Trim theme concerning tree highlights. =============== Diff against System-mt.1385 =============== Item was changed: ----- Method: CommunityTheme class>>addDarkScrollables: (in category 'instance creation') ----- addDarkScrollables: aUserInterfaceTheme "self createDark apply." "Scroll bars" aUserInterfaceTheme set: #thumbColor for: #ScrollBar to: self dbGray; set: #thumbBorderColor for: #ScrollBar to: self dbGray twiceDarker. "Scroll panes (includes generic stuff for list widgets, tree widgets, and text widgets." aUserInterfaceTheme set: #borderColor for: #ScrollPane to: (Color transparent) ; "So the search box isn't outlined." set: #color for: #ScrollPane to: self dbBackground. "List widgets" aUserInterfaceTheme set: #textColor for: #PluggableListMorph to: (Color gray: 0.9); set: #selectionColor for: #PluggableListMorph to: self dbSelection; set: #selectionTextColor for: #PluggableListMorph to: Color white ; derive: #multiSelectionColor for: #PluggableListMorph from: #PluggableListMorph at: #selectionColor do: [:c | c twiceDarker]; set: #filterColor for: #PluggableListMorph to: (self dbYellow alpha: 0.4); derive: #filterTextColor for: #PluggableListMorph from: #PluggableListMorph at: #textColor ; set: #preSelectionModifier for: #PluggableListMorph to: [ [:c | c twiceDarker ] ]; set: #hoverSelectionModifier for: #PluggableListMorph to: [ [:c | c twiceDarker alpha: 0.5 ] ]. "Tree widgets" aUserInterfaceTheme set: #highlightTextColor for: #SimpleHierarchicalListMorph to: self dbYellow lighter lighter; + set: #lineColor for: #SimpleHierarchicalListMorph to: Color gray; + set: #toggleColor for: #SimpleHierarchicalListMorph to: (Color gray: 0.9). - set: #lineColor for: #SimpleHierarchicalListMorph to: Color gray. "Text widgets" aUserInterfaceTheme set: #textColor for: #PluggableTextMorph to: (Color gray: 0.9); set: #caretColor for: #PluggableTextMorph to: Color orange darker; set: #selectionColor for: #PluggableTextMorph to: (self dbSelection duller duller); set: #unfocusedSelectionModifier for: #PluggableTextMorph to: [ [:c | c duller] ]; set: #adornmentReadOnly for: #PluggableTextMorph to: self dbPurple; set: #adornmentRefuse for: #PluggableTextMorph to: self dbBlue; set: #adornmentConflict for: #PluggableTextMorph to: self dbRed; set: #adornmentDiff for: #PluggableTextMorph to: self dbGreen; set: #adornmentNormalEdit for: #PluggableTextMorph to: self dbOrange; set: #adornmentDiffEdit for: #PluggableTextMorph to: self dbYellow; set: #frameAdornmentWidth for: #PluggableTextMorph to: 2. aUserInterfaceTheme set: #balloonTextColor for: #PluggableTextMorphPlus to: self dbComment! Item was changed: ----- Method: MonokaiTheme class>>addDarkScrollables: (in category 'instance creation') ----- addDarkScrollables: theme "self createDark apply." "Scroll bars" theme set: #thumbColor for: #ScrollBar to: self backgroundColor; set: #thumbBorderColor for: #ScrollBar to: self backgroundColor; set: #thumbBorderWidth for: #ScrollBar to: 1; set: #thumbColorModifier for: #ScrollBar to: [ [:c | c adjustBrightness: -0.2] ]; set: #pagingAreaColorModifier for: #ScrollBar to: [ [:c | Color transparent ] ]; set: #borderColorModifier for: #ScrollBar to: [ [:c | c adjustBrightness: -0.2] ]. "Scroll panes (includes generic stuff for list widgets, tree widgets, and text widgets." theme set: #borderWidth for: #ScrollPane to: 0; " set: #borderColor for: #ScrollPane to: Color transparent;" set: #color for: #ScrollPane to: self backgroundColor. "List widgets" theme set: #textColor for: #PluggableListMorph to: self foregroundColor; set: #selectionColor for: #PluggableListMorph to: self invisibleColor; set: #selectionTextColor for: #PluggableListMorph to: self yellow; set: #filterColor for: #PluggableListMorph to: self yellow; set: #filterTextColor for: #PluggableListMorph to: self backgroundColor; set: #preSelectionModifier for: #PluggableListMorph to: [ [:c | c lighter alpha: 0.5 ] ]; set: #hoverSelectionModifier for: #PluggableListMorph to: [ [:c | c lighter alpha: 0.5 ] ]. "Tree widgets" theme set: #highlightTextColor for: #SimpleHierarchicalListMorph to: self yellow lighter lighter; + set: #lineColor for: #SimpleHierarchicalListMorph to: self grayLight; + set: #toggleColor for: #SimpleHierarchicalListMorph to: self grayLightest. - set: #lineColor for: #SimpleHierarchicalListMorph to: self grayLight. "Text widgets" theme set: #textColor for: #PluggableTextMorph to: self foregroundColor; set: #caretColor for: #PluggableTextMorph to: self yellow; set: #selectionColor for: #PluggableTextMorph to: self invisibleColor; set: #unfocusedSelectionModifier for: #PluggableTextMorph to: [ [:c | (Color r: 0.285 g: 0.282 b: 0.242) "invisible color"] ]; set: #adornmentReadOnly for: #PluggableTextMorph to: self magenta; set: #adornmentRefuse for: #PluggableTextMorph to: self cyan; set: #adornmentConflict for: #PluggableTextMorph to: self red; set: #adornmentDiff for: #PluggableTextMorph to: self green; set: #adornmentNormalEdit for: #PluggableTextMorph to: self orange; set: #adornmentDiffEdit for: #PluggableTextMorph to: self yellow. theme set: #balloonTextColor for: #PluggableTextMorphPlus to: self grayLight.! Item was changed: ----- Method: SolarizedTheme class>>addDarkScrollables: (in category 'instance creation') ----- addDarkScrollables: theme "self createDark apply." "Scroll bars" theme set: #thumbColor for: #ScrollBar to: self darkBackground; set: #thumbBorderColor for: #ScrollBar to: self darkBackground; set: #thumbBorderWidth for: #ScrollBar to: 1; set: #thumbColorModifier for: #ScrollBar to: [ [:c | c adjustBrightness: -0.1] ]; set: #pagingAreaColorModifier for: #ScrollBar to: [ [:c | Color transparent ] ]; set: #borderColorModifier for: #ScrollBar to: [ [:c | c adjustBrightness: -0.1] ]. "Scroll panes (includes generic stuff for list widgets, tree widgets, and text widgets." theme set: #borderWidth for: #ScrollPane to: 0; " set: #borderColor for: #ScrollPane to: Color transparent;" set: #color for: #ScrollPane to: self darkBackground. "List widgets" theme set: #textColor for: #PluggableListMorph to: self darkContentEmphasized; set: #selectionColor for: #PluggableListMorph to: self darkSelectionColor; set: #selectionTextColor for: #PluggableListMorph to: self darkSelectionTextColor; set: #filterColor for: #PluggableListMorph to: self yellow; set: #filterTextColor for: #PluggableListMorph to: self base03; set: #preSelectionModifier for: #PluggableListMorph to: [ [:c | c lighter alpha: 0.5 ] ]; set: #hoverSelectionModifier for: #PluggableListMorph to: [ [:c | c lighter alpha: 0.5 ] ]. "Tree widgets" theme set: #highlightTextColor for: #SimpleHierarchicalListMorph to: self yellow lighter lighter; + set: #lineColor for: #SimpleHierarchicalListMorph to: self darkBackgroundHighlights; + set: #toggleColor for: #SimpleHierarchicalListMorph to: self darkContentSecondary. - set: #lineColor for: #SimpleHierarchicalListMorph to: self darkContentSecondary. "Text widgets" theme set: #textColor for: #PluggableTextMorph to: self darkContentPrimary; set: #caretColor for: #PluggableTextMorph to: self darkContentEmphasizedMore; set: #selectionColor for: #PluggableTextMorph to: self darkSelectionColor; set: #unfocusedSelectionModifier for: #PluggableTextMorph to: [ [:c | c darker ] ]; set: #adornmentReadOnly for: #PluggableTextMorph to: self magenta; set: #adornmentRefuse for: #PluggableTextMorph to: self cyan; set: #adornmentConflict for: #PluggableTextMorph to: self red; set: #adornmentDiff for: #PluggableTextMorph to: self green; set: #adornmentNormalEdit for: #PluggableTextMorph to: self orange; set: #adornmentDiffEdit for: #PluggableTextMorph to: self yellow. theme set: #balloonTextColor for: #PluggableTextMorphPlus to: self darkContentSecondary.! Item was changed: ----- Method: SolarizedTheme class>>addLightScrollables: (in category 'instance creation') ----- addLightScrollables: theme "self createLight apply." "Scroll bars" theme set: #thumbColor for: #ScrollBar to: self lightBackground; set: #thumbBorderColor for: #ScrollBar to: self lightBackground; set: #thumbBorderWidth for: #ScrollBar to: 1; set: #thumbColorModifier for: #ScrollBar to: [ [:c | c adjustBrightness: -0.1] ]; set: #pagingAreaColorModifier for: #ScrollBar to: [ [:c | Color transparent ] ]; set: #borderColorModifier for: #ScrollBar to: [ [:c | c adjustBrightness: -0.1] ]. "Scroll panes (includes generic stuff for list widgets, tree widgets, and text widgets." theme set: #borderWidth for: #ScrollPane to: 0; " set: #borderColor for: #ScrollPane to: Color transparent;" set: #color for: #ScrollPane to: self lightBackground. "List widgets" theme set: #textColor for: #PluggableListMorph to: self lightContentEmphasized; set: #selectionColor for: #PluggableListMorph to: self lightBackgroundHighlights darker; set: #selectionTextColor for: #PluggableListMorph to: self lightContentEmphasizedMore; derive: #multiSelectionColor for: #PluggableListMorph from: #PluggableListMorph at: #selectionColor do: [:c | c darker]; set: #filterColor for: #PluggableListMorph to: self yellow; set: #filterTextColor for: #PluggableListMorph to: self lightBackground; set: #preSelectionModifier for: #PluggableListMorph to: [ [:c | c darker alpha: 0.5 ] ]; set: #hoverSelectionModifier for: #PluggableListMorph to: [ [:c | c darker alpha: 0.5 ] ]. "Tree widgets" theme set: #highlightTextColor for: #SimpleHierarchicalListMorph to: self yellow lighter lighter; + set: #lineColor for: #SimpleHierarchicalListMorph to: self lightBackgroundHighlights; + set: #toggleColor for: #SimpleHierarchicalListMorph to: self lightContentSecondary. - set: #lineColor for: #SimpleHierarchicalListMorph to: self lightContentSecondary. "Text widgets" theme set: #textColor for: #PluggableTextMorph to: self lightContentPrimary; set: #caretColor for: #PluggableTextMorph to: self lightContentEmphasizedMore; set: #selectionColor for: #PluggableTextMorph to: self lightBackgroundHighlights darker; set: #unfocusedSelectionModifier for: #PluggableTextMorph to: [ [:c | (Color r: 0.933 g: 0.909 b: 0.835) "light background highlights"] ]; set: #adornmentReadOnly for: #PluggableTextMorph to: self magenta; set: #adornmentRefuse for: #PluggableTextMorph to: self cyan; set: #adornmentConflict for: #PluggableTextMorph to: self red; set: #adornmentDiff for: #PluggableTextMorph to: self green; set: #adornmentNormalEdit for: #PluggableTextMorph to: self orange; set: #adornmentDiffEdit for: #PluggableTextMorph to: self yellow. theme set: #balloonTextColor for: #PluggableTextMorphPlus to: self lightContentSecondary.! Item was changed: ----- Method: SqueakTheme class>>addDullerScrollables: (in category 'instance creation') ----- addDullerScrollables: theme "self createDuller apply" theme + set: #filterColor for: #PluggableListMorph to: Color yellow paler duller; + set: #lineColor for: #SimpleHierarchicalListMorph to: Color veryVeryLightGray duller; + set: #toggleColor for: #SimpleHierarchicalListMorph to: Color lightGray duller.! - set: #filterColor for: #PluggableListMorph to: Color yellow paler duller.! Item was changed: ----- Method: SqueakTheme class>>addScrollables: (in category 'instance creation') ----- addScrollables: theme "self create apply" "Sliders" theme set: #borderColor for: #Slider to: Color gray; set: #borderWidth for: #Slider to: 1; set: #color for: #Slider to: Color lightGray; set: #thumbBorderColor for: #Slider to: [Color gray: 0.6]; set: #thumbBorderWidth for: #Slider to: 0; set: #thumbColor for: #Slider to: Color veryVeryLightGray; set: #thumbShadowModifier for: #Slider to: [ [:c | c alpha: 0.7] ]. "Scroll bars" theme set: #thumbBorderWidth for: #ScrollBar to: 1; set: #thumbColorModifier for: #ScrollBar to: [ [:c | c] ]; set: #pagingAreaColorModifier for: #ScrollBar to: [ [:c | c darker alpha: 0.35] ]; set: #borderColorModifier for: #ScrollBar to: [ [:c | c adjustBrightness: -0.3] ]. "Scroll panes (includes generic stuff for list widgets, tree widgets, and text widgets." theme set: #borderColor for: #ScrollPane to: (Color gray: 0.6); set: #borderWidth for: #ScrollPane to: 1; set: #borderStyle for: #ScrollPane to: BorderStyle simple; set: #color for: #ScrollPane to: Color white. "List widgets" theme set: #font for: #PluggableListMorph to: [Preferences standardListFont]; set: #textColor for: #PluggableListMorph to: Color black; set: #selectionColor for: #PluggableListMorph to: (Color r: 0.72 g: 0.72 b: 0.9); derive: #multiSelectionColor for: #PluggableListMorph from: #PluggableListMorph at: #selectionColor do: [:c | c lighter]; set: #selectionTextColor for: #PluggableListMorph to: Color black; set: #filterColor for: #PluggableListMorph to: Color yellow paler; set: #filterTextColor for: #PluggableListMorph to: Color black; set: #preSelectionModifier for: #PluggableListMorph to: [ [:c | Color gray: 0.9] ]; set: #hoverSelectionModifier for: #PluggableListMorph to: [ [:c | c darker alpha: 0.3] ]. "Tree widgets" theme derive: #font for: #SimpleHierarchicalListMorph from: #PluggableListMorph; derive: #textColor for: #SimpleHierarchicalListMorph from: #PluggableListMorph; derive: #selectionColor for: #SimpleHierarchicalListMorph from: #PluggableListMorph; derive: #selectionTextColor for: #SimpleHierarchicalListMorph from: #PluggableListMorph; derive: #filterColor for: #SimpleHierarchicalListMorph from: #PluggableListMorph; derive: #filterTextColor for: #SimpleHierarchicalListMorph from: #PluggableListMorph; derive: #hoverSelectionModifier for: #SimpleHierarchicalListMorph from: #PluggableListMorph; set: #highlightTextColor for: #SimpleHierarchicalListMorph to: Color fern; + set: #lineColor for: #SimpleHierarchicalListMorph to: Color veryVeryLightGray; + set: #toggleColor for: #SimpleHierarchicalListMorph to: Color lightGray. - set: #lineColor for: #SimpleHierarchicalListMorph to: Color veryLightGray. "Text widgets" theme set: #font for: #PluggableTextMorph to: [TextStyle defaultFont]; set: #textStyle for: #PluggableTextMorph to: [TextStyle default]; set: #textStyleFixed for: #PluggableTextMorph to: [TextStyle defaultFixed]; set: #textColor for: #PluggableTextMorph to: Color black; set: #caretColor for: #PluggableTextMorph to: Color red; set: #selectionColor for: #PluggableTextMorph to: (TranslucentColor r: 0.0 g: 0.0 b: 0.8 alpha: 0.2); set: #unfocusedSelectionModifier for: #PluggableTextMorph to: [ [:c | Color gray: 0.9] ]; set: #adornmentReadOnly for: #PluggableTextMorph to: Color black; set: #adornmentRefuse for: #PluggableTextMorph to: Color tan; set: #adornmentConflict for: #PluggableTextMorph to: Color red; set: #adornmentDiff for: #PluggableTextMorph to: Color green; set: #adornmentNormalEdit for: #PluggableTextMorph to: Color orange; set: #adornmentDiffEdit for: #PluggableTextMorph to: Color yellow; set: #frameAdornmentWidth for: #PluggableTextMorph to: 1. theme set: #balloonTextColor for: #PluggableTextMorphPlus to: (Color gray: 0.7); derive: #balloonTextFont for: #PluggableTextMorphPlus from: #PluggableTextMorph at: #font.! Item was changed: ----- Method: TrimTheme class>>addScrollables: (in category 'instance creation') ----- addScrollables: theme "self create apply" "Sliders" theme set: #borderColor for: #Slider to: self gray76; set: #borderWidth for: #Slider to: 1; set: #color for: #Slider to: self gray61; set: #thumbBorderColor for: #Slider to: self gray61; set: #thumbBorderWidth for: #Slider to: 1; set: #thumbColor for: #Slider to: self gray128; set: #thumbShadowModifier for: #Slider to: [ [:c | c alpha: 0.7] ]. "Scroll bars" theme set: #thumbBorderWidth for: #ScrollBar to: 1; set: #thumbColorModifier for: #ScrollBar to: [ [:c | c adjustBrightness: 0.2] ]; "set: #pagingAreaColorModifier for: #ScrollBar to: [ [:c | self gray51] ];" set: #borderColorModifier for: #ScrollBar to: [ [:c | c adjustBrightness: 0.2] ]. "Scroll panes (includes generic stuff for list widgets, tree widgets, and text widgets." theme set: #borderColor for: #ScrollPane to: self gray76; set: #borderWidth for: #ScrollPane to: 1; set: #borderStyle for: #ScrollPane to: BorderStyle simple; set: #color for: #ScrollPane to: self gray51. "List widgets" theme set: #textColor for: #PluggableListMorph to: self white; set: #selectionColor for: #PluggableListMorph to: self blue; derive: #multiSelectionColor for: #PluggableListMorph from: #PluggableListMorph at: #selectionColor do: [:c | c lighter]; set: #selectionTextColor for: #PluggableListMorph to: self white; set: #filterColor for: #PluggableListMorph to: self orange; set: #filterTextColor for: #PluggableListMorph to: self white; set: #preSelectionModifier for: #PluggableListMorph to: [ [:c | c alpha: 0.3] ]; set: #hoverSelectionModifier for: #PluggableListMorph to: [ [:c | c darker alpha: 0.3] ]. "Tree widgets" theme + set: #highlightTextColor for: #SimpleHierarchicalListMorph to: self red; + set: #lineColor for: #SimpleHierarchicalListMorph to: self gray102; + set: #toggleColor for: #SimpleHierarchicalListMorph to: self gray168. - set: #higlightTextColor for: #SimpleHierarchicalListMorph to: self red; - set: #lineColor for: #SimpleHierarchicalListMorph to: self gray168. "Text widgets" theme set: #textColor for: #PluggableTextMorph to: self white; set: #caretColor for: #PluggableTextMorph to: self white; set: #selectionColor for: #PluggableTextMorph to: (self blue alpha: 0.4); set: #unfocusedSelectionModifier for: #PluggableTextMorph to: [ [:c | self blue alpha: 0.3] ]; set: #adornmentReadOnly for: #PluggableTextMorph to: self black; set: #adornmentRefuse for: #PluggableTextMorph to: self blue; set: #adornmentConflict for: #PluggableTextMorph to: self red; set: #adornmentDiff for: #PluggableTextMorph to: self green; set: #adornmentNormalEdit for: #PluggableTextMorph to: self orange; set: #adornmentDiffEdit for: #PluggableTextMorph to: self yellow; set: #frameAdornmentWidth for: #PluggableTextMorph to: 1. theme set: #balloonTextColor for: #PluggableTextMorphPlus to: self gray102.! Item was changed: + (PackageInfo named: 'System') postscript: 'UserInterfaceTheme cleanUpAndReset.'! - (PackageInfo named: 'System') postscript: '"Update UserInterfaceTheme instances (System-ct.1367)" - UserInterfaceTheme allSubInstancesDo: [:theme | - theme atomicUpdate: [:props | - props copy keysAndValuesDo: [:key :value | - (key isKindOf: Association) ifTrue: [ - props - removeKey: key; - at: {key key. key value} put: value]]]].'!

1 0

The Trunk: Morphic-mt.2079.mcz
by commits＠source.squeak.org 26 Jan '23

26 Jan '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2079.mcz ==================== Summary ==================== Name: Morphic-mt.2079 Author: mt Time: 26 January 2023, 3:56:10.952707 pm UUID: 8f7b7dc9-421d-0f45-ae47-b6cc89bde14d Ancestors: Morphic-mt.2078 Improves #uiScaleFactor support for tree widgets. =============== Diff against Morphic-mt.2078 =============== Item was changed: ----- Method: IndentingListItemMorph>>drawLineToggleToTextOn:lineColor:hasToggle: (in category 'drawing') ----- drawLineToggleToTextOn: aCanvas lineColor: lineColor hasToggle: hasToggle "If I am not the only item in my container, draw the line between: - my toggle (if any) or my left edge (if no toggle) - and my text left edge" | myBounds myCenter hLineY hLineLeft | self isSoleItem ifTrue: [ ^self ]. + self canExpand ifTrue: [ ^self ]. myBounds := self toggleBounds. myCenter := myBounds center. hLineY := myCenter y. + hLineLeft := myCenter x. - hLineLeft := myCenter x - 1. "Draw line from toggle to text" aCanvas line: hLineLeft @ hLineY + to: myBounds right @ hLineY + width: 1 px - to: myBounds right + 0 @ hLineY - width: 1 color: lineColor! Item was changed: ----- Method: IndentingListItemMorph>>drawLinesToFirstChildOn:lineColor: (in category 'drawing') ----- drawLinesToFirstChildOn: aCanvas lineColor: lineColor "Draw line from me to next sibling" | child vLineX vLineTop vLineBottom childBounds childCenter | child := self firstVisibleChild. childBounds := child toggleBounds. childCenter := childBounds center. + vLineX := childCenter x. - vLineX := childCenter x - 1. vLineTop := bounds bottom. + vLineBottom := childCenter y. - child hasToggle - ifTrue: [vLineBottom := childCenter y - 7] - ifFalse: [vLineBottom := childCenter y]. aCanvas line: vLineX @ vLineTop to: vLineX @ vLineBottom + width: 1 px - width: 1 color: lineColor! Item was changed: ----- Method: IndentingListItemMorph>>drawLinesToNextSiblingOn:lineColor:hasToggle: (in category 'drawing') ----- drawLinesToNextSiblingOn: aCanvas lineColor: lineColor hasToggle: hasToggle | myBounds nextSibBounds vLineX myCenter vLineTop vLineBottom | myBounds := self toggleBounds. nextSibBounds := self nextVisibleSibling toggleBounds. myCenter := myBounds center. + vLineX := myCenter x . - vLineX := myCenter x - 1. vLineTop := myCenter y. vLineBottom := nextSibBounds center y. "Draw line from me to next sibling" aCanvas line: vLineX @ vLineTop to: vLineX @ vLineBottom + width: 1 px - width: 1 color: lineColor! Item was changed: ----- Method: IndentingListItemMorph>>drawToggleOn:in: (in category 'drawing') ----- drawToggleOn: aCanvas in: aRectangle | aForm centeringOffset | + self canExpand ifFalse: [^self]. - complexContents hasContents ifFalse: [^self]. aForm := isExpanded ifTrue: [container expandedForm] ifFalse: [container notExpandedForm]. + centeringOffset := (aRectangle extent - aForm extent) // 2. + isExpanded ifFalse: [centeringOffset := centeringOffset + (1 px @ 0)]. - centeringOffset := ((aRectangle height - aForm extent y) / 2.0) rounded. ^aCanvas paintImage: aForm + at: aRectangle topLeft + centeringOffset. - at: (aRectangle topLeft translateBy: 0 @ centeringOffset). ! Item was changed: ----- Method: SimpleHierarchicalListMorph class>>expandedForm (in category 'instance creation') ----- expandedForm + + ^ ExpandedForm ifNil: [ExpandedForm := + ScrollBar + arrowOfDirection: #bottom + size: 11 px + color: ((self userInterfaceTheme get: #toggleColor for: #SimpleHierarchicalListMorph) ifNil: [Color gray])]! - 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 ifNil: [NotExpandedForm := + ScrollBar + arrowOfDirection: #right + size: 11 px + color: ((self userInterfaceTheme get: #toggleColor for: #SimpleHierarchicalListMorph) ifNil: [Color gray])]! - 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: Tools-mt.1188.mcz
by commits＠source.squeak.org 26 Jan '23

26 Jan '23

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1188.mcz ==================== Summary ==================== Name: Tools-mt.1188 Author: mt Time: 26 January 2023, 2:21:10.241707 pm UUID: 0e1eafb2-0e74-374b-8c3b-b47b0e7ea671 Ancestors: Tools-mt.1187 Fixes "remember window extent" for ObjectExplorer. Note that either #windowTitle or #labelString should be used for window labels at this point. See implementors and senders of #windowTitle. =============== Diff against Tools-mt.1187 =============== Item was changed: ----- Method: ObjectExplorer>>buildWith: (in category 'toolbuilder') ----- buildWith: builder | windowSpec treeSpec textSpec buttonSpec buttonOffset tool | windowSpec := builder pluggableWindowSpec new. windowSpec model: self; children: OrderedCollection new; + label: #windowTitle. - label: #label; - extent: self initialExtent. treeSpec := builder pluggableTreeSpec new. treeSpec model: self; nodeClass: self class nodeClass; roots: #getList; keyPress: #explorerKey:from:event:; getSelected: #currentSelection; setSelected: #currentSelection:; setSelectedParent: #currentParent:; menu: #genericMenu:; dragItem: #getDragItem:; autoDeselect: false; columns: (ObjectExplorerWrapper showContentsInColumns ifTrue: [{ [:listMorph | (listMorph filteredItems collect: [:item | item preferredWidthOfColumn: 1]) max]. nil "take all the space"}]); frame: (0@0 corner: 1(a)0.71). windowSpec children add: treeSpec. buttonOffset := (Preferences standardButtonFont widthOfString: 'inspect') * 3/2. textSpec := builder pluggableCodePaneSpec new. textSpec model: self; getText: #expression; editText: #expression:; menu: #codePaneMenu:shifted:; help: 'Evaluate expressions for the current tree selection...' translated; frame: (LayoutFrame fractions: (0(a)0.71 corner: 1@1) offsets: (0@0 corner: buttonOffset negated@0)). windowSpec children add: textSpec. buttonSpec := builder pluggableButtonSpec new model: self; label: 'inspect'; action: #inspectObject; help: 'Switch to an inspector tool'; frame: (LayoutFrame fractions: (1(a)0.71 corner: 1@1) offsets: (buttonOffset negated@0 corner: 0 @ 0)). windowSpec children add: buttonSpec. tool := builder build: windowSpec. self changed: #expandRootsRequested. ^ tool! Item was changed: ----- Method: ObjectExplorer>>label (in category 'accessing') ----- label + self flag: #deprecated. + ^ self labelString! - ^ [self rootObject printStringLimitedTo: 40] ifError: ['a ' , self rootObject class]! Item was added: + ----- Method: ObjectExplorer>>labelString (in category 'accessing') ----- + labelString + + ^ [self rootObject printStringLimitedTo: 40] ifError: ['a ' , self rootObject class]!

1 0

The Trunk: Morphic-mt.2078.mcz
by commits＠source.squeak.org 26 Jan '23

26 Jan '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2078.mcz ==================== Summary ==================== Name: Morphic-mt.2078 Author: mt Time: 26 January 2023, 2:09:30.619707 pm UUID: 02dcfdf2-6b63-4244-8c88-253dd7aa928f Ancestors: Morphic-mt.2077 In tree widgets, fixes redudant selection updates and thus inadvertent node refresh. =============== Diff against Morphic-mt.2077 =============== Item was changed: ----- Method: SimpleHierarchicalListMorph>>arrowKey: (in category 'keyboard navigation') ----- arrowKey: asciiValue "Handle a keyboard navigation character. Answer true if handled, false if not." | keyEvent max oldSelection nextSelection howManyItemsShowing keyHandled | keyHandled := false. keyEvent := asciiValue. max := self maximumSelection. nextSelection := oldSelection := self getSelectionIndex. keyEvent = 31 ifTrue:["down" self currentEvent shiftPressed ifTrue: [ self selectedMorph nextVisibleSibling + ifNil: [^ true] - ifNil: [^ false] ifNotNil: [:m | self setSelectedMorph: m. ^ true]]. keyHandled := true. nextSelection :=oldSelection + 1. + nextSelection > max ifTrue: [nextSelection := (self class wrappedNavigation ifTrue: [1] ifFalse: [^ true])]]. - nextSelection > max ifTrue: [nextSelection := (self class wrappedNavigation ifTrue: [1] ifFalse: [max])]]. keyEvent = 30 ifTrue:["up" self currentEvent shiftPressed ifTrue: [ self selectedMorph previousVisibleSibling + ifNil: [^ true] - ifNil: [^ false] ifNotNil: [:m | self setSelectedMorph: m. ^ true]]. keyHandled := true. nextSelection := oldSelection - 1. + nextSelection < 1 ifTrue: [nextSelection := self class wrappedNavigation ifTrue: [max] ifFalse: [^ true]]]. - nextSelection < 1 ifTrue: [nextSelection := self class wrappedNavigation ifTrue: [max] ifFalse: [1]]]. keyEvent = 1 ifTrue: ["home" keyHandled := true. nextSelection := 1]. keyEvent = 4 ifTrue: ["end" keyHandled := true. nextSelection := max]. howManyItemsShowing := self numSelectionsInView. keyEvent = 11 ifTrue: ["page up" keyHandled := true. nextSelection := 1 max: oldSelection - howManyItemsShowing]. keyEvent = 12 ifTrue: ["page down" keyHandled := true. nextSelection := oldSelection + howManyItemsShowing min: max]. (nextSelection ~= oldSelection or: [ keyHandled and: [ self class wrappedNavigation not ]]) ifTrue: [ self setSelectionIndex: nextSelection. ^ true]. keyEvent = 29 ifTrue:["right" selectedMorph ifNotNil:[ (selectedMorph canExpand and:[selectedMorph isExpanded not]) ifTrue:[self toggleExpandedState: selectedMorph] ifFalse:[self setSelectionIndex: self getSelectionIndex+1]. ]. ^true]. keyEvent = 28 ifTrue:["left" selectedMorph ifNotNil:[ (selectedMorph isExpanded) ifTrue:[self toggleExpandedState: selectedMorph] ifFalse:[ self selectedParentMorph ifNil: [self setSelectionIndex: (self getSelectionIndex-1 max: 1)] ifNotNil: [:pm | self setSelectedMorph: pm]] ]. ^true]. ^false!

1 0

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

Jump to page: