A new version of Monticello.impl was added to project Monticello Public:
http://www.squeaksource.com/mc/Monticello.impl-mtf.560.mcz
==================== Summary ====================
Name: Monticello.impl-mtf.560
Author: mtf
Time: 22 July 2008, 11:14:05 am
UUID: 903ded31-2f2b-4403-99b2-28a6c4b37db8
Ancestors: Monticello.impl-mtf.559
Removed Time class >> fromString:; MC doesn't use it and it was moved to Kernel-Extensions
Made cmd-s from the save dialog commit the package
=============== Diff against Monticello.impl-mtf.559 ===============
Item was changed:
----- Method: MCSaveVersionDialog>>logMessage: (in category 'as yet unclassified') -----
logMessage: aString
message := aString.
+ self changed: #logMessage.
+ self accept.!
- self changed: #logMessage!
Item was removed:
- ----- Method: Time class>>fromString: (in category '*monticello') -----
- fromString: aString
- ^ self readFrom: (ReadStream on: aString).
- !
A new version of Monticello.impl was added to project Monticello Public:
http://www.squeaksource.com/mc/Monticello.impl-mtf.559.mcz
==================== Summary ====================
Name: Monticello.impl-mtf.559
Author: mtf
Time: 21 July 2008, 9:54:21 pm
UUID: d58e5640-7b74-47d8-aad3-c8c35d197c01
Ancestors: Monticello.impl-mtf.558
fix to allow parsing the package named 'OB-Standard-dc..312.mcz'
=============== Diff against Monticello.impl-mtf.558 ===============
Item was changed:
----- Method: MCVersionInfo>>versionTokens (in category 'pillaging') -----
versionTokens
+ ^ self nameAfterLastDashAsTokens select: [ :ea | ea notEmpty and: [ ea first isDigit ] ]
- ^ self nameAfterLastDashAsTokens select: [ :ea | ea first isDigit ]
!
A new version of Monticello.impl was added to project Monticello Public:
http://www.squeaksource.com/mc/Monticello.impl-mtf.558.mcz
==================== Summary ====================
Name: Monticello.impl-mtf.558
Author: mtf
Time: 21 July 2008, 7:02:09 pm
UUID: 34bc08f3-6600-4d72-bf99-561eeccb95a1
Ancestors: Monticello.impl-mtf.557
Merged in changes from Pharo, as follows:
sd.309: No change; we already have MCWorkingCopy>>printOn:
sd.310: No change; we already changed _ to :=
sd.313: Removed MCCodeTool>>printOutMessage and its menu item
sd.314: Removed MVC support from MCCodeTool>>browseFullProtocol
stephane.ducasse.315: Innapropriate; Author is Pharo-specific
stephane.ducasse.316: No change; we already made a better HTTP creation template
AlexandreBergel.320:
- Added MCRepositoryGroup>>useCache and senders
- Sort dirty packages to the top of the MC Browser
- Opaque change to MCTool>>buttonRow:
=============== Diff against Monticello.impl-mtf.557 ===============
Item was added:
+ ----- Method: MCRepositoryGroup>>useCache (in category 'as yet unclassified') -----
+ useCache
+ ^ useCache ifNil: [
+ useCache := true
+ ]!
Item was changed:
----- Method: MCWorkingCopyBrowser>>workingCopies (in category 'morphic ui') -----
workingCopies
+ "List the working copies with the changed packages at the top"
+
+ | c |
+ c := MCWorkingCopy allManagers asSortedCollection:
+ [ :a :b | a package name <= b package name ].
+ ^ (c select: [:mc| mc needsSaving]) asOrderedCollection, (c reject: [:mc| mc needsSaving]) asOrderedCollection.
+ !
- ^ MCWorkingCopy allManagers asSortedCollection:
- [ :a :b | a package name <= b package name ]!
Item was changed:
----- Method: MCRepositoryGroup>>repositories (in category 'as yet unclassified') -----
repositories
+ ^ (self useCache
+ ifTrue: [Array with: MCCacheRepository default]
+ ifFalse: [Array new]) , repositories select: [ :ea | ea isValid ]
+ !
- ^ ((Array with: MCCacheRepository default), repositories) select: [ :ea | ea isValid ]!
Item was changed:
Object subclass: #MCRepositoryGroup
+ instanceVariableNames: 'repositories useCache'
- instanceVariableNames: 'repositories'
classVariableNames: ''
poolDictionaries: ''
category: 'Monticello-Versioning'!
MCRepositoryGroup class
instanceVariableNames: 'default'!
!MCRepositoryGroup commentStamp: '<historical>' prior: 0!
A singleton class, holds the list of repositories. Can look for a requested VersionInfo among its repositories.!
Item was added:
+ ----- Method: MCRepositoryGroup>>disableCache (in category 'as yet unclassified') -----
+ disableCache
+ useCache := false!
Item was changed:
----- Method: MCCodeTool>>methodListMenu: (in category 'menus') -----
methodListMenu: aMenu
"Build the menu for the selected method, if any."
self selectedMessageName ifNotNil: [
aMenu addList:#(
('browse full (b)' browseMethodFull)
('browse hierarchy (h)' classHierarchy)
('browse method (O)' openSingleMessageBrowser)
('browse protocol (p)' browseFullProtocol)
-
('fileOut (o)' fileOutMessage)
- ('printOut' printOutMessage)
- ('copy class and selector' copyClassAndSelector)
('copy selector (c)' copySelector)).
aMenu addList: #(
-
('browse senders (n)' browseSendersOfMessages)
('browse implementors (m)' browseMessages)
('inheritance (i)' methodHierarchy)
('versions (v)' browseVersions)
('change sets with this method' findMethodInChangeSets)
" ('x revert to previous version' revertToPreviousVersion)"
('remove from current change set' removeFromCurrentChanges)
" ('x revert & remove from changes' revertAndForget)"
('add to current change set' adoptMessageInCurrentChangeset)
" ('x copy up or copy down...' copyUpOrCopyDown)"
" ('x remove method (x)' removeMessage)"
"-"
).
].
" aMenu addList: #(
('x inst var refs...' browseInstVarRefs)
('x inst var defs...' browseInstVarDefs)
('x class var refs...' browseClassVarRefs)
('x class variables' browseClassVariables)
('x class refs (N)' browseClassRefs)
).
"
^ aMenu
!
Item was changed:
----- Method: MCCodeTool>>browseFullProtocol (in category 'menus') -----
browseFullProtocol
+ "Open up a protocol-category browser on the value of the
+ receiver's current selection."
+
+ ^ self spawnFullProtocol!
- "Open up a protocol-category browser on the value of the receiver's current selection. If in mvc, an old-style protocol browser is opened instead. Someone who still uses mvc might wish to make the protocol-category-browser work there too, thanks."
-
- | aClass |
-
- (Smalltalk isMorphic and: [Smalltalk includesKey: #Lexicon]) ifFalse: [^ self spawnFullProtocol].
- (aClass := self selectedClassOrMetaClass) ifNotNil:
- [(Smalltalk at: #Lexicon) new openOnClass: aClass inWorld: ActiveWorld showingSelector: self selectedMessageName]!
Item was changed:
----- Method: MCTool>>buttonRow: (in category 'morphic ui') -----
buttonRow: specArray
| aRow aButton state |
aRow := AlignmentMorph newRow.
aRow
color: (Display depth <= 8 ifTrue: [Color transparent] ifFalse: [Color gray alpha: 0.2]);
borderWidth: 0.
aRow hResizing: #spaceFill; vResizing: #spaceFill; rubberBandCells: true.
aRow clipSubmorphs: true.
+ aRow layoutInset: 2@2; cellInset: 1; color: Color white.
- aRow layoutInset:2@2; cellInset: 1; color: Color white.
aRow wrapCentering: #center; cellPositioning: #leftCenter.
specArray do:
[:triplet |
+ state := triplet at: 5 ifAbsent: [#buttonState].
- state := triplet at: 4 ifAbsent: [#buttonState].
aButton := PluggableButtonMorph
on: self
getState: state
action: #performButtonAction:enabled:.
aButton
hResizing: #spaceFill;
vResizing: #spaceFill;
label: triplet first asString;
+ arguments: (Array with: triplet second with: (triplet at: 4 ifAbsent: [#buttonEnabled]));
- arguments: (Array with: triplet second with: state);
onColor: Color white offColor: Color white.
aRow addMorphBack: aButton.
aButton setBalloonText: triplet third].
-
^ aRow!
Item was removed:
- ----- Method: MCCodeTool>>printOutMessage (in category 'menus') -----
- printOutMessage
- "Write a file with the text of the selected message, for printing by a web browser"
-
- self selectedMessageName ifNotNil: [
- self selectedClassOrMetaClass fileOutMethod: self selectedMessageName
- asHtml: true]!
A new version of SystemEditor was added to project SystemEditor:
http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.107.mcz
==================== Summary ====================
Name: SystemEditor-mtf.107
Author: mtf
Time: 18 July 2008, 4:39:51 pm
UUID: affae387-bcd7-4396-bbe3-52aebdcfd374
Ancestors: SystemEditor-mtf.106
Work around a Croquet bug in ClassOrganizer>>classComment:stamp:
=============== Diff against SystemEditor-mtf.106 ===============
Item was added:
+ ----- Method: ClassOrganizer>>edClassComment:stamp: (in category '*SystemEditor-workaround') -----
+ edClassComment: aString stamp: aStamp
+ "Set the comment and stamp directly, with no checks.This works around a silly check in ClassOrganizer>>classComment:stamp: in Croquet. This check raises an error if the subject is either nil or a metaclass. The check does not exist in Squeak 3.8 and above"
+ ^ super classComment: aString stamp: aStamp!
Item was changed:
----- Method: OrganizationEditor>>build (in category 'building') -----
build
| result |
self subject.
subject ifNil: [
result := ClassOrganizer defaultList: #()]
ifNotNil: [
result := ClassOrganizer defaultList: self subject elementArray.
self subject categories ifNotNilDo:
[:categories | categories do: [:ea |
result classifyAll: (subject listAtCategoryNamed: ea) under: ea]]].
classEditor edMethodsDo: [:ea |
result classify: ea selector under: (self categoryOfElement: ea selector)].
+ result
+ edClassComment: self commentRemoteStr
+ stamp: self commentStamp.
- result classComment: self commentRemoteStr stamp: self commentStamp.
^ result!
A new version of Monticello.impl was added to project Monticello Public:
http://www.squeaksource.com/mc/Monticello.impl-kph.556.mcz
==================== Summary ====================
Name: Monticello.impl-kph.556
Author: kph
Time: 16 July 2008, 4:16:41 pm
UUID: 5b55bfd6-b2ce-4ffc-9483-0caf6ebd8c29
Ancestors: Monticello.impl-mtf.555
reset unlinked count when clearing orphans
=============== Diff against Monticello.impl-mtf.555 ===============
Item was changed:
----- Method: MCOrphanage>>initialize (in category 'initialize-release') -----
initialize
+ orphans := Set new.
+ unlinkedCount := nil.!
- orphans := Set new.!