Squeak-dev January 2014

squeak-dev@lists.squeakfoundation.org

55 participants
379 discussions

Squeak 4.5: Tools-topa.517.mcz
by commits＠source.squeak.org 27 Jan '14

27 Jan '14

Chris Muller uploaded a new version of Tools to project Squeak 4.5: http://source.squeak.org/squeak45/Tools-topa.517.mcz ==================== Summary ==================== Name: Tools-topa.517 Author: topa Time: 26 January 2014, 12:36:41.637 am UUID: fd6f720d-f035-48c1-b660-aedf749aefef Ancestors: Tools-fbs.516 Move from Services-Base so it is unloadable without breaking browsing =============== Diff against Tools-fbs.516 =============== Item was added: + ----- Method: StringHolder>>codeTextMorph (in category '*Tools') ----- + codeTextMorph + ^ self dependents + detect: [:dep | (dep isKindOf: PluggableTextMorph) + and: [dep getTextSelector == #contents]] + ifNone: []!

1 0

Squeak 4.5: Kernel-topa.834.mcz
by commits＠source.squeak.org 27 Jan '14

27 Jan '14

Chris Muller uploaded a new version of Kernel to project Squeak 4.5: http://source.squeak.org/squeak45/Kernel-topa.834.mcz ==================== Summary ==================== Name: Kernel-topa.834 Author: topa Time: 25 January 2014, 11:55:18.392 pm UUID: 0184b773-5c2a-40a9-9922-3b1ba2443767 Ancestors: Kernel-topa.833 Move trait-backstops back to Kernel, so trait unloading still works. My previous change is now unecessary. =============== Diff against Kernel-cwp.832 =============== Item was added: + ----- Method: Behavior>>allTraits (in category 'Backstop-Traits') ----- + allTraits + "Backstop. When traits are unloaded there are no traits hiding here." + ^#()! Item was added: + ----- Method: Behavior>>hasTraitComposition (in category 'Backstop-Traits') ----- + hasTraitComposition + "Backstop. When traits are unloaded we never have a trait composition" + ^false! Item was added: + ----- Method: Behavior>>traitComposition (in category 'Backstop-Traits') ----- + traitComposition + "Backstop. When traits are unloaded we never have a trait composition" + ^#()! Item was added: + ----- Method: Behavior>>traitCompositionString (in category 'Backstop-Traits') ----- + traitCompositionString + "Backstop. Monticello needs a traitCompositionString even with traits unloaded" + ^'{}'!

1 0

Squeak 4.5: ReleaseBuilder-cmm.110.mcz
by commits＠source.squeak.org 27 Jan '14

27 Jan '14

Chris Muller uploaded a new version of ReleaseBuilder to project Squeak 4.5: http://source.squeak.org/squeak45/ReleaseBuilder-cmm.110.mcz ==================== Summary ==================== Name: ReleaseBuilder-cmm.110 Author: cmm Time: 26 January 2014, 10:21:03.554 pm UUID: 5afb9b3e-8e39-477a-be16-fbfaeb41a183 Ancestors: ReleaseBuilder-cmm.109 - #prepareNewRelease prepares the image pointing to the release repository, not Trunk. - By contrast, the daily non-release builds appropriately point to the #buildRepository, Trunk. - Be explicit about clearing MC passwords for a publicly-consumed build. =============== Diff against ReleaseBuilder-cmm.109 =============== Item was added: + ----- Method: ReleaseBuilder class>>buildRepository (in category 'private') ----- + buildRepository + ^ MCRepository trunk! Item was changed: ----- Method: ReleaseBuilder class>>prepareNewBuild (in category 'scripts') ----- prepareNewBuild + self prepareNewBuild: self buildRepository.! - self prepareNewBuild: self releaseRepository.! Item was changed: ----- Method: ReleaseBuilder class>>prepareNewBuild: (in category 'scripts') ----- prepareNewBuild: anMCRepository "ReleaseBuilderTrunk prepareNewBuild" "Prepare everything that should be done for a new image build" MCMcmUpdater updateMissingPackages: true. MCMcmUpdater enableUpdatesForAllPackages. TTCFont registerAll. RealEstateAgent standardSize: 600 @ 400. SystemVersion newVersion: self versionString. SMLoaderPlus setDefaultFilters: (OrderedCollection with: #filterSafelyAvailable). self setDisplayExtent: 800 @ 600 ; setPreferences ; switchToNewRepository: anMCRepository ; checkForDirtyPackages ; configureDesktop. Smalltalk cleanUp: true. + "Let's be explicit about clearing passwords for the publicly-consumed build." + "clearPasswords is not very thorough, it should be improved." + MCHttpRepository clearPasswords. + Utilities setAuthorInitials: String empty. Environment allInstancesDo: [ : env | env purgeUndeclared ]. Undeclared removeUnreferencedKeys. Smalltalk garbageCollect. [ self loadWellKnownPackages "<-- 4.5 is not ready for unloaded / reloaded packages" ]. Compiler recompileAll! Item was added: + ----- Method: ReleaseBuilder class>>prepareNewRelease (in category 'scripts') ----- + prepareNewRelease + "This method is run at time of release to transfer the top trunk versions into my releaseRepository, and produce a release image." + self + transferCurrentPackagesAsUser: Utilities authorInitials + password: (UIManager default requestPassword: 'Enter password for ' , self projectUrl). + self prepareNewBuild: self releaseRepository! Item was added: + ----- Method: ReleaseBuilder class>>projectUrl (in category 'private') ----- + projectUrl + ^ (self repositoryUrl , '/', (self versionString copyWithout: $.)) asLowercase! Item was changed: ----- Method: ReleaseBuilder class>>releaseRepository (in category 'private') ----- releaseRepository + ^ MCRepository location: self projectUrl! - "At release time, change 'trunk' to 'squeak45'." - ^ MCRepository trunk!

