February 2011 - Pharo-dev - lists.pharo.org

[Pharo-project] Issue 3709 in pharo: Clean OB**WithShout in omnibrowser
by pharo＠googlecode.com April 3, 2011

April 3, 2011

Status: Accepted Owner: guillerm...(a)gmail.com Labels: Milestone-1.3-DevImage Type-OB New issue 3709 by guillerm...(a)gmail.com: Clean OB**WithShout in omnibrowser http://code.google.com/p/pharo/issues/detail?id=3709 Most of it is not needed since the styling was moved to the core.

1 2

[Pharo-project] Issue 3706 in pharo: In OB: Text in comment pane of Browser uses syntax highlighting
by pharo＠googlecode.com April 3, 2011

April 3, 2011

Status: Accepted Owner: marcus.d...(a)gmail.com Labels: Milestone-1.2-DevImage New issue 3706 by marcus.d...(a)gmail.com: In OB: Text in comment pane of Browser uses syntax highlighting http://code.google.com/p/pharo/issues/detail?id=3706 In OB: Text in comment pane of Browser uses syntax highlighting ... dificult to write class comments like that

3 25

[Pharo-project] Issue 3741 in pharo: Decompiler hangs
by pharo＠googlecode.com April 3, 2011

April 3, 2011

Status: New Owner: ---- New issue 3741 by hisnamei...(a)gmail.com: Decompiler hangs http://code.google.com/p/pharo/issues/detail?id=3741 this method can't work, because ParseNode can't understand remoteTemps: popIntoTemporaryVariable: offset | maybeTVTag tempVector start | maybeTVTag := stack last. ((maybeTVTag isMemberOf: Association) and: [maybeTVTag key == #pushNewArray]) ifTrue: [blockStartsToTempVars notNil "implies we were intialized with temp names." ifTrue: "Use the provided temps" [[(tempVector := tempVars at: offset + 1 ifAbsent: [ParseNode basicNew]) isTemp and: [tempVector isIndirectTempVector and: [tempVector remoteTemps size = maybeTVTag value size]]] assert] ifFalse: "Synthesize some remote temps" [tempVector := maybeTVTag value. offset + 1 <= tempVars size ifTrue: [start := 2. tempVector at: 1 put: (tempVars at: offset + 1)] ifFalse: [tempVars := (Array new: offset + 1) replaceFrom: 1 to: tempVars size with: tempVars. start := 1]. start to: tempVector size do: [:i| tempVector at: i put: (constructor codeTemp: numLocalTemps + offset + i - 1 named: 't', (tempVarCount + i) printString)]. tempVars at: offset + 1 put: (constructor codeRemoteTemp: offset + 1 remoteTemps: tempVector)]. tempVarCount := tempVarCount + maybeTVTag value size. stack removeLast. ^self]. self pushTemporaryVariable: offset; doStore: statements I get the problem in PharoInstantMessenger ver.4 if you wanna test. It's really annoying to spend a day on that, just because a variable is declared in a block. For a 30yo language, it sucks

1 2

[Pharo-project] Issue 3763 in pharo: assert failure during Decompiler>>popIntoTemporaryVariable:
by pharo＠googlecode.com April 2, 2011

April 2, 2011

