Moose-dev August 2012

moose-dev@list.inf.unibe.ch

21 participants
113 discussions

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

Tool to export Moose packages list to freeze a version
by Guillaume Larcheveque 14 Aug '12

14 Aug '12

Today we created a tool with stephane: I'm a kind of loader that know how to save and load list of packages. First when you have a configuration of packages that you want to version use: (Pay attention version and save first your packages, we are talking here about saving a list of packages not the packages themselves) publishNewVersion it will create a new method scriptXXX on the MooseConfigurationRepository You can then version this class in the package containing the Reloader class. In another image once you load this new version you can reload the configuration you save using the method reload: aNumber and it will load all the packages you previously specified. Under the cover, we need a way to know which packages to save and where to load them. Here is how this information is specified right now, it can be modified using accessors. defaultSavedPackagesPatternNames ^ #(#('Moose-Tests-Algos-InformationRetrieval*' ' http://www.squeaksource.com/MooseAlgos') #('Moose-Settings*' ' http://www.squeaksource.com/Moose') #('ConfigurationOfNewECompletion*' ' http://ss3.gemstone.com/ss/NEC') #('Fame-Example*' ' http://www.squeaksource.com/Fame') #('Moose-Tests-Algos-FormalConceptAnalysis*' ' http://www.squeaksource.com/MooseAlgos') #('CollectionExtensions*' ' http://www.squeaksource.com/CollectionExtensions') #('Grease-Core*' ' http://www.squeaksource.com/Seaside30') #('PetitSmalltalk*' ' http://source.lukas-renggli.ch/petit') #('Mondrian-Visitor*' ' http://www.squeaksource ......) Currently, it kills squeaksource but we will retry with a wait between each package and it should works. This tool is available at: http://www.smalltalkhub.com/mc/StephaneDucasse/MooseReloader/main -- *Guillaume Larcheveque*

4 8

MSE 3.0 to 2.1 Converter?
by Torben Knerr 14 Aug '12

14 Aug '12

Hi everybody, last question for today :-) Is there a converter which converts from MSE 3.0 to 2.1 format? I'm obviously trying to visualize some Java code with Code City. The MSE was created using verveinej. I know that the inFamix paid version can produce MSE 2.1 output, but if somehow possible I would prefer an open source / non-paid solution. Maybe, is there an older version of verveinej available which would produce MSE 2.1? Or was verveinej producing MSE 3.0 from the beginning? Thanks a lot and best regards, Torben

2 3

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

11 Aug '12

