'From VisualWorks® NonCommercial, Release 5i.4 of August 9, 2001 on June 6, 2002 at 6:01:31 pm'!


!CormasNS.Kernel.SpaceInterface methodsFor: 'actions'!

updatePov: menuSelection 
	| className selectorName |
	className := (menuSelection copyUpTo: $*) asSymbol.
	(((self model cormasModel class environment at: className)
		inheritsFrom: SpatialEntity)
		and: [(self model spatialEntities includesKey: className) not])
		ifTrue: [^Dialog warn: (UserMessage defaultString: '' key: #noSuchEntity)].
	((self model cormasModel class environment at: className)
		inheritsFrom: SpatialEntity)
		ifTrue: 
			[self model activeSpatialEntity: className.
			self model cormasModel class spatialClasses do: [:es | es name ~= className ifTrue: [es activePov: nil]]].
	selectorName := (menuSelection copyFrom: (menuSelection indexOf: $*)
					+ 1 to: menuSelection size) asSymbol.
	selectorName = #nil ifFalse: [(self model cormasModel class environment at: className)
			activePov: selectorName]
		ifTrue: [(self model cormasModel class environment at: className)
				activePov: nil].
	(self model cormasModel class environment at: className) pdvDict notNil ifTrue: [self legend isOpen ifTrue:[self legend majLegendes: (Array with: className asString with: selectorName asString)]].
	self model refreshView! !