PDSOE Custom Toolbar option "Send file name of the current selection" with multi select?

I am playing around with adding some custom tools to my PSDOE. I have added a new toolbar entry to experiment with the OpenEdge Customization Options. I have checked the option "Send file name of the current selection" and modified the procedure it is calling to have a single input parameter to get the selected file name when it is clicked.

This works great on a single select. When I start messing around with a multi select of files in the project explorer, it only passes the last one selected into the procedure file.




ROUTINE-LEVEL on error undo, throw.

define input parameter ip_cParameters as character no-undo.

{adecomm/oeideservice.i}

/* *************************** Main Block *************************** */

define variable cParamters as character no-undo.
define variable cFileName as character no-undo.
define variable cProjectName as character no-undo.
define variable cProjectDisplayName as character no-undo.

assign
cParamters = entry( 1, ip_cParameters, chr(3) )
cFileName = entry( 2, ip_cParameters, chr(3) )
cProjectName = getProjectName()
cProjectDisplayName = getProjectDisplayName().

message
"Parameters: " cParamters skip(1)
"FileName: " cFileName skip(1)
"Project Name: " cProjectName skip(1)
"Project Display Name: " cProjectDisplayName skip(1)
view-as alert-box title "info".

Continue reading...