gmane.comp.lang.smalltalk.squeak.general

Squeak's presence on GitHub

Frank Shearar — 2013-05-18T09:15:58

As usual Camillo Bruni is several steps ahead of me. Pharo 3.0 mirrors
its source code to GitHub nowadays. In particular, "my" use of github
for the build scripts is really "our" use of github for the build
scripts, so we should have our own Organization on GitHub.

The user/organisation name "squeak" is already taken, so I'm proposing
we/I register an organisation called "squeak-project".

Any strenuous objections?

frank

Daily Commit Log

2013-05-17T23:55:03

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours:

http://lists.squeakfoundation.org/pipermail/packages/2013-May/005953.html

Name: System-fbs.530
Ancestors: System-fbs.529

This code reshuffle makes it visually much more obvious how Project >> #future:send:at:args: and MorphicProject >> #future:send:at:args: differ. (Hint: not a lot.)

=============================================

Camp Smalltalk - Avondale

JohnReed Maffeo — 2013-05-17T16:42:47

Gangplank Avondale has offered to provide space for a Camp Smalltalk event on June 8 & 9 from 12-8 PM each day. This is the weekend before STIC.

The facility is about six miles south of Litchfield Park where the STIC is held. There will also be Camp Smalltalk space at the Wigwam during the conference.

http://gangplankhq.com/

http://avondale.gangplankhq.com/

Please let me know if you are interested in attending. Registrations is not necessary, but it would be good to get a rough head count. Please spread the word.

John-Reed

The Trunk: System-fbs.530.mcz

2013-05-17T00:00:00

Frank Shearar uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-fbs.530.mcz

==================== Summary ====================

Name: System-fbs.530
Author: fbs
Time: 17 May 2013, 10:38:47.389 am
UUID: 57d1fbc2-25bf-4f2e-8762-3cb8d0da925a
Ancestors: System-fbs.529

This code reshuffle makes it visually much more obvious how Project >> #future:send:at:args: and MorphicProject >> #future:send:at:args: differ. (Hint: not a lot.)

=============== Diff against System-fbs.529 ===============

Item was changed:
  ----- Method: Project>>future:send:at:args: (in category 'futures') -----
  future: receiver send: aSelector at: deltaMSecs args: args
  "Send a message deltaSeconds into the future.  Answers a Promise that will be resolved at some time in the future."
+ | pr closure |
- | pr |
  pr := Promise new.
+ closure := [pr resolveWith: (receiver perform: aSelector withArguments: args)].
  deltaMSecs = 0
+ ifTrue: [self addDeferredUIMessage: closure]
- ifTrue: [
- self addDeferredUIMessage: 
- [pr resolveWith: (receiver perform: aSelector withArguments: args)]
- ]
  ifFalse: [
  [(Delay forMilliseconds: deltaMSecs) wait.
  self addDeferredUIMessage: 
+ closure
- [pr resolveWith: (receiver perform: aSelector withArguments: args)]
  ] forkAt: Processor userSchedulingPriority + 1.
  ].
  ^pr
  !

Raspberry Pi demos at STIC/Phoenix

tim Rowledge — 2013-05-15T22:35:24

I'm hoping to be able to demo the Pi running both Raspbian and RISC OS Squeak/Scratch at STIC but there are some logistical problems that I need to work around. If anyone one the list can help, please let me know.

My aim is to get a couple of Pi's hooked up, so I'd need (aside from the 2 Pi) 2 HDMI capable displays with the hdmi cables (largish screen modern TVs would do), 2 usb keyboards, 2 usb mice and 2 micro-usb cellphone chargers. Phoenix is a biggish city so I imagine there is some loose equivalent of Fry's Electronics in the area, which may be one way of solving (some of) the problem. I'm pretty sure I can arrange to leave some Pi with whoever can help me out.

So - anyone residing nearby, or intending to travel by land to STIC? Got an hdmi display you could bring along? Spare kbd/mouse?


tim
--
tim Rowledge; tim< at >rowledge.org; http://www.rowledge.org/tim
Useful random insult:- Puts a finger in his ear so the draft through his head isn't annoying.

Daily Commit Log

2013-05-13T23:55:03

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours:

http://lists.squeakfoundation.org/pipermail/packages/2013-May/005945.html

Name: Collections-fbs.519
Ancestors: Collections-nice.518

Mantis issue 7765: Recategorise SmartRefStream conversion methods.

http://bugs.squeak.org/view.php?id=7765

=============================================

http://lists.squeakfoundation.org/pipermail/packages/2013-May/005946.html

Name: Graphics-fbs.210
Ancestors: Graphics-fbs.209

Mantis issue 7765: Recategorise SmartRefStream conversion methods.

http://bugs.squeak.org/view.php?id=7765

=============================================

http://lists.squeakfoundation.org/pipermail/packages/2013-May/005947.html

Name: Morphic-fbs.649
Ancestors: Morphic-fbs.648

