Moose-dev

moose-dev@list.inf.unibe.ch

6621 discussions

ROMondrianViewBuilder versus native Roassal
by Ben Coman 20 Aug '12

20 Aug '12

Is there anything (at all) to gain in my continuing to use ROMondrianViewBuilder versus "native" Roassal? Is ROMondrianViewBuilder "just" for backward compatability to ease the transition and draw people into the new system? Or... is there stuff that ROMondrianViewBuilder does better than "native" Roassal - in terms of conciseness, ease of use, flexibility, access to layouts, features, etc... I am trying to determine whether putting effort into the perhaps easier step of going from Mondrian to ROMondrianViewBuilder may be wasted leaving me missing out on any new power of Roassal, or require more effort later to rework for native Roassal. You may have gone over this before, but how do the purpose and architecture of the two differ? cheers -ben

2 2

Roassal internals >> ROShape>>removeShape:
by Ben Coman 20 Aug '12

20 Aug '12

Just recording a bit of my learning the internals of Roassal, since it helps me flesh out my understanding. [ROShape>>removeShape:] does not have a test to reference for my understanding of this, but it appears to not work as expected. For example in workspace... b := ROBox new. c := ROCircle new. b addLast: c. b removeShape: ROCircle. b inspect results in a linked list of: aROBoxShape --> aROCircleShape --> aROChildrenShape. Actually the semantics of [removeShape:] seem problematic. What should be the result of... b := ROBox new. b removeShape: ROBox. b inspect. I would guess that 'b' should hold aROChildrenShape, except you can't change the value of 'b' from inside the [removeShape:] method. (In my limited knowledge of 'slots', I wonder if this is something they might help with.) I am relying on the guess that you could have aROChildrenShape as the only shape on an element, for subviews without a border, but could you clarify this. Naively I thought to just try... removeShape: aShapeClass ^ (self isKindOf: aShapeClass) ifTrue: [ next become: next next ] ifFalse: [ next removeShape: aShapeClass ] but the danger of #become hit me and locked my image. btw, something else just while I am feeling evil, what should happen with the following... b := ROBox new. b removeShape: ROChildrenShape. b inspect. cheers -ben

2 3

Running CodeCity in Pharo?
by Torben Knerr 20 Aug '12

20 Aug '12

Hi everybody, is there a Pharo port of Code City? I am wondering because the use of VisualWorks Smalltalk and the license restrictions that come with it make it impossible to use Code City in a commercial setting (if I understand it right). Cheers, Torben

4 13

popUpView in Roassal
by Usman Bhatti 19 Aug '12

19 Aug '12

Hello all, I'm having trouble to apply proper layout in popUpView in Roassal. The problem can be seen with the output of the following scripts: both manipulating same entities, the first one drawing entities without popUp (and producing correct layout), the second one is using popUpView (problem with the produced layout): myView := ROMondrianViewBuilder new. myView node: 'test' forIt: [ myView shape rectangle. myView node: #innerNode forIt: [ myView shape rectangle. myView node: #first forIt: [ myView nodes: #(1 2 3) ]. myView shape rectangle. myView node: #second forIt: [ myView nodes: #(1 2 3) ]. myView shape rectangle. myView node: #third forIt: [ myView nodes: #(1 2 3) ]. myView verticalLineLayout center ]. myView gridLayout ]. myView open ========================================================== view := ROMondrianViewBuilder new. view shape label. view interaction popupView: [ :entity :myView | myView node: 'test' forIt: [ myView shape rectangle. myView node: #innerNode forIt: [ myView shape rectangle. myView node: #first forIt: [ myView nodes: #(1 2 3) ]. myView shape rectangle. myView node: #second forIt: [ myView nodes: #(1 2 3) ]. myView shape rectangle. myView node: #third forIt: [ myView nodes: #(1 2 3) ]. myView verticalLineLayout center ]. myView gridLayout ]. ]. view nodes: #(0 9 8). view open Could you please see if there is a bug or I am doing it wrong? tx, Usman

2 3

Roassal internals - ROShape>>addLast:in: & ROChildrenShape
by Ben Coman 19 Aug '12

19 Aug '12

Just recording a bit of my learning the internals of Roassal, since it helps me flesh out my understanding. At first glance looking at [ROShape>>addLast:] this seemed to recursively call itself with no exit-condition, but then I noticed its ivar 'next' is initialized to ROChildrenShape this provides the exit condition inherited from RONullShape. Adding a shape replaces this ROChildrenShape in 'next', but the new shape itself has a ROChildrenShape in its 'next' . I haven't got as far looking at ROChildrenShape yet, but briefly thought it might be a container holding other shapes, but then actually I think it is the ROElements ivar 'elements' that is the container of subview nodes - and that ROChildrenShape just stores how to draw the subview nodes. I guess it is the lack of the [drawOn:For:] method that distinguishes between abstract and concrete ROShape classes. By the way, what is the design decision of leaving [ROShape>>drawOn:For] blank rather than using [self subclassResponsibility] ? So, just to confirm my understanding, perhaps the following or similar would be useful as a comment on ROShape>>addLast: "Instance variable 'next' must be a RONullShape to provide the exit condition of this recursive call. This is ensured by instance initialization" cheers -ben

