Packages May 2015

packages@lists.squeakfoundation.org

1 participants
1536 discussions

The Trunk: System-cmm.738.mcz
by commits＠source.squeak.org 29 May '15

29 May '15

Chris Muller uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-cmm.738.mcz ==================== Summary ==================== Name: System-cmm.738 Author: cmm Time: 28 May 2015, 9:11:50.464 pm UUID: 261f1783-9b35-4a2b-a386-fa429b57ebab Ancestors: System-ul.737 Fix #run: leaving headless image stuck because there was a MNU or Halt. =============== Diff against System-ul.737 =============== Item was changed: ----- Method: SmalltalkImage>>run: (in category 'command line') ----- run: aBlock [ [ (aBlock numArgs = 1 and: [ self arguments size > 1 ]) ifTrue: [ "Allow a large, variable number of arguments to be passed as an Array to aBlock." aBlock value: self arguments ] ifFalse: [ aBlock valueWithEnoughArguments: self arguments ] ] on: ProgressInitiationException do: + [ : pie | "Don't want to log these notifications." - [ : pie | "Don't want to log this notification." pie defaultAction ] ] on: Notification , Warning do: [ : noti | FileStream stdout nextPutAll: DateAndTime now asString ; space ; nextPutAll: noti description ; cr. noti resume ] on: SyntaxErrorNotification do: [ : err | FileStream stdout nextPutAll: err errorCode ; cr; flush. self isHeadless ifTrue: [ self snapshot: false andQuit: true ] ifFalse: [ err pass ] ] + on: Error, MessageNotUnderstood, Halt - on: Error do: [ : err | err printVerboseOn: FileStream stderr. FileStream stderr flush. self isHeadless ifTrue: [ self snapshot: false andQuit: true ] ifFalse: [ err pass ] ]!

1 0

The Trunk: System-cmm.738.mcz
by commits＠source.squeak.org 29 May '15

29 May '15

1 0

The Trunk: Kernel-cmm.925.mcz
by commits＠source.squeak.org 28 May '15

28 May '15

Chris Muller uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-cmm.925.mcz ==================== Summary ==================== Name: Kernel-cmm.925 Author: cmm Time: 27 May 2015, 10:33:50.392 pm UUID: 088a1f16-41e4-414a-aedf-2e02fc7c51ba Ancestors: Kernel-mt.924 Fix an error in an error-handler. Any Exception can and must be able to #printVerboseOn:, not just Errors. =============== Diff against Kernel-mt.924 =============== Item was removed: - ----- Method: Error>>printVerboseOn: (in category 'printing') ----- - printVerboseOn: aStream - aStream - nextPutAll: 'vvvvvvvvvvvvvvvvvv ' , self description , ' vvvvvvvvvvvvvvvvvv' ; - cr ; - nextPutAll: 'The time is ', DateAndTime now asString ; - cr. - "Allow applications to optionally print extra details without overriding a base package." - (self respondsTo: #printDetailsOn:) ifTrue: [ self printDetailsOn: aStream ]. - aStream - nextPutAll: self signalerContext longStack ; - cr ; - nextPutAll: '^^^^^^^^^^^^^^^^^^ ' , self description , ' ^^^^^^^^^^^^^^^^^^' ; - cr ; - flush! Item was added: + ----- Method: Exception>>printVerboseOn: (in category 'printing') ----- + printVerboseOn: aStream + aStream + nextPutAll: 'vvvvvvvvvvvvvvvvvv ' , self description , ' vvvvvvvvvvvvvvvvvv' ; + cr ; + nextPutAll: 'The time is ', DateAndTime now asString ; + cr. + "Allow applications to optionally print extra details without overriding a base package." + (self respondsTo: #printDetailsOn:) ifTrue: [ self printDetailsOn: aStream ]. + aStream + nextPutAll: self signalerContext longStack ; + cr ; + nextPutAll: '^^^^^^^^^^^^^^^^^^ ' , self description , ' ^^^^^^^^^^^^^^^^^^' ; + cr ; + flush!

1 0

The Trunk: Kernel-cmm.925.mcz
by commits＠source.squeak.org 28 May '15

28 May '15

1 0

The Trunk: Morphic-mt.985.mcz
by commits＠source.squeak.org 27 May '15