Mantis issue 7765: Recategorise SmartRefStream conversion methods.

http://bugs.squeak.org/view.php?id=7765

=============================================

http://lists.squeakfoundation.org/pipermail/packages/2013-May/005948.html

Name: ST80-fbs.144
Ancestors: ST80-tpr.143

Mantis issue 7765: Recategorise SmartRefStream conversion methods.

http://bugs.squeak.org/view.php?id=7765

=============================================

http://lists.squeakfoundation.org/pipermail/packages/2013-May/005949.html

Name: System-fbs.528
Ancestors: System-fbs.527

Mantis issue 7765: Recategorise SmartRefStream conversion methods.

http://bugs.squeak.org/view.php?id=7765

=============================================

http://lists.squeakfoundation.org/pipermail/packages/2013-May/005950.html

Name: MorphicExtras-fbs.107
Ancestors: MorphicExtras-tpr.106

Another tiny step in breaking the System -> MorphicExtras dependency. Locale class>>migrateSystem moves to MorphicExtras because, while it refers to other packages as well, MorphicExtras form the largest minority of package references.

=============================================

http://lists.squeakfoundation.org/pipermail/packages/2013-May/005951.html

Name: System-fbs.529
Ancestors: System-fbs.528

Another tiny step in breaking the System -> MorphicExtras dependency. Locale class>>migrateSystem moves to MorphicExtras because, while it refers to other packages as well, MorphicExtras form the largest minority of package references.

=============================================

http://lists.squeakfoundation.org/pipermail/packages/2013-May/005952.html

Name: Tools-cmm.463
Ancestors: Tools-bf.462

MessageTrace improvement:  The user wants to be able to quickly and easily assemble message-traces.  After adding senders or implementors of a heavily overloaded selector to a MessageTrace, typically just a few of the messages are relevant out of many.  In that situation, the user need merely select the range of relevant methods to arrive within two key gestures of trimming the irrelevant methods:  1) Command+I (capital eye) to invert the selection within the local group followed by 2) Command+d to remove that selection from the browser.

=============================================

The Trunk: Tools-cmm.463.mcz

2013-05-13T00:00:00

Chris Muller uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-cmm.463.mcz

==================== Summary ====================

Name: Tools-cmm.463
Author: cmm
Time: 13 May 2013, 4:20:44.3 pm
UUID: 5b1b1665-0bbc-4050-b97f-1dafacfa7c40
Ancestors: Tools-bf.462

MessageTrace improvement:  The user wants to be able to quickly and easily assemble message-traces.  After adding senders or implementors of a heavily overloaded selector to a MessageTrace, typically just a few of the messages are relevant out of many.  In that situation, the user need merely select the range of relevant methods to arrive within two key gestures of trimming the irrelevant methods:  1) Command+I (capital eye) to invert the selection within the local group followed by 2) Command+d to remove that selection from the browser.

=============== Diff against Tools-bf.462 ===============

Item was changed:
  ----- Method: MessageTrace>>addChildMessages:autoSelectString: (in category 'building') -----
  addChildMessages: methodReferences autoSelectString: aString 
  | currentIndentionLevel addables selectables selectableString |
  selectableString := aString keywords 
  ifEmpty: [ String empty ] 
  ifNotEmptyDo: [ : keywords | keywords first ].
  [ (messageListIndex between: 1 and: autoSelectStrings size) ]
  whileFalse:
  [ autoSelectStrings add: selectableString ].
  autoSelectStrings 
  at: messageListIndex
  put: selectableString.
+ currentIndentionLevel := self currentIndentionLevel.
- currentIndentionLevel := self indentionsIn: self selection asStringOrText.
  "Don't add mulitple copies of the same method, if a method is already in the list we will merely select it."
  addables := methodReferences reject: [ : each | messageList includes: each ].
  addables do: 
  [ : each | 
  each stringVersion: (self indentionPrefixOfSize: currentIndentionLevel + 1) , each asStringOrText.
  messageList 
  add: each
  afterIndex: self messageListIndex.
  autoSelectStrings 
  add: nil
  afterIndex: self messageListIndex.
  messageSelections 
  add: false
  afterIndex: self messageListIndex ].
  selectables := 
  addables copy
  addAll: (methodReferences select: [ : each | messageList includes: each ]) ;
  yourself.
  self deselectAll.
  selectables do:
  [ : each |
  self
  messageAt: (messageList indexOf: each) 
  beSelected: true ].
  self changed: #messageList.
  "Select the first child method."
  self messageListIndex: 
  (selectables size > 0
  ifTrue: [ messageList indexOf: selectables last ]
  ifFalse: [ messageList ifEmpty: [ 0 ] ifNotEmpty: [ 1 ] ])!

Item was added:
+ ----- Method: MessageTrace>>addExtraShiftedItemsTo: (in category 'message list') -----
+ addExtraShiftedItemsTo: aMenu 
+ "The shifted selector-list menu is being built.  Add items specific to MessageTrace."
+ super addExtraShiftedItemsTo: aMenu.
+ aMenu addList: #(#('invert level selection (I)' #invertLevelSelection) )!

