Packages February 2016

packages@lists.squeakfoundation.org

2 participants
362 discussions

The Trunk: System-bf.802.mcz
by commits＠source.squeak.org 23 Feb '16

23 Feb '16

Bert Freudenberg uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-bf.802.mcz ==================== Summary ==================== Name: System-bf.802 Author: bf Time: 23 February 2016, 1:07:37.903664 pm UUID: 9883acd3-d04f-43f2-af25-85777a8f1bda Ancestors: System-eem.801 Remove timezone setting from Locale. =============== Diff against System-eem.801 =============== Item was changed: ----- Method: Locale class>>startUp: (in category 'system startUp') ----- startUp: resuming - | newID | resuming ifFalse: [^self]. (Preferences valueOfFlag: #useLocale) ifTrue: [ + | newID | - DateAndTime localTimeZone: (TimeZone - offset: (Duration minutes: Locale current offsetLocalToUTC) - name: 'Local Time' - abbreviation: 'LT'). newID := self current determineLocaleID. newID ~= LocaleID current ifTrue: [self switchAndInstallFontToID: newID gently: true]]!

1 0

The Trunk: System-bf.802.mcz
by commits＠source.squeak.org 23 Feb '16

23 Feb '16

1 0

The Trunk: Tools-topa.675.mcz
by commits＠source.squeak.org 23 Feb '16

23 Feb '16

Tobias Pape uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-topa.675.mcz ==================== Summary ==================== Name: Tools-topa.675 Author: topa Time: 23 February 2016, 7:12:21.413883 pm UUID: 9c94666a-8b9c-47bc-b432-0dc66d2c4c02 Ancestors: Tools-mt.674 Fix debuggers popping up when having #showMessageIcons disabled. Thanks to Stephane Rollandin. (Tiny refactoring along the way) =============== Diff against Tools-mt.674 =============== Item was changed: ----- Method: Browser>>messageHelpAt: (in category 'message list') ----- messageHelpAt: anIndex "Show the first n lines of the sources code of the selected message." + | source formatted iconHelp | - | source formatted | Preferences balloonHelpInMessageLists ifFalse: [^ nil]. self messageList size < anIndex ifTrue: [^ nil]. source := (self selectedClassOrMetaClass >> (self messageList at: anIndex)) getSource. source lineCount > 5 ifTrue: [ | sourceLines | sourceLines := (source asString lines copyFrom: 1 to: 5) asOrderedCollection. sourceLines add: ' [...]'. source := sourceLines joinSeparatedBy: Character cr]. formatted := SHTextStylerST80 new classOrMetaClass: self selectedClassOrMetaClass; styledTextFor: source asText. + iconHelp := (self messageIconHelpAt: anIndex) ifNotEmpty: [:t | + t , Character cr, Character cr]. + ^ iconHelp asText - - ^ (Text newFrom: ((self messageIconHelpAt: anIndex) ifNotEmpty: [:t | t , Character cr, Character cr])) append: formatted; yourself! Item was changed: ----- Method: Browser>>messageIconHelpAt: (in category 'message list') ----- messageIconHelpAt: anIndex + self class showMessageIcons ifFalse: [^ String empty]. - self class showMessageIcons - ifFalse: [^ nil]. ^ ToolIconHelp iconHelpNamed: (ToolIcons iconForClass: self selectedClassOrMetaClass selector: (self messageList at: anIndex))! Item was changed: ----- Method: ToolIconHelp class>>iconHelpNamed: (in category 'as yet unclassified') ----- iconHelpNamed: aSymbol + ^ (self respondsTo: aSymbol) + ifTrue: [self helpTexts at: aSymbol ifAbsentPut: [self perform: aSymbol]] + ifFalse: [String empty] - (self respondsTo: aSymbol) - ifTrue: [^self helpTexts at: aSymbol ifAbsentPut: [self perform: aSymbol]] - ifFalse: [^ ''] !

1 0

The Trunk: Tools-topa.675.mcz
by commits＠source.squeak.org 23 Feb '16

23 Feb '16

1 0

The Trunk: Graphics-tfel.327.mcz
by commits＠source.squeak.org 23 Feb '16

23 Feb '16

Tim Felgentreff uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-tfel.327.mcz ==================== Summary ==================== Name: Graphics-tfel.327 Author: tfel Time: 23 February 2016, 6:17:13.508562 pm UUID: 5c89afe4-2c81-4948-a7ac-c12ce4eeaa95 Ancestors: Graphics-tfel.326 Revert Graphics-tfel.328 (as per bf's recommendation) =============== Diff against Graphics-tfel.326 =============== Item was changed: ----- Method: Rectangle>>newRectButtonPressedDo: (in category 'transforming') ----- newRectButtonPressedDo: newRectBlock "Track the outline of a new rectangle until mouse button changes. newFrameBlock produces each new rectangle from the previous. Only tracks while mouse is down." | rect newRect buttonNow delay | delay := Delay forMilliseconds: 10. buttonNow := Sensor anyButtonPressed. rect := self. Display border: rect width: 2 rule: Form reverse fillColor: Color gray. [buttonNow] whileTrue: [delay wait. buttonNow := Sensor anyButtonPressed. newRect := newRectBlock value: rect. newRect = rect ifFalse: [Display border: rect width: 2 rule: Form reverse fillColor: Color gray. Display border: newRect width: 2 rule: Form reverse fillColor: Color gray. - Display forceToScreen. rect := newRect]]. Display border: rect width: 2 rule: Form reverse fillColor: Color gray. Project current pointerMoved. Sensor processEvent: Sensor createMouseEvent. ^ rect! Item was changed: ----- Method: Rectangle>>newRectFrom: (in category 'transforming') ----- newRectFrom: newRectBlock "Track the outline of a new rectangle until mouse button changes. newFrameBlock produces each new rectangle from the previous" | rect newRect buttonStart buttonNow delay | delay := Delay forMilliseconds: 10. buttonStart := buttonNow := Sensor anyButtonPressed. rect := self. Display border: rect width: 2 rule: Form reverse fillColor: Color gray. [buttonNow == buttonStart] whileTrue: [delay wait. buttonNow := Sensor anyButtonPressed. newRect := newRectBlock value: rect. newRect = rect ifFalse: [Display border: rect width: 2 rule: Form reverse fillColor: Color gray. Display border: newRect width: 2 rule: Form reverse fillColor: Color gray. - Display forceToScreen. rect := newRect]]. Display border: rect width: 2 rule: Form reverse fillColor: Color gray. Project current pointerMoved. Sensor processEvent: Sensor createMouseEvent. ^ rect!

1 0

The Trunk: Graphics-tfel.327.mcz
by commits＠source.squeak.org 23 Feb '16

23 Feb '16

1 0

The Trunk: ToolBuilder-Morphic-kfr.159.mcz
by commits＠source.squeak.org 23 Feb '16

23 Feb '16

Karl Ramberg uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-kfr.159.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-kfr.159 Author: kfr Time: 23 February 2016, 7:26:26.083047 am UUID: 002ef0f2-6e60-4571-a4c2-eb465843582b Ancestors: ToolBuilder-Morphic-mt.158 Caused a issue with saving sources Reverting to old version =============== Diff against ToolBuilder-Morphic-mt.158 =============== Item was changed: ----- Method: PluggableTextMorphPlus>>okToStyle (in category 'testing') ----- okToStyle + ^ styler - ^ styler ifNil:[false] + ifNotNil: [:s | model aboutToStyle: s]! - ifNotNil: [:s | s class syntaxHighlightingAsYouType - ifTrue:[model aboutToStyle: s] - ifFalse:[false]]!

1 0

The Trunk: ToolBuilder-Morphic-kfr.159.mcz
by commits＠source.squeak.org 23 Feb '16

23 Feb '16

1 0

The Trunk: 51Deprecated-bf.19.mcz
by commits＠source.squeak.org 23 Feb '16

23 Feb '16

Bert Freudenberg uploaded a new version of 51Deprecated to project The Trunk: http://source.squeak.org/trunk/51Deprecated-bf.19.mcz ==================== Summary ==================== Name: 51Deprecated-bf.19 Author: bf Time: 22 February 2016, 3:15:42.896692 pm UUID: 1e6194ef-cd0d-4c13-beef-208cf40f190b Ancestors: 51Deprecated-bf.18 Use actual old version for deprecation =============== Diff against 51Deprecated-bf.18 =============== Item was changed: ----- Method: DateAndTime class>>nowWithOffset: (in category '*51deprecated') ----- nowWithOffset: aDuration + + | clockValue nanos | self deprecated: 'use (... now offset: ...) instead'. + clockValue := Time utcMicrosecondClock. + "Ensure that consecutive sends of this method return increasing values, by adding small values to the nanosecond part of the created object. The next few lines are assumed to be executed atomically - having no suspension points." + ((LastClockValue ifNil: [ 0 ]) digitCompare: clockValue) = 0 + ifTrue: [ NanoOffset := NanoOffset + 1 ] + ifFalse: [ NanoOffset := 0 ]. + LastClockValue := clockValue. + nanos := clockValue \\ 1000000 * 1000 + NanoOffset. + clockValue := clockValue // 1000000. + ^self basicNew + setJdn: clockValue // SecondsInDay + SqueakEpoch + seconds: clockValue \\ SecondsInDay + nano: nanos - ^ self - now: self clock localMicrosecondClockWithOffset first offset: aDuration!

1 0

The Trunk: 51Deprecated-bf.19.mcz
by commits＠source.squeak.org 23 Feb '16

23 Feb '16

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 February 2016