Use cApplication.pkg
Use cCJCommandBarSystem.pkg

// Procedure that needs to exist in the ghoApplication object.
Register_Procedure UpdateWorkspaceSelectorDisplay String sSWSFileName

Class cWorkspaceMenuItem is a cCJMenuItem
    Procedure OnExecute
        String sFileName
        Get psCaption to sFileName
        Send UpdateWorkspaceSelectorDisplay of ghoApplication sFileName
    End_Procedure
End_Class