Squeak-dev April 2011

squeak-dev@lists.squeakfoundation.org

80 participants
387 discussions

Daily Commit Log
by commits＠source.squeak.org 03 Apr '11

03 Apr '11

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2011-April/004477.html Name: System-ul.429 Ancestors: System-nice.428 - added #newParser and #newCompiler to PseudoClass ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-April/004478.html Name: Compiler-nice.205 Ancestors: Compiler-ul.204 Don't forget to deoptimize the receiver of an optimized message in case of cascade. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-April/004479.html Name: Morphic-nice.527 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) ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-April/004480.html Name: Morphic-nice.528 Ancestors: Morphic-nice.527, Morphic-ul.527 Merge ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-April/004481.html Name: ST80-nice.127 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) ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-April/004482.html Name: Tools-nice.304 Ancestors: Tools-nice.303 remove some FakeClassPool and #failedDoit references parce qu'elles le valent bien. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-April/004483.html Name: Tools-nice.305 Ancestors: Tools-nice.304, Tools-eem.304 Merge ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-April/004484.html Name: KernelTests-nice.180 Ancestors: KernelTests-ul.179 Pick a few tests from Pharo =============================================

1 0

[Croquet/Cobalt] Portal
by David Faught 03 Apr '11

03 Apr '11

I've been playing the game Portal ( http://en.wikipedia.org/wiki/Portal_(video_game)) for the last few months and it has to be one of the best 3D games I have seen, right up there with Spore as far as I am concerned. One of the things that intrigues me about this game is that it looks like it could have been inspired by Croquet, although it wasn't. So now in the next few weeks, a new collaborative version of Portal is coming out, which should prove to be lots of fun. I would think that it would be almost trivial to build the basis of this game in Cobalt/Croquet and thereby have multiplayer capability right in the first iteration. But what kind of puzzles of this type would be interesting for an undetermined number of players greater than 1? This project sounds interesting enough to me that it could be worthwhile to get back into the Croquet/Cobalt community. My concern is that the Cobalt/Croquet base still may not be up to the performance and stability standards that would be needed for a project like this. Unfortunately I recently lost all the Croquet stuff that I had locally, so whatever is out there on SqueakMap and such is all there is of my work. The biggest loss as far as I am concerned is the work I had done on making Tweak the main development environment so that Morphic wasn't needed anymore. It was never finished and so never released. So why am I writing this? I'm not exactly sure, but maybe it has something to do with finding collaborators to build a new Portal-like game in Cobalt/Croquet and a little inspiration for puzzles. Convince me this sounds like a good idea! Cheers, Dave

7 6

The Trunk: KernelTests-nice.180.mcz
by commits＠source.squeak.org 02 Apr '11

02 Apr '11