Item was changed:
  ----- Method: MessageTrace>>addParentMessages:autoSelectString: (in category 'building') -----
  addParentMessages: methodReferences autoSelectString: aString 
  | currentIndentionLevel addables selectables |
  addables := methodReferences reject: [ : each | messageList includes: each ].
  selectables := addables copy
  addAll: (methodReferences select: [ : each | messageList includes: each ]) ;
  yourself.
+ currentIndentionLevel := self currentIndentionLevel.
- currentIndentionLevel := self indentionsIn: self selection stringVersion.
  (currentIndentionLevel = 0 and: [ addables notEmpty ]) ifTrue: 
  [ self indentEverything.
  currentIndentionLevel := 1 ].
  addables do: 
  [ : each | 
  each stringVersion: (self indentionPrefixOfSize: currentIndentionLevel - 1) , each asStringOrText.
  messageList 
  add: each
  afterIndex: self messageListIndex - 1.
  autoSelectStrings 
  add: aString
  afterIndex: self messageListIndex - 1.
  messageSelections 
  add: false
  afterIndex: self messageListIndex - 1 ].
  self deselectAll.
  selectables do:
  [ : each | | messageIndex |
  messageIndex := messageList indexOf: each.
  self
  messageAt: messageIndex 
  beSelected: true.
  autoSelectStrings
  at: messageIndex
  put: aString ].
  self changed: #messageList.
  selectables size > 0 ifTrue:
  [ self messageListIndex: (messageList indexOf: selectables first) ]!

Item was changed:
  ----- Method: MessageTrace>>addParentMethodsSending: (in category 'building') -----
  addParentMethodsSending: selectorSymbol
  
  | methodsList |
+ (methodsList := self systemNavigation allCallsOn: selectorSymbol) isEmpty
- (methodsList := self filteredSelectorsSending: selectorSymbol) isEmpty
  ifTrue:
  [ ^(PopUpMenu labels: ' OK ')
  startUpWithCaption: 'There are no methods that send ', selectorSymbol ]
  ifFalse:
  [ self
  addParentMessages: methodsList
  autoSelectString: selectorSymbol ]
  !

Item was added:
+ ----- Method: MessageTrace>>currentIndentionLevel (in category 'private accessing') -----
+ currentIndentionLevel
+ ^ messageListIndex isZero ifFalse: [ self indentionLevelAt: messageListIndex ]!

Item was removed:
- ----- Method: MessageTrace>>filteredSelectorsSending: (in category 'filtering') -----
- filteredSelectorsSending: selectorSymbol
- ^ self systemNavigation allCallsOn: selectorSymbol!

Item was added:
+ ----- Method: MessageTrace>>indentionLevelAt: (in category 'private accessing') -----
+ indentionLevelAt: msgListIndex
+ ^ self indentionsIn: (messageList at: msgListIndex) stringVersion!

Item was added:
+ ----- Method: MessageTrace>>invertLevelSelection (in category 'actions') -----
+ invertLevelSelection
+ "The user wants to be able to quickly and easily assemble message-traces.  When browsing senders or implementors of a heavily overloaded selector, typically just one or two messages are relevant out of several.  In that situation, the user need merely select the range of relevant methods to arrive within two gestures of trimming the irrelevant methods:  Command+I (capital eye) to invert the selection within the local group followed by Command+d to remove that selection from the browser."
+ | index currentLevel start |
+ currentLevel := self currentIndentionLevel ifNil:
+ [ | possibilities |
+ possibilities := ((1 to: messageSelections size) select:
+ [ : idx | messageSelections at: idx ]) collect:
+ [ : eachSelectedIndex | self indentionLevelAt: eachSelectedIndex ].
+ possibilities asSet size > 1
+ ifTrue: [ ^ self ]
+ ifFalse:
+ [ start := messageSelections indexOf: true.
+ possibilities anyOne ] ].
+ "First invert at messageListIndex then crawl up and down from there until a different level is reached, inverting as we go."
+ messageListIndex > 0 ifTrue: [ start := messageListIndex ].
+ self toggleMessageSelectionAt: start.
+ index := start.
+ [ index := index - 1.
+ index > 0 and: [ (self indentionLevelAt: index) = currentLevel ] ] whileTrue: [ self toggleMessageSelectionAt: index ].
+ index := start.
+ [ index := index + 1.
+ index <= messageList size and: [ (self indentionLevelAt: index) = currentLevel ] ] whileTrue: [ self toggleMessageSelectionAt: index ].
+ self
+  messageListIndex: 0 ;
+  changed: #messageList!

Item was added:
+ ----- Method: MessageTrace>>messageListKey:from: (in category 'message list') -----
+ messageListKey: aChar from: view 
+ aChar == $I ifTrue: [ ^ self invertLevelSelection ].
+ ^ super messageListKey: aChar from: view!