Status: Accepted Owner: da...(a)teleport.com Labels: Type-ReportDefect Milestone-1.2 New issue 3763 by da...(a)teleport.com: assert failure during Decompiler>>popIntoTemporaryVariable: http://code.google.com/p/pharo/issues/detail?id=3763 If you fill an issue for the first time, please read "How to report bugs" at http://www.pharo-project.org/community/issue-tracking Pharo image: dev Pharo core version: Pharo1.2rc2Latest update: #12338 Virtual machine used: Squeak 4.2.5beta1U (Mac) ----------------------- using a fresh image load MetacelloBrowser: Gofer new squeaksource: 'MetacelloBrowser'; package: 'ConfigurationOfMetacelloBrowser'; load. ((Smalltalk at: #ConfigurationOfMetacelloBrowser) project version: #development) load. Create a directory repository and save a new version of ConfigurationOfPharoSound into the directory repository....save a copy of the image. Then open the MetacelloBrowser: MetacelloBrowser open You will get a cascade of Assert debuggers ... not sure what is actually triggering the problem since the debugger is failing to open. Here's the stack from the debug log: THERE_BE_DRAGONS_HERE AssertionFailure: Assertion failed 26 February 2011 8:52:51 am VM: Mac OS - intel - 1066 - Squeak4.1 of 17 April 2010 [latest update: #9957] Squeak VM 4.2.5b1 Image: Pharo1.2rc2 [Latest update: #12338] SecurityManager state: Restricted: false FileAccess: true SocketAccess: true Working Dir /Users/dhenrich/Pharo/Pharo-1.2 Trusted Dir /foobar/tooBar/forSqueak/bogus Untrusted Dir /Users/dhenrich/Library/Preferences/Squeak/Internet/My Squeak BlockClosure>>assert Receiver: [(tempVector := tempVars at: offset + 1 ifAbsent: [ParseNode basicNew]) isTemp ...etc... Arguments and temporary variables: Receiver's instance variables: outerContext: Decompiler>>popIntoTemporaryVariable: startpc: 137 numArgs: 0 Decompiler>>popIntoTemporaryVariable: Receiver: a Decompiler Arguments and temporary variables: offset: 6 maybeTVTag: #pushNewArray->#(nil) start: nil i: nil iLimiT: nil tempVector: an Array({a ParseNode}) Receiver's instance variables: sender: (MetacelloMCVersionSpec>>#resolveToLoadableSpecs:map: "a CompiledMethod...etc... pc: 82 constructor: {a DecompilerConstructorForClosures} method: (MetacelloMCVersionSpec>>#resolveToLoadableSpecs:map: "a CompiledMethod...etc... instVars: #(nil nil nil nil nil nil nil nil nil nil nil) tempVars: an Array({required} {packageMap} {reqd} {allReqd} {map} {_r6}) constTable: an Array({self} {true} {false} {nil} {-1} {0} {1} {2}) stack: an OrderedCollection(#pushNewArray->#(nil)) statements: an OrderedCollection({reqd := required copy} {allReqd := Set new} {...etc... lastPc: 81 exit: nil caseExits: an OrderedCollection() lastJumpPc: nil lastReturnPc: nil limit: 140 hasValue: nil blockStackBase: 0 numLocalTemps: 0 blockStartsToTempVars: a Dictionary(65->an Array({required} {packageMap} {reqd}...etc... tempVarCount: 7 Decompiler(InstructionStream)>>interpretNextInstructionFor: Receiver: a Decompiler Arguments and temporary variables: client: a Decompiler byte: 110 type: 6 offset: 14 method: (MetacelloMCVersionSpec>>#resolveToLoadableSpecs:map: "a CompiledMethod...etc... Receiver's instance variables: sender: (MetacelloMCVersionSpec>>#resolveToLoadableSpecs:map: "a CompiledMethod...etc... pc: 82 constructor: {a DecompilerConstructorForClosures} method: (MetacelloMCVersionSpec>>#resolveToLoadableSpecs:map: "a CompiledMethod...etc... instVars: #(nil nil nil nil nil nil nil nil nil nil nil) tempVars: an Array({required} {packageMap} {reqd} {allReqd} {map} {_r6}) constTable: an Array({self} {true} {false} {nil} {-1} {0} {1} {2}) stack: an OrderedCollection(#pushNewArray->#(nil)) statements: an OrderedCollection({reqd := required copy} {allReqd := Set new} {...etc... lastPc: 81 exit: nil caseExits: an OrderedCollection() lastJumpPc: nil lastReturnPc: nil limit: 140 hasValue: nil blockStackBase: 0 numLocalTemps: 0 blockStartsToTempVars: a Dictionary(65->an Array({required} {packageMap} {reqd}...etc... tempVarCount: 7 Decompiler>>interpretNextInstructionFor: Receiver: a Decompiler Arguments and temporary variables: client: a Decompiler code: nil varNames: nil i: nil iLimiT: nil Receiver's instance variables: sender: (MetacelloMCVersionSpec>>#resolveToLoadableSpecs:map: "a CompiledMethod...etc... pc: 82 constructor: {a DecompilerConstructorForClosures} method: (MetacelloMCVersionSpec>>#resolveToLoadableSpecs:map: "a CompiledMethod...etc... instVars: #(nil nil nil nil nil nil nil nil nil nil nil) tempVars: an Array({required} {packageMap} {reqd} {allReqd} {map} {_r6}) constTable: an Array({self} {true} {false} {nil} {-1} {0} {1} {2}) stack: an OrderedCollection(#pushNewArray->#(nil)) statements: an OrderedCollection({reqd := required copy} {allReqd := Set new} {...etc... lastPc: 81 exit: nil caseExits: an OrderedCollection() lastJumpPc: nil lastReturnPc: nil limit: 140 hasValue: nil blockStackBase: 0 numLocalTemps: 0 blockStartsToTempVars: a Dictionary(65->an Array({required} {packageMap} {reqd}...etc... tempVarCount: 7 Decompiler>>statementsTo: Receiver: a Decompiler Arguments and temporary variables: end: 140 blockPos: 3 stackPos: 0 t: nil Receiver's instance variables: sender: (MetacelloMCVersionSpec>>#resolveToLoadableSpecs:map: "a CompiledMethod...etc... pc: 82 constructor: {a DecompilerConstructorForClosures} method: (MetacelloMCVersionSpec>>#resolveToLoadableSpecs:map: "a CompiledMethod...etc... instVars: #(nil nil nil nil nil nil nil nil nil nil nil) tempVars: an Array({required} {packageMap} {reqd} {allReqd} {map} {_r6}) constTable: an Array({self} {true} {false} {nil} {-1} {0} {1} {2}) stack: an OrderedCollection(#pushNewArray->#(nil)) statements: an OrderedCollection({reqd := required copy} {allReqd := Set new} {...etc... lastPc: 81 exit: nil caseExits: an OrderedCollection() lastJumpPc: nil lastReturnPc: nil limit: 140 hasValue: nil blockStackBase: 0 numLocalTemps: 0 blockStartsToTempVars: a Dictionary(65->an Array({required} {packageMap} {reqd}...etc... tempVarCount: 7 Decompiler>>blockTo: Receiver: a Decompiler Arguments and temporary variables: end: 140 exprs: nil block: nil oldBase: 0 Receiver's instance variables: sender: (MetacelloMCVersionSpec>>#resolveToLoadableSpecs:map: "a CompiledMethod...etc... pc: 82 constructor: {a DecompilerConstructorForClosures} method: (MetacelloMCVersionSpec>>#resolveToLoadableSpecs:map: "a CompiledMethod...etc... instVars: #(nil nil nil nil nil nil nil nil nil nil nil) tempVars: an Array({required} {packageMap} {reqd} {allReqd} {map} {_r6}) constTable: an Array({self} {true} {false} {nil} {-1} {0} {1} {2}) stack: an OrderedCollection(#pushNewArray->#(nil)) statements: an OrderedCollection({reqd := required copy} {allReqd := Set new} {...etc... lastPc: 81 exit: nil caseExits: an OrderedCollection() lastJumpPc: nil lastReturnPc: nil limit: 140 hasValue: nil blockStackBase: 0 numLocalTemps: 0 blockStartsToTempVars: a Dictionary(65->an Array({required} {packageMap} {reqd}...etc... tempVarCount: 7 Decompiler>>jump:if: Receiver: a Decompiler Arguments and temporary variables: dist: 61 condition: true savePc: 79 sign: true elsePc: 77 elseStart: 140 end: 172 cond: nil ifExpr: {reqd isEmpty} thenBlock: nil elseBlock: nil thenJump: nil elseJump: nil condHasValue: nil isIfNil: false saveStack: an OrderedCollection() blockBody: nil elseDist: nil Receiver's instance variables: sender: (MetacelloMCVersionSpec>>#resolveToLoadableSpecs:map: "a CompiledMethod...etc... pc: 82 constructor: {a DecompilerConstructorForClosures} method: (MetacelloMCVersionSpec>>#resolveToLoadableSpecs:map: "a CompiledMethod...etc... instVars: #(nil nil nil nil nil nil nil nil nil nil nil) tempVars: an Array({required} {packageMap} {reqd} {allReqd} {map} {_r6}) constTable: an Array({self} {true} {false} {nil} {-1} {0} {1} {2}) stack: an OrderedCollection(#pushNewArray->#(nil)) statements: an OrderedCollection({reqd := required copy} {allReqd := Set new} {...etc... lastPc: 81 exit: nil caseExits: an OrderedCollection() lastJumpPc: nil lastReturnPc: nil limit: 140 hasValue: nil blockStackBase: 0 numLocalTemps: 0 blockStartsToTempVars: a Dictionary(65->an Array({required} {packageMap} {reqd}...etc... tempVarCount: 7 Decompiler(InstructionStream)>>interpretNextInstructionFor: Receiver: a Decompiler Arguments and temporary variables: client: a Decompiler byte: 61 type: 10 offset: 8 method: (MetacelloMCVersionSpec>>#resolveToLoadableSpecs:map: "a CompiledMethod...etc... Receiver's instance variables: sender: (MetacelloMCVersionSpec>>#resolveToLoadableSpecs:map: "a CompiledMethod...etc... pc: 82 constructor: {a DecompilerConstructorForClosures} method: (MetacelloMCVersionSpec>>#resolveToLoadableSpecs:map: "a CompiledMethod...etc... instVars: #(nil nil nil nil nil nil nil nil nil nil nil) tempVars: an Array({required} {packageMap} {reqd} {allReqd} {map} {_r6}) constTable: an Array({self} {true} {false} {nil} {-1} {0} {1} {2}) stack: an OrderedCollection(#pushNewArray->#(nil)) statements: an OrderedCollection({reqd := required copy} {allReqd := Set new} {...etc... lastPc: 81 exit: nil caseExits: an OrderedCollection() lastJumpPc: nil lastReturnPc: nil limit: 140 hasValue: nil blockStackBase: 0 numLocalTemps: 0 blockStartsToTempVars: a Dictionary(65->an Array({required} {packageMap} {reqd}...etc... tempVarCount: 7 Decompiler>>interpretNextInstructionFor: Receiver: a Decompiler Arguments and temporary variables: client: a Decompiler code: nil varNames: nil i: nil iLimiT: nil Receiver's instance variables: sender: (MetacelloMCVersionSpec>>#resolveToLoadableSpecs:map: "a CompiledMethod...etc... pc: 82 constructor: {a DecompilerConstructorForClosures} method: (MetacelloMCVersionSpec>>#resolveToLoadableSpecs:map: "a CompiledMethod...etc... instVars: #(nil nil nil nil nil nil nil nil nil nil nil) tempVars: an Array({required} {packageMap} {reqd} {allReqd} {map} {_r6}) constTable: an Array({self} {true} {false} {nil} {-1} {0} {1} {2}) stack: an OrderedCollection(#pushNewArray->#(nil)) statements: an OrderedCollection({reqd := required copy} {allReqd := Set new} {...etc... lastPc: 81 exit: nil caseExits: an OrderedCollection() lastJumpPc: nil lastReturnPc: nil limit: 140 hasValue: nil blockStackBase: 0 numLocalTemps: 0 blockStartsToTempVars: a Dictionary(65->an Array({required} {packageMap} {reqd}...etc... tempVarCount: 7 Decompiler>>statementsTo: Receiver: a Decompiler Arguments and temporary variables: end: 172 blockPos: 0 stackPos: 0 t: nil Receiver's instance variables: sender: (MetacelloMCVersionSpec>>#resolveToLoadableSpecs:map: "a CompiledMethod...etc... pc: 82 constructor: {a DecompilerConstructorForClosures} method: (MetacelloMCVersionSpec>>#resolveToLoadableSpecs:map: "a CompiledMethod...etc... instVars: #(nil nil nil nil nil nil nil nil nil nil nil) tempVars: an Array({required} {packageMap} {reqd} {allReqd} {map} {_r6}) constTable: an Array({self} {true} {false} {nil} {-1} {0} {1} {2}) stack: an OrderedCollection(#pushNewArray->#(nil)) statements: an OrderedCollection({reqd := required copy} {allReqd := Set new} {...etc... lastPc: 81 exit: nil caseExits: an OrderedCollection() lastJumpPc: nil lastReturnPc: nil limit: 140 hasValue: nil blockStackBase: 0 numLocalTemps: 0 blockStartsToTempVars: a Dictionary(65->an Array({required} {packageMap} {reqd}...etc... tempVarCount: 7 Decompiler>>blockTo: Receiver: a Decompiler Arguments and temporary variables: end: 172 exprs: nil block: nil oldBase: nil Receiver's instance variables: sender: (MetacelloMCVersionSpec>>#resolveToLoadableSpecs:map: "a CompiledMethod...etc... pc: 82 constructor: {a DecompilerConstructorForClosures} method: (MetacelloMCVersionSpec>>#resolveToLoadableSpecs:map: "a CompiledMethod...etc... instVars: #(nil nil nil nil nil nil nil nil nil nil nil) tempVars: an Array({required} {packageMap} {reqd} {allReqd} {map} {_r6}) constTable: an Array({self} {true} {false} {nil} {-1} {0} {1} {2}) stack: an OrderedCollection(#pushNewArray->#(nil)) statements: an OrderedCollection({reqd := required copy} {allReqd := Set new} {...etc... lastPc: 81 exit: nil caseExits: an OrderedCollection() lastJumpPc: nil lastReturnPc: nil limit: 140 hasValue: nil blockStackBase: 0 numLocalTemps: 0 blockStartsToTempVars: a Dictionary(65->an Array({required} {packageMap} {reqd}...etc... tempVarCount: 7 Decompiler>>decompile:in:method:using: Receiver: a Decompiler Arguments and temporary variables: aSelector: #resolveToLoadableSpecs:map: aClass: MetacelloMCVersionSpec aMethod: (MetacelloMCVersionSpec>>#resolveToLoadableSpecs:map: "a CompiledMetho...etc... aConstructor: {a DecompilerConstructorForClosures} block: nil node: nil Receiver's instance variables: sender: (MetacelloMCVersionSpec>>#resolveToLoadableSpecs:map: "a CompiledMethod...etc... pc: 82 constructor: {a DecompilerConstructorForClosures} method: (MetacelloMCVersionSpec>>#resolveToLoadableSpecs:map: "a CompiledMethod...etc... instVars: #(nil nil nil nil nil nil nil nil nil nil nil) tempVars: an Array({required} {packageMap} {reqd} {allReqd} {map} {_r6}) constTable: an Array({self} {true} {false} {nil} {-1} {0} {1} {2}) stack: an OrderedCollection(#pushNewArray->#(nil)) statements: an OrderedCollection({reqd := required copy} {allReqd := Set new} {...etc... lastPc: 81 exit: nil caseExits: an OrderedCollection() lastJumpPc: nil lastReturnPc: nil limit: 140 hasValue: nil blockStackBase: 0 numLocalTemps: 0 blockStartsToTempVars: a Dictionary(65->an Array({required} {packageMap} {reqd}...etc... tempVarCount: 7 Decompiler>>decompile:in:method: Receiver: a Decompiler Arguments and temporary variables: aSelector: #resolveToLoadableSpecs:map: aClass: MetacelloMCVersionSpec aMethod: (MetacelloMCVersionSpec>>#resolveToLoadableSpecs:map: "a CompiledMetho...etc... Receiver's instance variables: sender: (MetacelloMCVersionSpec>>#resolveToLoadableSpecs:map: "a CompiledMethod...etc... pc: 82 constructor: {a DecompilerConstructorForClosures} method: (MetacelloMCVersionSpec>>#resolveToLoadableSpecs:map: "a CompiledMethod...etc... instVars: #(nil nil nil nil nil nil nil nil nil nil nil) tempVars: an Array({required} {packageMap} {reqd} {allReqd} {map} {_r6}) constTable: an Array({self} {true} {false} {nil} {-1} {0} {1} {2}) stack: an OrderedCollection(#pushNewArray->#(nil)) statements: an OrderedCollection({reqd := required copy} {allReqd := Set new} {...etc... lastPc: 81 exit: nil caseExits: an OrderedCollection() lastJumpPc: nil lastReturnPc: nil limit: 140 hasValue: nil blockStackBase: 0 numLocalTemps: 0 blockStartsToTempVars: a Dictionary(65->an Array({required} {packageMap} {reqd}...etc... tempVarCount: 7 CompiledMethod>>decompileWithTemps Receiver: (MetacelloMCVersionSpec>>#resolveToLoadableSpecs:map: "a CompiledMethod(236716032)") Arguments and temporary variables: class: MetacelloMCVersionSpec selector: #resolveToLoadableSpecs:map: Receiver's instance variables: (MetacelloMCVersionSpec>>#resolveToLoadableSpecs:map: "a CompiledMethod(236716032)") Decompiler>>decompileBlock: Receiver: a Decompiler Arguments and temporary variables:

