This Q&A forum allows users to post and respond to "How Do I Do ....." questions. Please do not use to report (suspected) errors - you must use your regional help desk for this. The information contained in this forum has not been validated by LANSA and, as such, LANSA cannot guarantee the accuracy of the information.
pravin0457432
Posts: 6 Joined: Tue Apr 01, 2025 12:02 amLocation: Raleigh, NC
Post
by pravin0457432 Sat Apr 26, 2025 2:23 am
Hi All,
I am trying to create a slide out popup window that will contain icons. I have tried to replicate the example from
xDemoWebGoogleIcons
Code: Select all
Begin_Com Role(*EXTENDS #PRIM_WEB) Layoutmanager(#Layout1) Theme(#SYS_THEME<2015Blue>) Height(473) Width(1201)
...
Define_Com Class(#PRIM_TILE<#XDEMO_65>) Name(#Tile) Displayposition(2) Left(8) Parent(#COM_OWNER) Tabposition(1) Top(114) Height(359) Width(1185) Showpartialitem(True)
Mthroutine Name(LoadIcons) Access(*PRIVATE)
Define_Map For(*INPUT) Class(#Prim_Str) Name(#CodePoints)
For Each(#Line) In(#Utilities.SplitString( #CodePoints (10).AsUnicodeString ))
Add_Entry To_List(#Tile)
Endfor
Endroutine
And in
xDemoWebGoogleIconTileDesign
Code: Select all
Begin_Com Role(*EXTENDS #PRIM_PANL *implements #Prim_tile.iTileDesign *Listfields #listFields) Displayposition(1) Height(129) Left(0) Tabposition(1) Top(0) Width(185) Layoutmanager(#Layout1) Themedrawstyle('ToolbarButton')
Group_By Name(#listFields) Fields(#xDemoUnicode128)
This is what my code looks like:
The panel
Code: Select all
Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_PANL) Height(529) Left(0) Top(0) Width(401) Displayposition(1) Tabposition(1)
Define_Com Class(#PRIM_TILE<#MNUTI>) Name(#MenuTile) Displayposition(1) Left(8) Parent(#COM_OWNER) Tabposition(1) Height(495) Width(425) Showpartialitem(True)
Mthroutine Name(Show)
Define_Map For(*INPUT) Class(#PRIM_LIST.ListItem) Name(#ParentListItem) Pass(*BY_REFERENCE)
Define_Com Class(#MenuTreeDataObject) Name(#ChildItem) Reference(*DYNAMIC)
#STD_TEXTL := "test 1"
#SHTX62 := "icon 2"
Add_Entry To_List(#MenuTile)
Endroutine
And the tile panel
Code: Select all
Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_PANL *implements #Prim_tile.iTileDesign *Listfields #MenuListFields) Displayposition(1) Height(129) Left(0) Tabposition(1) Top(0) Width(185) Layoutmanager(#Layout1) Themedrawstyle('ToolbarButton')
Group_By Name(#MenuListFields) Fields(#STD_TEXTL #SHTX62)
When I execute I get a fatal error when trying to add the entry to the #Menutile
Add_Entry To_List(#MenuTile)
Any suggestions on what I could be missing?
Thanks,
pravin0457432
Posts: 6 Joined: Tue Apr 01, 2025 12:02 amLocation: Raleigh, NC
Post
by pravin0457432 Mon Apr 28, 2025 10:32 pm
Okay, I've tried a few more options and I've copied pasted entire code snippets in the hope that someone will be able to run it on their side and see my issue.
I created a dummy test page, then a rup panel that contains the icontiles. In the first example I linked to the demo icon tiles rup, just to eliminate any fault in my code. And that worked. I then copied the demo rup sideways and just renamed it. Made zero changes. I pointed the rup panel to this new copy and I got the same error.
Test webpage:
Code: Select all
Begin_Com Role(*EXTENDS #PRIM_WEB) Height(608) Width(864)
Define_Com Class(#PRIM_PHBN) Name(#Centered) Displayposition(1) Left(344) Parent(#COM_OWNER) Tabposition(1) Top(232) Width(161) Caption('Open Tile Panel') Height(57) Themedrawstyle('Heading2') Wordwrap(True)
Define_Com Class(#rupPopupPanel) Name(#PopupPaneltest)
Evtroutine Handling(#Centered.Click)
#PopupPaneltest.ShowPopup
Endroutine
End_ComPanel that will popup with the tiled icons:
Code: Select all
Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_PPNL) Caption('Caption') Closebutton(True) Left(0) Height(300) Titlebar(True) Top(0) Width(400)
Define_Com Class(#PRIM_TILE<#xDemoWebGoogleIconTileDesign>) Name(#Tile) Displayposition(1) Left(8) Parent(#COM_OWNER) Tabposition(1) Top(114) Height(359) Width(1185) Showpartialitem(True)
Define_Com Class(#xDemoWebUtilities) Name(#Utilities)
Evtroutine Handling(#Com_owner.CreateInstance)
#COM_OWNER.LoadIcons Codepoints("3d_rotation ac_unit access_alarm access_alarms access_time accessibility")
Endroutine
Mthroutine Name(LoadIcons) Access(*PRIVATE)
Define_Map For(*INPUT) Class(#Prim_Str) Name(#CodePoints)
For Each(#Line) In(#Utilities.SplitString( #CodePoints " " ))
Continue If(#Line = "")
#xDemoUnicode128 := (#Utilities.SplitString( #Line ' ' ))<1>.Value
Add_Entry To_List(#Tile)
Endfor
Endroutine
End_Com
In this example I am using the demo reusable part #xDemoWebGoogleIconTileDesign.
The result works as expected:
https://ibb.co/RkvXMfGB
I copied xDemoWebGoogleIconTileDesign sideways and just renamed it to pnWebGoogleIcontileDesign
Code: Select all
Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_PANL *implements #Prim_tile.iTileDesign *Listfields #listFields) Displayposition(1) Height(129) Left(0) Tabposition(1) Top(0) Width(185) Layoutmanager(#Layout1) Themedrawstyle('ToolbarButton')
Group_By Name(#listFields) Fields(#xDemoUnicode128)
Define_Com Class(#PRIM_TBLO) Name(#Layout1)
Define_Com Class(#PRIM_TBLO.Column) Name(#Column1) Displayposition(1) Parent(#Layout1)
Define_Com Class(#PRIM_TBLO.Row) Name(#Row1) Displayposition(1) Parent(#Layout1) Height(1.23)
Define_Com Class(#PRIM_TBLO.Row) Name(#Row2) Displayposition(2) Parent(#Layout1) Height(0.77)
Define_Com Class(#PRIM_TBLO.Item) Name(#LayoutItem1) Column(#Column1) Manage(#gIconName) Parent(#Layout1) Row(#Row2)
Define_Com Class(#PRIM_TBLO.Item) Name(#LayoutItem2) Column(#Column1) Manage(#GoogleIcon) Parent(#Layout1) Row(#Row1)
Define_Com Class(#PRIM_LABL) Name(#gIconName) Caption('Icon Name') Displayposition(1) Ellipses(Word) Height(49) Left(0) Parent(#COM_OWNER) Tabposition(1) Tabstop(False) Top(80) Verticalalignment(Center) Width(185) Marginleft(2) Alignment(Center) Themedrawstyle('AlternateItem') Selectable(True)
Define_Com Class(#xDemoWebGoogleIcon) Name(#GoogleIcon) Displayposition(2) Height(80) Left(0) Parent(#COM_OWNER) Tabposition(2) Tabstop(False) Top(0) Width(185)
Define_Com Class(#prim_tile.Tileitem) Name(#gTileItem) Reference(*DYNAMIC)
Define_Pty Name(IconStyle) Set(SetIconStyle)
Ptyroutine Name(SetIconStyle)
Define_Map For(*INPUT) Class(#Prim_vs.Style) Name(#Property) Pass(*BY_REFERENCE)
#GoogleIcon.Style <= #Property
Endroutine
Mthroutine Name(OnAdd) Options(*REDEFINE)
#gTileItem <= #TileItem
#gIconName #gIconName.Hint #GoogleIcon.IconName := #xDemoUnicode128
Endroutine
Mthroutine Name(OnDelete) Options(*REDEFINE)
#gTileItem <= *null
Endroutine
Mthroutine Name(OnFind) Options(*REDEFINE)
Define_Com Class(#Prim_Str) Name(#SearchKey)
#SearchKey := #Key
#gTileItem.Visible := (#Key = "") Or (#gIconName.Caption.LowerCase.Contains( #SearchKey.LowerCase ))
Endroutine
End_Com
I then edit the rup panel from above and use the sideways copy instead:
Code: Select all
Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_PPNL) Caption('Caption') Closebutton(True) Left(0) Height(300) Titlebar(True) Top(0) Width(400)
Define_Com Class(#PRIM_TILE<#pnWebGoogleIcontileDesign>) Name(#Tile) Displayposition(1) Left(8) Parent(#COM_OWNER) Tabposition(1) Top(114) Height(359) Width(1185) Showpartialitem(True)
Define_Com Class(#xDemoWebUtilities) Name(#Utilities)
Evtroutine Handling(#Com_owner.CreateInstance)
#COM_OWNER.LoadIcons Codepoints("3d_rotation ac_unit access_alarm access_alarms access_time accessibility")
Endroutine
Mthroutine Name(LoadIcons) Access(*PRIVATE)
Define_Map For(*INPUT) Class(#Prim_Str) Name(#CodePoints)
For Each(#Line) In(#Utilities.SplitString( #CodePoints " " ))
Continue If(#Line = "")
#xDemoUnicode128 := (#Utilities.SplitString( #Line ' ' ))<1>.Value
Add_Entry To_List(#Tile)
Endfor
Endroutine
End_Com
But executing the website returns this error:
Code: Select all
Fatal Error:
Failed to load /lansa15-v15/tst/pnwebgoo.js?lcb=1745842970_dev
Location:
Reusable Part: rupPopupPanel, line 22
Call Stack:
1. Evtroutine Handling(#Com_owner.CreateInstance): rupPopupPanel, line 11
2. Mthroutine Name(LoadIcons): rupPopupPanel, line 22
Appreciate any thoughts or opinions on this.
Thanks,
Pravin
pravin0457432
Posts: 6 Joined: Tue Apr 01, 2025 12:02 amLocation: Raleigh, NC
Post
by pravin0457432 Mon Apr 28, 2025 10:54 pm
Okay looks like I managed to resolve the issue. Weekend rest maybe
I previously tried renaming the list and that didn't work. It just seems like I needed to rename the tileitem to make it unique.
Code: Select all
Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_PANL *implements #Prim_tile.iTileDesign *Listfields #listFields) Displayposition(1) Height(129) Left(0) Tabposition(1) Top(0) Width(185) Layoutmanager(#Layout1) Themedrawstyle('ToolbarButton')
Group_By Name(#listFields) Fields(#xDemoUnicode128)
Define_Com Class(#PRIM_TBLO) Name(#Layout1)
Define_Com Class(#PRIM_TBLO.Column) Name(#Column1) Displayposition(1) Parent(#Layout1)
Define_Com Class(#PRIM_TBLO.Row) Name(#Row1) Displayposition(1) Parent(#Layout1) Height(1.23)
Define_Com Class(#PRIM_TBLO.Row) Name(#Row2) Displayposition(2) Parent(#Layout1) Height(0.77)
Define_Com Class(#PRIM_TBLO.Item) Name(#LayoutItem1) Column(#Column1) Manage(#gIconName) Parent(#Layout1) Row(#Row2)
Define_Com Class(#PRIM_TBLO.Item) Name(#LayoutItem2) Column(#Column1) Manage(#GoogleIcon) Parent(#Layout1) Row(#Row1)
Define_Com Class(#PRIM_LABL) Name(#gIconName) Caption('Icon Name') Displayposition(1) Ellipses(Word) Height(49) Left(0) Parent(#COM_OWNER) Tabposition(1) Tabstop(False) Top(80) Verticalalignment(Center) Width(185) Marginleft(2) Alignment(Center) Themedrawstyle('AlternateItem') Selectable(True)
Define_Com Class(#xDemoWebGoogleIcon) Name(#GoogleIcon) Displayposition(2) Height(80) Left(0) Parent(#COM_OWNER) Tabposition(2) Tabstop(False) Top(0) Width(185)
Define_Com Class(#prim_tile.Tileitem) Name(#pnTileItem) Reference(*DYNAMIC)
Define_Pty Name(IconStyle) Set(SetIconStyle)
Ptyroutine Name(SetIconStyle)
Define_Map For(*INPUT) Class(#Prim_vs.Style) Name(#Property) Pass(*BY_REFERENCE)
#GoogleIcon.Style <= #Property
Endroutine
Mthroutine Name(OnAdd) Options(*REDEFINE)
#pnTileItem <= #TileItem
#gIconName #gIconName.Hint #GoogleIcon.IconName := #xDemoUnicode128
Endroutine
Mthroutine Name(OnDelete) Options(*REDEFINE)
#pnTileItem <= *null
Endroutine
Mthroutine Name(OnFind) Options(*REDEFINE)
Define_Com Class(#Prim_Str) Name(#SearchKey)
#SearchKey := #Key
#pnTileItem.Visible := (#Key = "") Or (#gIconName.Caption.LowerCase.Contains( #SearchKey.LowerCase ))
Endroutine
End_Com