Item was changed:
  ----- Method: MessageTrace>>removeMessageFromBrowser (in category 'building') -----
  removeMessageFromBrowser
  | indexToSelect |
- self hasMessageSelected ifFalse: [^ self].
  "Try to keep the same selection index."
  indexToSelect := (messageSelections indexOf: true) max: 1.
  self selectedMessages do: [ :eachMethodReference | self deleteFromMessageList: eachMethodReference ].
  self deselectAll.
  messageSelections ifNotEmpty:
  [ messageSelections 
  at: (indexToSelect min: messageSelections size)  "safety"
  put: true ].
  anchorIndex := indexToSelect min: messageSelections size.
  self 
  messageListIndex: anchorIndex ; 
  reformulateList!

The Trunk: System-fbs.528.mcz

2013-05-13T00:00:00

Frank Shearar uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-fbs.528.mcz

==================== Summary ====================

Name: System-fbs.528
Author: fbs
Time: 13 May 2013, 7:30:25.442 pm
UUID: 06b02af5-3b4b-44f3-b891-877167261056
Ancestors: System-fbs.527

Mantis issue 7765: Recategorise SmartRefStream conversion methods.

http://bugs.squeak.org/view.php?id=7765

=============== Diff against System-fbs.527 ===============

Item was removed:
- ----- Method: SmartRefStream>>abstractStringx0 (in category 'conversion') -----
- abstractStringx0
- 
- ^ String!

Item was removed:
- ----- Method: SmartRefStream>>alansTextPlusMorphbosfcebbmsopssrsggshtt0 (in category 'conversion') -----
- alansTextPlusMorphbosfcebbmsopssrsggshtt0
- 
- ^ TextPlusMorph!

Item was removed:
- ----- Method: SmartRefStream>>bookPageMorphbosfcepcbbfgcc0 (in category 'conversion') -----
- bookPageMorphbosfcepcbbfgcc0
- "BookPageMorph->PasteUpMorph. For reading in old BookMorphs."
- 
- ^ PasteUpMorph
- !

Item was removed:
- ----- Method: SmartRefStream>>clippingMorphbosfcep0 (in category 'conversion') -----
- clippingMorphbosfcep0
- ^ PasteUpMorph!

Item was removed:
- ----- Method: SmartRefStream>>clippingMorphbosfcepc0 (in category 'conversion') -----
- clippingMorphbosfcepc0
- "ClippingMorph->PasteUpMorph. For reading in old BookMorphs."
- 
- ^ PasteUpMorph!

Item was removed:
- ----- Method: SmartRefStream>>dropShadowMorphbosfces0 (in category 'conversion') -----
- dropShadowMorphbosfces0
- 
- ^ Morph !

Item was removed:
- ----- Method: SmartRefStream>>gradientFillbosfcepbbfgcc0 (in category 'conversion') -----
- gradientFillbosfcepbbfgcc0
- ^ GradientFillMorph!

Item was removed:
- ----- Method: SmartRefStream>>layoutMorphbosfcepbbochvimol0 (in category 'conversion') -----
- layoutMorphbosfcepbbochvimol0
- ^ AlignmentMorph!

Item was removed:
- ----- Method: SmartRefStream>>layoutMorphbosfcepcbbochvimol0 (in category 'conversion') -----
- layoutMorphbosfcepcbbochvimol0
- ^ AlignmentMorph!

Item was removed:
- ----- Method: SmartRefStream>>morphicEventtcbks0 (in category 'conversion') -----
- morphicEventtcbks0
- ^ MorphicEvent!

Item was removed:
- ----- Method: SmartRefStream>>morphicSoundEventtcbkss0 (in category 'conversion') -----
- morphicSoundEventtcbkss0
- ^ MorphicUnknownEvent!

Item was removed:
- ----- Method: SmartRefStream>>multiStringx0 (in category 'conversion') -----
- multiStringx0
- 
- ^ WideString!

Item was removed:
- ----- Method: SmartRefStream>>multiSymbolx0 (in category 'conversion') -----
- multiSymbolx0
- 
- ^ WideSymbol!

Item was removed:
- ----- Method: SmartRefStream>>myMorphbosfce0 (in category 'conversion') -----
- myMorphbosfce0
- 
- reshaped at: #MyMorph put: #convertbosfce0:bosfce0:.
- "Be sure to define that conversion method in class Morph"
- ^ Morph!

Item was removed:
- ----- Method: SmartRefStream>>newMorphicEventts0 (in category 'conversion') -----
- newMorphicEventts0
- 
- ^ MorphicEvent!

Item was removed:
- ----- Method: SmartRefStream>>scrollControllermvslrrsmsms0 (in category 'conversion') -----
- scrollControllermvslrrsmsms0
- 
- ^ Smalltalk at: #MouseMenuController!

