Squeak-dev March 2011

squeak-dev@lists.squeakfoundation.org

84 participants
416 discussions

The Inbox: ST80-nice.127.mcz
by commits＠source.squeak.org 31 Mar '11

31 Mar '11

A new version of ST80 was added to project The Inbox: http://source.squeak.org/inbox/ST80-nice.127.mcz ==================== Summary ==================== Name: ST80-nice.127 Author: nice Time: 31 March 2011, 10:05:15.793 pm UUID: 04b556c6-fdea-46d0-b21a-9160ebd94302 Ancestors: ST80-nice.126 Get rid of FakeClassPool and #failedDoIt references. This is implemented by the mean of #evaluateSelectionAndDo: This method will pass the result to aBlock argument in case of success, and avoid testing for arbitrary return value (FakeClassPool new or #failedDoit) =============== Diff against ST80-nice.126 =============== Item was changed: ----- Method: ParagraphEditor>>evaluateSelection (in category 'do-its') ----- evaluateSelection "Treat the current selection as an expression; evaluate it and return the result" + + ^self evaluateSelectionAndDo: [:result | result]! - | result rcvr ctxt | - self lineSelectAndEmptyCheck: [^ '']. - - (model respondsTo: #doItReceiver) - ifTrue: [ rcvr := model doItReceiver. - ctxt := model doItContext] - ifFalse: [rcvr := ctxt := nil]. - result := [ - rcvr class evaluatorClass new - evaluate: self selectionAsStream - in: ctxt - to: rcvr - notifying: self - ifFail: [^ #failedDoit] - logged: true. - ] - on: OutOfScopeNotification - do: [ :ex | ex resume: true]. - ^ result! Item was added: + ----- Method: ParagraphEditor>>evaluateSelectionAndDo: (in category 'do-its') ----- + evaluateSelectionAndDo: aBlock + "Treat the current selection as an expression; evaluate it and invoke aBlock with the result." + | result rcvr ctxt | + self lineSelectAndEmptyCheck: [^ nil]. + + (model respondsTo: #doItReceiver) + ifTrue: [ rcvr := model doItReceiver. + ctxt := model doItContext] + ifFalse: [rcvr := ctxt := nil]. + result := [ + rcvr class evaluatorClass new + evaluate: self selectionAsStream + in: ctxt + to: rcvr + notifying: self + ifFail: [self flash. ^nil] + logged: true. + ] + on: OutOfScopeNotification + do: [ :ex | ex resume: true]. + ^aBlock value: result! Item was changed: ----- Method: ParagraphEditor>>exploreIt (in category 'do-its') ----- exploreIt + self evaluateSelectionAndDo: [:result | result explore] - | result | - result := self evaluateSelection. - ((result isKindOf: FakeClassPool) or: [result == #failedDoit]) - ifTrue: [view flash] - ifFalse: [result explore]. ! Item was changed: ----- Method: ParagraphEditor>>inspectIt (in category 'do-its') ----- inspectIt + self evaluateSelectionAndDo: [:result | result inspect]. - "1/13/96 sw: minor fixup" - | result | - result := self evaluateSelection. - ((result isKindOf: FakeClassPool) or: [result == #failedDoit]) - ifTrue: [view flash] - ifFalse: [result inspect]. ! Item was changed: ----- Method: ParagraphEditor>>objectsReferencingIt (in category 'do-its') ----- objectsReferencingIt "Open a list inspector on all objects that reference the object that results when the current selection is evaluated. " + self terminateAndInitializeAround: + [self evaluateSelectionAndDo: [:result | + self systemNavigation - self terminateAndInitializeAround: [ | result | - result := self evaluateSelection. - ((result isKindOf: FakeClassPool) or: [result == #failedDoit]) - ifTrue: [view flash] - ifFalse: [self systemNavigation browseAllObjectReferencesTo: result except: #() + ifNone: [:obj | view topView flash]]]! - ifNone: [:obj | view topView flash]]. - ]! Item was changed: ----- Method: ParagraphEditor>>printIt (in category 'do-its') ----- printIt "Treat the current text selection as an expression; evaluate it. Insert the description of the result of evaluation after the selection and then make this description the new text selection." + self evaluateSelectionAndDo: [:result | + self afterSelectionInsertAndSelect: result printString]! - | result | - result := self evaluateSelection. - ((result isKindOf: FakeClassPool) or: [result == #failedDoit]) - ifTrue: [view flash] - ifFalse: [self afterSelectionInsertAndSelect: result printString]! Item was changed: ----- Method: ParagraphEditor>>tallySelection (in category 'do-its') ----- tallySelection "Treat the current selection as an expression; evaluate it and return the time took for this evaluation" | result rcvr ctxt valueAsString v | + self lineSelectAndEmptyCheck: [^self]. - self lineSelectAndEmptyCheck: [^ -1]. (model respondsTo: #doItReceiver) ifTrue: [ rcvr := model doItReceiver. ctxt := model doItContext] ifFalse: [rcvr := ctxt := nil]. result := [ | cm | cm := rcvr class evaluatorClass new compiledMethodFor: self selectionAsStream in: ctxt to: rcvr notifying: self + ifFail: [self flash. ^self] - ifFail: [^ #failedDoit] logged: false. Time millisecondsToRun: [v := cm valueWithReceiver: rcvr arguments: #() ]. ] on: OutOfScopeNotification do: [ :ex | ex resume: true]. "We do not want to have large result displayed" valueAsString := v printString. (valueAsString size > 30) ifTrue: [valueAsString := (valueAsString copyFrom: 1 to: 30), '...']. PopUpMenu inform: 'Time to compile and execute: ', result printString, 'ms res: ', valueAsString. !

