Changeset 7767


Ignore:
Timestamp:
Nov 28, 2007, 6:22:37 PM (12 years ago)
Author:
af
Message:

Add easygui:cell-count for forms.

Location:
trunk/ccl/examples/cocoa/easygui
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/examples/cocoa/easygui/package.lisp

    r7641 r7767  
    2020           #:add-entry #:add-entries #:editable-p
    2121           #:draw-view-rectangle
    22            #:entry-text #:nth-cell #:selection #:redisplay
     22           #:entry-text #:cell-count #:nth-cell #:selection #:redisplay
    2323           #:string-value-of #:integer-value-of #:float-value-of
    2424           #:double-value-of))
  • trunk/ccl/examples/cocoa/easygui/views.lisp

    r7641 r7767  
    340340                                    (slot-value view 'autosize-cells-p)))))
    341341
     342(defmethod cell-count ((view form-view))
     343  (dcc (#/numberOfRows (cocoa-ref view))))
     344
    342345(defmethod nth-cell (index view)
     346  (assert (< index (cell-count view)))
    343347  (let ((cocoa-cell (dcc (#/cellAtIndex: (cocoa-ref view) index))))
    344348    (when cocoa-cell
Note: See TracChangeset for help on using the changeset viewer.