Item was removed:
- ----- Method: SmartRefStream>>transparentColorrcc0 (in category 'conversion') -----
- transparentColorrcc0
- ^ TranslucentColor!

The Trunk: ST80-fbs.144.mcz

2013-05-13T00:00:00

Frank Shearar uploaded a new version of ST80 to project The Trunk:
http://source.squeak.org/trunk/ST80-fbs.144.mcz

==================== Summary ====================

Name: ST80-fbs.144
Author: fbs
Time: 13 May 2013, 7:29:24.034 pm
UUID: 279aac05-4741-496e-89c8-ee8446c6f8e5
Ancestors: ST80-tpr.143

Mantis issue 7765: Recategorise SmartRefStream conversion methods.

http://bugs.squeak.org/view.php?id=7765

=============== Diff against ST80-tpr.143 ===============

Item was added:
+ ----- Method: SmartRefStream>>scrollControllermvslrrsmsms0 (in category '*ST80-conversion') -----
+ scrollControllermvslrrsmsms0
+ 
+ ^ Smalltalk at: #MouseMenuController!

The Trunk: Morphic-fbs.649.mcz

2013-05-13T00:00:00

Frank Shearar uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-fbs.649.mcz

==================== Summary ====================

Name: Morphic-fbs.649
Author: fbs
Time: 13 May 2013, 7:28:07.016 pm
UUID: 09957970-db45-45d7-8660-6280a583aa7c
Ancestors: Morphic-fbs.648

Mantis issue 7765: Recategorise SmartRefStream conversion methods.

http://bugs.squeak.org/view.php?id=7765

=============== Diff against Morphic-fbs.648 ===============

Item was added:
+ ----- Method: SmartRefStream>>bookPageMorphbosfcepcbbfgcc0 (in category '*Morphic-conversion') -----
+ bookPageMorphbosfcepcbbfgcc0
+ "BookPageMorph->PasteUpMorph. For reading in old BookMorphs."
+ 
+ ^ PasteUpMorph
+ !

Item was added:
+ ----- Method: SmartRefStream>>clippingMorphbosfcep0 (in category '*Morphic-conversion') -----
+ clippingMorphbosfcep0
+ ^ PasteUpMorph!

Item was added:
+ ----- Method: SmartRefStream>>clippingMorphbosfcepc0 (in category '*Morphic-conversion') -----
+ clippingMorphbosfcepc0
+ "ClippingMorph->PasteUpMorph. For reading in old BookMorphs."
+ 
+ ^ PasteUpMorph!

Item was added:
+ ----- Method: SmartRefStream>>dropShadowMorphbosfces0 (in category '*Morphic-conversion') -----
+ dropShadowMorphbosfces0
+ 
+ ^ Morph !

Item was added:
+ ----- Method: SmartRefStream>>layoutMorphbosfcepbbochvimol0 (in category '*Morphic-conversion') -----
+ layoutMorphbosfcepbbochvimol0
+ ^ AlignmentMorph!

Item was added:
+ ----- Method: SmartRefStream>>layoutMorphbosfcepcbbochvimol0 (in category '*Morphic-conversion') -----
+ layoutMorphbosfcepcbbochvimol0
+ ^ AlignmentMorph!

Item was added:
+ ----- Method: SmartRefStream>>morphicEventtcbks0 (in category '*Morphic-conversion') -----
+ morphicEventtcbks0
+ ^ MorphicEvent!

Item was added:
+ ----- Method: SmartRefStream>>morphicSoundEventtcbkss0 (in category '*Morphic-conversion') -----
+ morphicSoundEventtcbkss0
+ ^ MorphicUnknownEvent!

Item was added:
+ ----- Method: SmartRefStream>>myMorphbosfce0 (in category '*Morphic-conversion') -----
+ myMorphbosfce0
+ 
+ reshaped at: #MyMorph put: #convertbosfce0:bosfce0:.
+ "Be sure to define that conversion method in class Morph"
+ ^ Morph!

Item was added:
+ ----- Method: SmartRefStream>>newMorphicEventts0 (in category '*Morphic-conversion') -----
+ newMorphicEventts0
+ 
+ ^ MorphicEvent!

The Trunk: Graphics-fbs.210.mcz

2013-05-13T00:00:00

Frank Shearar uploaded a new version of Graphics to project The Trunk:
http://source.squeak.org/trunk/Graphics-fbs.210.mcz

==================== Summary ====================

Name: Graphics-fbs.210
Author: fbs
Time: 13 May 2013, 7:26:13.106 pm
UUID: a5fa91ce-40be-4294-ba53-710e72b0d532
Ancestors: Graphics-fbs.209

Mantis issue 7765: Recategorise SmartRefStream conversion methods.

http://bugs.squeak.org/view.php?id=7765

=============== Diff against Graphics-fbs.209 ===============

Item was added:
+ ----- Method: SmartRefStream>>transparentColorrcc0 (in category '*Graphics-conversion') -----
+ transparentColorrcc0
+ ^ TranslucentColor!

The Trunk: Collections-fbs.519.mcz

2013-05-13T00:00:00

Frank Shearar uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-fbs.519.mcz

==================== Summary ====================

Name: Collections-fbs.519
Author: fbs
Time: 13 May 2013, 7:25:21.912 pm
UUID: e5aa344c-d69b-4d5b-857f-8159a763b744
Ancestors: Collections-nice.518

Mantis issue 7765: Recategorise SmartRefStream conversion methods.

http://bugs.squeak.org/view.php?id=7765

=============== Diff against Collections-nice.518 ===============

Item was added:
+ ----- Method: SmartRefStream>>abstractStringx0 (in category '*Collections-Strings-conversion') -----
+ abstractStringx0
+ 
+ ^ String!

Item was added:
+ ----- Method: SmartRefStream>>multiStringx0 (in category '*Collections-Strings-conversion') -----
+ multiStringx0
+ 
+ ^ WideString!

Item was added:
+ ----- Method: SmartRefStream>>multiSymbolx0 (in category '*Collections-Strings-conversion') -----
+ multiSymbolx0
+ 
+ ^ WideSymbol!

SmartRefStream rubbish?

Frank Shearar — 2013-05-13T16:57:21

SmartRefStream has messages like

* alansTextPlusMorphbosfcebbmsopssrsggshtt0
* abstractStringx0
* layoutMorphbosfcepbbochvimol0
* layoutMorphbosfcepcbbochvimol0

and many others. The timestamps go back a ways, some to 1998. Squeak
4.3 has them. Where'd they come from? More importantly, are they just
junk that we can remove?

frank

SystemNavigation >> #browseMethodsWhoseNamesContain:

Frank Shearar — 2013-05-13T11:12:32

This guy's basic structure is

Smalltalk isMorphic
    ifFalse: ["do something"]
    ifTrue: [ToolSet browseMessageNames: aString]

It seems to me that this should simply be

    ToolSet browseMessageNames: aString

where a non-Morphic ToolSet does the "do something" block.

Right?

frank

Daily Commit Log

2013-05-12T23:55:03

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours:

http://lists.squeakfoundation.org/pipermail/packages/2013-May/005943.html

Name: Kernel-fbs.759
Ancestors: Kernel-cmm.758

Fix minor typo.

=============================================

http://lists.squeakfoundation.org/pipermail/packages/2013-May/005944.html

Name: GetText-fbs.29
Ancestors: GetText-fbs.28

Fix some grammatical nits.

=============================================

A very busy Systems package

Frank Shearar — 2013-05-12T21:33:30

We now have three suggested improvements to System in the Inbox.
Before we all get really confused, might I suggest a few thoughtful
eyes wander over these?

We have
* Levente's #snapshot:andQuitWithExitCode: that will help the CI
scripts a great deal,
* my hacks on moving a bunch of localisation stuff from GetText into
System-Localization,
* my hacks on making SystemNavigation more Environmentally friendly.

Thanks!

frank

The Inbox: System-ul.528.mcz

2013-05-12T00:00:00

A new version of System was added to project The Inbox:
http://source.squeak.org/inbox/System-ul.528.mcz

==================== Summary ====================

Name: System-ul.528
Author: ul
Time: 12 May 2013, 10:33:50.489 pm
UUID: d59743da-b5a5-4413-81f4-eb6dd7f7704d
Ancestors: System-fbs.527

Added support for defining the exit code when quitting.

=============== Diff against System-fbs.527 ===============

Item was added:
+ ----- Method: SmalltalkImage>>quitPrimitive: (in category 'snapshot and quit') -----
+ quitPrimitive: exitCode
+ "Primitive. Exit with exitCode to another operating system on the host machine, if one exists. All state changes in the object space since the last snapshot are lost. Ignore exitCode if it's not supported by the VM."
+ 
+ <primitive: 113>
+ self quitPrimitive!

Item was changed:
  ----- Method: SmalltalkImage>>snapshot:andQuit:embedded: (in category 'snapshot and quit') -----
  snapshot: save andQuit: quit embedded: embeddedFlag
- "Mark the changes file and close all files as part of #processShutdownList.
- If save is true, save the current state of this Smalltalk in the image file.
- If quit is true, then exit to the outer OS shell.
- The latter part of this method runs when resuming a previously saved image. This resume logic checks for a document file to process when starting up."
- | resuming msg |
- Object flushDependents.
- Object flushEvents.
  