1 0

Re: The Inbox: Monticello-topa.585.mcz
by Stephan Eggermont 27 Jan '14

27 Jan '14

Chris wrote: >Each of my own application instances has its own SharedObjects >container. It's just a simple wrapper of some IdentityDictionary's, >one for Dates, one for literals (incl. Strings). This way, each >object belongs in its own persistent domain, and remaining a String to >avoid being forced to be shared across persistent domains. > >We should not let any one app bloat the SymbolTable (which can slow >down the system for ALL apps) merely for this purpose. If we want to >address this data redundancy, we should do so explicitly in the app >(MC). This is a recurring issue we should address it with a reusable >first-class SharedObjectsContainer (or something else acceptable). Ha, that’s the kind of comments I was hoping for. Thanks Tobias for pushing this. An application specific value object cache makes sense. Stephan

5 9

MNU in MCMcmUpdater >> #updateFromRepositories
by Frank Shearar 27 Jan '14

27 Jan '14

http://build.squeak.org/job/SqueakTrunk/787/console shows this failure: 2014-01-26T20:14:48.748+01:00: Conflict; choosing remote: 2014-01-26T20:14:48.766+01:00: Utilities class>>updateFromServer 2014-01-26T20:14:48.782+01:00: Resolved? true MultiByteFileStream(Object)>>error: MultiByteFileStream(Object)>>primitiveFailed: MultiByteFileStream(Object)>>primitiveFailed MultiByteFileStream(StandardFileStream)>>primSize: MultiByteFileStream(StandardFileStream)>>size MultiByteFileStream(StandardFileStream)>>setToEnd MessageNotUnderstood(Error)>>printVerboseOn: [] in UndefinedObject>>DoIt BlockClosure>>cull: [] in MethodContext(ContextPart)>>handleSignal: BlockClosure>>ensure: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MessageNotUnderstood(Exception)>>signal UndefinedObject(Object)>>doesNotUnderstand: #dependencies [] in [] in [] in [] in MCMcmUpdater class>>updateFromRepositories I've seen it a couple times before, and never quite figured out why. This method has two senders of #dependencies. This is the one by the "Skip packages that are not in the image" comment. frank

3 3

Re: [squeak-dev] The Inbox: Monticello-topa.585.mcz
by Tobias Pape 27 Jan '14

27 Jan '14

