/Cocoa/NSScreen
Feedback.

Function:
You find this example project in your Plugins Download as a Realbasic project file within the examples folder: /Cocoa/NSScreen
This example is the version from Tue, 18th Jan 2010.
Notes: Last modified: Tue, 18th Jan 2010

Class App
Inherits Application
  // Constants
  Const kFileQuitShortcut = Ctrl+Q
  Const kFileQuit = &Beenden
  Const kEditClear =
End Class

Class Window1
Inherits Window
  // Controls
  ControlInstance
  End ControlInstance
  
  // Event implementations
  Sub Open()
    dim mainscreen as NSScreenMBS = NSScreenMBS.mainScreen
    dim deepestScreen as NSScreenMBS = NSScreenMBS.deepestScreen
    dim screens(-1) as NSScreenMBS = NSScreenMBS.screens
    
    for each s as NSScreenMBS in screens
      List.AddRow hex(s.Handle)
      List.Cell(List.LastIndex,1)=s.frame
      List.Cell(List.LastIndex,2)=s.visibleFrame
      List.Cell(List.LastIndex,3)=str(s.depth)
      if s.colorSpace<>nil then
        
        dim colorspace as NSColorSpaceMBS = s.colorSpace
        List.Cell(List.LastIndex,4)=colorspace.localizedName
      end if
      
      if mainscreen=s then
        List.Cell(List.LastIndex,5)="yes"
      end if
      
      if deepestScreen=s then
        List.Cell(List.LastIndex,6)="yes"
      end if
      
    next
    
  End Sub
End Class