mthroutine name(ShowView)
define_map for(*INPUT) class(#PRIM_ALPH) name(#pViewId)

define_com class(#PRIM_ALPH) name(#lPreviousViewId)

if (#mViews<#pViewId> *Is *NULL)
#SYS_WEB.Alert( ("Missing &1").Substitute( #pViewId ) )
return
endif

#lPreviousViewId := #mCurrentViewId
#mCurrentViewId := #pViewId

#mViews<#mCurrentViewId>.Activate

if ((#mViews<#lPreviousViewId> *IsNot *NULL) *And (#mViews<#lPreviousViewId> *IsNotEqualTo #mViews<#mCurrentViewId>))
#mViews<#lPreviousViewId>.Deactivate
#COM_OWNER.Transition from(#mViews<#lPreviousViewId>) to(#mViews<#mCurrentViewId>) transitiontype(Fade) duration(100)
else
* no previous view to transition from, so just make the current view visible
#mViews<#mCurrentViewId>.Visible := True
endif

#ViewContainerLayoutItem.Manage <= #mViews<#mCurrentViewId>
#ViewContainerLayoutItem.Sizing := ContentHeightFitToWidth
endroutine