GameInputManager on OSX ?

Hello all;

I am trying to test the gameInputManager ( OSX 10.6.8 ) however I cannot get the following code to show any devices.

I have a mouse and keyboard connected.

can anyone help ?

  dim ElementPop as new PopupMenu
  Dim i, Maxi As Integer
  dim mManager as new GameInputManager
  ElementPop.DeleteAllRows
  Dim dev As GameInputDevice
  Dev = mManager.Device(ElementPop.ListIndex)
  
  If dev <> Nil then
    Maxi = dev.ElementCount
    msgbox str(Maxi)
    
    For i = 0 to Maxi-1
      ElementPop.AddRow dev.Element(i).Name
    next
    
  else
    msgbox "No Devices Found"
    
  end if