Glamour Mondrian - Moose-dev

20 May 2009

Hi Doru,

when I make a Glamour browser with a mondrian view, the size of the  
mondrian panel is fixed.
In a previous version, it is not.

Is it possible to change this behaviour in my code ?

My code is:

---------
littleOrionBrowser
	| browser |
	browser := GLMTableLayoutBrowser new.

	browser column: #models; column: #changedElements.

	browser showOn: #models; using: [
		browser list
			format:[:system | system name];
			display: [:system | system orionModels]].
	browser showOn: #changedElements; from: #models; using: [
		browser list
			display: [:model |
				model orionSystem currentModel: model.
				model entities select: [:element | element mooseModel = model] ]].
	browser sendToOutside: #model from:#models.
	^ browser
----------
withVisual

	| browser |
	browser := GLMTableLayoutBrowser new.
	browser row: #textual; row: #visual.
	browser showOn: #textual; using:[
		browser custom: self littleOrionBrowser.].
	browser showOn: #visual; from:#textual->#model; using:[
		browser mondrian
			title: 'DSM';
			painting: [ :view :model |
				(model allPackages viewDSMOn: view)]].
	browser sendToOutside: #model from:#textual->#model.
	^ browser
----------

I use the method withVisual.

Thanks for your help.

Cheers

---
Jannik Laval
PhD Student - Rmod Team - INRIA
Certified Project Management Associate (IPMA)
http://www.jannik-laval.eu
http://rmod.lille.inria.fr
---