1 0

The Trunk: Protocols-nice.35.mcz
by commits＠source.squeak.org 31 Mar '11

31 Mar '11

Nicolas Cellier uploaded a new version of Protocols to project The Trunk: http://source.squeak.org/trunk/Protocols-nice.35.mcz ==================== Summary ==================== Name: Protocols-nice.35 Author: nice Time: 31 March 2011, 10:04:18.43 pm UUID: 0ca34eb6-41e5-422c-8172-164511ce8a52 Ancestors: Protocols-ul.34 Remove FakeClassPool reference because I don't like it. =============== Diff against Protocols-ul.34 =============== Item was changed: ----- Method: Lexicon>>doItReceiver (in category 'model glue') ----- doItReceiver "This class's classPool has been jimmied to be the classPool of the class being browsed. A doIt in the code pane will let the user see the value of the class variables. Here, if the receiver is affiliated with a specific instance, we give give that primacy" + ^ self targetObject ifNil: [self selectedClass]! - ^ self targetObject ifNil: [self selectedClass ifNil: [FakeClassPool new]]!

1 0

The Inbox: Morphic-nice.527.mcz
by commits＠source.squeak.org 31 Mar '11

31 Mar '11

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-nice.527.mcz ==================== Summary ==================== Name: Morphic-nice.527 Author: nice Time: 31 March 2011, 10:01:14.852 pm UUID: 09a44c8f-9a17-4486-b991-044da167e378 Ancestors: Morphic-nice.526 Get rid of FakeClassPool and #failedDoIt references. This is implemented by the mean of #evaluateSelectionAndDo: This method will pass the result to aBlock argument in case of success, and avoid testing for arbitrary return value (FakeClassPool new or #failedDoit) =============== Diff against Morphic-nice.526 =============== Item was changed: ----- Method: PluggableTextMorph>>exploreIt (in category 'menu commands') ----- exploreIt + self handleEdit: + [textMorph editor evaluateSelectionAndDo: [:result | result explore]].! - self handleEdit: [ | result | - result := textMorph editor evaluateSelection. - ((result isKindOf: FakeClassPool) or: [result == #failedDoit]) - ifTrue: [self flash] - ifFalse: [result explore]].! Item was changed: ----- Method: PluggableTextMorph>>inspectIt (in category 'menu commands') ----- inspectIt self handleEdit: + [textMorph editor evaluateSelectionAndDo: [:result | result inspect]]! - [ | result | - result := textMorph editor evaluateSelection. - ((result isKindOf: FakeClassPool) or: [result == #failedDoit]) - ifTrue: [self flash] - ifFalse: [result inspect]]! Item was changed: ----- Method: PluggableTextMorph>>printIt (in category 'menu commands') ----- printIt + | oldEditor | - | result oldEditor | - textMorph editor selectFrom: selectionInterval first to: selectionInterval last; model: model. "For, eg, evaluateSelection" + textMorph handleEdit: [(oldEditor := textMorph editor) evaluateSelectionAndDo: + [:result | + selectionInterval := oldEditor selectionInterval. + textMorph installEditorToReplace: oldEditor. + textMorph handleEdit: [oldEditor afterSelectionInsertAndSelect: result printString]. + selectionInterval := oldEditor selectionInterval. - result := textMorph handleEdit: [(oldEditor := textMorph editor) evaluateSelection]. - ((result isKindOf: FakeClassPool) or: [result == #failedDoit]) ifTrue: [^self flash]. - selectionInterval := oldEditor selectionInterval. - textMorph installEditorToReplace: oldEditor. - textMorph handleEdit: [oldEditor afterSelectionInsertAndSelect: result printString]. - selectionInterval := oldEditor selectionInterval. + textMorph editor selectFrom: selectionInterval first to: selectionInterval last. + self scrollSelectionIntoView]]! - textMorph editor selectFrom: selectionInterval first to: selectionInterval last. - self scrollSelectionIntoView. - - ! Item was changed: ----- Method: PluggableTextMorph>>tileForIt (in category 'menu commands') ----- tileForIt "Return a tile referring to the object resulting form evaluating my current selection. Not currently threaded in, but useful in earlier demos and possibly still of value." self handleEdit: + [textMorph editor evaluateSelectionAndDo: [:result | self currentHand attachMorph: result tileToRefer]]! - [ | result | - result := textMorph editor evaluateSelection. - ((result isKindOf: FakeClassPool) or: [result == #failedDoit]) - ifTrue: [self flash] - ifFalse: [self currentHand attachMorph: result tileToRefer]]! Item was changed: ----- Method: SmalltalkEditor>>tallySelection (in category 'do-its') ----- tallySelection "Treat the current selection as an expression; evaluate it and return the time took for this evaluation" | result rcvr ctxt valueAsString v | + self lineSelectAndEmptyCheck: [^ self]. - self lineSelectAndEmptyCheck: [^ -1]. (model respondsTo: #doItReceiver) ifTrue: [ rcvr := model doItReceiver. ctxt := model doItContext] ifFalse: [rcvr := ctxt := nil]. result := [ | cm | cm := rcvr class evaluatorClass new compiledMethodFor: self selectionAsStream in: ctxt to: rcvr notifying: self + ifFail: [morph flash. ^ self] - ifFail: [^ #failedDoit] logged: false. Time millisecondsToRun: [v := cm valueWithReceiver: rcvr arguments: #() ]. ] on: OutOfScopeNotification do: [ :ex | ex resume: true]. "We do not want to have large result displayed" valueAsString := v printString. (valueAsString size > 30) ifTrue: [valueAsString := (valueAsString copyFrom: 1 to: 30), '...']. PopUpMenu inform: 'Time to compile and execute: ', result printString, 'ms res: ', valueAsString. ! Item was changed: ----- Method: TextEditor>>evaluateSelection (in category 'do-its') ----- evaluateSelection "Treat the current selection as an expression; evaluate it and return the result" + + ^self evaluateSelectionAndDo: [:result | result]! - | result rcvr ctxt | - self lineSelectAndEmptyCheck: [^ '']. - - (model respondsTo: #doItReceiver) - ifTrue: [ rcvr := model doItReceiver. - ctxt := model doItContext] - ifFalse: [rcvr := ctxt := nil]. - result := [ - rcvr class evaluatorClass new - evaluate: self selectionAsStream - in: ctxt - to: rcvr - notifying: self - ifFail: [^ #failedDoit] - logged: true. - ] - on: OutOfScopeNotification - do: [ :ex | ex resume: true]. - ^ result! Item was added: + ----- Method: TextEditor>>evaluateSelectionAndDo: (in category 'do-its') ----- + evaluateSelectionAndDo: aBlock + "Treat the current selection as an expression; evaluate it and invoke aBlock with the result." + | result rcvr ctxt | + self lineSelectAndEmptyCheck: [^ nil]. + + (model respondsTo: #doItReceiver) + ifTrue: [ rcvr := model doItReceiver. + ctxt := model doItContext] + ifFalse: [rcvr := ctxt := nil]. + result := [ + rcvr class evaluatorClass new + evaluate: self selectionAsStream + in: ctxt + to: rcvr + notifying: self + ifFail: [morph flash. ^ nil] + logged: true. + ] + on: OutOfScopeNotification + do: [ :ex | ex resume: true]. + ^aBlock value: result! Item was changed: ----- Method: TextEditor>>exploreIt (in category 'do-its') ----- exploreIt + self evaluateSelectionAndDo: [:result | result explore]! - | result | - result := self evaluateSelection. - ((result isKindOf: FakeClassPool) or: [result == #failedDoit]) - ifTrue: [morph flash] - ifFalse: [result explore]! Item was changed: ----- Method: TextEditor>>inspectIt (in category 'do-its') ----- inspectIt + self evaluateSelectionAndDo: [:result | result inspect]! - "1/13/96 sw: minor fixup" - | result | - result := self evaluateSelection. - ((result isKindOf: FakeClassPool) or: [result == #failedDoit]) - ifTrue: [morph flash] - ifFalse: [result inspect]! Item was changed: ----- Method: TextEditor>>printIt (in category 'do-its') ----- printIt + self evaluateSelectionAndDo: + [:result | self afterSelectionInsertAndSelect: result printString]! - "Treat the current text selection as an expression; evaluate it. Insert the - description of the result of evaluation after the selection and then make - this description the new text selection." - | result | - result := self evaluateSelection. - ((result isKindOf: FakeClassPool) or: [result == #failedDoit]) - ifTrue: [morph flash] - ifFalse: [self afterSelectionInsertAndSelect: result printString]!

