Changeset 6152


Ignore:
Timestamp:
Apr 7, 2007, 12:44:55 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-listener.lisp

    r6130 r6152  
    232232    (#/addWindowController: self controller)
    233233    (#/release controller)
    234     (rlet ((current-point :ns-point))
    235       (ns:init-ns-point current-point
    236                         (or *next-listener-x-pos* *initial-listener-x-pos*)
    237                         (or *next-listener-y-pos* *initial-listener-y-pos*))
    238                        
    239 
     234    (ns:with-ns-point (current-point
     235                       (or *next-listener-x-pos* *initial-listener-x-pos*)
     236                       (or *next-listener-y-pos* *initial-listener-y-pos*))
    240237      (let* ((new-point (#/cascadeTopLeftFromPoint: window current-point)))
    241238        (setf *next-listener-x-pos* (ns:ns-point-x new-point)
Note: See TracChangeset for help on using the changeset viewer.