Changeset 7291


Ignore:
Timestamp:
Sep 25, 2007, 6:44:08 PM (12 years ago)
Author:
jaj
Message:

Add function windows that returns an ordered list of the windows that are open.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/cocoa-ide/cocoa-utils.lisp

    r6866 r7291  
    8989                                              (float blue +cgfloat-zero+)
    9090                                              (float alpha +cgfloat-zero+)))
     91
     92(defun windows ()
     93  (let* ((win-arr (#/orderedWindows *NSApp*))
     94         (ret nil))
     95    (dotimes (i (#/count win-arr))
     96      (push (#/objectAtIndex: win-arr i) ret))
     97    (nreverse ret)))
Note: See TracChangeset for help on using the changeset viewer.