+ ^self
+ snapshot: save
+ andQuit: quit
+ withExitCode: nil
+ embedded: embeddedFlag!
- (SourceFiles at: 2) ifNotNil:[
- msg := String streamContents: [ :s |
- s nextPutAll: '----';
- nextPutAll: (save ifTrue: [ quit ifTrue: [ 'QUIT' ] ifFalse: [ 'SNAPSHOT' ] ]
- ifFalse: [quit ifTrue: [ 'QUIT/NOSAVE' ] ifFalse: [ 'NOP' ]]);
- nextPutAll: '----';
- print: Date dateAndTimeNow; space;
- nextPutAll: (FileDirectory default localNameFor: self imageName);
- nextPutAll: ' priorSource: ';
- print: LastQuitLogPosition ].
- self assureStartupStampLogged.
- save ifTrue: [ LastQuitLogPosition := (SourceFiles at: 2) setToEnd; position ].
- self logChange: msg.
- Transcript cr; show: msg
- ].
- 
- Smalltalk processShutDownList: quit.
- Cursor write show.
- save ifTrue: [resuming := embeddedFlag 
- ifTrue: [self snapshotEmbeddedPrimitive] 
- ifFalse: [self snapshotPrimitive].  "<-- PC frozen here on image file"
- resuming == false "guard against failure" ifTrue:
- ["Time to reclaim segment files is immediately after a save"
- Smalltalk at: #ImageSegment
- ifPresent: [:theClass | theClass reclaimObsoleteSegmentFiles]]]
- ifFalse: [resuming := false].
- quit & (resuming == false) ifTrue: [self quitPrimitive].
- Cursor normal show.
- Smalltalk setGCParameters.
- resuming == true ifTrue: [Smalltalk clearExternalObjects].
- Smalltalk processStartUpList: resuming == true.
- resuming == true ifTrue:[
- self setPlatformPreferences.
- self recordStartupStamp].
- Project current wakeUpTopWindow.
- "Now it's time to raise an error"
- resuming == nil ifTrue: [self error:'Failed to write image file (disk full?)'].
- ^ resuming!

Item was added:
+ ----- Method: SmalltalkImage>>snapshot:andQuit:withExitCode:embedded: (in category 'snapshot and quit') -----
+ snapshot: save andQuit: quit withExitCode: exitCode embedded: embeddedFlag
+ "Mark the changes file and close all files as part of #processShutdownList.
+ If save is true, save the current state of this Smalltalk in the image file.
+ If quit is true, then exit to the outer OS shell.
+ If exitCode is not nil, then use it as exit code.
+ The latter part of this method runs when resuming a previously saved image. This resume logic checks for a document file to process when starting up."
+ 
+ | resuming msg |
+ Object flushDependents.
+ Object flushEvents.
+ 
+ (SourceFiles at: 2) ifNotNil:[
+ msg := String streamContents: [ :s |
+ s nextPutAll: '----';
+ nextPutAll: (save ifTrue: [ quit ifTrue: [ 'QUIT' ] ifFalse: [ 'SNAPSHOT' ] ]
+ ifFalse: [quit ifTrue: [ 'QUIT/NOSAVE' ] ifFalse: [ 'NOP' ]]);
+ nextPutAll: '----';
+ print: Date dateAndTimeNow; space;
+ nextPutAll: (FileDirectory default localNameFor: self imageName);
+ nextPutAll: ' priorSource: ';
+ print: LastQuitLogPosition ].
+ self assureStartupStampLogged.
+ save ifTrue: [ LastQuitLogPosition := (SourceFiles at: 2) setToEnd; position ].
+ self logChange: msg.
+ Transcript cr; show: msg
+ ].
+ 
+ Smalltalk processShutDownList: quit.
+ Cursor write show.
+ save ifTrue: [resuming := embeddedFlag 
+ ifTrue: [self snapshotEmbeddedPrimitive] 
+ ifFalse: [self snapshotPrimitive].  "<-- PC frozen here on image file"
+ resuming == false "guard against failure" ifTrue:
+ ["Time to reclaim segment files is immediately after a save"
+ Smalltalk at: #ImageSegment
+ ifPresent: [:theClass | theClass reclaimObsoleteSegmentFiles]]]
+ ifFalse: [resuming := false].
+ quit & (resuming == false) ifTrue: [
+ exitCode
+ ifNil: [ self quitPrimitive ]
+ ifNotNil: [ self quitPrimitive: exitCode ] ].
+ Cursor normal show.
+ Smalltalk setGCParameters.
+ resuming == true ifTrue: [Smalltalk clearExternalObjects].
+ Smalltalk processStartUpList: resuming == true.
+ resuming == true ifTrue:[
+ self setPlatformPreferences.
+ self recordStartupStamp].
+ Project current wakeUpTopWindow.
+ "Now it's time to raise an error"
+ resuming == nil ifTrue: [self error:'Failed to write image file (disk full?)'].
+ ^ resuming!

Item was added:
+ ----- Method: SmalltalkImage>>snapshot:andQuitWithExitCode: (in category 'snapshot and quit') -----
+ snapshot: save andQuitWithExitCode: exitCode
+ 
+ ^self
+ snapshot: save
+ andQuit: true
+ withExitCode: exitCode
+ embedded: false!

System depends on GetText !

Frank Shearar — 2013-05-12T12:12:21