Nicolas Cellier uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-nice.180.mcz ==================== Summary ==================== Name: KernelTests-nice.180 Author: nice Time: 2 April 2011, 10:49:04.068 pm UUID: 4c5480e9-e460-471b-9aa0-a1933ce72578 Ancestors: KernelTests-ul.179 Pick a few tests from Pharo =============== Diff against KernelTests-ul.179 =============== Item was added: + ----- Method: CompiledMethodTest>>a1:a2:a3:a4:a5:a6:a7:a8:a9:a10:a11:a12:a13:a14:a15: (in category 'tests - performing') ----- + a1: a1 a2: a2 a3: a3 a4: a4 a5: a5 a6: a6 a7: a7 a8: a8 a9: a9 a10: a10 a11: a11 a12: a12 a13: a13 a14: a14 a15: a15 + "I'm a method with the maximum size of arguments that can be executed via normal send but crash on perform :)" + + ^ a1 + a2 - a2! Item was added: + ----- Method: CompiledMethodTest>>testPerformCanExecutelongMethodWithTemps (in category 'tests - performing') ----- + testPerformCanExecutelongMethodWithTemps + "self debug: #testPerformCanExecutelongMethodWithTemps" + "the perform: primitive reuses the context of the method calling it. The primitive adds performed selector arguments to the context variables list. So this means that you can execute some methods but not performed them if the calling methods defined too many temps " + + | temp1 temp2 temp3 | + temp1 := 33. + temp2 := 666. + temp3 := 42. + self assert: (self perform: #a1:a2:a3:a4:a5:a6:a7:a8:a9:a10:a11:a12:a13:a14:a15: withArguments: #(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15)) = 1. + self assert: (self class>>#testPerformCanExecutelongMethodWithTemps) frameSize = CompiledMethod smallFrameSize. + self assert: (self class>>#a1:a2:a3:a4:a5:a6:a7:a8:a9:a10:a11:a12:a13:a14:a15:) frameSize = CompiledMethod fullFrameSize.! Item was added: + ----- Method: CompiledMethodTest>>testPerformInSuperclassCanExecutelongMethodWithTemps (in category 'tests - performing') ----- + testPerformInSuperclassCanExecutelongMethodWithTemps + "self debug: #testPerformInSuperclassCanExecutelongMethodWithTemps" + "the perform: primitive reuses the context of the method calling it. The primitive adds performed selector arguments to the context variables list. So this means that you can execute some methods but not performed them if the calling methods defined too many temps " + + | temp1 temp2 temp3 | + temp1 := 33. + temp2 := 666. + temp3 := 42. + self assert: (self perform: #a1:a2:a3:a4:a5:a6:a7:a8:a9:a10:a11:a12:a13:a14:a15: withArguments: #(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15) inSuperclass: self class) = 1! Item was added: + ----- Method: DependentsArrayTest>>testSize (in category 'testing') ----- + testSize + + self + assert: (DependentsArray with: nil) size = 0; + assert: (DependentsArray with: nil with: 1 with: nil) size = 1; + assert: (DependentsArray with: 1 with: 3) size = 2; + assert: (DependentsArray with: nil with: nil with: nil) size = 0! Item was changed: ----- Method: NumberTest>>testPrintShowingDecimalPlaces (in category 'tests') ----- testPrintShowingDecimalPlaces - self assert: (111.2 printShowingDecimalPlaces: 2) = '111.20'. self assert: (111.2 printShowingDecimalPlaces: 0) = '111'. self assert: (111 printShowingDecimalPlaces: 0) = '111'. self assert: (111111111111111 printShowingDecimalPlaces: 2) = '111111111111111.00'. self assert: (10 printShowingDecimalPlaces: 20) ='10.00000000000000000000'. self assert: (0.98 printShowingDecimalPlaces: 2) = '0.98'. self assert: (-0.98 printShowingDecimalPlaces: 2) = '-0.98'. self assert: (2.567 printShowingDecimalPlaces: 2) = '2.57'. self assert: (-2.567 printShowingDecimalPlaces: 2) = '-2.57'. + self assert: (0.01 printShowingDecimalPlaces: 2) = '0.01'. + self assert: (-0.001 printShowingDecimalPlaces: 2) = '0.00'.! - "self assert: (Number categoryForSelector: #printShowingDecimalPlaces:) = 'printing'."! Item was changed: ----- Method: SqNumberParserTest>>testFloatGradualUnderflow (in category 'tests - Float') ----- testFloatGradualUnderflow "Gradual underflow are tricky. This is a non regression test for http://bugs.squeak.org/view.php?id=6976" | float trueFraction str | "as a preamble, use a base 16 representation to avoid round off error and check that number parsing is correct" trueFraction := 16r2D2593D58B4FC4 / (16 raisedTo: 256+13). "Parse the number in base 16 if possible - it is impossible if lowercase letter are allowed digits due to exponent letter ambiguity." float := self areLowercaseDigitsAllowed + ifFalse: [SqNumberParser parse: '16r2.D2593D58B4FC4e-256'] + ifTrue: [trueFraction asFloat].. - ifNil: [SqNumberParser parse: '16r2.D2593D58B4FC4e-256'] - ifNotNil: [trueFraction asFloat].. self assert: float asTrueFraction = trueFraction. self assert: float = trueFraction asFloat. "now print in base 10" str := (String new: 32) writeStream. float absPrintExactlyOn: str base: 10. "verify if SqNumberParser can read it back" self assert: (SqNumberParser parse: str contents) = float. !

1 0

The Trunk: Tools-nice.305.mcz
by commits＠source.squeak.org 02 Apr '11

02 Apr '11

Nicolas Cellier uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-nice.305.mcz ==================== Summary ==================== Name: Tools-nice.305 Author: nice Time: 2 April 2011, 9:41:26.838 pm UUID: 9e3c6b7c-7e5f-485b-b625-47f8d2345edd Ancestors: Tools-nice.304, Tools-eem.304 Merge =============== Diff against Tools-nice.304 =============== Item was changed: ----- Method: Debugger>>browseMessages (in category 'context stack menu') ----- browseMessages "Present a menu of all messages sent by the currently selected message. Open a message set browser of all implementors of the message chosen. Do nothing if no message is chosen." contextStackIndex = 0 ifTrue: [^ self]. + self withSelectorAndMessagesIn: self selectedContext method - self withSelectorAndMessagesIn: currentCompiledMethod evaluate: [:selector| self systemNavigation browseAllImplementorsOf: selector]! Item was changed: ----- Method: Debugger>>browseSendersOfMessages (in category 'context stack menu') ----- browseSendersOfMessages "Present a menu of the currently selected message, as well as all messages sent by it. Open a message set browser of all senders of the message chosen." contextStackIndex = 0 ifTrue: [^ self]. + self withSelectorAndMessagesIn: self selectedContext method - self withSelectorAndMessagesIn: currentCompiledMethod evaluate: [:selector| self systemNavigation browseAllCallsOn: selector]! Item was changed: ----- Method: Debugger>>contents:notifying: (in category 'accessing') ----- contents: aText notifying: aController "The retrieved information has changed and its source must now be updated. In this case, the retrieved information is the method of the selected context." | result selector classOfMethod category h ctxt newMethod | contextStackIndex = 0 ifTrue: [^false]. self selectedContext isExecutingBlock ifTrue: [h := self selectedContext activeHome. h ifNil: [self inform: 'Method for block not found on stack, can''t edit and continue'. ^false]. (self confirm: 'I will have to revert to the method from\which this block originated. Is that OK?' withCRs) ifFalse: [^false]. self resetContext: h. + "N.B. Only reset the contents if the compilation succeeds. If contents are reset + when compilation fails both compiler error message and modifications are lost." + (result := self contents: aText notifying: aController) ifTrue: + [self contentsChanged]. - result := self contents: aText notifying: aController. - self contentsChanged. ^result]. classOfMethod := self selectedClass. category := self selectedMessageCategoryName. selector := self selectedClass newParser parseSelector: aText. (selector == self selectedMessageName or: [(self selectedMessageName beginsWith: 'DoIt') and: [selector numArgs = self selectedMessageName numArgs]]) ifFalse: [self inform: 'can''t change selector'. ^false]. selector := classOfMethod compile: aText classified: category notifying: aController. selector ifNil: [^false]. "compile cancelled" contents := aText. newMethod := classOfMethod compiledMethodAt: selector. newMethod isQuick ifTrue: [self down. self selectedContext jump: (self selectedContext previousPc - self selectedContext pc)]. ctxt := interruptedProcess popTo: self selectedContext. ctxt == self selectedContext ifFalse: [self inform: 'Method saved, but current context unchanged\because of unwind error. Click OK to see error' withCRs] ifTrue: [newMethod isQuick ifFalse: [interruptedProcess restartTopWith: newMethod; stepToSendOrReturn]. contextVariablesInspector object: nil]. self resetContext: ctxt. Smalltalk isMorphic ifTrue: [World addAlarm: #changed: withArguments: #(contentsSelection) for: self at: (Time millisecondClockValue + 200)]. ^true!

1 0

The Trunk: Tools-nice.304.mcz
by commits＠source.squeak.org 02 Apr '11

02 Apr '11

Nicolas Cellier uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-nice.304.mcz ==================== Summary ==================== Name: Tools-nice.304 Author: nice Time: 31 March 2011, 10:13:14.329 pm UUID: 6046b00a-2861-4da3-9dc2-ab9ce2f41496 Ancestors: Tools-nice.303 remove some FakeClassPool and #failedDoit references parce qu'elles le valent bien. =============== Diff against Tools-nice.303 =============== Item was changed: ----- Method: Browser>>doItReceiver (in category 'accessing') ----- 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." + ^ self selectedClass! - ^ self selectedClass ifNil: [FakeClassPool new]! Item was changed: ----- Method: Inspector>>accept: (in category 'selecting') ----- accept: aString | result | result := self doItReceiver class evaluatorClass new evaluate: (ReadStream on: aString) in: self doItContext to: self doItReceiver notifying: nil "fix this" ifFail: [self changed: #flash. ^ false]. - result == #failedDoit ifTrue: [^ false]. self replaceSelectionValue: result. self changed: #contents. ^ true! Item was changed: ----- Method: MethodHolder>>doItReceiver (in category 'menu') ----- doItReceiver "If there is an instance associated with me, answer it, for true mapping of self. If not, then do what other code-bearing tools do, viz. give access to the class vars." + ^ self selectedClass! - ^ self selectedClass ifNil: [FakeClassPool new]!

1 0

The Trunk: ST80-nice.127.mcz
by commits＠source.squeak.org 02 Apr '11

02 Apr '11

Nicolas Cellier uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/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: Morphic-nice.528.mcz
by commits＠source.squeak.org 02 Apr '11

02 Apr '11

Nicolas Cellier uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-nice.528.mcz ==================== Summary ==================== Name: Morphic-nice.528 Author: nice Time: 2 April 2011, 9:24:08.668 pm UUID: 6156e54d-eaf7-4b14-8a5c-15bc9a981346 Ancestors: Morphic-nice.527, Morphic-ul.527 Merge =============== Diff against Morphic-nice.527 =============== Item was added: + ----- Method: TextEditor>>model (in category 'accessing') ----- + model + + ^model! Item was changed: ----- Method: TextEditor>>referencesToIt (in category 'menu messages') ----- referencesToIt "Open a references browser on the selected symbol" + | symbol environment binding | - | aSymbol | self selectLine. + symbol := self selectedSymbol ifNil: [ ^morph flash ]. + environment := (model respondsTo: #selectedClassOrMetaClass) + ifTrue: [ model selectedClassOrMetaClass ifNil: [ Smalltalk globals ] ] + ifFalse: [ Smalltalk globals ]. + binding := (environment bindingOf: symbol) ifNil: [ ^morph flash ]. + self systemNavigation browseAllCallsOn: binding! - ((aSymbol := self selectedSymbol) == nil or: - [(Smalltalk globals includesKey: aSymbol) not]) - ifTrue: [^ morph flash]. - - self systemNavigation browseAllCallsOn: (Smalltalk globals associationAt: self selectedSymbol)!

1 0

The Trunk: Morphic-nice.527.mcz
by commits＠source.squeak.org 02 Apr '11

02 Apr '11

Nicolas Cellier uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/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 Trunk: Compiler-nice.205.mcz
by commits＠source.squeak.org 02 Apr '11

02 Apr '11

Nicolas Cellier uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-nice.205.mcz ==================== Summary ==================== Name: Compiler-nice.205 Author: nice Time: 2 April 2011, 7:27:35.803 pm UUID: 1ff62b57-d6e2-43b6-8827-db4113196b24 Ancestors: Compiler-ul.204 Don't forget to deoptimize the receiver of an optimized message in case of cascade. =============== Diff against Compiler-ul.204 =============== Item was changed: ----- Method: MessageNode>>ensureCanCascade: (in category 'testing') ----- ensureCanCascade: encoder special > 0 ifTrue: [special := 0. selector := encoder encodeSelector: originalSelector. arguments := originalArguments. + receiver isBlockNode ifTrue: [receiver deoptimize]. arguments do: [:each| each isBlockNode ifTrue: [each deoptimize]]]!

1 0

direct manipulation UI construction was Re: [squeak-dev] Squeak Vision ~2000
by David Corking 02 Apr '11

02 Apr '11

Jason, On Tue, Mar 29, 2011, Casey Ransberger wrote: > WRT Morphic and direct user interface construction: this isn't fantasy. You > can actually do this today, as it was one of the original drivers for the > system when it was conceived in Self, as an evolution of Randall Smith's > Smalltalk based Alternate Reality Toolkit (ARK.) I agree with Casey: it is not fantasy. However, with Squeak / Pharo, direct manipulation gets you _instances_ of morphs. To fit the Smalltalk programming paradigm, you need a class and methods (at least a drawOn: method, but probably some event handlers too.) Direct manipulation doesn't quite get you the code (in the way Interface Builder does.) But ... (1) You can probably figure out the code using an inspector and a little arithmetic. (2) Morphic Players get real Smalltalk code behind them that you can see in your changeset browser. (3) Have you seen this yet? http://www.jarober.com/blog/blogView?showComments=true&printTitle=ST_4U_53:… David

2 1

Jump to page: