Changeset 6154


Ignore:
Timestamp:
Apr 7, 2007, 12:45:20 PM (12 years ago)
Author:
gb
Message:

Use ns:with-... instead of rlet/ns:init.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/objc-gf/ccl/examples/cocoa-typeout.lisp

    r6130 r6154  
    4545    (setf (slot-value self 'scroll-view) scrollview)
    4646    (let* ((contentsize (#/contentSize scrollview)))
    47       (rlet ((text-frame :ns-rect))
    48         (ns:init-ns-rect text-frame 0 0 (ns:ns-size-width contentsize) (ns:ns-size-height contentsize))
     47      (ns:with-ns-rect (text-frame 0 0 (ns:ns-size-width contentsize) (ns:ns-size-height contentsize))
    4948        (let* ((text-view (make-instance 'ns:ns-text-view
    5049                                         :with-frame text-frame))
     
    7271                                         :width 600
    7372                                         :activate nil)))
    74            (rlet ((size :<NSS>ize))
    75              (ns:init-ns-size size 600 10000)
     73           (ns:with-ns-size (size 600 10000)
    7674             (#/setMaxSize: panel size)
    7775             (setf (ns:ns-size-height size) 1)
Note: See TracChangeset for help on using the changeset viewer.