It's quite tangled (again). Localization's kind've half in System and
half in GetText.

What seems like it might work is to gut GetText - leave the UI
components in it (so the GetText-Editor system category) - and move
GetText-Localization (GetTextTranslator, MOFile, TextDomainManager)
into System-Localization.

(As a side note, TextDomainManager >> #domainForClass: looks broken.
It simply returns 'etoys'. So either it should move to the Etoys
package, or it's half implemented and needs finishing off.)

frank

The Trunk: GetText-fbs.29.mcz

2013-05-12T00:00:00

Frank Shearar uploaded a new version of GetText to project The Trunk:
http://source.squeak.org/trunk/GetText-fbs.29.mcz

==================== Summary ====================

Name: GetText-fbs.29
Author: fbs
Time: 12 May 2013, 1:06:00.292 pm
UUID: b88a78de-73dd-4e91-a06e-bd97fbc9670b
Ancestors: GetText-fbs.28

Fix some grammatical nits.

=============== Diff against GetText-fbs.28 ===============

Item was changed:
  Object subclass: #TextDomainManager
  instanceVariableNames: ''
  classVariableNames: 'ClassCategories Classes DefaultDomain DomainInfos LoneClasses Packages'
  poolDictionaries: ''
  category: 'GetText-Localization'!
  TextDomainManager class
  instanceVariableNames: 'defaultDomain'!
  
+ !TextDomainManager commentStamp: 'fbs 5/12/2013 13:04' prior: 0!
+ I manage mapping from class category to textdomain.
- !TextDomainManager commentStamp: 'tk 1/4/2008 16:08' prior: 0!
- I manages mapping from class category to textdomain.
  
  Class variables:
   ClassCategoriesIdentityDictionary -- classCategory -> domainName 
   ClassesIdentityDictionary -- class name (a Symbol) -> domainName   (a cache only!!)
   DefaultDomainString -- the default domain name
   DomainInfosDictionary -- domainName -> a TextDomainInfo
   LoneClassesIdentityDictionary -- class name (a Symbol) -> domainName.  For classes whose entire category are not all in the same domain (BookMorph and QuickGuideMorph)
  
  TextDomainManager registerCategoryPrefix: 'DrGeoII' domain: 'DrGeoII'.
  TextDomainManager unregisterDomain: 'DrGeoII'.
  
  TextDomainManager registerClass: #QuickGuideMorph domain: 'quickguides'.
  TextDomainManager registerClass: #QuickGuideHolderMorph  domain: 'quickguides'.
  !
  TextDomainManager class
  instanceVariableNames: 'defaultDomain'!

Item was changed:
  ----- Method: TextDomainManager class>>allKnownDomains (in category 'accessing') -----
  allKnownDomains
+ "Every package has its own text domain now so it's not necessary to keep a registry of all domains, we can simply return all the packages in the image.
- "Every package has it's own text domain now so it's not necessary to keep a registry of all domains, we can simply return all the packages in the image.
  PROBLEM: If a package doesn't contain translations, it won't have a mo file but the GetTextTranslator will try to load it anyway. This happens when we switch languages. So far I tested it briefly and it seems to work..."
  ^PackageOrganizer default packageNames , {'Etoys-Tiles'}!

Item was changed:
  ----- Method: TextDomainManager class>>defaultDomain (in category 'accessing') -----
  defaultDomain
+ "I'm not sure we still need a default domain. AFAIK the default domain will only be used when no domain is found. In that case, wouldn't it be better to just look for a translation in all domains?"
- "I'm not sure we still need a default domain, AFAIK the default domain will only be used when no domain is found. In that case, wouldn't it be better to just look for a translation in all domains?"
  ^defaultDomain!

Changing process exit status

Frank Shearar — 2013-05-12T11:58:28

http://build.squeak.org/job/ReleaseSqueakTrunk/239/console shows the
CommandLineToolSet correctly bailing a release because
ReleaseBuilderFor4dot5 no longer exists. Note the build's green light.
What I'd like is a means of quitting the image _with an error_.

How do I do that?

frank

DictionaryIntegrityTest >> #testDictionaries failure

Frank Shearar — 2013-05-12T11:30:32

This test fails because, as far as I can tell, SystemChangeFileTest >>
#testClassRenamed breaks the integrity of an IdentityDictionary.

This IdentityDictionary (call it dict) reports having a key in
#keysAndValuesDo: such that dict at: key raises a KeyNotFound.

Inspecting dict verifies this weirdness, even though you can see the
key in the inspector's right hand pane.

Ideas?

The diff in the manifests between the last version where this test
didn't fail and where it did looks like this:

$ diff /home/frank/Downloads/TrunkImage.313.manifest
/home/frank/Downloads/TrunkImage.314.manifest
22c22
< Monticello (bf.541)
---
26c26
< MorphicTests (ar.18)
---
49c49
< Tests (fbs.207)
---
62,63d61

Not terribly enlightening...

frank