I’m late to the 4.5 wagon, I know. Probably this is not much but who knows: This was hinted by Stephan Eggermont. In one image that saved me 100k, but I think in images with much more versions loaded (seaside, magma, devel images) this could actually save a bunch. Best -Tobias PS: ignore 584, i had my changes file corrupted. On 25.01.2014, at 21:08, commits(a)source.squeak.org wrote: > A new version of Monticello was added to project The Inbox: > http://source.squeak.org/inbox/Monticello-topa.585.mcz > > ==================== Summary ==================== > > Name: Monticello-topa.585 > Author: topa > Time: 25 January 2014, 10:08:51.15 pm > UUID: ff122640-845a-402a-bd97-9fc79daea119 > Ancestors: Monticello-cmm.583 > > The number of distinct authors in the image is low: > (MCVersionInfo allInstances collect: [ :each | each author ]) asIdentitySet size. "13336" > (MCVersionInfo allInstances collect: [ :each | each author ]) asSet size. "128" > > Hence, we can safely store them as symbols. > This does not save much memory in a small image but should in > production images. > > =============== Diff against Monticello-cmm.583 =============== > > Item was changed: > ----- Method: MCVersionInfo>>asDictionary (in category 'converting') ----- > asDictionary > ^ Dictionary new > at: #name put: name; > at: #id put: id asString; > at: #message put: message; > at: #date put: date; > at: #time put: time; > + at: #author put: self author; > - at: #author put: author; > at: #ancestors put: (self ancestors collect: [:a | a asDictionary]); > yourself! > > Item was changed: > ----- Method: MCVersionInfo>>author (in category 'pillaging') ----- > author > + ^ author asString! > - ^ author! > > Item was changed: > ----- Method: MCVersionInfo>>initializeWithName:id:message:date:time:author:ancestors:stepChildren: (in category 'initialize-release') ----- > initializeWithName: vName id: aUUID message: aString date: aDate time: aTime author: initials ancestors: aCollection stepChildren: stepCollection > name := vName asString asMCVersionName. > id := aUUID. > message := aString. > date := aDate. > time := aTime. > + author := initials ifNotNil: [:str | str asSymbol]. > - author := initials. > ancestors := aCollection. > stepChildren := stepCollection! > > Item was changed: > ----- Method: MCVersionInfo>>summaryHeader (in category 'accessing') ----- > summaryHeader > ^ String streamContents: > [:s | > s > nextPutAll: 'Name: '; nextPutAll: self name; cr. > date ifNotNil: > [s > + nextPutAll: 'Author: '; nextPutAll: self author; cr; > - nextPutAll: 'Author: '; nextPutAll: author; cr; > nextPutAll: 'Time: '; nextPutAll: date asString, ', ', time asString; cr]. > id ifNotNil: > [s nextPutAll: 'UUID: '; nextPutAll: id asString; cr]. > s > nextPutAll: 'Ancestors: '; nextPutAll: self ancestorString. > self stepChildren isEmpty ifFalse: > [s cr; nextPutAll: 'Backported From: '; nextPutAll: self stepChildrenString]. > ]! > > Item was added: > + (PackageInfo named: 'Monticello') postscript: '(MCVersionInfo allInstances select: [ :ea | (ea instVarNamed: ''author'') isSymbol not ]) > + do: [ :ea | ea instVarNamed: ''author'' put: (ea instVarNamed: ''author'') asSymbol] > + '! > >

4 5

I wish be in the SOB
by Edgar De Cleene 27 Jan '14

27 Jan '14

Folks: I was the lucky guy having Ralph Johnson leading the 3.10 release process an who start the actual process of download some packages and work with Monticello instead of change sets. Later all was polished by Andreas , sill have the many mails we exchange as a treasure. Also make the SqueakLight and FunSqueak projects. The goal is start as small and simple as possible and grow to any past or present Squeak project. This days , for the 3 possible starting points: Spoon Cuis Pavel kernel via Oz I choose Cuis 3.1 reduced and was able to have DragAndDrop in it (kind of) see demo here http://www.youtube.com/watch?v=kORHwSsKeWU Also was present in Smalltalks, last here in Rosario http://www.fast.org.ar/smalltalks2013. And we have a Spanish group here http://ar.groups.yahoo.com/neo/groups/squeakRos/info Could contact me with: Twitter @morplenauta Facebook https://www.facebook.com/edgar.decleene So we wish be in the next SOB and ask for your support. Edgar

1 0

Re: [squeak-dev] The Trunk: Tools-cmm.347.mcz
by karl ramberg 27 Jan '14

27 Jan '14

