- Moose-dev - INF Mailman

by Tudor Girba

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."

13 years, 1 month

4
16
0 0

Issue 767 in moose-technology: Book: presentation names are confusing

by moose-technology＠googlecode.com

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

13 years, 1 month

1
2
0 0

Issue 644 in moose-technology: A fly by help to show each time the source code of an entity

by moose-technology＠googlecode.com

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

13 years, 1 month

1
2
0 0

Issue 782 in moose-technology: inFamix should export basic metrics for methods

by moose-technology＠googlecode.com

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)

13 years, 1 month

1
1
0 0

Issue 797 in moose-technology: ROLine should support width

by moose-technology＠googlecode.com

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.

13 years, 1 month

2
2
0 0

morph tree selection problem

by Tudor Girba

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."

13 years, 1 month

1
0
0 0

loading athens - a user perspective

by Tudor Girba

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."

13 years, 1 month

3
2
0 0

Re: [Pharo-project] loading athens - a user perspective

by Fernando Olivero

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/ >

13 years, 1 month

1
0
0 0

Porting DSM to Roassal?

by Alexandre Bergel

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 ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.

13 years, 1 month

3
4
0 0

Moose @ PharoConf

by Stéphane Ducasse

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

13 years, 1 month

3
5
0 0

Issue 582 in moose-technology: Watcher support in Glamour

by moose-technology＠googlecode.com

Status: New Owner: ---- Labels: Type-Enhancement Priority-Medium Component-Glamour New issue 582 by tudor.gi...(a)gmail.com: Watcher support in Glamour http://code.google.com/p/moose-technology/issues/detail?id=582 Like we now have a statusbar, we should also have a detailed preview shown in a floating Watcher window. The behavior would be similar to Quick Look on Mac.

13 years, 1 month

1
3
0 0

Mondrian to Roassal: TreeMap

by Dennis Schenk

Hi all, With the recent release of Roassal I thought I try it out and see if I can port my TreeMapLayout from Mondrian to the new engine. First of all: I really like Roassal. I felt while it was similar to Mondrian it was easier to use and understand. I was able to throw away some boilerplate code in my layout, it is much cleaner now. Also, the porting did not took much time. There are two things which are missing (or I did not find them) to enable to draw a real TreeMap though: z-ordering and making edges invisible. Roassal seems to render the nodes in the order they are given to it, meaning the first node will be "under" all the others with the last one on top. Is there a way to alter this? In Mondrian every shape had a zOrder index. And how would I go on about making edges invisible? Cheers, Dennis

13 years, 1 month

3
15
0 0

mondrian to roassal

by Tudor Girba

Hi, Currently, there are some 63 relevant references to MOViewRenderer. These are the entry points to the visualizations that we need to review in order to move to Roassal. You can find the list here: http://ci.moosetechnology.org/job/moose-on-moose/lastCompletedBuild/testRep… Cheers, Doru -- www.tudorgirba.com Innovation comes in least expected form. That is, if it is expected, it already happened.

13 years, 1 month

2
5
0 0

OnMoose report

by Tudor Girba

Hi, The OnMoose Report is created using Arki based on a FAMIX model of the Moose code. The report contains concerns that are checked. Technically, the checkers are similar to SmallLint, but they differ significantly in the way they are (typically) used. The idea is to treat them as specific tests, rather as generic rules. Essentially, it is about living the idea of humane assessment. The report is executed after each successful Moose build and it is here: http://ci.moosetechnology.org/job/moose-on-moose/ (You can also download the image and look at the already built report) There are only a few rules at the moment, but I would like to see it growing :). To run it in your Moose image, you can do: Gofer new squeaksource: 'Arki'; package: 'OnMoose-Report'; load. And then: | report | MooseScripts createModelForConfigurationOfMoose. report := OnMooseReport on: MooseModel root allModels last. report open. REPHudson runOn: report spec. Cheers, Doru -- www.tudorgirba.com "One cannot do more than one can do."

13 years, 1 month

1
0
0 0

Issue 796 in moose-technology: Glamour should offer a simple way to wrap presentations in a browser

by moose-technology＠googlecode.com

Status: New Owner: tudor.gi...(a)gmail.com Labels: Type-Enhancement Priority-Medium Milestone-4.7 Component-Glamour New issue 796 by tudor.gi...(a)gmail.com: Glamour should offer a simple way to wrap presentations in a browser http://code.google.com/p/moose-technology/issues/detail?id=796 Right now, to build a browser with only one pane, we create a Tabulator with one pane and a transmission to this pane. Instead, we should have a Wrapper browser.

13 years, 1 month

1
1
0 0

roassal categories to packages

by Tudor Girba