1 5

Re: [Pharo-project] Issue 2360 in pharo: [Failing Test] nil out locals in a block if readBeforeWritten
by pharo＠googlecode.com April 1, 2011

April 1, 2011

Updates: Summary: [Failing Test] nil out locals in a block if readBeforeWritten Comment #12 on issue 2360 by marcus.d...(a)gmail.com: [Failing Test] nil out locals in a block if readBeforeWritten http://code.google.com/p/pharo/issues/detail?id=2360 (No comment was entered for this change.)

1 5

[Pharo-project] Issue 3725 in pharo: OnTheFlySelectionLists
by pharo＠googlecode.com April 1, 2011

April 1, 2011

Status: RFC Owner: Benjamin...(a)gmail.com New issue 3725 by Benjamin...(a)gmail.com: OnTheFlySelectionLists http://code.google.com/p/pharo/issues/detail?id=3725 Gofer new squeaksource: 'OnTheFlySelectionLis'; package: 'OnTheFlySelectionLists'; load 2 new kinds of PluggableList where the selection is seted on the fly. Attached a cs which integrated them in the Core browser Attachments: BrowserUseAutoSelectionList.1.cs 1.6 KB

1 2

[Pharo-project] Issue 3677 in pharo: A to:do: loop cannot modify the limit inside the block
by pharo＠googlecode.com April 1, 2011

April 1, 2011

Status: FixedWaitingToBePharoed Owner: stephane...(a)gmail.com Labels: Milestone-1.3 Type-Squeak New issue 3677 by stephane...(a)gmail.com: A to:do: loop cannot modify the limit inside the block http://code.google.com/p/pharo/issues/detail?id=3677 Nicolas Cellier uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-nice.184.mcz ==================== Summary ==================== Name: Compiler-nice.184 Author: nice Time: 12 January 2011, 10:09:27.038 pm UUID: ba12fb9c-6c57-429b-b415-1188e1faba8b Ancestors: Compiler-nice.183 Fix DecompilerTests>>#testDecompileLoopWithMovingLimit A to:do: loop cannot modify the limit inside the block =============== Diff against Compiler-nice.183 =============== Item was changed: ----- Method: MessageNode>>toDoFromWhileWithInit: (in category 'macro transformations') ----- toDoFromWhileWithInit: initStmt "Return nil, or a to:do: expression equivalent to this whileTrue:" | variable increment limit toDoBlock body test | (selector key == #whileTrue: and: [initStmt isAssignmentNode and: [initStmt variable isTemp]]) ifFalse: [^nil]. body := arguments last statements. variable := initStmt variable. increment := body last toDoIncrement: variable. (increment == nil or: [receiver statements size ~= 1]) ifTrue: [^nil]. test := receiver statements first. "Note: test chould really be checked that <= or >= comparison jibes with the sign of the (constant) increment" (test isMessageNode and: [(limit := test toDoLimit: variable) notNil]) ifFalse: [^nil]. + "The block must not overwrite the limit" + (limit isVariableNode and: [body anySatisfy: [:e | e isAssignmentNode and: [e variable = limit]]]) + ifTrue: [^nil]. toDoBlock := BlockNode statements: body allButLast returns: false. toDoBlock arguments: (Array with: variable). variable scope: -1. variable beBlockArg. ^MessageNode new receiver: initStmt value selector: (SelectorNode new key: #to:by:do: code: #macro) arguments: (Array with: limit with: increment with: toDoBlock) precedence: precedence!

1 2

[Pharo-project] Issue 3584 in pharo: ToDo: remove DisplayText class
by pharo＠googlecode.com March 31, 2011

March 31, 2011

Status: Started Owner: siguc...(a)gmail.com New issue 3584 by siguc...(a)gmail.com: ToDo: remove DisplayText class http://code.google.com/p/pharo/issues/detail?id=3584 DisplayText used for converting strings and text into forms, which then can be used to blit on other forms. It used sparsely, mostly in order to display simple text in number of old examples. In system there are already plenty of ways to display text, without using an intermediate string->form conversion, which is DisplayText. Ultimately, we should always use canvas(es) to display text, not forms or low-level DisplayObject(s). See MorphicUIManager>>#composeFormFor: in subclasses

1 3

[Pharo-project] Issue 3736 in pharo: new Transcript from CUIS
by pharo＠googlecode.com March 31, 2011

March 31, 2011

Status: Accepted Owner: stephane...(a)gmail.com Labels: Milestone-1.3 New issue 3736 by stephane...(a)gmail.com: new Transcript from CUIS http://code.google.com/p/pharo/issues/detail?id=3736 There are other problems with Transcript besides performance. It is easy to break the UI if called at the wrong times. In those cases, it is usually needed to kill Squeak from the OS. Besides, it is not thread safe. Instantly becoming a hero sounds cool, so this is my attempt at it :) I only tried this in Cuis, but I believe it should work on Squeak and Pharo without much trouble. After loading this code, you can evaluate 'Smalltalk at: #Transcript put: NewTranscript'. Some good properties of this are: - Very fast. - Thread safe! - Doesn't use Morphic at all. Can be used to debug Morphic itself. - Doesn't do delayed execution (no events, no forked processes). Immediate visual feedback. - Can show itself on Display, log to File, both, or none. - Can be used for headless or remote images (for example, web servers). Some possible downsides are: - Output only. Not a text editor. We have the Workspace and the Transcripter for that. - No seamless Morphic integration. I'll do one for Cuis, though. If no serious problems are found, I'll remove TranscriptStream from Cuis, and rename this class as Transcript. Cheers, Juan Vuletich 'From Cuis 3.0 of 31 January 2011 [latest update: #790] on 18 February 2011 at 2:36:31 pm'! !classDefinition: #NewTranscript category: #'System-Support'! Object subclass: #NewTranscript instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'System-Support'! !NewTranscript commentStamp: '<historical>' prior: 0! A new implementation of Transcript. - Thread safe. - Very fast. - Independent of Morphic or any other UI framework. - Inmediate feedback. - Can log to file. - Not an editor. Only used for output. - All protocol is on the Class side! !classDefinition: 'NewTranscript class' category: nil! NewTranscript class instanceVariableNames: 'entries firstIndex lastIndex accessSemaphore unfinishedEntry logToFile showOnDisplay innerRectangle lastDisplayTime'! !DateAndTime methodsFor: 'squeak protocol' stamp: 'jmv 2/18/2011 12:57'! printWithMsOn: aStream "Print with millisecond resolution, no leading space, no offset." | ps | self printYMDOn: aStream withLeadingSpace: false. aStream nextPut: $T. self printHMSOn: aStream. ps _ (self nanoSecond // 1000000) printString padded: #left to: 3 with: $0. aStream nextPut: $.. aStream nextPutAll: ps! ! !NewTranscript class methodsFor: 'preferred protocol' stamp: 'jmv 2/18/2011 14:16'! clear | stream | accessSemaphore critical: [ "Having at least one entry simplifies handling of the entries circular collection" firstIndex _ 1. lastIndex _ 1. entries at: 1 put: 'Transcript'. unfinishedEntry reset. logToFile ifTrue: [ stream _ StandardFileStream forceNewFileNamed: self filename. [ stream nextPutAll: 'Transcript log started: '. DateAndTime now printOn: stream. stream lf; nextPutAll: '------------------------------------------------------------------------'; lf ] ensure: [ stream close ]]]. self display! ! !NewTranscript class methodsFor: 'preferred protocol' stamp: 'jmv 2/18/2011 14:16'! log: aString self addEntry: aString. self display! ! !NewTranscript class methodsFor: 'preferred protocol' stamp: 'jmv 2/18/2011 11:49'! logToFile " self logToFile " logToFile _ true! ! !NewTranscript class methodsFor: 'old Transcript compatibility' stamp: 'jmv 2/18/2011 11:20'! cr "WriteStream protocol. In the older TranscriptStream, it added a CR character. Now, finish the current incomplete entry." self finishEntry! ! !NewTranscript class methodsFor: 'old Transcript compatibility' stamp: 'jmv 2/18/2011 11:20'! crtab "WriteStream protocol. End the current entry, and start a new one starting with a single tab character." self cr; tab! ! !NewTranscript class methodsFor: 'old Transcript compatibility' stamp: 'jmv 2/18/2011 11:21'! endEntry "For compatibility with old TranscriptStream. nop here"! ! !NewTranscript class methodsFor: 'old Transcript compatibility' stamp: 'jmv 2/18/2011 11:21'! flush "For compatibility with old TranscriptStream. nop here"! ! !NewTranscript class methodsFor: 'old Transcript compatibility' stamp: 'jmv 2/18/2011 14:17'! nextPut: aCharacter "WriteStream protocol. Append aCharacter to the unfinishedEntry. cr characters sent with this message do NOT finish the current unfinishedEntry." unfinishedEntry nextPut: aCharacter. self displayUnfinishedEntry! ! !NewTranscript class methodsFor: 'old Transcript compatibility' stamp: 'jmv 2/18/2011 14:17'! nextPutAll: aString "WriteStream protocol. Append aString to the unfinishedEntry. cr characters sent with this message do NOT finish the current unfinishedEntry." unfinishedEntry nextPutAll: aString. self displayUnfinishedEntry! ! !NewTranscript class methodsFor: 'old Transcript compatibility' stamp: 'jmv 2/18/2011 11:20'! print: anObject "Stream protocol" anObject printOn: self! ! !NewTranscript class methodsFor: 'old Transcript compatibility' stamp: 'jmv 2/18/2011 11:22'! show: anObject "Old TranscriptStream protocol." self nextPutAll: anObject asString! ! !NewTranscript class methodsFor: 'old Transcript compatibility' stamp: 'jmv 2/18/2011 11:22'! space "WriteStream protocol. Append a space character to the receiver." self nextPut: Character space! ! !NewTranscript class methodsFor: 'old Transcript compatibility' stamp: 'jmv 2/18/2011 11:22'! tab "WriteStream protocol. Append a tab character to the receiver." self nextPut: Character tab! ! !NewTranscript class methodsFor: 'private' stamp: 'jmv 2/18/2011 12:59'! addEntry: aString "Add a new entrie to the entries circular list. If full, a new entry will replace the oldest one." | msg now | logToFile ifTrue: [ now _ DateAndTime now. msg _ String streamContents: [ :strm | now printWithMsOn: strm. strm nextPutAll: ' process:'; nextPutAll: Processor activeProcess priority printString; nextPut: $ ; nextPutAll: Processor activeProcess hash printString; nextPut: $ ; nextPutAll: aString; lf ]]. self addEntry: aString logToFile: msg! ! !NewTranscript class methodsFor: 'private' stamp: 'jmv 2/18/2011 12:34'! addEntry: aString logToFile: otherString "Add a new entrie to the entries circular list. If full, a new entry will replace the oldest one." | stream | accessSemaphore critical: [ "Internal circular collection" lastIndex _ lastIndex \\ self maxEntries + 1. firstIndex = lastIndex ifTrue: [ firstIndex _ firstIndex \\ self maxEntries + 1 ]. entries at: lastIndex put: aString. "external file" otherString ifNotNil: [ [ stream _ StandardFileStream fileNamed: self filename. stream setToEnd; nextPutAll: otherString; flush] ensure: [ stream close ] ] ]! ! !NewTranscript class methodsFor: 'private' stamp: 'jmv 2/18/2011 14:16'! finishEntry | newEntry | newEntry _ unfinishedEntry contents. unfinishedEntry reset. self addEntry: newEntry. self display! ! !NewTranscript class methodsFor: 'displaying' stamp: 'jmv 2/18/2011 14:20'! display showOnDisplay ifTrue: [ self displayOn: Display. lastDisplayTime _ DateAndTime now ]! ! !NewTranscript class methodsFor: 'displaying' stamp: 'jmv 2/18/2011 14:09'! displayOn: aForm " experimentos NewTranscript displayOn: Display " | font port count i string x y fh f | aForm border: (innerRectangle outsetBy: 3) width: 3. aForm fill: innerRectangle fillColor: Color white. port _ BitBlt toForm: aForm. port clipWidth: innerRectangle right. font _ StrikeFont default. font installOn: port foregroundColor: Color black. fh _ font height. count _ innerRectangle height // fh-1. x _ innerRectangle left. y _ innerRectangle top. f _ firstIndex-1. firstIndex > lastIndex ifTrue: [ f _ f - self maxEntries ]. i _ (lastIndex - count max: f) \\ self maxEntries + 1. [ string _ entries at: i. port displayString: string from: 1 to: string size at: x@y strikeFont: font kern: font baseKern negated. y _ y + fh. i = lastIndex ] whileFalse: [ i _ i \\ self maxEntries + 1 ]. string _ unfinishedEntry contents. port displayString: string from: 1 to: string size at: x@y strikeFont: font kern: font baseKern negated.! ! !NewTranscript class methodsFor: 'displaying' stamp: 'jmv 2/18/2011 14:23'! displayUnfinishedEntry showOnDisplay ifTrue: [ (lastDisplayTime isNil or: [ (DateAndTime now - lastDisplayTime) totalSeconds > 1 ]) ifTrue: [ ^self display ]. self displayUnfinishedEntryOn: Display ]! ! !NewTranscript class methodsFor: 'displaying' stamp: 'jmv 2/18/2011 14:14'! displayUnfinishedEntryOn: aForm | font port count string x y fh | port _ BitBlt toForm: aForm. port clipWidth: innerRectangle right. font _ StrikeFont default. font installOn: port foregroundColor: Color black. fh _ font height. count _ innerRectangle height // fh-1. x _ innerRectangle left. string _ unfinishedEntry contents. y _ ((lastIndex - firstIndex \\ self maxEntries) min: count-1) + 1 * font height + innerRectangle top. port displayString: string from: 1 to: string size at: x@y strikeFont: font kern: font baseKern negated.! ! !NewTranscript class methodsFor: 'class initialization' stamp: 'jmv 2/18/2011 13:13'! initialize " self initialize " showOnDisplay _ true. innerRectangle _ 20@20 extent: 300@500. logToFile _ false. entries _ Array new: self maxEntries. unfinishedEntry _ '' writeStream. accessSemaphore _ Semaphore forMutualExclusion. self clear! ! !NewTranscript class methodsFor: 'constants' stamp: 'jmv 2/18/2011 12:33'! filename ^'transcript.txt'! ! !NewTranscript class methodsFor: 'constants' stamp: 'jmv 2/18/2011 12:59'! maxEntries ^1000! ! NewTranscript initialize!

1 5

[Pharo-project] Issue 3767 in pharo: We should add References to Pool Variable
by pharo＠googlecode.com March 30, 2011

March 30, 2011

Status: Accepted Owner: stephane...(a)gmail.com New issue 3767 by stephane...(a)gmail.com: We should add References to Pool Variable http://code.google.com/p/pharo/issues/detail?id=3767 It is possible to identify the reference to a PoolVariable. would be good to have that in the browser

1 1