Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
LANSA Tour Of Heroes Pt 2 Navigation Bar
function options(*DIRECT)
begin_com role(*EXTENDS #PRIM_PANL) displayposition(1) height(57) left(0) tabposition(1) top(0) width(500) layoutmanager(#MainPanelLayout)
* =====================================================================================
* LAYOUTS
* =====================================================================================
define_com class(#PRIM_TBLO) name(#MainPanelLayout)
define_com class(#PRIM_TBLO.Row) name(#LayoutRow1) displayposition(1) parent(#MainPanelLayout)
define_com class(#PRIM_TBLO.Column) name(#LayoutColumn1) displayposition(1) parent(#MainPanelLayout)
define_com class(#PRIM_TBLO.Item) name(#LayoutItem1) alignment(CenterLeft) column(#LayoutColumn1) manage(#DashboardLabel) parent(#MainPanelLayout) row(#LayoutRow1) sizing(ContentWidth) flow(Right) marginbottom(5) marginleft(5) marginright(5) margintop(5)
define_com class(#PRIM_TBLO.Item) name(#LayoutItem2) alignment(CenterLeft) column(#LayoutColumn1) manage(#HeroesLabel) parent(#MainPanelLayout) row(#LayoutRow1) sizing(ContentWidth) flow(Right) marginbottom(5) marginleft(5) marginright(5) margintop(5)
* =====================================================================================
* UI COMPONENTS
* =====================================================================================
define_com class(#PRIM_LABL) name(#DashboardLabel) caption('Dashboard') displayposition(1) ellipses(Word) height(25) left(5) parent(#COM_OWNER) tabposition(1) tabstop(False) top(16) verticalalignment(Center) width(69) themedrawstyle('NavBarButton') marginleft(5) marginright(5) marginbottom(5) margintop(5) componenttag('TOHDSHP01')
define_com class(#PRIM_LABL) name(#HeroesLabel) caption('Heroes') displayposition(2) ellipses(Word) height(25) left(84) parent(#COM_OWNER) tabposition(2) tabstop(False) top(16) verticalalignment(Center) width(49) themedrawstyle('NavBarButton') marginbottom(5) marginleft(5) marginright(5) margintop(5) componenttag('TOHHROP01')
* =====================================================================================
* EVENTS
* =====================================================================================
define_evt name(Clicked)
define_map for(*INPUT) class(#PRIM_ALPH) name(#view)
* =====================================================================================
* ROUTINES
* =====================================================================================
evtroutine handling(#DashboardLabel.Click #HeroesLabel.Click) com_sender(#pSender)
signal event(Clicked) view(#pSender.ComponentTag)
endroutine
end_com
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment