package body openGL.Variable is --------- -- Forge -- procedure define (Self : in out Item) -- TODO: Rid these ? is begin null; end define; procedure destroy (Self : in out Item) is begin null; end destroy; end openGL.Variable;