Packages August 2016

packages@lists.squeakfoundation.org

1 participants
528 discussions

The Trunk: MorphicExtras-pre.180.mcz
by commits＠source.squeak.org 04 Aug '16

04 Aug '16

Patrick Rein uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-pre.180.mcz ==================== Summary ==================== Name: MorphicExtras-pre.180 Author: pre Time: 4 August 2016, 12:43:42.582407 pm UUID: 0c786ccd-27d9-4a44-a5be-d488104568ae Ancestors: MorphicExtras-eem.179 Fixes a test by re-ordering the way the trashcanmorph images are set. Otherwise, through unexpected side effects it would try to get the extent of the offimage which is not yet set. =============== Diff against MorphicExtras-eem.179 =============== Item was changed: ----- Method: TrashCanMorph>>initialize (in category 'initialization') ----- initialize "Initialize the receiver's graphics, name, and balloon-help" super initialize. + self offImage: TrashPic; + pressedImage: TrashPicOn; + image: TrashPicOn. - self image: TrashPicOn; - offImage: TrashPic; - pressedImage: TrashPicOn. self setNameTo: 'Trash' translated. self setBalloonText: 'To remove an object, drop it on any trash can. To view, and maybe retrieve, items that have been thrown away, double-click on any trash-can. Things are retained in the trash-can if the "preserveTrash" preference is set, otherwise they are purged immediately' translated. !

1 0

The Trunk: Morphic-pre.1229.mcz
by commits＠source.squeak.org 04 Aug '16

04 Aug '16

Patrick Rein uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-pre.1229.mcz ==================== Summary ==================== Name: Morphic-pre.1229 Author: pre Time: 4 August 2016, 12:40:48.215407 pm UUID: 4d9cc4e1-e64b-f946-8a54-1e329d9e4d5a Ancestors: Morphic-mt.1228 Fixes the handling of block provided answers to send out the message instead of the window title and to deal with a request for the default value. =============== Diff against Morphic-mt.1228 =============== Item was changed: ----- Method: DialogWindow>>getUserResponse (in category 'running') ----- getUserResponse | hand world | + (ProvideAnswerNotification signal: self message asString) + ifNotNil: [:answer| + ^ answer = #default + ifTrue: [result] + ifFalse: [answer]]. - (ProvideAnswerNotification signal: self title asString) ifNotNil: [:answer| ^ answer]. self message ifEmpty: [messageMorph delete]. "Do not waste space." self paneMorph submorphs ifEmpty: [self paneMorph delete]. "Do not waste space." hand := self currentHand. world := self currentWorld. self fullBounds. self center: preferredPosition. self bounds: (self bounds translatedToBeWithin: world bounds). self openInWorld: world. hand keyboardFocus in: [:priorKeyboardFocus | hand mouseFocus in: [:priorMouseFocus | self exclusive ifTrue: [hand newMouseFocus: self]. hand newKeyboardFocus: self. [self isInWorld] whileTrue:[world doOneSubCycle]. hand newKeyboardFocus: priorKeyboardFocus. self exclusive ifTrue: [ hand newMouseFocus: priorMouseFocus]]]. ^ result!

1 0

The Trunk: MorphicExtras-eem.179.mcz
by commits＠source.squeak.org 04 Aug '16

04 Aug '16

Eliot Miranda uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-eem.179.mcz ==================== Summary ==================== Name: MorphicExtras-eem.179 Author: eem Time: 3 August 2016, 7:42:04.74973 pm UUID: 7e0dd147-e862-4ad7-9218-8de41bb8b81b Ancestors: MorphicExtras-tfel.178 Use allInsyancesDo: instead of someInstance/nextInstance to remove grab commands from MorphExtensions. P.S. to improve start-up time we might consider moving these to snapshot time, if at all possible. =============== Diff against MorphicExtras-tfel.178 =============== Item was removed: - ----- Method: CommandHistory class>>forgetAllGrabCommandsFrom: (in category 'system startup') ----- - forgetAllGrabCommandsFrom: starterInstance - "Forget all the commands that might be held on to in the properties dicitonary of various morphs for various reasons." - - | object | - object := starterInstance. - [ - [nil == object] whileFalse: [ - object removeProperty: #undoGrabCommand. - object := object nextInstance]. - ] ifError: [:err :rcvr | "object is obsolete" - self forgetAllGrabCommandsFrom: object nextInstance]. - - "CommandHistory forgetAllGrabCommandsFrom: MorphExtension someInstance" - ! Item was changed: ----- Method: CommandHistory class>>resetAllHistory (in category 'system startup') ----- resetAllHistory "Reset all command histories, and make all morphs that might be holding on to undo-grab-commands forget them" self allInstancesDo: [:c | c resetCommandHistory]. MorphExtension withAllSubclassesDo: + [:morphExtensionClass| + morphExtensionClass allInstancesDo: + [:object| object removeProperty: #undoGrabCommand]] - [:mexc| - self forgetAllGrabCommandsFrom: mexc someInstance] "CommandHistory resetAllHistory" !

1 0

The Trunk: Monticello-mt.643.mcz
by commits＠source.squeak.org 03 Aug '16

03 Aug '16

Marcel Taeumel uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-mt.643.mcz ==================== Summary ==================== Name: Monticello-mt.643 Author: mt Time: 3 August 2016, 5:12:29.133179 pm UUID: 75d22f47-6cf5-5d44-9416-dd46377863ec Ancestors: Monticello-mt.642 Fixes the merge button in MC's merge browser. =============== Diff against Monticello-mt.642 =============== Item was changed: ----- Method: MCMergeBrowser>>chooseAllNewerConflicts (in category 'as yet unclassified') ----- chooseAllNewerConflicts conflicts do: [ :ea | ea chooseNewer ]. + self changed: #text; changed: #list; changed: #canMerge.! - self changed: #text; changed: #list.! Item was changed: ----- Method: MCMergeBrowser>>chooseAllOlderConflicts (in category 'as yet unclassified') ----- chooseAllOlderConflicts conflicts do: [ :ea | ea chooseOlder ]. + self changed: #text; changed: #list; changed: #canMerge.! - self changed: #text; changed: #list.! Item was changed: ----- Method: MCMergeBrowser>>chooseAllSameAST (in category 'as yet unclassified') ----- chooseAllSameAST conflicts do: [ :ea | ea chooseSameAST ]. + self changed: #text; changed: #list; changed: #canMerge.! - self changed: #text; changed: #list.! Item was changed: ----- Method: MCMergeBrowser>>chooseAllUnchosenLocal (in category 'as yet unclassified') ----- chooseAllUnchosenLocal conflicts do: [ :ea | ea isResolved ifFalse: [ ea chooseLocal ] ]. + self changed: #text; changed: #list; changed: #canMerge.! - self changed: #text; changed: #list.! Item was changed: ----- Method: MCMergeBrowser>>chooseAllUnchosenRemote (in category 'as yet unclassified') ----- chooseAllUnchosenRemote conflicts do: [ :ea | ea isResolved ifFalse: [ ea chooseRemote ] ]. + self changed: #text; changed: #list; changed: #canMerge.! - self changed: #text; changed: #list.! Item was changed: ----- Method: MCMergeBrowser>>chooseLocal (in category 'as yet unclassified') ----- chooseLocal self conflictSelectionDo: [selection chooseLocal. + self changed: #text; changed: #list; changed: #canMerge]. - self changed: #text; changed: #list]. self selectNextUnresolvedConflict! Item was changed: ----- Method: MCMergeBrowser>>chooseRemote (in category 'as yet unclassified') ----- chooseRemote self conflictSelectionDo: [selection chooseRemote. + self changed: #text; changed: #list; changed: #canMerge]. - self changed: #text; changed: #list]. self selectNextUnresolvedConflict! Item was changed: ----- Method: MCMergeBrowser>>clearChoice (in category 'as yet unclassified') ----- clearChoice self conflictSelectionDo: [selection clearChoice. + self changed: #text; changed: #list; changed: #canMerge]! - self changed: #text; changed: #list]!

1 0

The Trunk: System-mt.862.mcz
by commits＠source.squeak.org 03 Aug '16

03 Aug '16

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.862.mcz ==================== Summary ==================== Name: System-mt.862 Author: mt Time: 3 August 2016, 5:02:47.934179 pm UUID: d0377fca-6807-b948-b464-e74122834e6f Ancestors: System-mt.861 Implements Karl's suggestions for the colors in Monokai and Solarized themes for progress bars. Also improve the non-shadow scenario. =============== Diff against System-mt.861 =============== Item was changed: ----- Method: MonokaiTheme class>>addDarkDialogs: (in category 'instance creation') ----- addDarkDialogs: theme "self createDark apply." theme set: #borderColor for: #DialogWindow to: self backgroundColor muchDarker; set: #color for: #DialogWindow to: self invisibleColor; set: #titleColor for: #DialogWindow to: self backgroundColor; set: #titleTextColor for: #DialogWindow to: self foregroundColor; set: #textColor for: #DialogWindow to: self yellow; set: #okColor for: #DialogWindow to: self green muchDarker; set: #cancelColor for: #DialogWindow to: self orange muchDarker; set: #buttonColor for: #DialogWindow to: self invisibleColor; set: #selectionModifier for: #DialogWindow to: [ [:c | c adjustBrightness: -0.1 ] ]. "The List Chooser is a dialog, too." theme set: #addColor for: #ListChooser to: self blue; set: #disabledColor for: #ListChooser to: Color transparent. "And the system progress bar." theme + set: #color for: #SystemProgressBarMorph to: self invisibleColor; - set: #color for: #SystemProgressBarMorph to: Color transparent; set: #barColor for: #SystemProgressBarMorph to: self foregroundColor. "And the balloon morphs." theme set: #borderColor for: #NewBalloonMorph to: self backgroundColor muchDarker; set: #color for: #NewBalloonMorph to: self invisibleColor.! Item was changed: ----- Method: MonokaiTheme class>>addDarkMenusAndDockingBars: (in category 'instance creation') ----- addDarkMenusAndDockingBars: theme "self createDark apply." theme + set: #borderWidth for: #MenuMorph to: 1; + set: #borderColor for: #MenuMorph to: self invisibleColor; - set: #borderWidth for: #MenuMorph to: 0; set: #color for: #MenuMorph to: self backgroundColor; set: #titleTextColor for: #MenuMorph to: self yellow; set: #lineColor for: #MenuMorph to: self invisibleColor; set: #lineStyle for: #MenuMorph to: BorderStyle default; set: #lineWidth for: #MenuMorph to: 1. theme set: #textColor for: #MenuItemMorph to: self foregroundColor; set: #selectionColor for: #MenuItemMorph to: self invisibleColor; set: #selectionTextColor for: #MenuItemMorph to: self yellow. "set: #subMenuMarker for: #MenuItemMorph to: nil." "Use hard-coded default. See MenuItemMorph." "The world main docking bar." theme set: #color for: #DockingBarMorph to: self invisibleColor; set: #selectionColor for: #DockingBarItemMorph to: self grayLight; set: #logoColor for: #TheWorldMainDockingBar to: self foregroundColor; set: #selectionLogoColor for: #TheWorldMainDockingBar to: self yellow.! Item was changed: ----- Method: SolarizedTheme class>>addDarkDialogs: (in category 'instance creation') ----- addDarkDialogs: theme "self createDark apply." theme set: #borderColor for: #DialogWindow to: self darkBackground muchDarker; set: #color for: #DialogWindow to: self darkBackgroundHighlights; set: #titleColor for: #DialogWindow to: self darkBackground; set: #titleTextColor for: #DialogWindow to: self darkContentEmphasized; set: #textColor for: #DialogWindow to: self darkContentEmphasizedMore; set: #okColor for: #DialogWindow to: self green; set: #cancelColor for: #DialogWindow to: self orange; set: #buttonColor for: #DialogWindow to: self darkBackgroundHighlights; set: #selectionModifier for: #DialogWindow to: [ [:c | c adjustBrightness: -0.1 ] ]. "The List Chooser is a dialog, too." theme set: #addColor for: #ListChooser to: self blue; set: #disabledColor for: #ListChooser to: Color transparent. "And the system progress bar." theme + set: #color for: #SystemProgressBarMorph to: self darkBackgroundHighlights; + set: #barColor for: #SystemProgressBarMorph to: self darkContentSecondary. - set: #color for: #SystemProgressBarMorph to: Color transparent; - set: #barColor for: #SystemProgressBarMorph to: self darkContentEmphasized. "And the balloon morphs." theme set: #borderColor for: #NewBalloonMorph to: self darkBackground muchDarker; set: #color for: #NewBalloonMorph to: self darkBackgroundHighlights.! Item was changed: ----- Method: SolarizedTheme class>>addDarkMenusAndDockingBars: (in category 'instance creation') ----- addDarkMenusAndDockingBars: theme "self createDark apply." theme + set: #borderWidth for: #MenuMorph to: 1; + set: #borderColor for: #MenuMorph to: self darkBackgroundHighlights; - set: #borderWidth for: #MenuMorph to: 0; set: #color for: #MenuMorph to: self darkBackground; set: #titleTextColor for: #MenuMorph to: self darkContentEmphasizedMore; set: #lineColor for: #MenuMorph to: self darkBackgroundHighlights; set: #lineStyle for: #MenuMorph to: BorderStyle default; set: #lineWidth for: #MenuMorph to: 1. theme set: #textColor for: #MenuItemMorph to: self darkContentEmphasized; set: #selectionColor for: #MenuItemMorph to: self darkBackgroundHighlights; set: #selectionTextColor for: #MenuItemMorph to: self darkContentEmphasizedMore. "set: #subMenuMarker for: #MenuItemMorph to: nil." "Use hard-coded default. See MenuItemMorph." "The world main docking bar." theme set: #color for: #DockingBarMorph to: self darkBackgroundHighlights; set: #selectionColor for: #DockingBarItemMorph to: self darkContentSecondary; set: #logoColor for: #TheWorldMainDockingBar to: self darkContentEmphasized; set: #selectionLogoColor for: #TheWorldMainDockingBar to: self darkContentEmphasizedMore.! Item was changed: ----- Method: SolarizedTheme class>>addLightDialogs: (in category 'instance creation') ----- addLightDialogs: theme "self createLight apply." theme set: #borderColor for: #DialogWindow to: self lightBackground muchDarker; set: #color for: #DialogWindow to: self lightBackgroundHighlights; set: #titleColor for: #DialogWindow to: self lightBackground; set: #titleTextColor for: #DialogWindow to: self lightContentEmphasized; set: #textColor for: #DialogWindow to: self lightContentEmphasizedMore; set: #okColor for: #DialogWindow to: self green; set: #cancelColor for: #DialogWindow to: self orange; set: #buttonColor for: #DialogWindow to: self lightBackgroundHighlights; set: #selectionModifier for: #DialogWindow to: [ [:c | c adjustBrightness: -0.1 ] ]. "The List Chooser is a dialog, too." theme set: #addColor for: #ListChooser to: self blue; set: #disabledColor for: #ListChooser to: Color transparent. "And the system progress bar." theme + set: #color for: #SystemProgressBarMorph to: self lightBackgroundHighlights; + set: #barColor for: #SystemProgressBarMorph to: self lightContentSecondary. - set: #color for: #SystemProgressBarMorph to: Color transparent; - set: #barColor for: #SystemProgressBarMorph to: self lightContentEmphasized. "And the balloon morphs." theme set: #borderColor for: #NewBalloonMorph to: self lightBackground muchDarker; set: #color for: #NewBalloonMorph to: self lightBackgroundHighlights.! Item was changed: ----- Method: SolarizedTheme class>>addLightMenusAndDockingBars: (in category 'instance creation') ----- addLightMenusAndDockingBars: theme "self createLight apply." theme + set: #borderWidth for: #MenuMorph to: 1; + set: #borderColor for: #MenuMorph to: self lightBackgroundHighlights; - set: #borderWidth for: #MenuMorph to: 0; set: #color for: #MenuMorph to: self lightBackground; set: #titleTextColor for: #MenuMorph to: self lightContentEmphasizedMore; set: #lineColor for: #MenuMorph to: self lightBackgroundHighlights; set: #lineStyle for: #MenuMorph to: BorderStyle default; set: #lineWidth for: #MenuMorph to: 1. theme set: #textColor for: #MenuItemMorph to: self lightContentEmphasized; set: #selectionColor for: #MenuItemMorph to: self lightBackgroundHighlights; set: #selectionTextColor for: #MenuItemMorph to: self lightContentEmphasizedMore. "set: #subMenuMarker for: #MenuItemMorph to: nil." "Use hard-coded default. See MenuItemMorph." "The world main docking bar." theme set: #color for: #DockingBarMorph to: self lightBackgroundHighlights; set: #selectionColor for: #DockingBarItemMorph to: self lightContentSecondary; set: #logoColor for: #TheWorldMainDockingBar to: self lightContentEmphasized; set: #selectionLogoColor for: #TheWorldMainDockingBar to: self lightContentEmphasizedMore.!

1 0

The Trunk: System-mt.861.mcz
by commits＠source.squeak.org 03 Aug '16

03 Aug '16

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.861.mcz ==================== Summary ==================== Name: System-mt.861 Author: mt Time: 3 August 2016, 3:48:48.221245 pm UUID: 74e725aa-ea12-df48-b3cf-730dba8dccc6 Ancestors: System-cmm.860 Provide progress indication when applying a new UI theme. Use 1000-ms updates to not slow-down the process unnecessarily. =============== Diff against System-cmm.860 =============== Item was changed: ----- Method: UserInterfaceTheme>>apply (in category 'actions') ----- apply "Apply this theme to all affected objects. Let classes decide on how to iterate and call their instances." UserInterfaceTheme current: self. self class clientClassesToReapply in: [:cc | cc do: [:eachClass | eachClass applyUserInterfaceTheme]. + (cc select: [:eachClass | eachClass canApplyThemeToInstances]) + do: [:eachClass | eachClass applyThemeToInstances] + displayingProgress: [:eachClass | 'Applying {1} to instances of {2}' format: {self name. eachClass name}] + every: 1000 ]. - cc - select: [:eachClass | eachClass canApplyThemeToInstances] - thenDo: [:eachClass | eachClass applyThemeToInstances]]. Project current restoreDisplay.!

1 0

The Trunk: Morphic-mt.1228.mcz
by commits＠source.squeak.org 03 Aug '16

03 Aug '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1228.mcz ==================== Summary ==================== Name: Morphic-mt.1228 Author: mt Time: 3 August 2016, 3:28:25.722418 pm UUID: 24a39e09-443b-0b41-8d8d-3bd49125fe20 Ancestors: Morphic-mt.1227 Some last-minute UI theming fix, which applies to the non-flat look (i.e. using gradients) in progress bars. Implementation is not perfect but consistent with LazyListMorph selections, now. Note that, in the future, we should untangle the use of #gradientMenu and, maybe, add specific preferences. =============== Diff against Morphic-mt.1227 =============== Item was added: + ----- Method: SystemProgressBarMorph>>barColor (in category 'accessing') ----- + barColor + + ^ barColor! Item was added: + ----- Method: SystemProgressBarMorph>>barColor: (in category 'accessing') ----- + barColor: aColor + + | cc fill | + cc := aColor. + + MenuMorph gradientMenu + ifFalse: [fill := SolidFillStyle color: cc] + ifTrue: [ + fill := GradientFillStyle ramp: { + 0.0 -> cc twiceLighter. + 1 -> cc twiceDarker }]. + + barColor := fill. + self changed.! Item was added: + ----- Method: SystemProgressBarMorph>>barSize (in category 'accessing') ----- + barSize + + ^ barSize! Item was changed: ----- Method: SystemProgressBarMorph>>drawOn: (in category 'drawing') ----- drawOn: aCanvas + + | area fill | - | area | super drawOn: aCanvas. + self barSize > 0 ifTrue: [ - barSize > 0 ifTrue: [ area := self innerBounds. + area := area origin extent: (self barSize min: area extent x)@area extent y. + + fill := self barColor isColor + ifTrue: [SolidFillStyle color: self barColor] + ifFalse: [self barColor]. + fill isGradientFill ifTrue: [ + fill origin: area origin. + fill direction: 0@ area height]. + + aCanvas + fillRectangle: area + fillStyle: fill + borderStyle: (SimpleBorder new width: 1; color: fill asColor muchDarker). - area := area origin extent: (barSize min: area extent x)@area extent y. - aCanvas fillRectangle: area color: barColor ]. ! Item was changed: ----- Method: SystemProgressBarMorph>>setDefaultParameters (in category 'initialization') ----- setDefaultParameters "change the receiver's appareance parameters" self color: (self userInterfaceTheme color ifNil: [Color r: 0.977 g: 0.977 b: 0.977]); borderStyle: (self userInterfaceTheme borderStyle ifNil: [BorderStyle default]); borderColor: (self userInterfaceTheme borderColor ifNil: [Color transparent]); + borderWidth: (self userInterfaceTheme borderWidth ifNil: [0]); + barColor: (self userInterfaceTheme barColor ifNil: [Color r: 0.72 g: 0.72 b: 0.9]).! - borderWidth: (self userInterfaceTheme borderWidth ifNil: [0]). - - barColor := self userInterfaceTheme barColor ifNil: [Color r: 0.72 g: 0.72 b: 0.9].!

1 0

The Trunk: ToolBuilder-Morphic-mt.178.mcz
by commits＠source.squeak.org 03 Aug '16

03 Aug '16

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.178.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.178 Author: mt Time: 3 August 2016, 3:07:56.004992 pm UUID: d001b249-3b74-334f-a7d8-8b799779efe5 Ancestors: ToolBuilder-Morphic-mt.177 For disabled buttons, still draw a border to make them still look like buttons, not like labels. =============== Diff against ToolBuilder-Morphic-mt.177 =============== Item was changed: ----- Method: PluggableButtonMorphPlus>>updateFillStylePressing:hovering: (in category 'initialize-release') ----- updateFillStylePressing: isPressing hovering: isHovering enabled ifFalse: [ self color: (disabledColor ifNil: [Color transparent]). + self borderStyle color: disabledTextColor. - self borderStyle color: Color transparent. ^ self]. super updateFillStylePressing: isPressing hovering: isHovering.!

1 0

The Trunk: Morphic-mt.1227.mcz
by commits＠source.squeak.org 03 Aug '16

03 Aug '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1227.mcz ==================== Summary ==================== Name: Morphic-mt.1227 Author: mt Time: 3 August 2016, 2:52:07.812041 pm UUID: 428a55a4-6204-174c-b4b0-14b8dc1a297d Ancestors: Morphic-mt.1226 Fixes a small regression where the text cursor did not show up on a simple mouse down when it was invisible due to its blinking animation. =============== Diff against Morphic-mt.1226 =============== Item was changed: ----- Method: TextMorph>>mouseDown: (in category 'event handling') ----- mouseDown: evt "Make this TextMorph be the keyboard input focus, if it isn't already, and repond to the text selection gesture." evt yellowButtonPressed ifTrue: [ "First check for option (menu) click" ^ self yellowButtonActivity: evt shiftPressed]. + "Show the caret immediately on mouse down to give user feedback." + self resetBlinkCursor. + "If focus does not follow the mouse cursor and we click below everything, just grab the focus to not destroy the selection." ((self hasKeyboardFocus: evt hand) not and: [(self bounds containsPoint: evt position) not]) ifTrue: [evt hand newKeyboardFocus: self] ifFalse: [ evt hand newKeyboardFocus: self. self handleInteraction: [editor mouseDown: evt] fromEvent: evt].!

1 0

The Trunk: Morphic-mt.1226.mcz
by commits＠source.squeak.org 03 Aug '16

03 Aug '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1226.mcz ==================== Summary ==================== Name: Morphic-mt.1226 Author: mt Time: 3 August 2016, 2:16:23.039041 pm UUID: 2258c988-1152-4940-9a2b-a95241a3e1d3 Ancestors: Morphic-mt.1225 Fixes retractable scroll bars, which did not work properly of mouseOverForKeyboardFocus was disabled. Note that #hasFocus is ancient and not needed anymore for controlling keyboard focus here. See also #hIsScrollbarNeeded and #vIsScrollbarNeeded and maybe other senders of #hasFocus. =============== Diff against Morphic-mt.1225 =============== Item was changed: ----- Method: ScrollPane>>mouseEnter: (in category 'event handling') ----- mouseEnter: event + hasFocus := true. - Preferences mouseOverForKeyboardFocus ifTrue: [hasFocus := true]. owner isSystemWindow ifTrue: [owner paneTransition: event]. retractableScrollBar ifTrue: [self hideOrShowScrollBars].! Item was changed: ----- Method: ScrollPane>>mouseLeave: (in category 'event handling') ----- mouseLeave: event + hasFocus := false. - Preferences mouseOverForKeyboardFocus ifTrue: [hasFocus := false]. retractableScrollBar ifTrue: [self hideScrollBars]. owner isSystemWindow ifTrue: [owner paneTransition: event].!

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages August 2016