See <http://hudson.moosetechnology.org/job/moose-latest-dev/1090/> ------------------------------------------ [...truncated 762 lines...] - - - - - - - - - - - - - - - - - - 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)>>displayProgressAt:from:to:during: MetacelloPharoPlatform>>do:displaying: MetacelloFetchingMCSpecLoader>>linearLoadPackageSpec:gofer: MetacelloPackageSpec>>loadUsing:gofer: [:pkg | pkg loadUsing: self gofer: gofer] in MetacelloFetchingMCSpecLoader(MetacelloCommonMCSpecLoader)>>linearLoadPackageSpecs:repositories: OrderedCollection>>do: MetacelloFetchingMCSpecLoader(MetacelloCommonMCSpecLoader)>>linearLoadPackageSpecs:repositories: [super linearLoadPackageSpecs: packageSpecs repositories: repositories] in MetacelloFetchingMCSpecLoader>>atomicLoadPackageSpecs:repositories: BlockClosure>>ensure: MetacelloLoaderPolicy>>pushLoadDirective:during: MetacelloLoaderPolicy>>pushAtomicLoadDirectivesDuring:for: MetacelloFetchingMCSpecLoader>>atomicLoadPackageSpecs:repositories: MetacelloFetchingMCSpecLoader(MetacelloCommonMCSpecLoader)>>load MetacelloMCVersionSpecLoader>>load MetacelloMCVersion>>executeLoadFromArray: [:dict | ^ self executeLoadFromArray: anArray] in [self versionSpec loader: newLoader. MetacelloPlatform current useStackCacheDuring: [:dict | ^ self executeLoadFromArray: anArray] defaultDictionary: Dictionary new] in [[self versionSpec loader: newLoader. MetacelloPlatform current useStackCacheDuring: [:dict | ^ self executeLoadFromArray: anArray] defaultDictionary: Dictionary new] ensure: [self versionSpec loader: originalLoader]] in MetacelloMCVersion>>fetchRequiredFromArray: [^ aBlock value: dict] in MetacelloPharoPlatform(MetacelloPlatform)>>useStackCacheDuring:defaultDictionary: BlockClosure>>on:do: MetacelloPharoPlatform(MetacelloPlatform)>>useStackCacheDuring:defaultDictionary: [self versionSpec loader: newLoader. MetacelloPlatform current useStackCacheDuring: [:dict | ^ self executeLoadFromArray: anArray] defaultDictionary: Dictionary new] in [[self versionSpec loader: newLoader. MetacelloPlatform current useStackCacheDuring: [:dict | ^ self executeLoadFromArray: anArray] defaultDictionary: Dictionary new] ensure: [self versionSpec loader: originalLoader]] in MetacelloMCVersion>>fetchRequiredFromArray: BlockClosure>>ensure: [[self versionSpec loader: newLoader. MetacelloPlatform current useStackCacheDuring: [:dict | ^ self executeLoadFromArray: anArray] defaultDictionary: Dictionary new] ensure: [self versionSpec loader: originalLoader]] in MetacelloMCVersion>>fetchRequiredFromArray: [:bar | bar value: 1. aBlock value. bar value: 2] in MetacelloPharoPlatform>>do:displaying: 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: 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)>>displayProgressAt:from:to:during: MetacelloPharoPlatform>>do:displaying: MetacelloMCVersion>>fetchRequiredFromArray: [| fetchLoader | fetchLoader := self fetchRequiredFromArray: (self defaultPackageNamesToLoad: anArray). MetacelloPlatform current do: [fetchLoader doLoad] displaying: 'Loading ' , displayString. Transcript cr; show: '...finished ' , self versionNumber printString. ^ fetchLoader] in MetacelloMCVersion>>doLoadRequiredFromArray: BlockClosure>>ensure: MetacelloMCVersion>>doLoadRequiredFromArray: MetacelloMCVersion>>load ConfigurationOfGlamoroust class>>loadDevelopment ConfigurationOfGlamoroust class>>loadDefault 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: 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: -- and more not shown --------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE Got startup errors: ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE Error: Could not resolve: GT-Tests-Inspector [GT-Tests-Inspector] in <http://hudson.moosetechnology.org/job/moose-latest-dev/ws/moose/package-cac…> http://www.squeaksource.com/glamoroust ERROR: 'GoferRepositoryError: Could not access http://www.squeaksource.com/glamoroust: ConnectionTimedOut: Data receive timed out.' ------------------------------------------------------------------------------- Recording test results Archiving artifacts

1 1

Issue 798 in moose-technology: Mondrian should store edges in the most specific parent of the from/to nodes
by moose-technology＠googlecode.com 10 Aug '12

10 Aug '12

Status: New Owner: ---- CC: alexandr...(a)gmail.com Labels: Type-Defect Priority-Medium Component-Mondrian Milestone-4.7 New issue 798 by tudor.gi...(a)gmail.com: Mondrian should store edges in the most specific parent of the from/to nodes http://code.google.com/p/moose-technology/issues/detail?id=798 The edges should be stored in the most specific parent of the from and to nodes, and not in the parent of the node in which they are defined. This is because the layout takes this information into account. For example, the below layout does not show a tree inside node 1. view := MOViewRenderer new. view node: 1 forIt: [ view shape label. view nodes: (10 to: 11). view treeLayout. ]. view edgesFromAssociations: {10 -> 11}. view open.

1 4

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

Moose-dev August 2012