I miss the menu options to inspect and explore class variables. This change makes it much harder to inspect values stored in class variables Cheers, Karl On Tue, May 3, 2011 at 1:36 AM, <commits(a)source.squeak.org> wrote: > Chris Muller uploaded a new version of Tools to project The Trunk: > http://source.squeak.org/trunk/Tools-cmm.347.mcz > > ==================== Summary ==================== > > Name: Tools-cmm.347 > Author: cmm > Time: 2 May 2011, 6:36:40.244 pm > UUID: 977c180b-7c15-4200-9ceb-319d2e850364 > Ancestors: Tools-fbs.346, Tools-fbs.345 > > - Update menu "inst var defs" to "assignments..." and "inst var refs" to > "references...". Each option now includes a selection of the available > class-variables, enabling "class var refs" to be removed. Each option also > has an appropriate hot-key assignment. > - Removed "class vars" because one could simply explore the class' > classPool. > > =============== Diff against Tools-fbs.346 =============== > > Item was changed: > ----- Method: Browser>>classListMenu:shifted: (in category 'class > functions') ----- > classListMenu: aMenu shifted: shifted > "Set up the menu to apply to the receiver's class list, honoring > the #shifted boolean" > self > menuHook: aMenu > named: #classListMenu > shifted: shifted. > Preferences useOnlyServicesInMenu ifTrue:[^aMenu]. > shifted ifTrue:[^ self shiftedClassListMenu: aMenu]. > aMenu addList: #( > - > ('browse full (b)' browseMethodFull) > ('browse hierarchy (h)' spawnHierarchy) > ('browse protocol (p)' browseFullProtocol) > - > ('printOut' > printOutClass) > ('fileOut' > fileOutClass) > - > ('show hierarchy' hierarchy) > ('show definition' editClass) > ('show comment' editComment) > - > + ('references... (r)' > browseVariableReferences) > + ('assignments... (a)' > browseVariableAssignments) > - ('inst var refs...' browseInstVarRefs) > - ('inst var defs...' browseInstVarDefs) > - - > - ('class var refs...' browseClassVarRefs) > - ('class vars' > browseClassVariables) > ('class refs (N)' > browseClassRefs) > - > ('rename class ...' renameClass) > ('copy class' copyClass) > ('remove class (x)' removeClass) > - > ('find method...' findMethod) > - > ('more...' > offerShiftedClassListMenu)). > ^ aMenu > ! > > Item was changed: > ----- Method: Browser>>messageListMenu:shifted: (in category 'message > functions') ----- > messageListMenu: aMenu shifted: shifted > "Answer the message-list menu" > self > menuHook: aMenu > named: #messageListMenu > shifted: shifted. > Preferences useOnlyServicesInMenu ifTrue:[^aMenu]. > shifted ifTrue: [^ self shiftedMessageListMenu: aMenu]. > aMenu addList: #( > ('what to show...' > offerWhatToShowMenu) > ('toggle break on entry' > toggleBreakOnEntry) > - > ('browse full (b)' > browseMethodFull) > ('browse hierarchy (h)' > classHierarchy) > ('browse method (O)' > openSingleMessageBrowser) > ('browse protocol (p)' > browseFullProtocol) > - > ('fileOut' > fileOutMessage) > ('printOut' > printOutMessage) > ('copy selector (c)' > copySelector) > ('copy reference' > copyReference) > - > ('senders of... (n)' > browseSendersOfMessages) > ('implementors of... (m)' > browseMessages) > ('inheritance (i)' > methodHierarchy) > ('versions (v)' > browseVersions) > - > + ('references... (r)' > browseVariableReferences) > + ('assignments... (a)' > browseVariableAssignments) > - ('inst var refs...' > browseInstVarRefs) > - ('inst var defs...' > browseInstVarDefs) > - ('class var refs...' > browseClassVarRefs) > - ('class variables' > browseClassVariables) > ('class refs (N)' > browseClassRefs) > - > ('remove method (x)' > removeMessage) > ('explore method' > exploreMethod) > ('inspect method' > inspectMethod) > - > ('more...' > shiftedYellowButtonActivity)). > ^ aMenu! > > Item was changed: > ----- Method: Browser>>reformulateList (in category 'message list') ----- > reformulateList > "If the receiver has a way of reformulating its message list, here > is a chance for it to do so" > super reformulateList. > (self messageList includes: self selectedMessageName) > + ifFalse: [ self messageList > + ifEmpty: [ self > selectMessageNamed: nil ] > + ifNotEmpty: [ self > selectMessageNamed: self lastMessageName ]].! > - ifFalse: [ self selectMessageNamed: self lastMessageName > ].! > > Item was changed: > ----- Method: ChangeSorter>>classListMenu:shifted: (in category 'class > list') ----- > classListMenu: aMenu shifted: shifted > "Fill aMenu with items appropriate for the class list" > > aMenu title: 'class list'. > aMenu addStayUpItemSpecial. > (parent notNil and: [shifted not]) > ifTrue: [aMenu addList: #( "These two only apply to dual > change sorters" > ('copy class chgs to other side' > copyClassToOther) > ('move class chgs to other side' > moveClassToOther))]. > > aMenu addList: (shifted > ifFalse: [#( > - > ('delete class from change set (d)' > forgetClass) > ('remove class from system (x)' > removeClass) > - > ('browse full (b)' > browseMethodFull) > ('browse hierarchy (h)' > spawnHierarchy) > ('browse protocol (p)' > browseFullProtocol) > - > ('printOut' > printOutClass) > ('fileOut' > fileOutClass) > - > + ('references... (r)' > browseVariableReferences) > + ('assignments... (a)' > browseVariableAssignments) > - ('inst var refs...' > browseInstVarRefs) > - ('inst var defs...' > browseInstVarDefs) > - ('class var refs...' > browseClassVarRefs) > - ('class vars' > browseClassVariables) > ('class refs (N)' > browseClassRefs) > - > ('more...' > offerShiftedClassListMenu))] > > ifTrue: [#( > - > ('unsent methods' > browseUnusedMethods) > ('unreferenced inst vars' > showUnreferencedInstVars) > ('unreferenced class vars' > showUnreferencedClassVars) > - > ('sample instance' > makeSampleInstance) > ('inspect instances' > inspectInstances) > ('inspect subinstances' > inspectSubInstances) > - > ('more...' > offerUnshiftedClassListMenu ))]). > ^ aMenu! > > Item was changed: > ----- Method: CodeHolder>>abbreviatedWordingFor: (in category > 'commands') ----- > abbreviatedWordingFor: aButtonSelector > + "Answer the abbreviated form of wording, from a static table. > Answer nil if there is no entry -- in which case the long form will be > used on the corresponding browser button." > - "Answer the abbreviated form of wording, from a static table which > you're welcome to edit. Answer nil if there is no entry -- in which case > the long firm will be used on the corresponding browser button." > > #( > (browseMethodFull 'browse') > (browseSendersOfMessages 'senders') > (browseMessages 'impl') > (browseVersions 'vers') > (methodHierarchy 'inher') > (classHierarchy 'hier') > + (browseVariableReferences 'refs') > - (browseInstVarRefs 'iVar') > - (browseClassVarRefs 'cVar') > (offerMenu 'menu')) > do: > > [:pair | pair first == aButtonSelector ifTrue: [^ pair > second]]. > ^ nil! > > Item was changed: > ----- Method: CodeHolder>>messageListKey:from: (in category 'message > list menu') ----- > messageListKey: aChar from: view > "Respond to a Command key. I am a model with a code pane, and I > also > have a listView that has a list of methods. The view knows how to > get > the list and selection." > > | sel class | > aChar == $D ifTrue: [^ self toggleDiffing]. > > sel := self selectedMessageName. > aChar == $m ifTrue: "These next two put up a type in if no > message selected" > [^ self useSelector: sel orGetSelectorAndSendQuery: > #browseAllImplementorsOf: to: self ]. > aChar == $n ifTrue: > [^ self useSelector: sel orGetSelectorAndSendQuery: > #browseAllCallsOn: to: self ]. > > "The following require a class selection" > (class := self selectedClassOrMetaClass) ifNil: [^ self arrowKey: > aChar from: view]. > aChar == $b ifTrue: [^ Browser fullOnClass: class selector: sel]. > aChar == $N ifTrue: [^ self browseClassRefs]. > aChar == $i ifTrue: [^ self methodHierarchy]. > aChar == $h ifTrue: [^ self classHierarchy]. > aChar == $p ifTrue: [^ self browseFullProtocol]. > + aChar == $r ifTrue: [^ self browseVariableReferences]. > + aChar == $a ifTrue: [^ self browseVariableAssignments]. > > + > "The following require a method selection" > sel ifNotNil: > [aChar == $o ifTrue: [^ self fileOutMessage]. > aChar == $c ifTrue: [^ self copySelector]. > aChar == $v ifTrue: [^ self browseVersions]. > aChar == $O ifTrue: [^ self openSingleMessageBrowser]. > aChar == $x ifTrue: [^ self removeMessage]. > aChar == $d ifTrue: [^ self removeMessageFromBrowser]. > > (aChar == $C and: [self canShowMultipleMessageCategories]) > ifTrue: [^ self showHomeCategory]]. > > ^ self arrowKey: aChar from: view! > > Item was changed: > ----- Method: CodeHolder>>optionalButtonPairs (in category 'controls') > ----- > optionalButtonPairs > "Answer a tuple (formerly pairs) defining buttons, in the format: > button label > selector to send > help message" > > | aList | > > aList := #( > ('browse' browseMethodFull > 'view this method in a browser') > ('senders' browseSendersOfMessages 'browse > senders of...') > ('implementors' browseMessages > 'browse implementors of...') > ('versions' browseVersions > 'browse versions')), > > (Preferences decorateBrowserButtons > ifTrue: > [{#('inheritance' methodHierarchy > 'browse method inheritance > green: sends to super > tan: has override(s) > mauve: both of the above > pink: is an override but doesn''t call super > pinkish tan: has override(s), also is an override but doesn''t call > super' )}] > ifFalse: > [{#('inheritance' methodHierarchy > 'browse method inheritance')}]), > > #( > ('hierarchy' classHierarchy > 'browse class hierarchy') > + ('vars' browseVariableReferences > 'references...')). > - ('inst vars' browseInstVarRefs > 'inst var refs...') > - ('class vars' browseClassVarRefs > 'class var refs...')). > > ^ aList! > > Item was added: > + ----- Method: CodeHolder>>receiverClass (in category 'toolbuilder') ----- > + receiverClass > + ^ self selectedClassOrMetaClass ! > > Item was added: > + ----- Method: Debugger>>classHierarchy (in category 'toolbuilder') ----- > + classHierarchy > + "Create and schedule a class list browser on the receiver's > hierarchy." > + (self selectedMessageName = #doesNotUnderstand: and: [ self > selectedClassOrMetaClass = Object ]) > + ifTrue: > + [ self systemNavigation > + spawnHierarchyForClass: self receiverClass > + selector: self selectedMessageName ] > + ifFalse: [ super classHierarchy ]! > > Item was changed: > ----- Method: Debugger>>contextStackMenu:shifted: (in category 'context > stack menu') ----- > contextStackMenu: aMenu shifted: shifted > "Set up the menu appropriately for the context-stack-list, either > shifted or unshifted as per the parameter provided" > > ^ shifted ifFalse:[ > aMenu addList: { > {'fullStack (f)'. #fullStack}. > {'restart (r)'. #restart}. > {'proceed (p)'. #proceed}. > {'step (t)'. #doStep}. > {'step through (T)'. #stepIntoBlock}. > {'send (e)'. #send}. > {'where (w)'. #where}. > {'peel to first like this'. > #peelToFirst}. > #-. > {'return entered value'. > #returnValue}. > #-. > {'toggle break on entry'. > #toggleBreakOnEntry}. > {'senders of... (n)'. > #browseSendersOfMessages}. > {'implementors of... (m)'. #browseMessages}. > {'inheritance (i)'. #methodHierarchy}. > #-. > {'versions (v)'. #browseVersions}. > - {'inst var refs...'. > #browseInstVarRefs}. > #-. > + {'references... (r)'. > #browseVariableReferences}. > + {'assignments... (a)'. > #browseVariableAssignments}. > - {'inst var defs...'. #browseInstVarDefs}. > - {'class var refs...'. #browseClassVarRefs}. > - {'class variables'. #browseClassVariables}. > #-. > {'class refs (N)'. #browseClassRefs}. > {'browse full (b)'. #browseMethodFull}. > {'file out '. #fileOutMessage}. > #-. > {'mail out bug report'. #mailOutBugReport}. > {'more...'. > #shiftedYellowButtonActivity}. > }. > ] ifTrue: [ > aMenu addList: { > {'browse class hierarchy'. #classHierarchy}. > {'browse class'. > #browseClass}. > {'browse method (O)'. > #openSingleMessageBrowser}. > {'implementors of sent messages'. > #browseAllMessages}. > {'change sets with this method'. > #findMethodInChangeSets}. > #-. > {'inspect instances'. #inspectInstances}. > {'inspect subinstances'. > #inspectSubInstances}. > #-. > {'revert to previous version'. > #revertToPreviousVersion}. > {'remove from current change set'. > #removeFromCurrentChanges}. > {'revert & remove from changes'. > #revertAndForget}. > #-. > {'more...'. > #unshiftedYellowButtonActivity}. > } > ].! > > Item was added: > + ----- Method: Debugger>>receiverClass (in category 'toolbuilder') ----- > + receiverClass > + ^ self selectedContext receiver class! > > Item was removed: > - ----- Method: Inspector>>classVarRefs (in category 'menu commands') ----- > - classVarRefs > - "Request a browser of methods that store into a chosen instance > variable" > - > - | aClass | > - (aClass := self classOfSelection) ifNotNil: > - [self systemNavigation browseClassVarRefs: aClass]. > - ! > > Item was changed: > ----- Method: Inspector>>fieldListMenu: (in category 'menu commands') > ----- > fieldListMenu: aMenu > "Arm the supplied menu with items for the field-list of the > receiver" > > aMenu addStayUpItemSpecial. > > aMenu addList: #( > ('inspect (i)' > inspectSelection) > ('explore (I)' > exploreSelection)). > > self addCollectionItemsTo: aMenu. > > aMenu addList: #( > - > ('method refs to this inst var' > referencesToSelection) > ('methods storing into this inst var' defsOfSelection) > ('objects pointing to this value' > objectReferencesToSelection) > ('chase pointers' > chasePointers) > ('explore pointers' > explorePointers) > - > ('browse full (b)' > browseMethodFull) > ('browse class' > browseClass) > ('browse hierarchy (h)' > classHierarchy) > ('browse protocol (p)' > browseFullProtocol) > - > + ('references... (r)' > browseVariableReferences) > + ('assignments... (a)' > browseVariableAssignments) > - ('inst var refs...' > browseInstVarRefs) > - ('inst var defs...' > browseInstVarDefs) > - ('class var refs...' > classVarRefs) > - ('class variables' > browseClassVariables) > ('class refs (N)' > browseClassRefs) > - > ('copy name (c)' > copyName) > ('basic inspect' > inspectBasic)). > > Smalltalk isMorphic ifTrue: > [aMenu addList: #( > - > ('tile for this value (t)' > tearOffTile) > ('viewer for this value (v)' > viewerForValue))]. > > ^ aMenu > > > " - > ('alias for this value' > aliasForValue) > ('watcher for this slot' > watcherForSlot)" > > ! > > Item was changed: > ----- Method: RecentMessageSet>>messageListMenu:shifted: (in category > 'message functions') ----- > messageListMenu: aMenu shifted: shifted > "Answer the message-list menu" > > shifted ifTrue: [^ self shiftedMessageListMenu: aMenu]. > aMenu addList:#( > ('what to show...' > offerWhatToShowMenu) > - > ('browse full (b)' > browseMethodFull) > ('browse hierarchy (h)' > classHierarchy) > ('browse method (O)' > openSingleMessageBrowser) > ('browse protocol (p)' > browseFullProtocol) > - > ('fileOut (o)' > fileOutMessage) > ('printOut' > printOutMessage) > ('copy selector (c)' > copySelector) > ('copy reference' > copyReference) > - > ('senders of... (n)' > browseSendersOfMessages) > ('implementors of... (m)' > browseMessages) > ('inheritance (i)' > methodHierarchy) > ('versions (v)' > browseVersions) > - > + ('references... (r)' > browseVariableReferences) > + ('assignments... (a)' > browseVariableAssignments) > - ('inst var refs...' > browseInstVarRefs) > - ('inst var defs...' > browseInstVarDefs) > - ('class var refs...' > browseClassVarRefs) > - ('class variables' > browseClassVariables) > ('class refs (N)' > browseClassRefs) > - > ('remove method (x)' > removeMessage) > ('remove from RecentSubmissions' > removeFromRecentSubmissions) > - > ('more...' > shiftedYellowButtonActivity)). > ^ aMenu! > > Item was removed: > - ----- Method: StringHolder>>browseClassVarRefs (in category > '*Tools-traits') ----- > - browseClassVarRefs > - "1/17/96 sw: devolve responsibility to the class, so that the code > that does the real work can be shared" > - > - | cls | > - cls := self selectedClass. > - (cls notNil and: [cls isTrait not]) > - ifTrue: [self systemNavigation browseClassVarRefs: cls]! > > Item was removed: > - ----- Method: StringHolder>>browseClassVariables (in category > '*Tools-traits') ----- > - browseClassVariables > - "Browse the class variables of the selected class. 2/5/96 sw" > - | cls | > - cls := self selectedClass. > - (cls notNil and: [cls isTrait not]) > - ifTrue: [self systemNavigation browseClassVariables: cls] > - ! > > Item was removed: > - ----- Method: StringHolder>>browseInstVarDefs (in category > '*Tools-traits') ----- > - browseInstVarDefs > - > - | cls | > - cls := self selectedClassOrMetaClass. > - (cls notNil and: [cls isTrait not]) > - ifTrue: [self systemNavigation browseInstVarDefs: cls]! > > Item was removed: > - ----- Method: StringHolder>>browseInstVarRefs (in category > '*Tools-traits') ----- > - browseInstVarRefs > - "1/26/96 sw: real work moved to class, so it can be shared" > - | cls | > - cls := self selectedClassOrMetaClass. > - (cls notNil and: [cls isTrait not]) > - ifTrue: [self systemNavigation browseInstVarRefs: cls]! > > Item was added: > + ----- Method: StringHolder>>browseVariableAssignments (in category > '*Tools-traits') ----- > + browseVariableAssignments > + | cls | > + cls := self selectedClassOrMetaClass. > + (cls notNil and: [ cls isTrait not ]) ifTrue: [ self > systemNavigation browseVariableAssignments: cls ]! > > Item was added: > + ----- Method: StringHolder>>browseVariableReferences (in category > '*Tools-traits') ----- > + browseVariableReferences > + | cls | > + cls := self selectedClassOrMetaClass. > + (cls notNil and: [cls isTrait not]) > + ifTrue: [self systemNavigation browseVariableReferences: > cls]! > > Item was changed: > ----- Method: StringHolder>>classListKey:from: (in category '*Tools') > ----- > classListKey: aChar from: view > "Respond to a Command key. I am a model with a list of classes > and a > code pane, and I also have a listView that has a list of methods. > The > view knows how to get the list and selection." > > aChar == $f ifTrue: [^ self findMethod]. > + aChar == $r ifTrue: [^ self browseVariableReferences]. > + aChar == $a ifTrue: [^ self browseVariableAssignments]. > - aChar == $r ifTrue: [^ self browseInstVarRefs]. > - aChar == $d ifTrue: [^ self browseInstVarDefs]. > aChar == $h ifTrue: [^ self spawnHierarchy]. > aChar == $x ifTrue: [^ self removeClass]. > ^ self messageListKey: aChar from: view! > > >

