Nicolas Cellier uploaded a new version of SMBase to project The Trunk:
http://source.squeak.org/trunk/SMBase-nice.101.mcz
==================== Summary ====================
Name: SMBase-nice.101
Author: nice
Time: 29 March 2010, 11:41:10.037 pm
UUID: 399af411-fc32-274d-a921-5b2687209411
Ancestors: SMBase-laza.100
Attempt to fix http://bugs.squeak.org/view.php?id=7485
SMSqueakMap default objects dictionary do not resurrect in a usable state from image segment.
It needs to be rehashed.
Do it in #copyFrom: just after #reload.
=============== Diff against SMBase-laza.100 ===============
Item was changed:
----- Method: SMSqueakMap>>copyFrom: (in category 'private') -----
copyFrom: aMap
"Copy all relevant info from the other map."
objects := aMap objects.
objects do: [:o | o map: self].
+ objects rehash.
accounts := users := packages := categories := nil.
checkpointNumber := aMap checkpointNumber!
Nicolas Cellier uploaded a new version of SMBase to project The Trunk:
http://source.squeak.org/trunk/SMBase-nice.101.mcz
==================== Summary ====================
Name: SMBase-nice.101
Author: nice
Time: 29 March 2010, 11:41:10.037 pm
UUID: 399af411-fc32-274d-a921-5b2687209411
Ancestors: SMBase-laza.100
Attempt to fix http://bugs.squeak.org/view.php?id=7485
SMSqueakMap default objects dictionary do not resurrect in a usable state from image segment.
It needs to be rehashed.
Do it in #copyFrom: just after #reload.
=============== Diff against SMBase-laza.100 ===============
Item was changed:
----- Method: SMSqueakMap>>copyFrom: (in category 'private') -----
copyFrom: aMap
"Copy all relevant info from the other map."
objects := aMap objects.
objects do: [:o | o map: self].
+ objects rehash.
accounts := users := packages := categories := nil.
checkpointNumber := aMap checkpointNumber!
Nicolas Cellier uploaded a new version of SMBase to project The Trunk:
http://source.squeak.org/trunk/SMBase-nice.101.mcz
==================== Summary ====================
Name: SMBase-nice.101
Author: nice
Time: 29 March 2010, 11:41:10.037 pm
UUID: 399af411-fc32-274d-a921-5b2687209411
Ancestors: SMBase-laza.100
Attempt to fix http://bugs.squeak.org/view.php?id=7485
SMSqueakMap default objects dictionary do not resurrect in a usable state from image segment.
It needs to be rehashed.
Do it in #copyFrom: just after #reload.
=============== Diff against SMBase-laza.100 ===============
Item was changed:
----- Method: SMSqueakMap>>copyFrom: (in category 'private') -----
copyFrom: aMap
"Copy all relevant info from the other map."
objects := aMap objects.
objects do: [:o | o map: self].
+ objects rehash.
accounts := users := packages := categories := nil.
checkpointNumber := aMap checkpointNumber!
Nicolas Cellier uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-nice.219.mcz
==================== Summary ====================
Name: Tools-nice.219
Author: nice
Time: 29 March 2010, 10:14:45.919 pm
UUID: f34a6d9a-9dca-6245-bfd5-9ab198a1957b
Ancestors: Tools-ar.218
Attempt to fix http://bugs.squeak.org/view.php?id=7463
currentClassName instVar is decorated with annotation and cannot be used directly as a class name.
=============== Diff against Tools-ar.218 ===============
Item was changed:
----- Method: ChangeSorter>>setContents (in category 'code pane') -----
setContents
"return the source code that shows in the bottom pane"
| sel class strm changeType |
self clearUserEditFlag.
currentClassName ifNil: [^ contents := myChangeSet preambleString ifNil: ['']].
class := self selectedClassOrMetaClass.
(sel := self selectedMessageName) == nil
ifFalse: [changeType := (myChangeSet atSelector: (sel := sel asSymbol) class: class).
changeType == #remove
ifTrue: [^ contents := 'Method has been removed (see versions)'].
changeType == #addedThenRemoved
ifTrue: [^ contents := 'Added then removed (see versions)'].
class ifNil: [^ contents := 'Method was added, but cannot be found!!'].
(class includesSelector: sel)
ifFalse: [^ contents := 'Method was added, but cannot be found!!'].
contents := class sourceCodeAt: sel.
(#(prettyPrint prettyDiffs) includes: contentsSymbol) ifTrue:
[contents := class prettyPrinterClass
format: contents in: class notifying: nil].
self showingAnyKindOfDiffs
ifTrue: [contents := self diffFromPriorSourceFor: contents].
^ contents := contents asText makeSelectorBoldIn: class]
ifTrue: [strm := WriteStream on: (String new: 100).
+ (myChangeSet classChangeAt: (self withoutItemAnnotation: currentClassName)) do:
- (myChangeSet classChangeAt: currentClassName) do:
[:each |
each = #remove ifTrue: [strm nextPutAll: 'Entire class was removed.'; cr].
each = #addedThenRemoved ifTrue: [strm nextPutAll: 'Class was added then removed.'].
each = #rename ifTrue: [strm nextPutAll: 'Class name was changed.'; cr].
each = #add ifTrue: [strm nextPutAll: 'Class definition was added.'; cr].
each = #change ifTrue: [strm nextPutAll: 'Class definition was changed.'; cr].
each = #reorganize ifTrue: [strm nextPutAll: 'Class organization was changed.'; cr].
each = #comment ifTrue: [strm nextPutAll: 'New class comment.'; cr.
]].
^ contents := strm contents].!
Item was changed:
CodeHolder subclass: #ChangeSorter
instanceVariableNames: 'parent myChangeSet currentClassName currentSelector priorChangeSetList'
classVariableNames: ''
poolDictionaries: ''
category: 'Tools-Changes'!
+ !ChangeSorter commentStamp: 'wiz 2/3/2010 23:38' prior: 0!
+ I display a ChangeSet. Two of me are in a DualChangeSorter.
+
+ aStringOrNil
+ Instance Variables
+ currentClassName: <aStringOrNil>
+ currentSelector: <aStringOrNil>
+ myChangeSet: <aChangeSet>
+ parent: <aDualChangeSorterOrNil>
+ priorChangeSetList: <aCollection>
+
+
+ currentClassName
+ - string parseable into class-name [class] [class trait]
+ needs to be fitlered by (self withoutItemAnnotation: currentClassName) to remove pakaging note
+
+
+ currentSelector
+ - string parseable into selector-name
+ needs to be fitlered by (self withoutItemAnnotation: currentSelector) to remove pakaging note
+
+ myChangeSet
+ - name of current changeset
+ parent
+ -the dual changesorter that contains this one. Used for dealing with the other half.
+ priorChangeSetList
+ - holds the current change set list. Used to detect changes in list when a newly generated list no long match the prior list.
+ !
- !ChangeSorter commentStamp: '<historical>' prior: 0!
- I display a ChangeSet. Two of me are in a DualChangeSorter.!
Item was changed:
SelectionMenu subclass: #CustomMenu
instanceVariableNames: 'labels dividers lastDivider title targets arguments'
classVariableNames: ''
poolDictionaries: ''
category: 'Tools-Menus'!
+ !CustomMenu commentStamp: 'nice 3/24/2010 07:36' prior: 0!
- !CustomMenu commentStamp: '<historical>' prior: 0!
I am used to build menus on-the-fly. I maintain lists of menu items, actions (usually symbols to be sent as messages), and menu section dividing lines to which my clients may append new entries and lines by sending me the messages:
add: aString action: anAction
addLine
After the menu is constructed, it may be invoked with one of the following messages:
startUp: initialSelection
startUp
I am a subclass of ActionMenu, so I inherit a number of instance variables. The ones I am particularly concerned with are:
+ items := an OrderedCollection of strings to appear in the menu
+ selectors := an OrderedCollection of Symbols to be used as message selectors
+ lineArray := an OrderedCollection of line positions
+ lastLine := used to keep track of the last line to avoid making duplicate entries in lineArray!
- items _ an OrderedCollection of strings to appear in the menu
- selectors _ an OrderedCollection of Symbols to be used as message selectors
- lineArray _ an OrderedCollection of line positions
- lastLine _ used to keep track of the last line to avoid making duplicate entries in lineArray!
Nicolas Cellier uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-nice.219.mcz
==================== Summary ====================
Name: Tools-nice.219
Author: nice
Time: 29 March 2010, 10:14:45.919 pm
UUID: f34a6d9a-9dca-6245-bfd5-9ab198a1957b
Ancestors: Tools-ar.218
Attempt to fix http://bugs.squeak.org/view.php?id=7463
currentClassName instVar is decorated with annotation and cannot be used directly as a class name.
=============== Diff against Tools-ar.218 ===============
Item was changed:
----- Method: ChangeSorter>>setContents (in category 'code pane') -----
setContents
"return the source code that shows in the bottom pane"
| sel class strm changeType |
self clearUserEditFlag.
currentClassName ifNil: [^ contents := myChangeSet preambleString ifNil: ['']].
class := self selectedClassOrMetaClass.
(sel := self selectedMessageName) == nil
ifFalse: [changeType := (myChangeSet atSelector: (sel := sel asSymbol) class: class).
changeType == #remove
ifTrue: [^ contents := 'Method has been removed (see versions)'].
changeType == #addedThenRemoved
ifTrue: [^ contents := 'Added then removed (see versions)'].
class ifNil: [^ contents := 'Method was added, but cannot be found!!'].
(class includesSelector: sel)
ifFalse: [^ contents := 'Method was added, but cannot be found!!'].
contents := class sourceCodeAt: sel.
(#(prettyPrint prettyDiffs) includes: contentsSymbol) ifTrue:
[contents := class prettyPrinterClass
format: contents in: class notifying: nil].
self showingAnyKindOfDiffs
ifTrue: [contents := self diffFromPriorSourceFor: contents].
^ contents := contents asText makeSelectorBoldIn: class]
ifTrue: [strm := WriteStream on: (String new: 100).
+ (myChangeSet classChangeAt: (self withoutItemAnnotation: currentClassName)) do:
- (myChangeSet classChangeAt: currentClassName) do:
[:each |
each = #remove ifTrue: [strm nextPutAll: 'Entire class was removed.'; cr].
each = #addedThenRemoved ifTrue: [strm nextPutAll: 'Class was added then removed.'].
each = #rename ifTrue: [strm nextPutAll: 'Class name was changed.'; cr].
each = #add ifTrue: [strm nextPutAll: 'Class definition was added.'; cr].
each = #change ifTrue: [strm nextPutAll: 'Class definition was changed.'; cr].
each = #reorganize ifTrue: [strm nextPutAll: 'Class organization was changed.'; cr].
each = #comment ifTrue: [strm nextPutAll: 'New class comment.'; cr.
]].
^ contents := strm contents].!
Item was changed:
CodeHolder subclass: #ChangeSorter
instanceVariableNames: 'parent myChangeSet currentClassName currentSelector priorChangeSetList'
classVariableNames: ''
poolDictionaries: ''
category: 'Tools-Changes'!
+ !ChangeSorter commentStamp: 'wiz 2/3/2010 23:38' prior: 0!
+ I display a ChangeSet. Two of me are in a DualChangeSorter.
+
+ aStringOrNil
+ Instance Variables
+ currentClassName: <aStringOrNil>
+ currentSelector: <aStringOrNil>
+ myChangeSet: <aChangeSet>
+ parent: <aDualChangeSorterOrNil>
+ priorChangeSetList: <aCollection>
+
+
+ currentClassName
+ - string parseable into class-name [class] [class trait]
+ needs to be fitlered by (self withoutItemAnnotation: currentClassName) to remove pakaging note
+
+
+ currentSelector
+ - string parseable into selector-name
+ needs to be fitlered by (self withoutItemAnnotation: currentSelector) to remove pakaging note
+
+ myChangeSet
+ - name of current changeset
+ parent
+ -the dual changesorter that contains this one. Used for dealing with the other half.
+ priorChangeSetList
+ - holds the current change set list. Used to detect changes in list when a newly generated list no long match the prior list.
+ !
- !ChangeSorter commentStamp: '<historical>' prior: 0!
- I display a ChangeSet. Two of me are in a DualChangeSorter.!
Item was changed:
SelectionMenu subclass: #CustomMenu
instanceVariableNames: 'labels dividers lastDivider title targets arguments'
classVariableNames: ''
poolDictionaries: ''
category: 'Tools-Menus'!
+ !CustomMenu commentStamp: 'nice 3/24/2010 07:36' prior: 0!
- !CustomMenu commentStamp: '<historical>' prior: 0!
I am used to build menus on-the-fly. I maintain lists of menu items, actions (usually symbols to be sent as messages), and menu section dividing lines to which my clients may append new entries and lines by sending me the messages:
add: aString action: anAction
addLine
After the menu is constructed, it may be invoked with one of the following messages:
startUp: initialSelection
startUp
I am a subclass of ActionMenu, so I inherit a number of instance variables. The ones I am particularly concerned with are:
+ items := an OrderedCollection of strings to appear in the menu
+ selectors := an OrderedCollection of Symbols to be used as message selectors
+ lineArray := an OrderedCollection of line positions
+ lastLine := used to keep track of the last line to avoid making duplicate entries in lineArray!
- items _ an OrderedCollection of strings to appear in the menu
- selectors _ an OrderedCollection of Symbols to be used as message selectors
- lineArray _ an OrderedCollection of line positions
- lastLine _ used to keep track of the last line to avoid making duplicate entries in lineArray!
Nicolas Cellier uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-nice.219.mcz
==================== Summary ====================
Name: Tools-nice.219
Author: nice
Time: 29 March 2010, 10:14:45.919 pm
UUID: f34a6d9a-9dca-6245-bfd5-9ab198a1957b
Ancestors: Tools-ar.218
Attempt to fix http://bugs.squeak.org/view.php?id=7463
currentClassName instVar is decorated with annotation and cannot be used directly as a class name.
=============== Diff against Tools-ar.218 ===============
Item was changed:
----- Method: ChangeSorter>>setContents (in category 'code pane') -----
setContents
"return the source code that shows in the bottom pane"
| sel class strm changeType |
self clearUserEditFlag.
currentClassName ifNil: [^ contents := myChangeSet preambleString ifNil: ['']].
class := self selectedClassOrMetaClass.
(sel := self selectedMessageName) == nil
ifFalse: [changeType := (myChangeSet atSelector: (sel := sel asSymbol) class: class).
changeType == #remove
ifTrue: [^ contents := 'Method has been removed (see versions)'].
changeType == #addedThenRemoved
ifTrue: [^ contents := 'Added then removed (see versions)'].
class ifNil: [^ contents := 'Method was added, but cannot be found!!'].
(class includesSelector: sel)
ifFalse: [^ contents := 'Method was added, but cannot be found!!'].
contents := class sourceCodeAt: sel.
(#(prettyPrint prettyDiffs) includes: contentsSymbol) ifTrue:
[contents := class prettyPrinterClass
format: contents in: class notifying: nil].
self showingAnyKindOfDiffs
ifTrue: [contents := self diffFromPriorSourceFor: contents].
^ contents := contents asText makeSelectorBoldIn: class]
ifTrue: [strm := WriteStream on: (String new: 100).
+ (myChangeSet classChangeAt: (self withoutItemAnnotation: currentClassName)) do:
- (myChangeSet classChangeAt: currentClassName) do:
[:each |
each = #remove ifTrue: [strm nextPutAll: 'Entire class was removed.'; cr].
each = #addedThenRemoved ifTrue: [strm nextPutAll: 'Class was added then removed.'].
each = #rename ifTrue: [strm nextPutAll: 'Class name was changed.'; cr].
each = #add ifTrue: [strm nextPutAll: 'Class definition was added.'; cr].
each = #change ifTrue: [strm nextPutAll: 'Class definition was changed.'; cr].
each = #reorganize ifTrue: [strm nextPutAll: 'Class organization was changed.'; cr].
each = #comment ifTrue: [strm nextPutAll: 'New class comment.'; cr.
]].
^ contents := strm contents].!
Item was changed:
CodeHolder subclass: #ChangeSorter
instanceVariableNames: 'parent myChangeSet currentClassName currentSelector priorChangeSetList'
classVariableNames: ''
poolDictionaries: ''
category: 'Tools-Changes'!
+ !ChangeSorter commentStamp: 'wiz 2/3/2010 23:38' prior: 0!
+ I display a ChangeSet. Two of me are in a DualChangeSorter.
+
+ aStringOrNil
+ Instance Variables
+ currentClassName: <aStringOrNil>
+ currentSelector: <aStringOrNil>
+ myChangeSet: <aChangeSet>
+ parent: <aDualChangeSorterOrNil>
+ priorChangeSetList: <aCollection>
+
+
+ currentClassName
+ - string parseable into class-name [class] [class trait]
+ needs to be fitlered by (self withoutItemAnnotation: currentClassName) to remove pakaging note
+
+
+ currentSelector
+ - string parseable into selector-name
+ needs to be fitlered by (self withoutItemAnnotation: currentSelector) to remove pakaging note
+
+ myChangeSet
+ - name of current changeset
+ parent
+ -the dual changesorter that contains this one. Used for dealing with the other half.
+ priorChangeSetList
+ - holds the current change set list. Used to detect changes in list when a newly generated list no long match the prior list.
+ !
- !ChangeSorter commentStamp: '<historical>' prior: 0!
- I display a ChangeSet. Two of me are in a DualChangeSorter.!
Item was changed:
SelectionMenu subclass: #CustomMenu
instanceVariableNames: 'labels dividers lastDivider title targets arguments'
classVariableNames: ''
poolDictionaries: ''
category: 'Tools-Menus'!
+ !CustomMenu commentStamp: 'nice 3/24/2010 07:36' prior: 0!
- !CustomMenu commentStamp: '<historical>' prior: 0!
I am used to build menus on-the-fly. I maintain lists of menu items, actions (usually symbols to be sent as messages), and menu section dividing lines to which my clients may append new entries and lines by sending me the messages:
add: aString action: anAction
addLine
After the menu is constructed, it may be invoked with one of the following messages:
startUp: initialSelection
startUp
I am a subclass of ActionMenu, so I inherit a number of instance variables. The ones I am particularly concerned with are:
+ items := an OrderedCollection of strings to appear in the menu
+ selectors := an OrderedCollection of Symbols to be used as message selectors
+ lineArray := an OrderedCollection of line positions
+ lastLine := used to keep track of the last line to avoid making duplicate entries in lineArray!
- items _ an OrderedCollection of strings to appear in the menu
- selectors _ an OrderedCollection of Symbols to be used as message selectors
- lineArray _ an OrderedCollection of line positions
- lastLine _ used to keep track of the last line to avoid making duplicate entries in lineArray!
Nicolas Cellier uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-nice.352.mcz
==================== Summary ====================
Name: Collections-nice.352
Author: nice
Time: 29 March 2010, 6:21:10.011 pm
UUID: 2b2bbeff-91ba-184d-b22c-687fb9bf2717
Ancestors: Collections-ul.351
Fix http://bugs.squeak.org/view.php?id=6391
Assign correct unicode value to Euro character
(old value was that of MacRoman encoding - previously the generic currency symbol)
=============== Diff against Collections-ul.351 ===============
Item was changed:
----- Method: Character class>>euro (in category 'accessing untypeable characters') -----
euro
+ "The Euro currency sign, that E with two dashes. The code point is a official unicode ISO/IEC-10646-1"
- "The Euro currency sign, that E with two dashes. The key code is a wild guess"
+ ^ Unicode value: 16r20AC!
- ^ Character value: 219!
Nicolas Cellier uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-nice.352.mcz
==================== Summary ====================
Name: Collections-nice.352
Author: nice
Time: 29 March 2010, 6:21:10.011 pm
UUID: 2b2bbeff-91ba-184d-b22c-687fb9bf2717
Ancestors: Collections-ul.351
Fix http://bugs.squeak.org/view.php?id=6391
Assign correct unicode value to Euro character
(old value was that of MacRoman encoding - previously the generic currency symbol)
=============== Diff against Collections-ul.351 ===============
Item was changed:
----- Method: Character class>>euro (in category 'accessing untypeable characters') -----
euro
+ "The Euro currency sign, that E with two dashes. The code point is a official unicode ISO/IEC-10646-1"
- "The Euro currency sign, that E with two dashes. The key code is a wild guess"
+ ^ Unicode value: 16r20AC!
- ^ Character value: 219!
Nicolas Cellier uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-nice.352.mcz
==================== Summary ====================
Name: Collections-nice.352
Author: nice
Time: 29 March 2010, 6:21:10.011 pm
UUID: 2b2bbeff-91ba-184d-b22c-687fb9bf2717
Ancestors: Collections-ul.351
Fix http://bugs.squeak.org/view.php?id=6391
Assign correct unicode value to Euro character
(old value was that of MacRoman encoding - previously the generic currency symbol)
=============== Diff against Collections-ul.351 ===============
Item was changed:
----- Method: Character class>>euro (in category 'accessing untypeable characters') -----
euro
+ "The Euro currency sign, that E with two dashes. The code point is a official unicode ISO/IEC-10646-1"
- "The Euro currency sign, that E with two dashes. The key code is a wild guess"
+ ^ Unicode value: 16r20AC!
- ^ Character value: 219!