Hi, Moose was the first user of RPackage, and RPackage works best when we have one package per category. Roassal does not comply to this requirement, but it should because I want Moose to continue to be a good RPackage citizen :). Alex, could you take care of splitting it? Cheers, Doru -- www.tudorgirba.com "The coherence of a trip is given by the clearness of the goal."

13 years, 1 month

3
6
0 0

EyeSee multiple lines in the same chart?

by Franco Sabadini

Hi, I'm working with EyeSee to create some charts in Moose but unfortunately I haven't been able to create multiple lines in a single line chart, is this possible? and if so does anyone have some sample code to share? Thanks. Franco

13 years, 1 month

5
13
0 0

trees in Glamour

by Usman Bhatti

Hello, I am constructing a tree presentation with Glamour. Parents are modules in my tree and children are a module's functions. Here is the code: modulesIn: composite ^ composite tree title: 'All Modules'; showOnly: 50; display: [ :each | each allModules]; tags: [ :each | {each numberOfFunctions asString} ]; format: [ :each | each mooseName]; selectionAct: [:each | each selection inspect ] on: $i entitled: 'Inspect'; icon: #mooseIcon; children: [:each | each functions ]. Now, when I click on a child, glamour wants to executes the children and tags block on a function in the above code. Now since my functions do not understand the messages functions/numberOfFunctions, there is an error. My question: for constructing a glamour tree, should parents and children both understand the same API or am I missing something here? thanx Usman

13 years, 1 month

2
2
0 0

ANN: Moose apprentice course - june 2-3

by Tudor Girba

Hi, I am happy to announce that I will organize the first Moose apprentice public course. This is an introductory course on how to use the Moose analysis platform for putting humane assessment into practice. It is dedicated to software engineers, and the concepts covered include model navigation, querying techniques, code metrics, and visualizations. The course sessions are accompanied by hands-on exercises. Here is the official announcement: http://www.humane-assessment.com/blog/free-moose-apprentice-course-june-2-3… Cheers, Doru -- www.tudorgirba.com "We cannot reach the flow of things unless we let go."

13 years, 1 month

1
0
0 0

Metrics lcom2 and lcom3

by Andre Hora

Hi, Just implemented lcom2 and lcom3 in FAMIXClass. regards, -- Andre Hora

13 years, 2 months

2
1
0 0

I cannot see the code in the latest Moose build

by Fabrizio Perin

Hi, I download the latest yellow build from the moose web site (8 may). When I open Nautilus I cannot see the code. I don't have any clue if it is about Nautilus or about how Nautilus is loaded in Moose or about something else. Any idea? Cheers, Fabrizio

13 years, 2 months

2
2
0 0

glamour help

by Usman Bhatti

Hello, I am working to add a new tab in Moose Finder's pane to display code: So when I select a class, I want to show its methods as a tree and clicking on each method shows the code of the method. Here is the code of my attempt: mooseFinderChildrenTreeIn2: composite <moosePresentationOrder: 80> composite tabulator with: [:t | t row: #methodList; row: #code; title: 'Details'. t transmit to: #methodList andShow: [ :a | a tree display: [:each | each methods]] ]. Problem: my method is not executing the display block and hence the tabulator tab does not show the list (I can see empty tabulator). I think its related to embedding a tabulator within a composite presentation and transmission of values but I do not precisely where to look to correct it. thanx, Usman

13 years, 2 months

2
2
0 0

glamour placing last character on next line

by Usman Bhatti

In MooseFinder, table presentation is placing last character on the next line (see the attached image). Is there a way to force the text to display on a single line? I'm sure its not related to the size of the text. thanx, Usman

13 years, 2 months

2
1
0 0

customizing menus for moose entities in moose finder

by Usman Bhatti

Hi, As discussed, I am working on the idea how to customize menus for entities in Moose Finder. As the menu construction depends on the pragmas defined on moose entity hierarchy, the idea is to read pragmas in some specific way. We tried something with Stéphane yesterday and here I am sending you the change set. Can you please have a look? The change set does not complete resolve the problem :-). The problem is that menus are duplicated and changes are still invasive (that is the code overrides the default moose finder behavior). But this can be a possible approach to resolve it. tx Usman

13 years, 2 months

3
11
0 0

Mondrian new method identityBorderColorOf:

by Fabrizio Perin

Hi, I implemented this new method: MOFilledShape>>identityBorderColorOf: aBlockOrObject "Set the border color based on the identity returned by the block." borderColor := MONIdentityNormalizer withCommand: aBlockOrObject Noting fancy but could be cool to have it in the mondrian core, what do you think? Cheers, Fabrizio

13 years, 2 months

2
1
0 0

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

Moose-dev