2 2

trunk
by Tobias Pape 27 Jan '14

27 Jan '14

Hi: the just downloaded trunk (build 774) cannot be opened in Squeak 5.8b12.app Just fyi :) Best -Tobias

3 9

The Trunk: ReleaseBuilder-cmm.110.mcz
by commits＠source.squeak.org 27 Jan '14

27 Jan '14

Chris Muller uploaded a new version of ReleaseBuilder to project The Trunk: http://source.squeak.org/trunk/ReleaseBuilder-cmm.110.mcz ==================== Summary ==================== Name: ReleaseBuilder-cmm.110 Author: cmm Time: 26 January 2014, 10:21:03.554 pm UUID: 5afb9b3e-8e39-477a-be16-fbfaeb41a183 Ancestors: ReleaseBuilder-cmm.109 - #prepareNewRelease prepares the image pointing to the release repository, not Trunk. - By contrast, the daily non-release builds appropriately point to the #buildRepository, Trunk. - Be explicit about clearing MC passwords for a publicly-consumed build. =============== Diff against ReleaseBuilder-cmm.109 =============== Item was added: + ----- Method: ReleaseBuilder class>>buildRepository (in category 'private') ----- + buildRepository + ^ MCRepository trunk! Item was changed: ----- Method: ReleaseBuilder class>>prepareNewBuild (in category 'scripts') ----- prepareNewBuild + self prepareNewBuild: self buildRepository.! - self prepareNewBuild: self releaseRepository.! Item was changed: ----- Method: ReleaseBuilder class>>prepareNewBuild: (in category 'scripts') ----- prepareNewBuild: anMCRepository "ReleaseBuilderTrunk prepareNewBuild" "Prepare everything that should be done for a new image build" MCMcmUpdater updateMissingPackages: true. MCMcmUpdater enableUpdatesForAllPackages. TTCFont registerAll. RealEstateAgent standardSize: 600 @ 400. SystemVersion newVersion: self versionString. SMLoaderPlus setDefaultFilters: (OrderedCollection with: #filterSafelyAvailable). self setDisplayExtent: 800 @ 600 ; setPreferences ; switchToNewRepository: anMCRepository ; checkForDirtyPackages ; configureDesktop. Smalltalk cleanUp: true. + "Let's be explicit about clearing passwords for the publicly-consumed build." + "clearPasswords is not very thorough, it should be improved." + MCHttpRepository clearPasswords. + Utilities setAuthorInitials: String empty. Environment allInstancesDo: [ : env | env purgeUndeclared ]. Undeclared removeUnreferencedKeys. Smalltalk garbageCollect. [ self loadWellKnownPackages "<-- 4.5 is not ready for unloaded / reloaded packages" ]. Compiler recompileAll! Item was added: + ----- Method: ReleaseBuilder class>>prepareNewRelease (in category 'scripts') ----- + prepareNewRelease + "This method is run at time of release to transfer the top trunk versions into my releaseRepository, and produce a release image." + self + transferCurrentPackagesAsUser: Utilities authorInitials + password: (UIManager default requestPassword: 'Enter password for ' , self projectUrl). + self prepareNewBuild: self releaseRepository! Item was added: + ----- Method: ReleaseBuilder class>>projectUrl (in category 'private') ----- + projectUrl + ^ (self repositoryUrl , '/', (self versionString copyWithout: $.)) asLowercase! Item was changed: ----- Method: ReleaseBuilder class>>releaseRepository (in category 'private') ----- releaseRepository + ^ MCRepository location: self projectUrl! - "At release time, change 'trunk' to 'squeak45'." - ^ MCRepository trunk!

1 0

← Newer
1
2
3
4
5
6
7
8
9
...
38
Older →

Jump to page: