[Lazarus] Nested Classes used as Namespace Issue

[Andrew Brunner]

type
  ns=class
  Type
     Vendor=class
     Const
       id    = "ITMID';
       Size = 'ITMSIZE';
     Type
        PVendor=^TVendor;
        TVendor=record
          ID : Int64;
          Size : Integer;
        end;
        class procedure Foo();
     end;
     Supplier=class
         // example
        class procedure Foo();
     end;
  end;
end;

Neither ns.Supplier.Foo() nor ns.Vendor.Foo() will not jump to the
actual code in Lazarus IDE.  It kind of muddles nested classes (as
namespaces) that FPC supports.  Is this on someones list of todos?