1 0

The Inbox: Morphic-fbs.526.mcz
by commits＠source.squeak.org 31 Mar '11

31 Mar '11

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-fbs.526.mcz ==================== Summary ==================== Name: Morphic-fbs.526 Author: fbs Time: 31 March 2011, 5:26:19.506 pm UUID: 2f192343-1e26-7e44-9345-ae3888e8836b Ancestors: Morphic-dtl.525 Morphic extensions repair. =============== Diff against Morphic-dtl.525 =============== Item was changed: ----- Method: HierarchyBrowser>>representsSameBrowseeAs: (in category '*morphic') ----- representsSameBrowseeAs: anotherModel ^ self hasUnacceptedEdits not + and: [ classDisplayList size = anotherModel classList size + and: [ classDisplayList includesAllOf: anotherModel classList ] ]! - and: [ classList size = anotherModel classList size - and: [ classList includesAllOf: anotherModel classList ] ]! Item was changed: ----- Method: TextEditor>>browseItHere (in category 'menu messages') ----- browseItHere "Retarget the receiver's window to look at the selected class, if appropriate. 3/1/96 sw" | aSymbol foundClass b | (((b := model) isKindOf: Browser) and: [b couldBrowseAnyClass]) ifFalse: [^ morph flash]. model okToChange ifFalse: [^ morph flash]. self selectionInterval isEmpty ifTrue: [self selectWord]. (aSymbol := self selectedSymbol) isNil ifTrue: [^ morph flash]. foundClass := (Smalltalk at: aSymbol ifAbsent: [nil]). foundClass isNil ifTrue: [^ morph flash]. (foundClass isKindOf: Class) ifTrue: + [model selectSystemCategory: foundClass category. - [model systemCategoryListIndex: - (model systemCategoryList indexOf: foundClass category). model classListIndex: (model classList indexOf: foundClass name)]!

1 0

The Inbox: Services-Base-fbs.47.mcz
by commits＠source.squeak.org 31 Mar '11

31 Mar '11

A new version of Services-Base was added to project The Inbox: http://source.squeak.org/inbox/Services-Base-fbs.47.mcz ==================== Summary ==================== Name: Services-Base-fbs.47 Author: fbs Time: 31 March 2011, 5:28:34.319 pm UUID: dc17a4e0-9f7f-d34e-8fd5-ade0c935d220 Ancestors: Services-Base-nice.46 BrowserRequestor updating. =============== Diff against Services-Base-nice.46 =============== Item was changed: ----- Method: BrowserRequestor>>getSystemCategory (in category 'requests') ----- getSystemCategory + ^ self getBrowser selectedSystemCategory! - ^ self getBrowser selectedSystemCategoryName !

1 0

The Inbox: System-fbs.427.mcz
by commits＠source.squeak.org 31 Mar '11

31 Mar '11

A new version of System was added to project The Inbox: http://source.squeak.org/inbox/System-fbs.427.mcz ==================== Summary ==================== Name: System-fbs.427 Author: fbs Time: 31 March 2011, 5:27:22.312 pm UUID: df509a59-83f4-eb43-8f07-bdc931fb9c1b Ancestors: System-ul.426 Returning the instantiated Browser greatly aids testing. =============== Diff against System-ul.426 =============== Item was changed: ----- Method: SystemNavigation>>spawnHierarchyForClass:selector: (in category 'browse') ----- spawnHierarchyForClass: aClass selector: aSelector "Create and schedule a new class hierarchy browser on the requested class/selector." "SystemNavigation default spawnHierarchyForClass: SmallInteger selector: #hash" (aClass == nil) ifTrue: [^ self]. + ^ ToolSet browseHierarchy: aClass selector: aSelector - ToolSet browseHierarchy: aClass selector: aSelector !

1 0

All instances belonging to the current project?
by Dimitry Golubovsky 31 Mar '11

31 Mar '11

Hi, How can I get a list of all instances of some morph subclass that only belong to (visible in, were created under, or loaded with) the current project? Squeak v3.9 if that matters (the one I have for the Android port). Thanks. -- Dimitry Golubovsky Anywhere on the Web

3 2

Re: [squeak-dev] The Trunk: Compiler-nice.201.mcz
by Nicolas Cellier 31 Mar '11

31 Mar '11

"An interesting snippet" Compiler recompileAll. (MessageNode classPool at:#MacroSelectors) collect: [:e | e -> (SystemNavigation default allCallsOn: e) size] -> {#ifTrue:->7601 . #ifFalse:->3252 . #ifTrue:ifFalse:->4152 . #ifFalse:ifTrue:->249 . #and:->2222 . #or:->1355 . #whileFalse:->490 . #whileTrue:->723 . #whileFalse->99 . #whileTrue->93 . #to:do:->1178 . #to:by:do:->140 . #caseOf:->7 . #caseOf:otherwise:->33 . #ifNil:->2773 . #ifNotNil:->2065 . #ifNil:ifNotNil:->568 . #ifNotNil:ifNil:->157 . #repeat->23} 2011/3/31 <commits(a)source.squeak.org>: > Nicolas Cellier uploaded a new version of Compiler to project The Trunk: > http://source.squeak.org/trunk/Compiler-nice.201.mcz > > ==================== Summary ==================== > > Name: Compiler-nice.201 > Author: nice > Time: 31 March 2011, 12:45:32.697 am > UUID: d694a5f8-4d75-2f4d-a06d-4c5de7fe1656 > Ancestors: Compiler-nice.200 > > Put optimized selectors in CompiledMethod literals so that senders can be browsed normally. > Take care to not overflow the scarse literal ressource. > > It is necessary to evaluate (Compiler recompileAll) before succesfully browsing senders of #ifNil: > > Thanks to Marcus at http://code.google.com/p/pharo/issues/detail?id=2559 for the idea. > > =============== Diff against Compiler-nice.200 =============== > > Item was changed: > ParseNode subclass: #Encoder > + instanceVariableNames: 'scopeTable nTemps supered requestor class selector literalStream selectorSet litIndSet litSet sourceRanges globalSourceRanges addedSelectorAndMethodClassLiterals optimizedSelectors' > - instanceVariableNames: 'scopeTable nTemps supered requestor class selector literalStream selectorSet litIndSet litSet sourceRanges globalSourceRanges addedSelectorAndMethodClassLiterals' > classVariableNames: '' > poolDictionaries: '' > category: 'Compiler-Kernel'! > > !Encoder commentStamp: '<historical>' prior: 0! > I encode names and literals into tree nodes with byte codes for the compiler. Byte codes for literals are not assigned until the tree-sizing pass of the compiler, because only then is it known which literals are actually needed. I also keep track of sourceCode ranges during parsing and code generation so I can provide an inverse map for the debugger.! > > Item was changed: > ----- Method: Encoder>>allLiterals (in category 'results') ----- > allLiterals > + addedSelectorAndMethodClassLiterals ifFalse: > - ((literalStream isKindOf: WriteStream) > - and: [ (addedSelectorAndMethodClassLiterals ifNil: [ false ]) not]) ifTrue: > [addedSelectorAndMethodClassLiterals := true. > + "Put the optimized selectors in literals so as to browse senders more easily" > + optimizedSelectors := optimizedSelectors reject: [:e| literalStream originalContents hasLiteral: e]. > + optimizedSelectors isEmpty ifFalse: [ > + "Use one entry per literal if enough room, else make anArray" > + literalStream position + optimizedSelectors size + 2 > 255 > + ifTrue: [self litIndex: optimizedSelectors asArray] > + ifFalse: [optimizedSelectors do: [:e | self litIndex: e]]]. > + "Add a slot for selector or MethodProperties" > + self litIndex: nil. > + self litIndex: self associationForClass]. > + ^literalStream contents! > - self litIndex: nil. > - self litIndex: self associationForClass]. > - ^literalStream contents > - > - "The funky ifNil: [false], even though the init method initializes addedSAMCL, > - is simply so that Monticello can load and compile this update without > - killing the encoder that is compiling that update itself..."! > > Item was changed: > ----- Method: Encoder>>initScopeAndLiteralTables (in category 'initialize-release') ----- > initScopeAndLiteralTables > > scopeTable := StdVariables copy. > litSet := StdLiterals copy. > "comments can be left hanging on nodes from previous compilations. > probably better than this hack fix is to create the nodes afresh on each compilation." > scopeTable do: > [:varNode| varNode comment: nil]. > litSet do: > [:varNode| varNode comment: nil]. > selectorSet := StdSelectors copy. > litIndSet := Dictionary new: 16. > literalStream := WriteStream on: (Array new: 32). > + addedSelectorAndMethodClassLiterals := false. > + optimizedSelectors := Set new! > - addedSelectorAndMethodClassLiterals := false! > > Item was removed: > - ----- Method: Encoder>>nTemps:literals:class: (in category 'initialize-release') ----- > - nTemps: n literals: lits class: cl > - "Decompile." > - > - supered := false. > - class := cl. > - nTemps := n. > - literalStream := ReadStream on: lits. > - literalStream position: lits size. > - sourceRanges := Dictionary new: 32. > - globalSourceRanges := OrderedCollection new: 32. > - ! > > Item was added: > + ----- Method: Encoder>>noteOptimizedSelector: (in category 'encoding') ----- > + noteOptimizedSelector: aSymbol > + "Register a selector as being optimized. > + These optimized selectors will later be registered into the literals so that tools can easily browse senders." > + optimizedSelectors add: aSymbol! > > Item was changed: > ----- Method: MessageNode>>sizeCodeForEffect: (in category 'code generation') ----- > sizeCodeForEffect: encoder > > special > 0 > + ifTrue: > + [encoder noteOptimizedSelector: originalSelector. > + ^self perform: (MacroSizers at: special) with: encoder with: false]. > - ifTrue: [^self perform: (MacroSizers at: special) with: encoder with: false]. > ^super sizeCodeForEffect: encoder! > > Item was changed: > ----- Method: MessageNode>>sizeCodeForValue: (in category 'code generation') ----- > sizeCodeForValue: encoder > | total | > special > 0 > + ifTrue: > + [encoder noteOptimizedSelector: originalSelector. > + ^self perform: (MacroSizers at: special) with: encoder with: true]. > - ifTrue: [^self perform: (MacroSizers at: special) with: encoder with: true]. > receiver == NodeSuper > ifTrue: [selector := selector copy "only necess for splOops"]. > total := selector sizeCode: encoder args: arguments size super: receiver == NodeSuper. > receiver == nil > ifFalse: [total := total + (receiver sizeCodeForValue: encoder)]. > sizes := arguments collect: > [:arg | | argSize | > argSize := arg sizeCodeForValue: encoder. > total := total + argSize. > argSize]. > ^total! > > >

2 1

Re: [squeak-dev] The Inbox: Tools-fbs.336.mcz
by Levente Uzonyi 31 Mar '11

31 Mar '11

On Wed, 30 Mar 2011, commits(a)source.squeak.org wrote: > A new version of Tools was added to project The Inbox: > http://source.squeak.org/inbox/Tools-fbs.336.mcz > > ==================== Summary ==================== > > Name: Tools-fbs.336 > Author: fbs > Time: 30 March 2011, 10:10:43.612 pm > UUID: 263e2db2-c0e9-9e4c-a644-e95106ae600b > Ancestors: Tools-fbs.335 > > As of this commit Browser has NO indices, and relies entirely on symbols to remember what it's browsing. Great progress! I checked the code and found that there are references to two undeclared variables. The following snippet shows them: SystemNavigation default browseMessageList: (Array streamContents: [ :stream | Undeclared associationsDo: [ :each | stream nextPutAll: (SystemNavigation default allCallsOn: each) ] ]) name: 'References to undeclared variables' Levente

2 1

The Inbox: Tools-fbs.338.mcz
by commits＠source.squeak.org 31 Mar '11

31 Mar '11

A new version of Tools was added to project The Inbox: http://source.squeak.org/inbox/Tools-fbs.338.mcz ==================== Summary ==================== Name: Tools-fbs.338 Author: fbs Time: 31 March 2011, 1:38:40.964 pm UUID: 373272eb-3606-7746-b992-2194e8ebc1f7 Ancestors: Tools-fbs.337 Re-add the instvar "growable", accidentally removed in 332 or 333. =============== Diff against Tools-fbs.337 =============== Item was changed: Browser subclass: #MessageSet + instanceVariableNames: 'growable messageList autoSelectString messageListIndex' - instanceVariableNames: 'messageList autoSelectString messageListIndex' classVariableNames: '' poolDictionaries: '' category: 'Tools-Browser'! !MessageSet commentStamp: '<historical>' prior: 0! I represent a query path of the retrieval result of making a query about methods in the system. The result is a set of methods, denoted by a message selector and the class in which the method was found. As a StringHolder, the string I represent is the source code of the currently selected method. I am typically viewed in a Message Set Browser consisting of a MessageListView and a BrowserCodeView.!

1 0

← Newer
1
2
3
4
5
6
7
...
42
Older →

Jump to page: