Moose-dev May 2012

moose-dev@list.inf.unibe.ch

21 participants
109 discussions

glamour watcher
by Tudor Girba 27 May '12

27 May '12

Hi, I enhanced Glamour with a first version of a Watcher browser that offers a behavior similar to Quick Preview on Mac. For example, if you run the code below in a Moose image, and then press Ctrl+Shift+Space you will get a preview of source code in a window floating above the current one. See the attachment. | browser | browser := GLMTabulator new. browser column: #methods. browser transmit to: #methods; andShow: [:a | a list display: #methods; format: #selector ]. browser transmit from: #methods; toWatcher; andShow: [:a | a smalltalkCode smalltalkClass: [ :method | method methodClass ]; display: [:method | method getSource ] ]. browser openOn: GLMBrowser To get it 100% useable I would need help with some Morphic magic: - to make the Watcher window not appear in the taskbar - to make the rendering of Watcher happen in another thread so that it does not block the current UI Cheers, Doru -- www.tudorgirba.com "Not knowing how to do something is not an argument for how it cannot be done."

4 16

Issue 767 in moose-technology: Book: presentation names are confusing
by moose-technology＠googlecode.com 27 May '12

27 May '12

Status: New Owner: ---- Labels: Type-Defect Priority-Medium New issue 767 by sean.p.d...(a)gmail.com: Book: presentation names are confusing http://code.google.com/p/moose-technology/issues/detail?id=767 For example, on http://www.themoosebook.org/book/internals/glamour/presentations/action-list ActionListPresentation is referenced, but the class name is GLMActionListPresentation. So, when I pasted it into a workspace, it was highlighted red as an unrecognized class. I think it'd be clearer to either use full presentation class names or spaces between camel case (e.g. "Action List Presentation"). The same is true for some of the other presentations e.g. DiffPresentation

1 2

Issue 644 in moose-technology: A fly by help to show each time the source code of an entity
by moose-technology＠googlecode.com 27 May '12

27 May '12

Status: New Owner: ---- Labels: Type-Defect Priority-Medium New issue 644 by cy.delau...(a)gmail.com: A fly by help to show each time the source code of an entity http://code.google.com/p/moose-technology/issues/detail?id=644 Maybe it would be interesting when navigating in moose, to always have a fly by help that show the source code of an element

1 2

Issue 782 in moose-technology: inFamix should export basic metrics for methods
by moose-technology＠googlecode.com 26 May '12

26 May '12

Status: New Owner: ---- CC: georgega...(a)gmail.com Labels: Type-Defect Priority-Medium Component-ExternalTools New issue 782 by tudor.gi...(a)gmail.com: inFamix should export basic metrics for methods http://code.google.com/p/moose-technology/issues/detail?id=782 inFamix should export basic method metrics: - LOC (lines of code) - NOS (number of statements) - CYCLO (cyclomatic complexity)

1 1

Issue 797 in moose-technology: ROLine should support width
by moose-technology＠googlecode.com 26 May '12

26 May '12

Status: New Owner: ---- CC: alexandr...(a)gmail.com Labels: Type-Defect Priority-Medium Component-Roassal Milestone-4.7 New issue 797 by tudor.gi...(a)gmail.com: ROLine should support width http://code.google.com/p/moose-technology/issues/detail?id=797 Right now we cannot assign the width of a line. We need this mechanism.

2 2

morph tree selection problem
by Tudor Girba 25 May '12

25 May '12

Hi, In Pharo 1.4, Glamour has a problem with selecting an element in the tree when the element is nested. The following snippet shows the problem: browser := GLMBasicExamples new treeWithInitialSelection. browser openOn: { #first->{$a->{}. $c->{}. $d->{}}. #second->{$e->{}. $f->{}}. #third->{$h->{}} }. (browser panes first port: #selection) value: (browser panes first port: #entity) value first value first. Cheers, Doru -- www.tudorgirba.com "What we can governs what we wish."

1 0

loading athens - a user perspective
by Tudor Girba 25 May '12

25 May '12

Hi, Here is how to install Athens (I also added this comment to the ConfigurationOfAthens): 1. Install Cairo on your machine For example, for Mac, you open the terminal and run: sudo port install -f cairo +universal More information can be found here: http://cairographics.org/download/ 2. Download the NativeBoost enabled Cog VM from: https://ci.lille.inria.fr/pharo/view/NativeBoost/ 3. Get a Pharo image and run: Gofer new squeaksource: 'Athens'; package: 'ConfigurationOfAthens'; load. (Smalltalk at: #ConfigurationOfAthens) loadDevelopment 4. Play with it. For example: VGTigerDemo runDemo Thanks Igor! Cheers, Doru -- www.tudorgirba.com "Live like you mean it."

3 2

Re: [Pharo-project] loading athens - a user perspective
by Fernando Olivero 25 May '12

25 May '12

You shouldnt use Brew, because it cant compile universal binaries. Athens, with a cairo backend, uses NativeBoost which needs 32 bit libraries, because CogGM is targeted to 32 bits. I also tried with Brew, that's why i found out is hard to instruct brew to compile universal binaries. Fernando On Fri, May 25, 2012 at 12:39 PM, Serge Stinckwich <serge.stinckwich(a)gmail.com> wrote: > On Fri, May 25, 2012 at 4:57 PM, Tudor Girba <tudor(a)tudorgirba.com> wrote: >> Hi, >> >> Here is how to install Athens (I also added this comment to the ConfigurationOfAthens): >> >> >> 1. Install Cairo on your machine >> For example, for Mac, you open the terminal and run: >> sudo port install -f cairo +universal >> >> More information can be found here: >> http://cairographics.org/download/ >> >> >> 2. Download the NativeBoost enabled Cog VM from: >> https://ci.lille.inria.fr/pharo/view/NativeBoost/ >> >> >> 3. Get a Pharo image and run: >> Gofer new >> squeaksource: 'Athens'; >> package: 'ConfigurationOfAthens'; >> load. >> (Smalltalk at: #ConfigurationOfAthens) loadDevelopment >> >> >> 4. Play with it. For example: >> VGTigerDemo runDemo > > I install Cairo with brew on mac os x: > brew install cairo > > And I got the following stack trace: > > > 25 May 2012 5:37:03 pm > > VM: Mac OS - intel - 1074 - NBCoInterpreter > NativeBoost-CogPlugin-IgorStasenko.9 uuid: > 801decd2-0b42-fa49-bcea-d7564d516a1b May 1 2012, > StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.158 uuid: > 82eded98-68af-4c80-a472-4f6de293adcf May 1 2012, > https://git.gitorious.org/cogvm/blessed.git Commit: > 6aa3fd0f1188078d3167dec1a53031a61b97b688 Date: Tue May 1 20:28:14 2012 > +0200 By: Esteban Lorenzano <estebanlm(a)gmail.com> > Image: Pharo1.4a [Latest update: #14418] > > NBFFICallout(Object)>>error: > Receiver: a NBFFICallout > Arguments and temporary variables: > aString: 'function unavailable' > Receiver's instance variables: > asm: an AJx86Assembler > proxy: a NBInterpreterProxy > options: a Set(#optCdecl #optAllowByteArraysPtr #optUseStackPointer > #optReturnP...etc... > method: (AthensCairoSurface class>>#primImage:width:height: "a > CompiledMethod(4...etc... > fnSpec: a NBFnSpec > requestor: AthensCairoSurface class > methodArgs: an OrderedCollection('aFormat' 'aWidth' 'aHeight') > coercionMayFail: true > callInfo: an AJCdeclCallInfo > > [:gen | > fnAddress := requestor nbGetSymbolAddress: fnSpec functionName module: > aModuleNameOrHandle. > fnAddress > ifNil: [self error: 'function unavailable']. > self mayCallback > ifTrue: [asm push: fnAddress asUImm32; > mov: NativeBoost callgateFunctionAddress asUImm32 to: EAX; > call: EAX] > ifFalse: [asm mov: fnAddress asUImm32 to: EAX; > call: EAX]] in NBFFICallout>>generateCall:module: > Receiver: a NBFFICallout > Arguments and temporary variables: > aModuleNameOrHandle: a NBFFICallout > fnAddress: '/opt/local/lib/libcairo.2.dylib' > gen: #(nil) > Receiver's instance variables: > asm: an AJx86Assembler > proxy: a NBInterpreterProxy > options: a Set(#optCdecl #optAllowByteArraysPtr #optUseStackPointer > #optReturnP...etc... > method: (AthensCairoSurface class>>#primImage:width:height: "a > CompiledMethod(4...etc... > fnSpec: a NBFnSpec > requestor: AthensCairoSurface class > methodArgs: an OrderedCollection('aFormat' 'aWidth' 'aHeight') > coercionMayFail: true > callInfo: an AJCdeclCallInfo > > BlockClosure>>valueWithPossibleArgs: > Receiver: [:gen | > fnAddress := requestor nbGetSymbolAddress: fnSpec functionName module: > aModuleNam...etc... > Arguments and temporary variables: > anArray: an Array(a NBFFICallout a NBInterpreterProxy an AJx86Assembler) > Receiver's instance variables: > outerContext: NBFFICallout>>generateCall:module: > startpc: 91 > numArgs: 1 > > [aFunctionBodyBlock valueWithPossibleArgs: {self. proxy. asm}. > (self optEmitCall > or: [self optNoCleanup]) > ifTrue: [call disableCleanup]] in [:call | > self optNoAlignment > ifTrue: [call alignment: 1]. > self pushArguments. > coercionMayFail > ifTrue: [proxy ifFailedJumpTo: self failedLabel]. > asm > decorateWith: 'FFI: performing a call' > while: [aFunctionBodyBlock valueWithPossibleArgs: {self. proxy. asm}. > (self optEmitCall > or: [self optNoCleanup]) > ifTrue: [call disableCleanup]]] in NBFFICallout>>generateInstructions: > Receiver: a NBFFICallout > Arguments and temporary variables: > aFunctionBodyBlock: an AJCdeclCallInfo > call: [:gen | > fnAddress := requestor nbGetSymbolAddress: fnSpec functionName m...etc... > Receiver's instance variables: > asm: an AJx86Assembler > proxy: a NBInterpreterProxy > options: a Set(#optCdecl #optAllowByteArraysPtr #optUseStackPointer > #optReturnP...etc... > method: (AthensCairoSurface class>>#primImage:width:height: "a > CompiledMethod(4...etc... > fnSpec: a NBFnSpec > requestor: AthensCairoSurface class > methodArgs: an OrderedCollection('aFormat' 'aWidth' 'aHeight') > coercionMayFail: true > callInfo: an AJCdeclCallInfo > > BlockClosure>>ensure: > Receiver: [aFunctionBodyBlock valueWithPossibleArgs: {self. proxy. asm}. > (self optEmitCall > or: [...etc... > Arguments and temporary variables: > aBlock: [level := level - 1. > self > addInstruction: (AJInstructionDecoration n...etc... > complete: nil > returnValue: nil > Receiver's instance variables: > outerContext: [:call | > self optNoAlignment > ifTrue: [call alignment: 1]. > sel...etc... > startpc: 151 > numArgs: 0 > > AJx86Assembler>>decorateWith:while: > Receiver: an AJx86Assembler > Arguments and temporary variables: > annotation: 'FFI: performing a call' > aBlock: [aFunctionBodyBlock valueWithPossibleArgs: {self. proxy. asm}. > (self o...etc... > Receiver's instance variables: > instructions: <<error during printing>> > > [:call | > self optNoAlignment > ifTrue: [call alignment: 1]. > self pushArguments. > coercionMayFail > ifTrue: [proxy ifFailedJumpTo: self failedLabel]. > asm > decorateWith: 'FFI: performing a call' > while: [aFunctionBodyBlock valueWithPossibleArgs: {self. proxy. asm}. > (self optEmitCall > or: [self optNoCleanup]) > ifTrue: [call disableCleanup]]] in NBFFICallout>>generateInstructions: > Receiver: a NBFFICallout > Arguments and temporary variables: > aFunctionBodyBlock: an AJCdeclCallInfo > call: [:gen | > fnAddress := requestor nbGetSymbolAddress: fnSpec functionName m...etc... > Receiver's instance variables: > asm: an AJx86Assembler > proxy: a NBInterpreterProxy > options: a Set(#optCdecl #optAllowByteArraysPtr #optUseStackPointer > #optReturnP...etc... > method: (AthensCairoSurface class>>#primImage:width:height: "a > CompiledMethod(4...etc... > fnSpec: a NBFnSpec > requestor: AthensCairoSurface class > methodArgs: an OrderedCollection('aFormat' 'aWidth' 'aHeight') > coercionMayFail: true > callInfo: an AJCdeclCallInfo > > AJx86Assembler>>performingCall:in: > Receiver: an AJx86Assembler > Arguments and temporary variables: > ci: an AJCdeclCallInfo > aBlock: [:call | > self optNoAlignment > ifTrue: [call alignment: 1]. > self push...etc... > Receiver's instance variables: > instructions: <<error during printing>> > > NBFFICallout>>foreignCall: > Receiver: a NBFFICallout > Arguments and temporary variables: > aBlock: [:call | > self optNoAlignment > ifTrue: [call alignment: 1]. > self push...etc... > Receiver's instance variables: > asm: an AJx86Assembler > proxy: a NBInterpreterProxy > options: a Set(#optCdecl #optAllowByteArraysPtr #optUseStackPointer > #optReturnP...etc... > method: (AthensCairoSurface class>>#primImage:width:height: "a > CompiledMethod(4...etc... > fnSpec: a NBFnSpec > requestor: AthensCairoSurface class > methodArgs: an OrderedCollection('aFormat' 'aWidth' 'aHeight') > coercionMayFail: true > callInfo: an AJCdeclCallInfo > > NBFFICallout>>generateInstructions: > Receiver: a NBFFICallout > Arguments and temporary variables: > aFunctionBodyBlock: [:gen | > fnAddress := requestor nbGetSymbolAddress: fnSpec ...etc... > instructions: nil > Receiver's instance variables: > asm: an AJx86Assembler > proxy: a NBInterpreterProxy > options: a Set(#optCdecl #optAllowByteArraysPtr #optUseStackPointer > #optReturnP...etc... > method: (AthensCairoSurface class>>#primImage:width:height: "a > CompiledMethod(4...etc... > fnSpec: a NBFnSpec > requestor: AthensCairoSurface class > methodArgs: an OrderedCollection('aFormat' 'aWidth' 'aHeight') > coercionMayFail: true > callInfo: an AJCdeclCallInfo > > NBFFICallout>>generate: > Receiver: a NBFFICallout > Arguments and temporary variables: > aFunctionBodyBlock: [:gen | > fnAddress := requestor nbGetSymbolAddress: fnSpec ...etc... > generatedCode: nil > Receiver's instance variables: > asm: an AJx86Assembler > proxy: a NBInterpreterProxy > options: a Set(#optCdecl #optAllowByteArraysPtr #optUseStackPointer > #optReturnP...etc... > method: (AthensCairoSurface class>>#primImage:width:height: "a > CompiledMethod(4...etc... > fnSpec: a NBFnSpec > requestor: AthensCairoSurface class > methodArgs: an OrderedCollection('aFormat' 'aWidth' 'aHeight') > coercionMayFail: true > callInfo: an AJCdeclCallInfo > > NBFFICallout>>generateCall:module: > Receiver: a NBFFICallout > Arguments and temporary variables: > functionSpec: #(#AthensCairoSurface #cairo_image_surface_create > #(#int #aFormat...etc... > aModuleNameOrHandle: '/opt/local/lib/libcairo.2.dylib' > fnAddress: #(nil) > Receiver's instance variables: > asm: an AJx86Assembler > proxy: a NBInterpreterProxy > options: a Set(#optCdecl #optAllowByteArraysPtr #optUseStackPointer > #optReturnP...etc... > method: (AthensCairoSurface class>>#primImage:width:height: "a > CompiledMethod(4...etc... > fnSpec: a NBFnSpec > requestor: AthensCairoSurface class > methodArgs: an OrderedCollection('aFormat' 'aWidth' 'aHeight') > coercionMayFail: true > callInfo: an AJCdeclCallInfo > > [:gen | gen sender: sender; > callType: self nbCallingConvention; > generateCall: fnSpec module: self nbLibraryNameOrHandle] in > AthensCairoSurface class(Object)>>nbCall: > Receiver: AthensCairoSurface > Arguments and temporary variables: > fnSpec: a NBFFICallout > sender: #(#AthensCairoSurface #cairo_image_surface_create #(#int > #aFormat #, #i...etc... > gen: AthensCairoSurface class>>primImage:width:height: > Receiver's instance variables: > superclass: AthensSurface > methodDict: a > MethodDictionary(#asAthensPaintOn:->(AthensCairoSurface>>#asAthen...etc... > format: 140 > instanceVariables: #('handle' 'context' 'builder' 'id') > organization: ('converting' asAthensPaintOn: writeToPng:) > ('as yet unclassified...etc... > subclasses: {AthensCairoPDFSurface} > name: #AthensCairoSurface > classPool: nil > sharedPools: an OrderedCollection(AthensCairoDefs) > environment: a SystemDictionary(lots of globals) > category: #'Athens-Cairo' > traitComposition: TCairoLibrary > localSelectors: a Set(#asForm #createFormPaint: #stride > #setOperator: #writeToP...etc... > uniqueSession: nil > dispatch: nil > dispatchStruct: nil > > NBFFICallout class(NBNativeCodeGen class)>>generateCode:andRetry: > Receiver: NBFFICallout > Arguments and temporary variables: > aBlock: [:gen | gen sender: sender; > callType: self nbCallingConvention; > g...etc... > retryCtx: AthensCairoSurface class>>primImage:width:height: > method: (AthensCairoSurface class>>#primImage:width:height: "a > CompiledMethod(4...etc... > code: nil > newMethod: nil > args: nil > i: nil > iLimiT: nil > Receiver's instance variables: > superclass: NBNativeCodeGen > methodDict: a > MethodDictionary(#aliasForType:->(NBFFICallout>>#aliasForType: > "a...etc... > format: 148 > instanceVariables: #('fnSpec' 'requestor' 'methodArgs' > 'coercionMayFail' 'callI...etc... > organization: ('type aliases' aliasForType:) > ('accessing' anonSpec: callType: c...etc... > subclasses: {NBNativeFunctionGen} > name: #NBFFICallout > classPool: a Dictionary(#CustomErrorCodes->nil > #CustomErrorMessages->nil #TypeA...etc... > sharedPools: nil > environment: a SystemDictionary(lots of globals) > category: #'NativeBoost-Core' > traitComposition: {} > localSelectors: nil > > NBFFICallout class(NBNativeCodeGen class)>>handleFailureIn:nativeCode: > Receiver: NBFFICallout > Arguments and temporary variables: > aContext: AthensCairoSurface class>>primImage:width:height: > aBlock: [:gen | gen sender: sender; > callType: self nbCallingConvention; > g...etc... > method: (AthensCairoSurface class>>#primImage:width:height: "a > CompiledMethod(4...etc... > lastError: 502 > Receiver's instance variables: > superclass: NBNativeCodeGen > methodDict: a > MethodDictionary(#aliasForType:->(NBFFICallout>>#aliasForType: > "a...etc... > format: 148 > instanceVariables: #('fnSpec' 'requestor' 'methodArgs' > 'coercionMayFail' 'callI...etc... > organization: ('type aliases' aliasForType:) > ('accessing' anonSpec: callType: c...etc... > subclasses: {NBNativeFunctionGen} > name: #NBFFICallout > classPool: a Dictionary(#CustomErrorCodes->nil > #CustomErrorMessages->nil #TypeA...etc... > sharedPools: nil > environment: a SystemDictionary(lots of globals) > category: #'NativeBoost-Core' > traitComposition: {} > localSelectors: nil > > AthensCairoSurface class(Object)>>nbCall: > Receiver: AthensCairoSurface > Arguments and temporary variables: > fnSpec: #(#AthensCairoSurface #cairo_image_surface_create #(#int > #aFormat #, #i...etc... > sender: AthensCairoSurface class>>primImage:width:height: > Receiver's instance variables: > superclass: AthensSurface > methodDict: a > MethodDictionary(#asAthensPaintOn:->(AthensCairoSurface>>#asAthen...etc... > format: 140 > instanceVariables: #('handle' 'context' 'builder' 'id') > organization: ('converting' asAthensPaintOn: writeToPng:) > ('as yet unclassified...etc... > subclasses: {AthensCairoPDFSurface} > name: #AthensCairoSurface > classPool: nil > sharedPools: an OrderedCollection(AthensCairoDefs) > environment: a SystemDictionary(lots of globals) > category: #'Athens-Cairo' > traitComposition: TCairoLibrary > localSelectors: a Set(#asForm #createFormPaint: #stride > #setOperator: #writeToP...etc... > uniqueSession: nil > dispatch: nil > dispatchStruct: nil > > AthensCairoSurface class>>primImage:width:height: > Receiver: AthensCairoSurface > Arguments and temporary variables: > aFormat: 0 > aWidth: 800 > aHeight: 800 > Receiver's instance variables: > superclass: AthensSurface > methodDict: a > MethodDictionary(#asAthensPaintOn:->(AthensCairoSurface>>#asAthen...etc... > format: 140 > instanceVariables: #('handle' 'context' 'builder' 'id') > organization: ('converting' asAthensPaintOn: writeToPng:) > ('as yet unclassified...etc... > subclasses: {AthensCairoPDFSurface} > name: #AthensCairoSurface > classPool: nil > sharedPools: an OrderedCollection(AthensCairoDefs) > environment: a SystemDictionary(lots of globals) > category: #'Athens-Cairo' > traitComposition: TCairoLibrary > localSelectors: a Set(#asForm #createFormPaint: #stride > #setOperator: #writeToP...etc... > uniqueSession: nil > dispatch: nil > dispatchStruct: nil > > AthensCairoSurface class>>extent:format: > Receiver: AthensCairoSurface > Arguments and temporary variables: > anExtent: (800@800) > aFormat: 0 > Receiver's instance variables: > superclass: AthensSurface > methodDict: a > MethodDictionary(#asAthensPaintOn:->(AthensCairoSurface>>#asAthen...etc... > format: 140 > instanceVariables: #('handle' 'context' 'builder' 'id') > organization: ('converting' asAthensPaintOn: writeToPng:) > ('as yet unclassified...etc... > subclasses: {AthensCairoPDFSurface} > name: #AthensCairoSurface > classPool: nil > sharedPools: an OrderedCollection(AthensCairoDefs) > environment: a SystemDictionary(lots of globals) > category: #'Athens-Cairo' > traitComposition: TCairoLibrary > localSelectors: a Set(#asForm #createFormPaint: #stride > #setOperator: #writeToP...etc... > uniqueSession: nil > dispatch: nil > dispatchStruct: nil > > AthensCairoSurface class>>extent: > Receiver: AthensCairoSurface > Arguments and temporary variables: > anExtent: (800@800) > Receiver's instance variables: > superclass: AthensSurface > methodDict: a > MethodDictionary(#asAthensPaintOn:->(AthensCairoSurface>>#asAthen...etc... > format: 140 > instanceVariables: #('handle' 'context' 'builder' 'id') > organization: ('converting' asAthensPaintOn: writeToPng:) > ('as yet unclassified...etc... > subclasses: {AthensCairoPDFSurface} > name: #AthensCairoSurface > classPool: nil > sharedPools: an OrderedCollection(AthensCairoDefs) > environment: a SystemDictionary(lots of globals) > category: #'Athens-Cairo' > traitComposition: TCairoLibrary > localSelectors: a Set(#asForm #createFormPaint: #stride > #setOperator: #writeToP...etc... > uniqueSession: nil > dispatch: nil > dispatchStruct: nil > > VGTigerDemo>>initialize > Receiver: a VGTigerDemo > Arguments and temporary variables: > > Receiver's instance variables: > surface: nil > > VGTigerDemo class(Behavior)>>new > Receiver: VGTigerDemo > Arguments and temporary variables: > > Receiver's instance variables: > superclass: Object > methodDict: a > MethodDictionary(#convertPathData2->(VGTigerDemo>>#convertPathDat...etc... > format: 132 > instanceVariables: #('surface') > organization: ('as yet unclassified' convertPathData2 initialize runDemo) > > subclasses: nil > name: #VGTigerDemo > classPool: nil > sharedPools: nil > environment: a SystemDictionary(lots of globals) > category: #'Athens-Examples' > traitComposition: {} > localSelectors: nil > > VGTigerDemo class>>runDemo > Receiver: VGTigerDemo > Arguments and temporary variables: > > Receiver's instance variables: > superclass: Object > methodDict: a > MethodDictionary(#convertPathData2->(VGTigerDemo>>#convertPathDat...etc... > format: 132 > instanceVariables: #('surface') > organization: ('as yet unclassified' convertPathData2 initialize runDemo) > > subclasses: nil > name: #VGTigerDemo > classPool: nil > sharedPools: nil > environment: a SystemDictionary(lots of globals) > category: #'Athens-Examples' > traitComposition: {} > localSelectors: nil > > UndefinedObject>>DoIt > Receiver: nil > Arguments and temporary variables: > > Receiver's instance variables: > nil > > Compiler>>evaluate:in:to:notifying:ifFail:logged: > Receiver: a Compiler > Arguments and temporary variables: > textOrStream: a ReadWriteStream > aContext: nil > receiver: nil > aRequestor: a TextMorphForEditView(741605376) > failBlock: [self morph flash. > ^ nil] > logFlag: true > methodNode: DoIt > ^ VGTigerDemo runDemo > method: (UndefinedObject>>#DoIt "a CompiledMethod(926679040)") > value: nil > toLog: nil > itsSelection: nil > itsSelectionString: nil > Receiver's instance variables: > sourceStream: a ReadWriteStream > requestor: a TextMorphForEditView(741605376) > class: UndefinedObject > category: nil > context: nil > parser: a Parser > > [rcvr class evaluatorClass new > evaluate: self selectionForDoitAsStream > in: ctxt > to: rcvr > notifying: self morph > ifFail: [self morph flash. > ^ nil] > logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: > Receiver: a SmalltalkEditor > Arguments and temporary variables: > rcvr: nil > ctxt: nil > Receiver's instance variables: > morph: a TextMorphForEditView(741605376) > selectionShowing: true > model: a Workspace > editingState: a SmalltalkEditingState > > BlockClosure>>on:do: > Receiver: [rcvr class evaluatorClass new > evaluate: self selectionForDoitAsStream > in: ctxt > to: ...etc... > Arguments and temporary variables: > exception: OutOfScopeNotification > handlerAction: [:ex | ex resume: true] > handlerActive: true > Receiver's instance variables: > outerContext: SmalltalkEditor>>evaluateSelectionAndDo: > startpc: 110 > numArgs: 0 > > SmalltalkEditor>>evaluateSelectionAndDo: > Receiver: a SmalltalkEditor > Arguments and temporary variables: > aBlock: [:result | result] > result: nil > rcvr: nil > ctxt: nil > Receiver's instance variables: > morph: a TextMorphForEditView(741605376) > selectionShowing: true > model: a Workspace > editingState: a SmalltalkEditingState > > SmalltalkEditor>>evaluateSelection > Receiver: a SmalltalkEditor > Arguments and temporary variables: > > Receiver's instance variables: > morph: a TextMorphForEditView(741605376) > selectionShowing: true > model: a Workspace > editingState: a SmalltalkEditingState > > SmalltalkEditor>>doIt > Receiver: a SmalltalkEditor > Arguments and temporary variables: > > Receiver's instance variables: > morph: a TextMorphForEditView(741605376) > selectionShowing: true > model: a Workspace > editingState: a SmalltalkEditingState > > SmalltalkEditor>>doIt: > Receiver: a SmalltalkEditor > Arguments and temporary variables: > aKeyboardEvent: [keystroke '<Cmd-d>'] > Receiver's instance variables: > morph: a TextMorphForEditView(741605376) > selectionShowing: true > model: a Workspace > editingState: a SmalltalkEditingState > > SmalltalkEditor(TextEditor)>>performCmdActionsWith:shifted:return: > Receiver: a SmalltalkEditor > Arguments and temporary variables: > aKeyboardEvent: [keystroke '<Cmd-d>'] > aBoolean: false > return: [:val | ^ val] > asciiValue: 101 > actions: #(#noop: #cursorHome: #noop: #noop: #cursorEnd: #noop: > #noop: #noop: #...etc... > action: #doIt: > Receiver's instance variables: > morph: a TextMorphForEditView(741605376) > selectionShowing: true > model: a Workspace > editingState: a SmalltalkEditingState > > SmalltalkEditor(TextEditor)>>dispatchCommandOn:return: > Receiver: a SmalltalkEditor > Arguments and temporary variables: > aKeyboardEvent: [keystroke '<Cmd-d>'] > return: [:val | ^ val] > asciiValue: 100 > honorCommandKeys: true > char: nil > Receiver's instance variables: > morph: a TextMorphForEditView(741605376) > selectionShowing: true > model: a Workspace > editingState: a SmalltalkEditingState > > SmalltalkEditor(TextEditor)>>dispatchOn: > Receiver: a SmalltalkEditor > Arguments and temporary variables: > aKeyboardEvent: [keystroke '<Cmd-d>'] > char: nil > return: [:val | ^ val] > keyEvents: nil > Receiver's instance variables: > morph: a TextMorphForEditView(741605376) > selectionShowing: true > model: a Workspace > editingState: a SmalltalkEditingState > > [self dispatchOn: aKeyboardEvent] in SmalltalkEditor(TextEditor)>>keystroke: > Receiver: a SmalltalkEditor > Arguments and temporary variables: > aKeyboardEvent: [keystroke '<Cmd-d>'] > Receiver's instance variables: > morph: a TextMorphForEditView(741605376) > selectionShowing: true > model: a Workspace > editingState: a SmalltalkEditingState > > SmalltalkEditor(TextEditor)>>handleKeystrokeAction: > Receiver: a SmalltalkEditor > Arguments and temporary variables: > aBlock: [self dispatchOn: aKeyboardEvent] > Receiver's instance variables: > morph: a TextMorphForEditView(741605376) > selectionShowing: true > model: a Workspace > editingState: a SmalltalkEditingState > > SmalltalkEditor(TextEditor)>>handleEditionAction:fromKeyboardEvent: > Receiver: a SmalltalkEditor > Arguments and temporary variables: > anAction: [self dispatchOn: aKeyboardEvent] > aKeyboardEvent: [keystroke '<Cmd-d>'] > Receiver's instance variables: > morph: a TextMorphForEditView(741605376) > selectionShowing: true > model: a Workspace > editingState: a SmalltalkEditingState > > SmalltalkEditor(TextEditor)>>keystroke: > Receiver: a SmalltalkEditor > Arguments and temporary variables: > aKeyboardEvent: [keystroke '<Cmd-d>'] > Receiver's instance variables: > morph: a TextMorphForEditView(741605376) > selectionShowing: true > model: a Workspace > editingState: a SmalltalkEditingState > > [editor keystroke: evt] in [| action | > evt keyValue = 13 > ifTrue: [action := self crAction. > action > ifNotNil: [evt hand newKeyboardFocus: nil. > ^ action value]]. > self > handleInteraction: [editor keystroke: evt]. > self updateFromParagraph. > super keyStroke: evt] in TextMorphForEditView(TextMorph)>>keyStroke: > Receiver: a TextMorphForEditView(741605376) > Arguments and temporary variables: > evt: [keystroke '<Cmd-d>'] > Receiver's instance variables: > bounds: (0@0) corner: (473@18) > owner: a TransformMorph(38535168) > submorphs: #() > fullBounds: (0@0) corner: (473@18) > color: Color black > extension: a MorphExtension (824180736) [other: (blinkStart -> > 1085881) (myDep...etc... > borderWidth: 0 > borderColor: Color black > textStyle: a TextStyle Bitmap DejaVu Sans 9 > text: a Text for 'VGTigerDemo runDemo' > wrapFlag: true > paragraph: a Paragraph > editor: a SmalltalkEditor > container: nil > predecessor: nil > successor: nil > backgroundColor: nil > margins: (0@0) corner: (0@0) > editView: a PluggableTextMorph(838860800) > acceptOnCR: false > autoAccept: false > acceptOnFocusChange: false > selectionColor: nil > > TextMorphForEditView(TextMorph)>>handleInteraction: > Receiver: a TextMorphForEditView(741605376) > Arguments and temporary variables: > interactionBlock: [editor keystroke: evt] > oldEditor: a SmalltalkEditor > oldParagraph: a Paragraph > oldText: a Text for 'VGTigerDemo runDemo' > Receiver's instance variables: > bounds: (0@0) corner: (473@18) > owner: a TransformMorph(38535168) > submorphs: #() > fullBounds: (0@0) corner: (473@18) > color: Color black > extension: a MorphExtension (824180736) [other: (blinkStart -> > 1085881) (myDep...etc... > borderWidth: 0 > borderColor: Color black > textStyle: a TextStyle Bitmap DejaVu Sans 9 > text: a Text for 'VGTigerDemo runDemo' > wrapFlag: true > paragraph: a Paragraph > editor: a SmalltalkEditor > container: nil > predecessor: nil > successor: nil > backgroundColor: nil > margins: (0@0) corner: (0@0) > editView: a PluggableTextMorph(838860800) > acceptOnCR: false > autoAccept: false > acceptOnFocusChange: false > selectionColor: nil > > > --- The full stack --- > NBFFICallout(Object)>>error: > [:gen | > fnAddress := requestor nbGetSymbolAddress: fnSpec functionName module: > aModuleNameOrHandle. > fnAddress > ifNil: [self error: 'function unavailable']. > self mayCallback > ifTrue: [asm push: fnAddress asUImm32; > mov: NativeBoost callgateFunctionAddress asUImm32 to: EAX; > call: EAX] > ifFalse: [asm mov: fnAddress asUImm32 to: EAX; > call: EAX]] in NBFFICallout>>generateCall:module: > BlockClosure>>valueWithPossibleArgs: > [aFunctionBodyBlock valueWithPossibleArgs: {self. proxy. asm}. > (self optEmitCall > or: [self optNoCleanup]) > ifTrue: [call disableCleanup]] in [:call | > self optNoAlignment > ifTrue: [call alignment: 1]. > self pushArguments. > coercionMayFail > ifTrue: [proxy ifFailedJumpTo: self failedLabel]. > asm > decorateWith: 'FFI: performing a call' > while: [aFunctionBodyBlock valueWithPossibleArgs: {self. proxy. asm}. > (self optEmitCall > or: [self optNoCleanup]) > ifTrue: [call disableCleanup]]] in NBFFICallout>>generateInstructions: > BlockClosure>>ensure: > AJx86Assembler>>decorateWith:while: > [:call | > self optNoAlignment > ifTrue: [call alignment: 1]. > self pushArguments. > coercionMayFail > ifTrue: [proxy ifFailedJumpTo: self failedLabel]. > asm > decorateWith: 'FFI: performing a call' > while: [aFunctionBodyBlock valueWithPossibleArgs: {self. proxy. asm}. > (self optEmitCall > or: [self optNoCleanup]) > ifTrue: [call disableCleanup]]] in NBFFICallout>>generateInstructions: > AJx86Assembler>>performingCall:in: > NBFFICallout>>foreignCall: > NBFFICallout>>generateInstructions: > NBFFICallout>>generate: > NBFFICallout>>generateCall:module: > [:gen | gen sender: sender; > callType: self nbCallingConvention; > generateCall: fnSpec module: self nbLibraryNameOrHandle] in > AthensCairoSurface class(Object)>>nbCall: > NBFFICallout class(NBNativeCodeGen class)>>generateCode:andRetry: > NBFFICallout class(NBNativeCodeGen class)>>handleFailureIn:nativeCode: > AthensCairoSurface class(Object)>>nbCall: > AthensCairoSurface class>>primImage:width:height: > AthensCairoSurface class>>extent:format: > AthensCairoSurface class>>extent: > VGTigerDemo>>initialize > VGTigerDemo class(Behavior)>>new > VGTigerDemo class>>runDemo > UndefinedObject>>DoIt > Compiler>>evaluate:in:to:notifying:ifFail:logged: > [rcvr class evaluatorClass new > evaluate: self selectionForDoitAsStream > in: ctxt > to: rcvr > notifying: self morph > ifFail: [self morph flash. > ^ nil] > logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: > BlockClosure>>on:do: > SmalltalkEditor>>evaluateSelectionAndDo: > SmalltalkEditor>>evaluateSelection > SmalltalkEditor>>doIt > SmalltalkEditor>>doIt: > SmalltalkEditor(TextEditor)>>performCmdActionsWith:shifted:return: > SmalltalkEditor(TextEditor)>>dispatchCommandOn:return: > SmalltalkEditor(TextEditor)>>dispatchOn: > [self dispatchOn: aKeyboardEvent] in SmalltalkEditor(TextEditor)>>keystroke: > SmalltalkEditor(TextEditor)>>handleKeystrokeAction: > SmalltalkEditor(TextEditor)>>handleEditionAction:fromKeyboardEvent: > SmalltalkEditor(TextEditor)>>keystroke: > [editor keystroke: evt] in [| action | > evt keyValue = 13 > ifTrue: [action := self crAction. > action > ifNotNil: [evt hand newKeyboardFocus: nil. > ^ action value]]. > self > handleInteraction: [editor keystroke: evt]. > self updateFromParagraph. > super keyStroke: evt] in TextMorphForEditView(TextMorph)>>keyStroke: > TextMorphForEditView(TextMorph)>>handleInteraction: > - - - - - - - - - - - - - - - > - - - - - - - - - - - - - - - - - - > TextMorphForEditView>>handleInteraction: > [| action | > evt keyValue = 13 > ifTrue: [action := self crAction. > action > ifNotNil: [evt hand newKeyboardFocus: nil. > ^ action value]]. > self > handleInteraction: [editor keystroke: evt]. > self updateFromParagraph. > super keyStroke: evt] in TextMorphForEditView(TextMorph)>>keyStroke: > ECToolSet class>>codeCompletionAround:textMorph:keyStroke: > ToolRegistry>>codeCompletionAround:textMorph:keyStroke: > SmalltalkEditor>>codeCompletionAround:textMorph:keyStroke: > TextMorphForEditView(TextMorph)>>keyStroke: > TextMorphForEditView>>keyStroke: > TextMorphForEditView(TextMorph)>>handleKeystroke: > KeyboardEvent>>sentTo: > TextMorphForEditView(Morph)>>handleEvent: > TextMorphForEditView(Morph)>>handleFocusEvent: > [ActiveHand := self. > ActiveEvent := anEvent. > result := focusHolder > handleFocusEvent: (anEvent > transformedBy: (focusHolder transformedFrom: self))] in > HandMorph>>sendFocusEvent:to:clear: > [aBlock value] in PasteUpMorph>>becomeActiveDuring: > BlockClosure>>on:do: > PasteUpMorph>>becomeActiveDuring: > HandMorph>>sendFocusEvent:to:clear: > HandMorph>>sendEvent:focus:clear: > HandMorph>>sendKeyboardEvent: > HandMorph>>handleEvent: > HandMorph>>processEvents > [:h | > ActiveHand := h. > h processEvents. > ActiveHand := nil] in WorldState>>doOneCycleNowFor: > Array(SequenceableCollection)>>do: > WorldState>>handsDo: > WorldState>>doOneCycleNowFor: > WorldState>>doOneCycleFor: > PasteUpMorph>>doOneCycle > [[World doOneCycle. > Processor yield. > false] whileFalse. > nil] in MorphicUIManager>>spawnNewProcess > [self value. > Processor terminateActive] in BlockClosure>>newProcess > > > > -- > Serge Stinckwich > UMI UMMISCO 209 (IRD/UPMC), Hanoi, Vietnam > Every DSL ends up being Smalltalk > http://doesnotunderstand.org/ >

1 0

Porting DSM to Roassal?
by Alexandre Bergel 23 May '12

23 May '12

Hi! I've spent a bit of time in trying to port DSM to Roassal. Unfortunately not everything goes as smooth as I wished. The task is clearly doable, but it is a bit more than merely changing MOViewRenderer for ROMondrianViewBuilder. For example, there is code like: shapeOfDetailedHeader ^ MOFixedRectangleShape new width: 36; height: 10; withoutBorder; fontSize: 8; fontFamily: 'Accuny' In Roassal, the width and the height is defined on the element, and not the shape. A ROBox does not know how to display text, it has to be added a ROLabel in it. Well... I feel the safer is to revert what I have done yesterday, and leaving DSM use Mondrian. Else if someone wants to rethink DSM a bit. Cheers, Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.

3 4

Moose @ PharoConf
by Stéphane Ducasse 23 May '12

23 May '12

Hi guys I would like to take the opportunity that we will be present at PharoConf to organize a Moose meeting. - I would like to see how we (INRIA) can allocate some time to improve the configuration of moose. - and I would like to come with 3 other items where we will invest - Arki - so what are the other two that are important for the community? Stef

3 5

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

Moose-dev May 2012