27 May '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.985.mcz ==================== Summary ==================== Name: Morphic-mt.985 Author: mt Time: 27 May 2015, 2:13:49.6 pm UUID: c315a5f2-a6af-d34c-809a-c14702a96423 Ancestors: Morphic-mt.984 Fixes a bug with the selection highlight in ObjectExplorer (and all other tools that use a tree widget). See: http://forum.world.st/BUG-ObjectExplorer-menu-td4827121.html =============== Diff against Morphic-mt.984 =============== Item was changed: ----- Method: SimpleHierarchicalListMorph>>mouseDown: (in category 'event handling') ----- mouseDown: evt | aMorph selectors | aMorph := self itemFromPoint: evt position. evt yellowButtonPressed "First check for option (menu) click" ifTrue: [ (PluggableListMorph menuRequestUpdatesSelection and: [model okToChange]) ifTrue: [ aMorph == selectedMorph ifFalse: [self setSelectedMorph: aMorph]]. ^ self yellowButtonActivity: evt shiftPressed]. (aMorph notNil and:[aMorph inToggleArea: (aMorph point: evt position from: self)]) ifTrue:[^self toggleExpandedState: aMorph event: evt]. aMorph ifNil:[^super mouseDown: evt]. + aMorph highlightForMouseDown. + self setProperty: #highlightedMorph toValue: aMorph. + selectors := Array with: #click: with: nil with: nil with: (self dragEnabled ifTrue:[#startDrag:] ifFalse:[nil]). evt hand waitForClicksOrDrag: self event: evt selectors: selectors threshold: HandMorph dragThreshold "pixels".! Item was changed: ----- Method: SimpleHierarchicalListMorph>>mouseUp: (in category 'event handling') ----- + mouseUp: event + + | clickedMorph highlightedMorph | + clickedMorph := self itemFromPoint: event position. + highlightedMorph := self valueOfProperty: #highlightedMorph ifAbsent: []. + self removeProperty: #highlightedMorph. + + ((model okToChange not + or: [clickedMorph isNil]) + or: [clickedMorph ~~ highlightedMorph]) ifTrue: [ + highlightedMorph ifNotNil: [:m | m highlightForMouseDown: false]. + ^ self]. + + ((autoDeselect isNil or: [autoDeselect]) and: [clickedMorph == selectedMorph]) - mouseUp: event - | aMorph | - aMorph := self itemFromPoint: event position. - aMorph ifNil: [^self]. - aMorph highlightedForMouseDown ifFalse: [^self]. - aMorph highlightForMouseDown: false. - model okToChange ifFalse: [^self]. - "No change if model is locked" - ((autoDeselect isNil or: [autoDeselect]) and: [aMorph == selectedMorph]) ifTrue: [self setSelectedMorph: nil] + ifFalse: [self setSelectedMorph: clickedMorph]. + + highlightedMorph highlightForMouseDown: false. - ifFalse: [self setSelectedMorph: aMorph]. event hand newKeyboardFocus: self. + Cursor normal show.! - Cursor normal show!

1 0

The Trunk: Morphic-mt.985.mcz
by commits＠source.squeak.org 27 May '15

27 May '15

1 0

The Trunk: Morphic-mt.984.mcz
by commits＠source.squeak.org 21 May '15

21 May '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.984.mcz ==================== Summary ==================== Name: Morphic-mt.984 Author: mt Time: 21 May 2015, 4:20:38.634 pm UUID: 6bfbeda3-2325-6f43-93b6-31515c62212f Ancestors: Morphic-mt.983 Fixes (a regression with) jumpy scrolling behavior in the Object Explorer. =============== Diff against Morphic-mt.983 =============== Item was added: + ----- Method: SimpleHierarchicalListMorph>>offsetToShow: (in category 'scrolling') ----- + offsetToShow: aRectangle + "Focus rectangles are too wide and the view hence jumps to the right. Snap it back to 0 on the horizontal axis." + + ^ 0 @ (super offsetToShow: aRectangle) y!

1 0

The Trunk: Morphic-mt.984.mcz
by commits＠source.squeak.org 21 May '15

21 May '15

1 0

The Trunk: Morphic-mt.983.mcz
by commits＠source.squeak.org 19 May '15

19 May '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.983.mcz ==================== Summary ==================== Name: Morphic-mt.983 Author: mt Time: 19 May 2015, 4:53:15.621 pm UUID: bc3f1fa9-6bbc-5844-92b3-4fc4f1d0065d Ancestors: Morphic-mt.982 Make text selection color gray if the text morph has no keyboard focus. Why? Assumption that colorful means active and gray means inactive. We could add this for lists, too. Not sure. =============== Diff against Morphic-mt.982 =============== Item was changed: ----- Method: NewParagraph>>selectionColor (in category 'display') ----- selectionColor | color | Display depth = 1 ifTrue: [^ Color veryLightGray]. Display depth = 2 ifTrue: [^ Color gray]. color := Preferences textHighlightColor. + self focused ifFalse: [color := Color gray: 0.9]. - self focused ifFalse: [color := color alphaMixed: 0.2 with: Color veryVeryLightGray]. ^ color!

1 0

The Trunk: Morphic-mt.983.mcz
by commits＠source.squeak.org 19 May '15

19 May '15

1 0

← Newer
1
...
4
5
6
7
8
9
10
...
154
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 May 2015