2 1

ROBeginingAnimation>>isOver
by Ben Coman 19 Aug '12

19 Aug '12

I was browsing Roassal looking for how mouse-overs are handled, and bumped into the method ROBeginingAnimation>>isOver, and I was momentarily confused by what "over" would mean in this context. Without knowing the whole architecture, I am thinking that perhaps a better method name would be 'isComplete'. In a highly GUI oriented system, "over" has too many meanings without diving into the code. If that is reasonable, but I distraction from other work, I could implement and submit the change. The method is referenced from five methods and three tests. cheers -ben

2 2

Windows squeak vm in Moose image
by Usman Bhatti 18 Aug '12

18 Aug '12

Hello all, Just wanted to know if the Windows VM file (Squeak.exe) in one-click Moose package is the latest version of the VM (in image-folder/Contents/Windows)? Can I know the source of the vm because I remember downloading one (Cog.exe) that worked better? tx, Usman

2 2

Build failed in Jenkins: moose-latest-dev #1094
by admin＠moosetechnology.org 16 Aug '12

16 Aug '12

See <http://hudson.moosetechnology.org/job/moose-latest-dev/1094/> ------------------------------------------ [...truncated 801 lines...] BlockClosure>>ensure: FileReference>>readStreamDo: BasicCodeLoader>>installSourceFile: [:reference | self installSourceFile: reference] in [sourceFiles do: [:reference | self installSourceFile: reference]] in BasicCodeLoader>>installSourceFiles Array(SequenceableCollection)>>do: [sourceFiles do: [:reference | self installSourceFile: reference]] in BasicCodeLoader>>installSourceFiles BlockClosure>>ensure: BasicCodeLoader>>installSourceFiles BasicCodeLoader class>>commandLineHandlerAction: [:commandLine | BasicCodeLoader commandLineHandlerAction: commandLine] in BasicCodeLoader class>>initialize [:each | | actionBlock conditionBlock | conditionBlock := each key. actionBlock := each value. (conditionBlock value: anUserInput) ifTrue: [actionBlock value: anUserInput]] in CommandLine class(AbstractUserInput class)>>dispatch: [:association | aBlock value: association value] in Dictionary>>valuesDo: [:each | each ifNotNil: [aBlock value: each]] in Dictionary>>associationsDo: Array(SequenceableCollection)>>do: Dictionary>>associationsDo: Dictionary>>valuesDo: Dictionary>>do: CommandLine class(AbstractUserInput class)>>dispatch: [self dispatch: singleton] in CommandLine class>>dispatch BlockClosure>>cull: [each cull: resuming] in [:each | self logStartUpErrorDuring: [each cull: resuming] into: errors tryDebugger: self isInteractive] in SmalltalkImage>>executeDeferredStartupActions: BlockClosure>>on:do: SmalltalkImage>>logStartUpErrorDuring:into:tryDebugger: [:each | self logStartUpErrorDuring: [each cull: resuming] into: errors tryDebugger: self isInteractive] in SmalltalkImage>>executeDeferredStartupActions: OrderedCollection>>do: SmalltalkImage>>executeDeferredStartupActions: SmalltalkImage>>snapshot:andQuit: UndefinedObject>>DoIt Compiler>>evaluate:in:to:notifying:ifFail:logged: Compiler class>>evaluate:for:notifying:logged: Compiler class>>evaluate:for:logged: Compiler class>>evaluate:logged: [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] in [:bar | [self atEnd] whileFalse: [bar value: self position. self skipSeparators. [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] on: InMidstOfFileinNotification do: [:ex | ex resume: true]. self skipStyleChunk]. self close] in FileSystemFileStream(PositionableStream)>>fileInAnnouncing: BlockClosure>>on:do: [:bar | [self atEnd] whileFalse: [bar value: self position. self skipSeparators. [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] on: InMidstOfFileinNotification do: [:ex | ex resume: true]. self skipStyleChunk]. self close] in FileSystemFileStream(PositionableStream)>>fileInAnnouncing: NonInteractiveUIManager(CommandLineUIManager)>>progressInitiationExceptionDefaultAction: ProgressInitiationException>>defaultAction UndefinedObject>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: ProgressInitiationException(Exception)>>signal ProgressInitiationException>>display:at:from:to:during: ProgressInitiationException class>>display:at:from:to:during: ByteString(String)>>displayProgressFrom:to:during: FileSystemFileStream(PositionableStream)>>fileInAnnouncing: FileSystemFileStream(PositionableStream)>>fileIn [^ (FileSystemFileStream with: stream contents asString) reset fileIn] in [:stream | [^ (FileSystemFileStream with: stream contents asString) reset fileIn] on: Error , ParserNotification do: [:e | self handleError: e reference: aReference]] in BasicCodeLoader>>installSourceFile: BlockClosure>>on:do: [:stream | [^ (FileSystemFileStream with: stream contents asString) reset fileIn] on: Error , ParserNotification do: [:e | self handleError: e reference: aReference]] in BasicCodeLoader>>installSourceFile: [aBlock value: stream] in FileReference>>readStreamDo: BlockClosure>>ensure: FileReference>>readStreamDo: BasicCodeLoader>>installSourceFile: [:reference | self installSourceFile: reference] in [sourceFiles do: [:reference | self installSourceFile: reference]] in BasicCodeLoader>>installSourceFiles Array(SequenceableCollection)>>do: [sourceFiles do: [:reference | self installSourceFile: reference]] in BasicCodeLoader>>installSourceFiles BlockClosure>>ensure: BasicCodeLoader>>installSourceFiles BasicCodeLoader class>>commandLineHandlerAction: [:commandLine | BasicCodeLoader commandLineHandlerAction: commandLine] in BasicCodeLoader class>>initialize [:each | | actionBlock conditionBlock | conditionBlock := each key. actionBlock := each value. (conditionBlock value: anUserInput) ifTrue: [actionBlock value: anUserInput]] in CommandLine class(AbstractUserInput class)>>dispatch: [:association | aBlock value: association value] in Dictionary>>valuesDo: [:each | each ifNotNil: [aBlock value: each]] in Dictionary>>associationsDo: Array(SequenceableCollection)>>do: Dictionary>>associationsDo: Dictionary>>valuesDo: Dictionary>>do: CommandLine class(AbstractUserInput class)>>dispatch: [self dispatch: singleton] in CommandLine class>>dispatch BlockClosure>>cull: [each cull: resuming] in [:each | self logStartUpErrorDuring: [each cull: resuming] into: errors tryDebugger: self isInteractive] in SmalltalkImage>>executeDeferredStartupActions: BlockClosure>>on:do: SmalltalkImage>>logStartUpErrorDuring:into:tryDebugger: [:each | self logStartUpErrorDuring: [each cull: resuming] into: errors tryDebugger: self isInteractive] in SmalltalkImage>>executeDeferredStartupActions: OrderedCollection>>do: SmalltalkImage>>executeDeferredStartupActions: SmalltalkImage>>snapshot:andQuit: UndefinedObject>>DoIt Compiler>>evaluate:in:to:notifying:ifFail:logged: Compiler class>>evaluate:for:notifying:logged: Compiler class>>evaluate:for:logged: Compiler class>>evaluate:logged: [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] in [:bar | [self atEnd] whileFalse: [bar value: self position. self skipSeparators. [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] on: InMidstOfFileinNotification do: [:ex | ex resume: true]. self skipStyleChunk]. self close] in FileSystemFileStream(PositionableStream)>>fileInAnnouncing: BlockClosure>>on:do: [:bar | [self atEnd] whileFalse: [bar value: self position. self skipSeparators. [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] on: InMidstOfFileinNotification do: [:ex | ex resume: true]. self skipStyleChunk]. self close] in FileSystemFileStream(PositionableStream)>>fileInAnnouncing: NonInteractiveUIManager(CommandLineUIManager)>>progressInitiationExceptionDefaultAction: ProgressInitiationException>>defaultAction UndefinedObject>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: -- and more not shown --------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE Got startup errors: ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "new" is nil ------------------------------------------------------------------------------- Recording test results Archiving artifacts

1 2

DSM - how to get the labels and and strength shown?
by Torben Knerr 16 Aug '12

16 Aug '12

Hi everybody, when visualizing dependencies with the DSM, is it possible to add labels (i.e. package names) to the axes and the strength of dependencies inside the boxes? I have seen it that way here: http://www.moosetechnology.org/?_s=VobZiLnMJVEuKMlv But in my case it rather looks like that: http://themoosebook.org/files/0d/kb2v463n4vgwigrotknuq1tw04fqyl/visualizati… How would I get to that more detailed view? Thanks and best regards, Torben

2 4

Hello! :-)
by Torben Knerr 14 Aug '12

14 Aug '12

Hi everybody, as I'm new to this list I just wanted to say hello. I'm quite new to Moose and completely new to Smalltalk - so please forgive any newbie questions :-) I came to Moose via CodeCity, and I believe it's a powerful platform, thus I'm eager to learn more about it. I'm especially interested in using Moose / CodeCity in a commercial setting, e.g. in the context of architecture assessments and code reviews that we are doing for customers. Actually I recently used Moose in such a context, but could not get quite to the results I wanted to. Not because of Moose, but rather because I'm not familiar with the Smalltalk environment and especially Mondrian painting yet... Today I found this mailing list from which I believe it's a good source for information and knowledge exchange. So, "Hello!" :-) Cheers, Torben

3 3

Jump to page:

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

Moose-dev